?? show.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)&" 回復:"& 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&"&page="&(page-1)&"#reply5'>上一條</a> "
else
response.Write "<a href='#reply"&(i-1)&"'>上一條</a>"
end if
end if
if i>=5 then
response.Write "<a href='?id="&gid&"&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 + -