?? index.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>
<card id="gbook" title="留言列表">
<%
'gbook 頁面
'顯示記錄
dim page
page=Request.querystring("page")
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
dim sql,i
' sql="select id,userid,標題,點擊,回復?from gbook where pid=0 order by 發表時間 desc"
sql="SELECT ID, 名稱,標題,點擊,回復,發表時間 "
sql=sql&"FROM GBOOK "
sql=sql&"where pid=0 order by 最后回復 desc,發表時間 desc"
dim pageCount,recordcount
set rs=server.CreateObject("adodb.recordset")
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 "<p>"&i
response.Write ".<a href='show.asp?id="& rs(0) &"'>"
response.Write rs(2)&"("&rs(3)&"/"&rs(4)&")"
response.Write "</a>|"
response.Write "作者：" &rs(1) &"<br/>"
response.Write "時間：" & rs(5)
response.Write "</p>"
rs.movenext
i=i+1
if i>5 then exit do
loop
rs.close
set rs=nothing
response.Write "<p>共有"&PageCount&"頁 現為第"&page&"頁</p>"&vbCrLf
response.Write "<p><a href='?page="&(page-1)&"'>上一頁</a>|"
response.Write "<a href='?page="&(page+1)&"'>下一頁</a></p>"
if PageCount>1 then response.Write "<p><a href=""#goto"">轉到指定頁</a></p>"
response.Write "<p><a href='#post'>發表留言</a></p>"
response.Write "<p><a href='index.asp'>留言首頁</a><br/>------------<br/><a href='http://wapter.51.net/index.wml'>網站首頁</a></p>"
else
response.Write"<p>暫無內容</p>"
response.Write "<p><a href='#post'>發表留言</a></p>"
response.Write "<p><a href='index.asp'>留言首頁</a><br/>------------<br/><a href='http://wapter.51.net/index.wml'>網站首頁</a></p>"
end if
%>
</card>
<card id='post' 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></p>
<p><a href='index.asp'>留言首頁</a><br/>------------<br/><a href='http://wapter.51.net/index.wml'>網站首頁</a></p>
</card><card id="goto" title="轉到指定頁">
<p><input name='a' emptyok='false' value='2' format='*N'/>
<anchor>轉到指定頁<go href='?page=$(a:N)'></go></anchor><br/>
<a href="#gbook">留言首頁</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 + -