<%
function WebMenu()
dim rs,sql,i
set rs = server.createobject("adodb.recordset")
sql="select ID,AboutName from NwebCn_About where ViewFlag and not ChildFlag order by Sequence asc"
rs.open sql,conn,1,1
response.write"
"
rs.movenext
loop until rs.eof
end if
response.write"
"
rs.close
set rs=nothing
end function
function WebLocation()
dim ID
ID=request.QueryString("ID")
id="11"
dim rs,sql
set rs = server.createobject("adodb.recordset")
if id="" then
sql="select top 1 ID,AboutName,Content,GroupID,Exclusive,ClickNumber from NwebCn_About where ViewFlag and not ChildFlag order by Sequence asc"
else
sql="select ID,AboutName,Content,GroupID,Exclusive,ClickNumber from NwebCn_About where ViewFlag and not ChildFlag and ID="&ID
end if
rs.open sql,conn,1,1
if rs.bof and rs.eof then
WebLocation="错误"
else
WebLocation=""&rs("AboutName")
end if
rs.close
set rs=nothing
end function
function WebContent()
dim ID
ID=request.QueryString("ID")
id="11"
dim rs,sql
set rs = server.createobject("adodb.recordset")
if id="" then
sql="select top 1 ID,AboutName,Content,GroupID,Exclusive,ClickNumber from NwebCn_About where ViewFlag and not ChildFlag order by Sequence asc"
else
sql="select ID,AboutName,Content,GroupID,Exclusive,ClickNumber from NwebCn_About where ViewFlag and not ChildFlag and ID="&ID
end if
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.write "
暂无相关信息
"
else
if ViewNoRight(rs("GroupID"),rs("Exclusive")) then
WebContent=rs("Content")
rs("ClickNumber")=rs("ClickNumber")+1
else
WebContent="
"
end if
rs.update
end if
rs.close
set rs=nothing
end function
%>