showmessage.asp

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

<!--#Include File="WapConfig/WapHeader.asp"-->
<% 
'获得变量
Dim Name,Title,Content
Name=Wap.SafeRequest("Name")
Title=Wap.SafeRequest("Title")
Content=Wap.SafeRequest("Content")
Dim ToDo : ToDo=Request("ToDo")
If ToDo="AddMessage" Then
Wap.RedirectPath=Wap.WapPath & "MessageList.asp" '添加完数据库，返回的文件。
Wap.StrSql="Insert InTo GuestBook (Name,Title,Content) Values ('" & Name & "','" & Title & "','" & Content & "')"
Wap.MdbInsert '插入数据库，并且跳转。
End If
'回复留言
If ToDo="ReplyMessage" Then
Wap.StrSql="Update GuestBook Set LastReplay=#" & Now & "#,Reply='" & Request("Reply") & "' Where Id=" & Request("Id")
Wap.MdbDo
End If
%>
<%
'################################################
'以下为文件正文。
Dim ListKey : ListKey=Request("Id")
If ListKey="" Then ListKey= Session("FindId")
Wap.StrSql="Select * From GuestBook Where Id =" & ListKey
Wap.WriteRow "题目：" & Wap.MdbShow("Title")
Wap.WriteRow "作者：" & Wap.MdbShow("Name")
Wap.WriteRow "时间：" & Wap.MdbShow("DateTime")
Wap.WriteRow "点击：" & Wap.MdbShow("Click") & "次"
Wap.WriteRow "------"
Wap.MorePage Wap.MdbShow("Content"),TextLong '显示内容，长度TextLong在WapConfig.asp中设置。
If Wap.MdbShow("Reply")<> "暂无" Then
Wap.WriteRow "回复:" & Wap.MdbShow("Reply") '最后回复内容
Wap.WriteRow Wap.MdbShow("LastReply") '最后回复时间。
Else
Wap.WriteRow "暂无回复"
If Session("IsAdmin")=True Then Wap.WriteRow Wap.A("确定",Wap.ThisFileName & "?Id=" & ListKey & "#Reply","回复留言")
End If
'更新浏览次数
Wap.StrSql="Update GuestBook Set Click=Click+1 Where Id=" & ListKey
Wap.MdbDo
'以下关于上一条、下一条记录
Wap.RsInfoPlace="None"
Wap.ErrorPagePath=""
Wap.DBIsShowImage=False
Wap.GoFileName="ShowMessage.asp"
If Session("ListOrder")="" Or Lcase(Session("ListOrder"))="desc" Then
	Wap.WriteOut "下："
	Wap.StrSql="Select Top 1 * from GuestBook Where Id<" & ListKey & " Order By Id Desc"
	Wap.MdbList : If Wap.RecordCount<1 Then Wap.WriteRow "无"
	Wap.WriteOut "上："
	Wap.StrSql="Select Top 1 * from GuestBook Where Id>" & ListKey & " Order By Id Asc"
	Wap.MdbList : If Wap.RecordCount<1 Then Wap.WriteOut "无"
Else
	Wap.WriteOut "下："
	Wap.StrSql="Select Top 1 * from GuestBook Where Id>" & ListKey & " Order By Id Desc"
	Wap.MdbList : If Wap.RecordCount<1 Then Wap.WriteRow "无"
	Wap.WriteOut "上："
	Wap.StrSql="Select Top 1 * from GuestBook Where Id<" & ListKey & " Order By Id Asc"
	Wap.MdbList : If Wap.RecordCount<1 Then Wap.WriteOut "无"
End If
Wap.WriteRow ""
'删除留言链接
If Session("IsAdmin")=True Then Wap.WriteRow Wap.A("确定",Wap.ThisFileName & "?ToDo=DelMessage&amp;Id=" & ListKey & "#DelMessage","删除留言")
'以下为返回链接等信息。
Wap.WriteRow Wap.A("确定","MessageList.asp","返回列表")
Wap.WriteRow Wap.A("确定","MessageList.asp","返回首页")
'################################################
'第二个卡片[留言回复]
Wap.WriteOut Wap.Card("Reply",Wap.SiteName,PAlign,WrapMode,False)
ListKey=Request("Id")
Wap.WriteRow Wap.TextIn("回复内容","text","Reply","","内容")
Wap.WriteRow Wap.AnchorGo("确定提交",Wap.ThisFileName & "?ToDo=ReplyMessage&amp;Id=" & ListKey,"Reply","Reply"," ","post")
Wap.WriteOut Wap.PostSet("options","提交",Wap.ThisFileName & "?ToDo=ReplyMessage","utf-8","post")
Wap.WriteRow Wap.TextMorePost("Reply", "Reply")
'以下为返回链接等信息。
Wap.WriteRow Wap.A("确定","MessageList.asp","返回列表")
Wap.WriteRow Wap.A("确定","MessageList.asp","返回首页")
'################################################
'################################################
'第三个卡片[留言添加]
Wap.WriteOut Wap.Card("NewMessage",Wap.SiteName,PAlign,WrapMode,False)
Wap.WriteRow Wap.TextIn("请输入姓名","text","Name","bicyle","姓名")
Wap.WriteRow Wap.TextIn("请输入题目","text","Title","","题目")
Wap.WriteRow Wap.TextIn("请输入内容","text","Content","","内容")
Wap.WriteRow Wap.AnchorGo("确定提交",Wap.ThisFileName & "?ToDo=AddMessage","Name Title Content","Name Title Content"," ","post")
Wap.WriteOut Wap.PostSet("options","提交",Wap.ThisFileName & "?ToDo=AddMessage","utf-8","post")
Wap.WriteRow Wap.TextMorePost("Name Title Content", "Name Title Content")
'以下为返回链接等信息。
Wap.WriteRow Wap.A("确定","MessageList.asp","返回列表")
Wap.WriteRow Wap.A("确定","MessageList.asp","返回首页")
'################################################
'[留言回复成功后的卡片]
Wap.WriteOut Wap.Card("ChengGong",Wap.SiteName,PAlign,WrapMode,False)
Wap.WriteRow "非常感谢您留言。"
'以下为返回链接等信息。
Wap.WriteRow Wap.A("确定","MessageList.asp","返回列表")
Wap.WriteRow Wap.A("确定","MessageList.asp","返回首页")
'删除留言的卡片。
Wap.WriteOut Wap.Card("DelMessage",Wap.SiteName,PAlign,WrapMode,False)
ListKey=Request("Id")
If Request("ToDo")="DelMessage" Then
Wap.StrSql="Delete From GuestBook Where Id=" & ListKey '要查询数据库的SQL语句。
Wap.MdbDeleteData
End If 
Wap.WriteRow Wap.A("确定","MessageList.asp","返回列表")
%>
<!--#Include File="WapConfig/WapFooter.asp"-->