%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% response.charset="utf-8" %>
<%
if request.QueryString("ID")="" then
SeoTitle="关于我们"
elseif not IsNumeric(request.QueryString("ID")) then
SeoTitle="参数错误"
elseif conn.execute("select * from Ameav_About Where ViewFlag and ID="&request.QueryString("ID")).eof then
SeoTitle="参数错误"
else
set rs = server.createobject("adodb.recordset")
sql="select * from Ameav_About where ViewFlag and ID="&request.QueryString("ID")
rs.open sql,conn,1,1
SeoTitle=rs("AboutName")
rs.close
set rs=nothing
end if
%>
<%
function WebMenu()
dim rs,sql,i
set rs = server.createobject("adodb.recordset")
sql="select ID,AboutName from Ameav_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")
dim rs,sql
set rs = server.createobject("adodb.recordset")
if request.QueryString("ID")="" then
sql="select top 1 ID,AboutName,Content,GroupID,Exclusive,ClickNumber from Ameav_About where ViewFlag and not ChildFlag order by Sequence asc"
else
sql="select ID,AboutName,Content,GroupID,Exclusive,ClickNumber from Ameav_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 top 1 ID,AboutName,Source,Content,GroupID,Exclusive,ClickNumber,AddTime from Ameav_About where ViewFlag and not ChildFlag order by Sequence asc"
else
sql="select ID,AboutName,Source,Content,GroupID,Exclusive,ClickNumber,AddTime from Ameav_About where ViewFlag and not ChildFlag and ID="&ID
end if
rs.open sql,conn,1,3
if not rs.eof then
numbers=len(rs("content")) '总字节数
pagenum=3000 '每页显示的数量
maxpage=1'总页数
requestpage=clng(request("p"))'接收页码
if requestpage="" or requestpage=0 then'获取默认页码
requestpage=1
end if
if requestpage>maxpage then '当前页的页码大于最大页码时,使当前页码等于最大页码
requestpage=maxpage
end if
if not requestpage=1 then '当前页码不等于1时,向下移动相应的字节数
content=mid(rs("content"),(requestpage-1)*pagenum+1,Sitenum)
else
content=left(rs("content"),Sitenum) '当页码等于1时,截取相应文本
end if
if isempty(requestpage) then
thispage=1
else
thispage=cint(requestpage)
end if
if ViewNoRight(rs("GroupID"),rs("Exclusive")) then
%>
<%=content%>
<%
rs("ClickNumber")=rs("ClickNumber")+1
else
WebContent=""
end if
response.write ""
for i=1 to maxpage
if thispage=i then
response.write ""
else
response.write ""&i&" "
end if
next
response.write " "
rs.update
rs.close
else
response.write "