📄 wap_guestbook.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#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"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<%
'**********************************************************************
'* 程序名称: 玛雅自助导航系统
'* 程序功能：用户留言
'* 英文名称: WapLink Ver 4.5
'* 程序开发: Wapcr
'* 主页地址: http://wapcr.cn/
'* 演示地址: http://wapcr.cn/link/
'**********************************************************************
Action=Request.QueryString("Action")
select case Action
case "add"
call add
case "addy"
call addy
case "Info"
call Info
case else
call GuestBook
end select
%>
<%sub GuestBook%>
<card title="用户留言">
<p align="left">
<%
Sql="select * from [Books] order by Books_Id desc"
Set mRs=Server.CreateObject("adodb.recordSet")
mRs.open sql,Conn,1,1
If mRs.bof and mRs.eof then
Response.Write"没有任何记录<br/>"
Else
mRs.PageSize =6'每页记录条数
iCount=mRs.RecordCount '记录总数
iPageSize=mRs.PageSize
maxpage=mRs.PageCount
page=request("page")
If Not IsNumeric(page) or page="" then
page=1
Else
page=cint(page)
End If
If page<1 then
page=1
ElseIf page>maxpage then
page=maxpage
End If
mRs.AbsolutePage=Page
If page=maxpage then
x=iCount-(maxpage-1)*iPageSize
Else
x=iPageSize
End If
For i=1 To mRs.pagesize
%>
昵称:<% =mRs("Books_Name") %><%
If mRs("Books_Reply")<>"" then
Response.Write "[已复]"
Else
Response.Write "[未复]"
End If
%><br/>
预览:<a href="Wap_GuestBook.asp?Action=Info&Id=<%=mRs("Books_Id")%>"><% =Left(mRs("Books_Info"),30) %></a><br/>
时间:<% =mRs("Books_Time") %><br/>
--------<br/>
<%
mRs.movenext
If mRs.eof then exit for
next
mRs.close
Set mRs=nothing
%>
<%
call PageControl(iCount,maxpage,page)
End If
%>
--------<br/>
<a href="Wap_GuestBook.asp?Action=add">签写留言</a><br/>
<%
End Sub
Sub Info
%>
<card title="查看留言">
<p align="left">
<%
Id=Wap.checkstr(Request("Id"),12)
Set mRs=Conn.execute("select * from [Books] where Books_Id="&Id&"")
If mRs.bof and mRs.eof then
Response.Write"没有任何记录<br/>"
Else
%>
昵称:<% =mRs("Books_Name") %><br/>
在<% =mRs("Books_Time") %>的留言<br/><br/>
内容:<% =Wap.HTMLCode(mRs("Books_Info"))%><br/>
<%
If mRs("Books_Reply")<>"" then
Response.Write"回复："& Wap.HTMLCode(mRs("Books_Reply")) &"<br/>"
Else
Response.Write "[未复]<br/>"
End If
%>
<%End If%>
--------<br/>
<a href="Wap_GuestBook.asp?Action=add">签写留言</a><br/>
<%
End Sub
Sub add
%>
<card title="签写留言">
<p align="left">
昵称：<input name="Books_Name" type="text" value=""/><br/>
内容：<input name="Books_Info" type="text" value=""/><br/>
<anchor>添加留言<go href="Wap_GuestBook.asp?Action=addy" method="post">
<postfield name="Books_Name" value="$(Books_Name)"/>
<postfield name="Books_Info" value="$(Books_Info)"/>
</go></anchor><br/>
<a href="Wap_GuestBook.asp">留言列表</a><br/>
<%
End Sub
Sub addy
Books_Name=Wap.checkstr(Request("Books_Name"),500)
Books_Info=Wap.HTMLEncode(Wap.checkstr(Request("Books_Info"),500))
Ip=Wap.Ip
Rem 判断提交数据是否为空
If Books_name="" or Books_info="" then
Response.Write "<card title=""操作提示""><p align=""left"">"
Response.Write "姓名、留言必须填写！<br/>"
Rem 判断昵称能大于5个汉字
ElseIf len(Books_name)>10 then
Response.Write "<card title=""操作提示""><p align=""left"">"
Response.Write "昵称能大于5个汉字！<br/>"
Rem 判断留言内容不能小于5个汉字，大于600个汉字！
ElseIf len(Books_info)>1500 or len(Books_info)<5 then
Response.Write "<card title=""操作提示""><p align=""left"">"
Response.Write "留言内容不能小于5个汉字，大于1500个汉字！<br/>"
Else
Sql="Insert Into [Books] (Books_Name,Books_Info,Books_Time,Books_Ip) values ('"& Books_Name &"','"& Books_Info &"','"& now() &"','"& Ip &"')"
Conn.execute(Sql)
Response.write "<card id=""card1"" title=""留言成功"" ontimer=""Wap_GuestBook.asp""><timer value=""3""/><p>"
Response.write "正在进入,请稍等...<br/>"
Response.write "<a href=""Wap_GuestBook.asp"">快速进入</a><br/>"
End If
%>
<a href="Wap_GuestBook.asp">留言列表</a><br/>
<%
End Sub
Sub PageControl(iCount,pagecount,page)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
If page<=1 then
Response.Write "首页 "
Response.Write "上一页 "
Else
Response.Write "<a href='" & action & "?" & temp & "Page=1'>首页</a> "
Response.Write "<a href='" & action & "?" & temp & "Page=" & (Page-1) & "'>上一页</a> "
End If
If page>=pagecount then
Response.Write "下一页 "
Response.Write "尾页<br/>"
Else
Response.Write "<a href='" & action & "?" & temp & "Page=" & (Page+1) & "'>下一页</a> "
Response.Write "<a href='" & action & "?" & temp & "Page=" & pagecount & "'>尾页</a><br/>"
End If
Response.Write " 页次:" & page & "/" & pageCount & "页"
Response.Write " 共有" & iCount & "条留言<br/>"
Response.Write " 转到" & "<input name=""Page"&minute(now)&second(now)&""" format=""*N"" emptyok=""true"" size=""3"" type=""text"" value=""" & (Page+1) & """ title=""请输入页码"" maxlength=""9""/><anchor><go href=""" & action & "?" & temp & """ method=""post""><postfield name=""Page"" value=""$(Page"&minute(now)&second(now)&")""/></go>[转到该页]</anchor><br/>"
End Sub
%>
<a href="index.asp"><%=ChannelName%></a><br/>
<%
Rem 显示整合后的返回网站首页
If WapZhenghe=1 Then Response.write "<a href="""&WapUrl&""">返回首页</a><br/>"
Rem 读取网站底部开始
Response.write Wap.DefineContents("9")
Rem 显示网站访问
Response.write Wap.Online()
%>
<%set wap=nothing%>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -