<%
if login=0 then
response.Write("注册登录")
else
if admin=1 then adminhtml=" 控制面板"
response.Write(""&Cusername&" 欢迎您!"&adminhtml&" 注销")
end if
%>
<%
page=request.QueryString("page")
page=trim(page)
if IsNumeric(page)=false then page=1
if page<1 then page=1
wordsclass=request.QueryString("wordsclass")
'分类的实现
softsort=allsort
if trim(softsort)<>"" then
response.Write("
全部 ")
for ii = 1 to len(softsort)
sortname = sortname & mid(softsort,ii,1)
if mid(softsort,ii,1)="," or ii = len(softsort) then
if mid(softsort,ii,1)="," then sortname =mid(sortname,1,len(sortname)-1)
response.Write(""&sortname&" ")
htmlwordssort=htmlwordssort&""
sortname=""
end if
next
response.Write("
")
end if
'留言读取
set rs=server.CreateObject("adodb.recordset")
if wordsclass<>"" then sql="select * from words where wordssort='"&wordsclass&"'" else sql="select * from words order by id desc"
rs.open sql,conn,1,1
if rs.recordcount=0 then
response.Write("
暂无留言
")
else
rs.pagesize=webnum '每页显示的留言数
pagecount=rs.pagecount '共有多少页
if int(page)>int(pagecount) then page=pagecount
rs.absolutepage=page '显示第几页
do while pagei",">")
content=replace(content,chr(34),""") '替换掉文章中的"字符
'content=replace(content,chr(39),""") '替换掉文章中的'字符
content=replace(content,chr(13)," ") '替换掉文章中的回车
'content=replace(content,chr(10)," ") '替换掉文章中的回车
if admin=1 then admindel=" 编辑删除 "
response.Write("
")
set rsreply=server.CreateObject("adodb.recordset")
rsreply.open "select * from reply where replyid="&id&" order by id desc",conn,1,1
do while not rsreply.eof
replycontent=rsreply("content")
replycontent=replace(replycontent,"<","<")
replycontent=replace(replycontent,">",">")
replycontent=replace(replycontent,chr(34),""") '替换掉文章中的"字符
'content=replace(content,chr(39),""") '替换掉文章中的'字符
replycontent=replace(replycontent,chr(13)," ") '替换掉文章中的回车
replycontent=replace(replycontent,chr(10)," ") '替换掉文章中的回车
if admin=1 then admindel=" 编辑删除 "
response.Write("