📄 show.asp

📁 采用三级目录

💻 ASP

字号:

<!--#include file="conn.asp"-->
<%
  set rscon=server.createobject("adodb.recordset")
  sql="select * from config where id=1"
  rscon.open sql,connconfig,1,1
%> 
<%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"> 
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<%
	sql="select * from book where id="&request("id")&""
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	if not(rs.eof and rs.bof) then 
%>
	<card id='gbook' title='查看留言'>
	<p>题目:<%=rs("title")%><br/>
	作者:<%=rs("user")%><br/>
	时间:<%=rs("ftime")%></p>
	<p>=留言内容=</p>
	<p><%=UBBCode(rs("content"))%></p>
	<p align='left'>===============</p>
<%
	sql="select * from liu where lid='"& rs("id") &"'"
	set rs1=server.createobject("adodb.recordset")
	rs1.open sql,conn,1,1
	if not(rs1.eof and rs1.bof) then
%>
	<p>回复时间:<%=rs1("htime")%><br/>
	=回复内容=</p>
	<p><%=UBBCode(rs1("content"))%></p>

<%
	else
	response.write ""
	end if
%>
<p><a href='add.asp'>发表留言</a><br/>
<%
if request("shouji")=rscon("masterphone") and request("pass")=rscon("pass") then
%>
<a href='replay.asp?id=<%=request("id")%>&amp;shouji=<%=request("shouji")%>&amp;pass=<%=request("pass")%>'>发表回复</a><br/><a href='de11.asp?id=<%=request("id")%>&amp;shouji=<%=request("shouji")%>&amp;pass=<%=request("pass")%>'>**删除**</a><br/><a href='index.asp?shouji=<%=request("shouji")%>&amp;pass=<%=request("pass")%>'>留言首页</a><br/>
<% else %>
<a href='index.asp'>留言首页</a><br/><a href='login.asp'>管理留言</a><br/>
<% end if %>
<a href='../index.asp'>网站首页</a></p>
</card>
<%
	else
%>
<card id='error' title='出错'><p>错误的ID</p></card>
<%
	end if
%>
</wml>
<%	rs.close
	set rs=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -