📄 view.asp

📁 wap建站
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.asp"-->
<%
id=request.QueryString("id")
p=cint(request.QueryString("p"))
if p="" or p<1 then p=1
%>
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card title="阅读留言">
<p>
<%
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from [gbook] where [ID]=" & ID
rs.open rsstr,conn,1,2

set rsn=Server.CreateObject("ADODB.Recordset")
rsstrn="select * from [gbook] where [ID]<"& ID &" order by [ID] desc"
rsn.open rsstrn,conn,1,2
set rspr=Server.CreateObject("ADODB.Recordset")
rsstrpr="select * from [gbook] where [ID]>"& ID &" order by [ID] asc"
rspr.open rsstrpr,conn,1,2

if rs.recordcount=0 then 
response.write("无此留言！<br/>")
else
if rs("open")=1 then
response.write("(悄悄话)" & UBBCode(rs("title")) & "<br/>")
else
response.write(UBBCode(rs("title")) & "<br/>")
end if
response.write("----------<br/>" )
response.write("<img src='face/" & rs("face") & ".gif' alt=''/>" & "<br/>")
if rs("open")=0 or rs("num")=pno or pno="13518175626" then
response.write(UBBCode(rs("text")) & "<br/><br/>")
else 
response.write("悄悄话,仅管理员可见！<br/><br/>")
end if
%>
作者：
<anchor><%=rs("name")%>
        <go href="his.asp" method="post">
	<postfield name="no" value="<%=rs("num")%>"/>
        </go>
</anchor><br/>
<%
response.write("时间：" & rs("time") & "<br/>")
response.write "----------<br/>"
%>
<!--#include file="admin.asp"-->
<%
response.write("联系方式：" & UBBCode(rs("lianxi")) & "<br/>")
response.write("手机：" & rs("num") & "<br/>")
response.write("型号：" & rs("agent") & "<br/>")
response.write "----------<br/>"
end if
%>

<% 
if rs("retext")<>"" then
if rs("open")=0 or rs("num")=pno or pno="13518175626" then
%>
回复：<%=UBBCode(rs("retext"))%><br/>
<% else %>
回复：<% response.write("悄悄话回复,仅留言者本人可见！<br/>")
 %>
<% end if %>
时间：<%=rs("retime")%><br/>
----------<br/>
<% end if%>

<%if rsn.recordcount>0 then response.write("<a href='view.asp?id=" & rsn("ID") & "&amp;p=" & p & "'>[下条]</a>&nbsp;")%>
<%if rspr.recordcount>0 then response.write("<a href='view.asp?id=" & rspr("ID") & "&amp;p=" & p & "'>[上条]</a>&nbsp;")%>
<%if rsn.recordcount>0 or rspr.recordcount>0 then response.write("<br/>")%>

<!--#include file="admin.asp"-->
<% response.write "----------<br/>" %>
<a href="readd.asp?id=<%=id%>&amp;p=<%=p%>">[回复留言]</a><br/>
<a href="del.asp?id=<%=id%>&amp;p=<%=p%>">[删除留言]</a><br/>
<% end if%>
<!--#include file="admin.asp"-->
<% response.write "----------<br/>" %>
<a href="edit.asp?id=<%=id%>&amp;p=<%=p%>">[编辑留言]</a><br/>
<% elseif rs("num")=pno then %>
<a href="edit.asp?id=<%=id%>&amp;p=<%=p%>">[编辑留言]</a><br/>
<% end if%>
----------<br/>

<%end if%>
<a href="index.asp?p=<%=p%>">[回上一级]</a><br/>
<a href="index.asp">[栏目反馈]</a><br/>
<a href="../index.asp">[网站首页]</a><br/>
</p>
</card>
</wml> 
<%
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -