view_message.asp

skybird写的ASP的WAP网站源程序

<%Response.ContentType = "text/vnd.wap.wml"
%>
<% 
dim conn
dim dbpath
dim strsql
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("../myinc/#skybird.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("adodb.recordset")
strsql="SELECT * FROM guestbook order by daytime desc"
rs.open strsql,conn,1,3
Dim iPageSize 
Dim iPageCount 
Dim iPageCurrent 
Dim iRecordsShown 
Dim I 
iPageSize = 10 
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
rs.PageSize = iPageSize
rs.CacheSize = iPageSize
iPageCount = rs.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
response.write ("对不起，无记录")
Else
rs.AbsolutePage = iPageCurrent
%>

<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<wml>
 	<card id="index" title="天堂鸟论坛" >
<p align="center">
<img src="../images/jingdianonline.png" alt=""/>查看留言
</p>
		<p>
总数:<%=RS.RecordCount %>条; <%= iPageCurrent %>/<%= iPageCount %><br/>
<%
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not rs.EOF
For I = 0 To rs.Fields.Count - 1
dim qqq,findid
qqq=rs("person_name")
mycontent=rs("person_content")
myphone=rs("person_phone")
mytime=rs("daytime")
mymail=rs("person_email")
next
iRecordsShown = iRecordsShown + 1
%>

姓名：<%=qqq%><br/>
内容：<%=mycontent%><br/>
时间：<%=mytime%><br/>
电话：<%=myphone%><br/>
E-mail：<%=mymail%><br/>
------------<br/>
<%  
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
If iPageCurrent <> 1 Then
%>

<a title="确定"  href="view_message.asp?page=<%=iPageCurrent - 1%>">上一页</a><br/>
<%
End If
If iPageCurrent < iPageCount Then
%>

<a title="确定"  href="view_message.asp?page=<%=iPageCurrent + 1 %>">下一页</a><br/>
<%
End If
%>
<a title="确定"  href="write_messge.asp">签写留言</a><br/>

<a title="确定"  href="../index.asp">返回首页</a><br/>

  	</p>
	</card>
</wml>