📄 reply.asp
字号:
<!--#include file="config.inc"-->
<%
Response.Buffer=true
Response.ContentType ="text/vnd.wap.wml;charset=gb2312"
response.write("<?xml version=""1.0""?>")
response.write("<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">")
response.write("<!-- Source Generated by WML Deck Decoder -->")
%>
<wml>
<head>
<meta http-equiv="Cache-control" content="no-cache"
forua= "true" />
</head>
<card title="论坛">
<p>
<do type = "accept" label = "返回">
<prev/>
</do>
<img src="pic/02.png" alt="" align="bottom"/></p>
<p mode="nowrap">**这里有精美的流言**<br/></p>
<%
Dim id,isrly
IF not IsNumeric(Request("isrly")) Or IsEmpty(Request("isrly")) Then
isrly=0
Else
isrly = Int(Abs(Request("isrly")))
End if
IF not IsNumeric(Request("id")) Or IsEmpty(Request("id")) Then
Response.redirect "index.asp"
End if
dim rs,content
set rs=Server.CreateObject("ADODB.Recordset")
set rs2=server.createobject("ADODB.Recordset")
rs.Open "select * from gbookmain where id="&Request("id"),conn,3,3
rs2.open "update gbookmain set keycount=keycount+1 where id ="&Request("id"),conn,1,3
biao="biao/00"&cstr(rs("pic"))&".png"
if not rs.EOF then
%>
<p>
主题：<%=rs("title")%><img src="<%=biao%>" alt="" align="bottom"/><br/>
精美流言：<%=rs("content")%><br/>
发布时间：<%=rs("dateandtime")%><br/>
<img src="biao/0010.png" alt="" align="bottom"/>认为好的数目：<%=rs("choice1")%><br/>
<img src="biao/0010.png" alt="" align="bottom"/>写的不行太差：<%=rs("choice2")%><br/>
<img src="pic/03.png" alt="" align="bottom"/><br/>
<%
rs.close
Else
rs.close
conn.close
set conn=nothing
Response.redirect "index.asp"
End if
rs.Open "select * from gbookrly where mainid="&Request("id"),conn,3,3
if not rs.EOF then
Dim page
Dim name
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize = 5
total = rs.RecordCount
mypagesize = rs.pagesize
rs.absolutepage = page
dim i
i=1
do while not rs.eof and mypagesize>0
biao="biao/00"&cstr(rs("pic"))&".png"
name=rs("name")
content=rs("content")
%>
回复的内容:<%=content%><br/>回复人昵称:<%=name%><img src="<%=biao%>" alt="" align="bottom"/><br/><img src="pic/03.png" alt="" align="bottom"/><br/>
<%
mypagesize=mypagesize-1
i=i+1
rs.movenext
loop
%></p>
<p>
<%
if page>1 then%>
<img src="pic/005.png" alt="" align="bottom"/><a href="reply.asp?page=<%=page-1%>&id=<%=Request("id")%>&isrly=1">上一页</a><br/>
<%end if%>
<% if page<rs.pagecount then%>
<img src="pic/005.png" alt="" align="bottom"/><a href="reply.asp?page=<%=page+1%>&id=<%=Request("id")%>&isrly=1">下一页</a><br/>
<% end if
End if
rs.close
conn.close
set conn=nothing
%>
<img src="pic/005.png" alt="" align="bottom"/><a href="add.asp?isrly=1&id=<%=Request("id")%>">回复</a><br/>
<img src="pic/005.png" alt="" align="bottom"/><a href="xuan.asp?id=<%=request("id")%>" title="确定">您认为此栏目</a><br/>
<img src="pic/005.png" alt="" align="bottom"/><a href="index.asp">返回上级</a><br/>
<img src="pic/005.png" alt="" align="bottom"/><a href="">返回部落</a><br/>
<img src="pic/005.png" alt="" align="bottom"/><a href="">返回首页</a><br/>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -