📄 show.asp

📁 wap留言本ASP源程序
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%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>
<template><do type="accept" label="返回"><prev/></do></template>
<%
	dim page,gid
	page=Request.querystring("page")
	gid=Request.querystring("ID")
	if isnumeric(gid) and gid<>"" then
		gid=clng(gid)
	else
		'错误
		response.Write "<crad id='error' title='出错'><p>错误的ID</p></card></wml>"
		response.End()
	end if
	'if page="" then page=request.Cookies("page") 
	if page="" then page=1 else page=cint(page)
	if page<1 then page=1
	response.Cookies("page")=page
	
	call showmsg()
	call showreply()
	
	function showmsg()
	'显示记录
	dim sql,rs
	sql="SELECT ID, 内容,标题,回复, 点击,名称,发表时间 "
	sql=sql&"FROM GBOOK  "
	sql=sql&"where id="& gid &" order by 发表时间 desc"
	conn.execute "update gbook set 点击=点击+1 where id="&gid
	set rs=conn.execute(sql)
	if not(rs.eof and rs.bof) then 
		'rs.AbsolutePage=page	'设置页码
		response.Write"<card id='gbook' title='查看留言'>"
		response.Write "<p>题目:"& rs(2)&"</p>"
		response.Write "<p>作者:"& rs(5)&"</p>"
                response.Write "<p>时间:"& rs(6)&"</p>"
		response.Write "<p>点击:"& rs(4)&"&nbsp;&nbsp;回复:"& rs(3)&"</p>"
		response.Write "<p>=留言内容=</p>"
		response.Write "<p>"&UBBCode(rs(1))&"</p>"
		response.Write "<p align='left'>*=*=*=*=*=*=*=*</p>"
		if rs(3)>0 then	response.Write "<p><a href='#reply1'>查看回复</a>("& rs(3)&"条)</p>"
		response.Write "<p><a href='#replay'>发表回复</a><br/><a href='index.asp#post'>发表留言</a></p>"
		response.Write "<p><a href='index.asp'>留言首页</a><br/>------------<br/><a href='http://wapter.51.net/index.wml'>网站首页</a></p>"
		response.Write"</card>"&chr(13)
	else
		'错误
		response.Write "<crad id='error' title='出错'><p>错误的ID</p></card></wml>"
		response.End()
	end if
	rs.close
	set rs=nothing
	end function

	'显示回复
	function showreply()
		dim sql,rs,i
		dim pageCount,recordcount
		set rs=server.CreateObject("adodb.recordset")
		sql="SELECT ID,内容,标题,名称,发表时间 "
		sql=sql&"FROM GBOOK  "
		sql=sql&"where pid="&gid &" order by 发表时间"
	
		rs.open sql,conn,1
		rs.PageSize=5			'设置分页
		recordcount=rs.recordcount
		PageCount=rs.PageCount	'取得总页
		if page>PageCount then page=PageCount
		if not(rs.eof and rs.bof) then
			i=1
			rs.AbsolutePage=page
			do while not rs.eof
				response.Write"<card id='reply"&i&"' title='查看回复'>"
				response.Write "<p>题目:"& rs(2)&"</p>"
				response.Write "<p>作者:"& rs(3)&"</p>"
                                response.Write "<p>时间:"& rs(4)&"</p>"
				response.Write "<p>*回复内容*</p>"
				response.Write "<p>"&UBBCode(rs(1))&"</p>"
				response.Write "<p>*=*=*=*=*=*=*</p>"
				response.Write "<p><a href='#gbook'>返回留言</a></p><p>"
				if i>1 or page>1 then
					if i-1<1 then 
						response.Write "<a href='?id="&gid&"&amp;page="&(page-1)&"#reply5'>上一条</a>&nbsp;"
					else
						response.Write "<a href='#reply"&(i-1)&"'>上一条</a>"
					end if
				end if
				if i>=5 then
					response.Write "<a href='?id="&gid&"&amp;page="&(page+1)&"#reply1'>下一条</a></p>"
				else
					response.Write "<a href='#reply"&(i+1)&"'>下一条</a></p>"
				end if
				response.Write "<p><a href='#replay'>发表回复</a><br/><a href='index.asp#post'>发表留言</a></p>"
				response.Write "<p><a href='index.asp'>留言首页</a><br/>------------<br/><a href='http://wapter.51.net/index.wml'>网站首页</a></p>"
				response.Write"</card>"&chr(13)			
				rs.movenext
				i=i+1
			loop
		end if
		rs.close
		set rs=nothing
	end function
%>
	 
	<card id='replay' title='发表回复'>
	<p>
	昵称:<input type="text" name="name" title="昵称" emptyok="false" maxlength="12"/><br/>
	题目:<input type="text" name="title" title="题目" emptyok="false" maxlength="20"/><br/>
	内容:<input type="text" name="note" emptyok="false" title="内容"/><br/>
	<anchor>发表回复<go href="post.asp" method="post">
	<postfield name="name" value="$(name)"/>
	<postfield name="pid" value="<%=gid%>"/>
	<postfield name="title" value="$(title)"/>
	<postfield name="note" value="$(note)"/></go></anchor><br/>
	<a href='index.asp'>留言首页</a><br/>------------<br/><a href='http://wapter.51.net/index.wml'>网站首页</a><br/></p>
	</card>
</wml>
⌨️ 快捷键说明

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