<%
function WebLocation()
dim ID
ID=request.QueryString("ID")
dim rs,sql
set rs = server.createobject("adodb.recordset")
if request.QueryString("ID")="" then
sql="select ID,AboutName,Content,GroupID,Exclusive,ClickNumber from NwebCn_About where ViewFlag and not ChildFlag and ID=22"
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")
dim rs,sql
set rs = server.createobject("adodb.recordset")
if request.QueryString("ID")="" then
sql="select ID,AboutName,Content,GroupID,Exclusive,ClickNumber from NwebCn_About where ViewFlag and not ChildFlag and ID=22"
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
'response.write sql
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
%>
