制作WAP留言本[ASP教程]

　制作WAP留言本[ASP教程]

作者：yytcpt　时间： 2005-10-27　文档类型：原创　来自：蓝色理想

第 1 页 ASP制作WAP留言本 [1]
第 2 页 ASP制作WAP留言本 [2]

WAP的变量提交也分两种情况，GET和POST，使用GET方法，对中文的支持并不是很好，所以有使用到表单提交的地方，都改为POST方式提交，代码格式为：

<anchor>POST方式提交
<go href="save.asp" method="post">
<postfield name="Name" value="$(Name:n)" />
<postfield name="Title" value="$(Title:n)" />
<postfield name="Content" value="$(Content:n)" />
<postfield name="Method" value="POST" />
</go>
</anchor>

当然对于英文和数字，简单的，使用GET方式提交会比较方便一些，代码格式为：

<a href="save.asp?Name=$(Name:n)&Title=$(Title:n)&Content=$(Content:n)&Method=GET">GET方式提交</a>

注：连接不同变量字符的&符号要写为&

发表留言页面add.asp的代码如下：

运行代码框
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% 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="max-age=0"/> <meta http-equiv="Cache-Control" content="no-cache"/> </head> <card id="add" title="经典WAP留言本"> <p> 昵称：<br/> <input name="Name" emptyok="false" size="10" maxlength="10"/><br/> 标题：<br/> <input name="Title" emptyok="false" maxlength="40"/><br/> 内容：<br/> <input name="Content" format="false" maxlength="150"/><br/> <br/><anchor>POST方式提交 <go href="save.asp" method="post"> <postfield name="Name" value="$(Name:n)" /> <postfield name="Title" value="$(Title:n)" /> <postfield name="Content" value="$(Content:n)" /> <postfield name="Method" value="POST" /> </go> </anchor> <br/><a href="save.asp?Name=$(Name:n)&Title=$(Title:n)&Content=$(Content:n)&Method=GET">GET方式提交</a><br/><br/> <a href="index.asp">返回留言列表</a> </p> <p> 有任何疑问，请访问：http://www.designer5.net或<br/> 蓝色理想论坛WAP版：http://www.blueidea.com/bbs<br/> 广告：蓝色理想WAP网站改版了，使用手机访问<a href="http://wap.blueidea.com">http://wap.blueidea.com</a><br/> 如果您参考了此程序，有WAP站点，请做上http://wap.blueidea.com的链接。 </p> <do type="prev" label="返回"><prev/></do> </card> </wml>
[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

接下来是保存数据。

保存页面save.asp，代码如下：

运行代码框
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  <% Function inWML(str) ' 把字符串存入数据库，单引号过滤，'==Chr(39) sTemp = Replace(str, Chr(39), "'") '单引号过滤 inWML = sTemp End Function IF Request("Method")<>"" Then Name=inWML(Trim(Request("Name"))) Title=inWML(Trim(Request("Title"))) Content=inWML(Trim(Request("Content"))) Method=Request("Method") Sql = "INSERT INTO guestbook(Name, Title, Content, Method) values('"&Name&"', '"&Title&"', '"&Content&"', '"&Method&"')" Conn.Execute Sql End IF Response.Redirect ("index.asp") %>
[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

最后是显示把留言的内容显示出来。

显示数据的时候需要注意字符的替换，因为有些字符是不能直接显示的，需要转换为Ascii码，在WML里面“$”符号是表示变量，如果要显示“$”，需要写为“$$”，例：“一共有$$315元RMB”，显示为“一共有$315元RMB”。

必须要替换的字符，已经写为函数，方便大家使用。

Function outHTM(str)
' 把字符串进行HTM解码,输出字符串
Dim sTemp
sTemp = str
outHTM = ""
If IsNull(sTemp) Then
Exit Function
End If
sTemp = Replace(sTemp, "'", "'") '还原单引号
sTemp = Replace(sTemp, "&", "&")
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
sTemp = Replace(sTemp, "$", "$$")
sTemp = Replace(sTemp, "　", " ")
sTemp = Replace(sTemp, Chr(10), "<br/>")
outHTM = sTemp
End Function

显示留言的页面index.asp，代码如下：

运行代码框
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  <% Function outHTM(str) ' 把字符串进行HTM解码,输出字符串 Dim sTemp sTemp = str outHTM = "" If IsNull(sTemp) Then Exit Function End If sTemp = Replace(sTemp, "'", "'") '还原单引号 sTemp = Replace(sTemp, "&", "&") sTemp = Replace(sTemp, "<", "<") sTemp = Replace(sTemp, ">", ">") sTemp = Replace(sTemp, "$", "$$") sTemp = Replace(sTemp, "　", " ") sTemp = Replace(sTemp, Chr(10), "<br/>") outHTM = sTemp End Function Sql = "SELECT * FROM guestbook ORDER BY ID DESC " Set Rs = Server.CreateObject("Adodb.Recordset") Rs.Open Sql,conn,1,3 page = Request.QueryString("Page") Rs.PageSize = 6 '一页6条记录 IF Not IsEmpty(Page) Then IF Not IsNumeric(Page) Then '判断Page是否为数字 Page=1 Else Page=Cint(Page) '转换成短整形Integer End IF IF Page > Rs.PageCount Then Rs.AbsolutePage = Rs.PageCount '设置当前显示页等于最后一页 ElseIF Page <= 0 Then Rs.AbsolutePage = 1 '设置当前页等于第一页 Else Rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 End IF Else Rs.AbsolutePage = 1 End IF Page = Rs.AbsolutePage %> <% 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="max-age=0"/> <meta http-equiv="Cache-Control" content="no-cache"/> </head> <card id="add" title="经典WAP留言本"> <p> <a href="add.asp">发表新贴</a><br/> <% For i=1 to Rs.PageSize If Rs.Eof Then Response.Write "没有留言了！<br/>" Exit For End If %> (<%=Rs("ID")%>) <%=outHTM(Rs("Title"))%><br/> 内容：<%=outHTM(Rs("Content"))%><br/> 留言者：<%=outHTM(Rs("Name"))%><br/> 时间：<%=outHTM(Rs("CreatTime"))%><br/> 回复：<% if Rs("Reply")<>""then Response.Write outHTM(Rs("Reply")) else Response.Write "“暂无回复”" end if %><br/> －－－－－－<br/> <% Rs.MoveNext Next if page>=Rs.PageCount then 'Response.Write ("[下一页]") else Response.Write("[<a href='index.asp?Page=" & (Page+1) & "'>下一页</a>]") end if if page<=1 then 'Response.Write ("[上一页] ") else Response.Write("[<a href='index.asp?Page=" & (Page-1) & "'>上一页</a>]") end if %> <br/><a href="add.asp">发表新贴</a> </p> <p> 有任何疑问，请访问：http://www.designer5.net 或<br/> 蓝色理想论坛WAP版：http://www.blueidea.com/bbs<br/> 广告：蓝色理想WAP网站改版了，<a href="http://wap.blueidea.com">http://wap.blueidea.com</a><br/> 如果您有WAP站点，并参考了此程序，请做上http://wap.blueidea.com的连接 </p> </card> </wml>
[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

后台管理页面admin.asp，代码如下：

运行代码框
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  <% Function inWML(str) ' 把字符串存入数据库，单引号过滤 sTemp = Replace(str, Chr(39), "'") '单引号过滤 inWML = sTemp End Function IF (Request.Form("Flag")="ReplySave") Then Id = Request.Form("Id") Name = inWml(Request.Form("Name")) Title = inWml(Request.Form("Title")) Content = inWml(Request.Form("Content")) Reply = inWml(Request.Form("Reply")) '可修改用户留言，是为了避免用户输入非法信息 Sql = "UPDATE GuestBook SET Name = '"&Name&"', " Sql = Sql + "Title = '"&Title&"', " Sql = Sql + "Content = '"&Content&"', " Sql = Sql + "Reply = '"&Reply&"' " Sql = Sql + " WHERE Id = "&Id Conn.ExeCute Sql Conn.Close Set Conn = Nothing Response.Redirect("admin.asp") End IF IF (Request.QueryString("Action")="Del") Then Sql = "DELETE FROM GuestBook WHERE Id=" & Request.QueryString("Id") Conn.Execute Sql Conn.Close Set Conn = Nothing Response.Redirect("admin.asp") End IF %> <% Set Rs=Server.CreateObject("adodb.Recordset") Sql = "SELECT * FROM GuestBook ORDER BY Id Desc" Rs.open Sql,conn,3,3 Page = Request.QueryString("Page") Rs.PageSize = 10 '一页6条记录 IF Not IsEmpty(Page) Then IF Not IsNumeric(Page) Then '判断Page是否为数字 Page=1 Else Page=Cint(Page) '转换成短整形Integer End IF IF Page > Rs.PageCount Then Rs.AbsolutePage = Rs.PageCount '设置当前显示页等于最后一页 ElseIF Page <= 0 Then Rs.AbsolutePage = 1 '设置当前页等于第一页 Else Rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 End IF Else Rs.AbsolutePage = 1 End IF Page = Rs.AbsolutePage %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title>经典WAP留言本</title> <style type="text/css"> body, td{font-size:12px;} p{line-height:22px;} </style> <script language="javascript" type="text/javascript" charset="utf-8">  </script> </head> <body> <table width="600" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#2D96FF"> <tr align="center" bgcolor="#D0E8FF"> <td height="70" colspan="8"><p><strong>经典WAP留言本</strong></p> <p><strong>制作：</strong><strong><a href="http://www.designer5.net" target="_blank">D5S工作室</a>   作者：yytcpt</strong></p> </td> </tr> <tr align="center" bgcolor="#9BCDFF"> <td height="25"><strong>ID</strong></td> <td><strong>留言者</strong></td> <td><strong>标题</strong></td> <td><strong>留言内容</strong></td> <td><strong>提交方式</strong></td> <td><strong>留言时间</strong></td> <td width="34"><strong>回复</strong></td> <td><strong>删除</strong></td> </tr> <% For i=1 to Rs.PageSize If Rs.Eof Then Exit For End If %> <tr bgcolor="#C8E3FF" onMouseOver="javascript:this.bgColor='#9BCDFF';" onMouseOut="javascript:this.bgColor='#C8E3FF';"> <td width="19" height="25" align="center"><%=Rs("Id")%></td> <td width="48" align="center"><%=Rs("Name")%></td> <td width="53" align="center"><%=Rs("Title")%></td> <td width="247" align="left"><%=Rs("Content")%> </td> <td width="53" align="center"><%=Rs("Method")%></td> <td width="76" align="center"><%=Rs("CreatTime")%></td> <td align="center"><a href="admin.asp?Action=Reply&Id=<%=Rs("Id")%>">回复</a></td> <td width="45" align="center"><a href="javascript:if(confirm('确实要删除吗?'))location='admin.asp?Action=Del&Id=<%=Rs("Id")%>'">删除</a></td> </tr> <% Rs.MoveNext Next %> <tr align="center" bgcolor="#9BCDFF"> <td height="25" colspan="8"> <% Response.Write("<form name=page method=get onsubmit=""document.location = 'admin.asp?Page='+this.page.value;return false;"">") if page<=1 then Response.Write ("[首页] [上一页] ") else Response.Write("[<a href=admin.asp?Page=1>首页</a>] ") Response.Write("[<a href=admin.asp?Page=" & (Page-1) & ">上一页</a>] ") end if if page>=Rs.PageCount then Response.Write ("[下一页] [尾页]") else Response.Write("[<a href=admin.asp?Page=" & (Page+1) & ">下一页</a>] ") Response.Write("[<a href=admin.asp?Page=" & Rs.PageCount & ">尾页</a>]") end if Response.Write("[页次:<font color=red>" & page & "</font>/" & Rs.PageCount) Response.Write("] [共" & Rs.RecordCount & "条 <font color=red>"& Rs.PageSize & "</font>条/页]") Response.Write(" 转到" & "<input name=page size=4 value=" & page & ">" & "页<input type=submit value=go></form>") %> </td> </tr> <tr align="center"> <td height="30" colspan="8" bgcolor="#C8E3FF"><p> 有任何疑问，请访问<a href="http://www.designer5.net"> <strong>http://www.designer5.net</strong></a>  或<strong><a href="http://www.blueidea.com/bbs" target="_blank"> </a></strong><a href="http://www.blueidea.com/bbs" target="_blank"><strong> </strong></a><strong><a href="http://www.blueidea.com/bbs" target="_blank">蓝色理想论坛WAP版块</a></strong><br/> <strong>广告：</strong>蓝色理想WAP网站改版了，请使用手机访问<a href="http://wap.blueidea.com"><strong>http://wap.blueidea.com</strong></a><br/> 如果您有WAP站点，并参考了此程序，请做上http://wap.blueidea.com的连接</p></td> </tr> </table> <p> </p> <% IF (Request.QueryString("Action")="Reply") Then Set Rs=Server.CreateObject("adodb.Recordset") Sql = "SELECT * FROM GuestBook WHERE Id ="&Request.QueryString("Id") Rs.open Sql,conn,3,3 %> <table width="333" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#C8E3FF"> <form name="form1" method="post" action="admin.asp" onsubmit="javascript:return check_form1()"> <tr> <td width="69"><strong>ID</strong></td> <td width="264"><%=Rs("Id")%></td> </tr> <tr> <td><strong>留言者</strong></td> <td> <input name="Name" type="text" value="<%=Rs("Name")%>" size="20"> </td> </tr> <tr> <td><strong>标题</strong></td> <td><input name="Title" type="text" value="<%=Rs("Title")%>" size="20"></td> </tr> <tr> <td><strong>留言时间</strong></td> <td><%=Rs("CreatTime")%></td> </tr> <tr> <td><strong>留言内容</strong></td> <td><textarea name="Content" cols="30" rows="4"><%=Rs("Content")%></textarea></td> </tr> <tr> <td><strong>本站回复</strong></td> <td><textarea name="Reply" cols="30" rows="4"><%=Rs("Reply")%></textarea></td> </tr> <tr align="center"> <td colspan="2"><input type="submit" name="Submit" value="提交">      <input type="reset" name="Submit" value="重置"> <input name="Id" type="hidden" value="<%=Rs("Id")%>"> <input name="Flag" type="hidden" value="ReplySave"> </td> </tr> </form> </table> <% End IF %> </body> </html> <% Rs.Close Set Rs = Nothing %>
[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

连接数据库conn.asp，代码如下：

运行代码框
<% Dim Conn, StrSQL StrSQL = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("d5s.mdb") set Conn = Server.Createobject("Adodb.Connection") Conn.open StrSQL %>
[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

源码下载地址：点击下载

其他说明：有任何疑问，请访问：http://www.designer5.net或
蓝色理想论坛WAP版：http://www.blueidea.com/bbs
广告：蓝色理想WAP网站改版了，使用手机访问http://wap.blueidea.com
如果您参考了此程序，有WAP站点，请做上http://wap.blueidea.com的链接。

经典论坛讨论帖：

http://www.blueidea.com/bbs/NewsDetail.asp?DaysPrune=60&lp=1&id=2055033

出处：蓝色理想
责任编辑：moby

上一页 ASP制作WAP留言本 [1] 下一页

◎进入论坛网络编程版块参加讨论

相关文章

web关联菜单实现方法


关键字搜索	常规搜索	推荐文档
热门搜索：CSS Fireworks 设计比赛网页制作 web标准用户体验 UE photoshop Dreamweaver Studio8 Flash 手绘 CG

站点最新

站点最新列表

周大福“敬•自然”设计大赛开启

国际体验设计大会7月将在京举行

中国国防科技信息中心标志征集

云计算如何让安全问题可控

云计算是多数企业唯一拥抱互联网的机会

阿里行云

云手机年终巨献，送礼标配299起

阿里巴巴CTO王坚的"云和互联网观"

1499元买真八核云OS双蛋大促

首届COCO桌面手机主题设计大赛

栏目最新

栏目最新列表

浅谈JavaScript编程语言的编码规范

如何在illustrator中绘制台历

Ps简单绘制一个可爱的铅笔图标

数据同步算法研究

用ps作简单的作品展示页面

CSS定位机制之一:普通流

25个最佳最闪亮的Eclipse开发项目

Illustrator中制作针线缝制文字效果

Photoshop制作印刷凹凸字体

VS2010中创建自定义SQL Rule