messagelist.asp

WAP整站源码,可以直接用在手机网站上.

<!--#Include File="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
Wap.WriteOut Wap.P("Left","nowrap") '设置对齐方式。
'以下是数据库的设置信息
Wap.EveryPageSize=16 '每页显示的记录条数。默认为10。
Wap.FieldShow="Title" '要显示的记录的字段名称。
Wap.FieldId="Id" '数据库中的关键字段的名称。
Wap.FieldHeader="Name" '数据列表的前缀字段的名字
Wap.FieldFooter="DateTime" '数据列表的后缀字段的名字
Wap.DbIsShowImage=False '数据记录显示前面是否显示小图标。可选择False。
Wap.ErrorPagePath="" '当页面发生错误，或者没有记录时，跳转到的页面。默认为站点首页。
Wap.RsInfoPlace="top" '设置显示的数据集合信息的位置[top\bottom\none,默认是top]
'Wap.DBListNumber=True '设置数据记录前是否显示自动编号数字。[新增较V1.5]
Wap.DBOrderNumber=True '设置数据记录前是否显示自动编号数字。[新增较V1.5]
'以下为本站公告显示
Wap.GoFileName="ShowMessage.asp" '连接到页面的文件的名字。
Wap.StrSql="Select * From GuestBook Order By DateTime Desc" '要查询数据库的SQL语句。
Wap.MdbListPagesThree "bottom"
Wap.WriteRow Wap.A("确定","ShowMessage.asp#NewMessage","发表留言")
If Session("IsAdmin")=True Then
Wap.WriteRow Wap.A("确定","Admin.asp?ToDo=Exit","注销管理")
Else
Wap.WriteRow Wap.A("确定","Admin.asp","管理登录")
End If
Wap.WriteRow Wap.A("确定","Index.asp","返回首页")
%>
<!--#Include File="WapConfig/WapFooter.asp"-->