中国国产激情一区,精品国精品无码自拍自在线,99久久国产综合精品女同

　制作WAP留言本[ASP教程]

作者：yytcpt　時間： 2005-10-27　文檔類型：原創(chuàng)　來自：藍色理想

第 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>

當(dāng)然對于英文和數(shù)字，簡單的，使用GET方式提交會比較方便一些，代碼格式為：

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

注：連接不同變量字符的&符號要寫為&

發(fā)表留言頁面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="經(jīng)典WAP留言本"> <p> 昵稱：<br/> <input name="Name" emptyok="false" size="10" maxlength="10"/><br/> 標(biāo)題：<br/> <input name="Title" emptyok="false" maxlength="40"/><br/> 內(nèi)容：<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://m.95time.cn/bbs<br/> 廣告：藍色理想WAP網(wǎng)站改版了，使用手機訪問<a >http://wap.blueidea.com</a><br/> 如果您參考了此程序，有WAP站點，請做上http://wap.blueidea.com的鏈接。 </p> <do type="prev" label="返回"><prev/></do> </card> </wml>
[Ctrl+A 全部選擇提示：你可先修改部分代碼，再按運行]

接下來是保存數(shù)據(jù)。

保存頁面save.asp，代碼如下：

運行代碼框
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  <% Function inWML(str) ' 把字符串存入數(shù)據(jù)庫，單引號過濾，'==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 全部選擇提示：你可先修改部分代碼，再按運行]

最后是顯示把留言的內(nèi)容顯示出來。

顯示數(shù)據(jù)的時候需要注意字符的替換，因為有些字符是不能直接顯示的，需要轉(zhuǎn)換為Ascii碼，在WML里面“$”符號是表示變量，如果要顯示“$”，需要寫為“$$”，例：“一共有$$315元RMB”，顯示為“一共有$315元RMB”。

必須要替換的字符，已經(jīng)寫為函數(shù)，方便大家使用。

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是否為數(shù)字 Page=1 Else Page=Cint(Page) '轉(zhuǎn)換成短整形Integer End IF IF Page > Rs.PageCount Then Rs.AbsolutePage = Rs.PageCount '設(shè)置當(dāng)前顯示頁等于最后一頁 ElseIF Page <= 0 Then Rs.AbsolutePage = 1 '設(shè)置當(dāng)前頁等于第一頁 Else Rs.AbsolutePage = Page '如果大于零,顯示當(dāng)前頁等于接收的頁數(shù) 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="經(jīng)典WAP留言本"> <p> <a href="add.asp">發(fā)表新貼</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/> 內(nèi)容：<%=outHTM(Rs("Content"))%><br/> 留言者：<%=outHTM(Rs("Name"))%><br/> 時間：<%=outHTM(Rs("CreatTime"))%><br/> 回復(fù)：<% if Rs("Reply")<>""then Response.Write outHTM(Rs("Reply")) else Response.Write "“暫無回復(fù)”" 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">發(fā)表新貼</a> </p> <p> 有任何疑問，請訪問：http://www.designer5.net 或<br/> 藍色理想論壇WAP版：http://m.95time.cn/bbs<br/> 廣告：藍色理想WAP網(wǎng)站改版了，<a >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) ' 把字符串存入數(shù)據(jù)庫，單引號過濾 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是否為數(shù)字 Page=1 Else Page=Cint(Page) '轉(zhuǎn)換成短整形Integer End IF IF Page > Rs.PageCount Then Rs.AbsolutePage = Rs.PageCount '設(shè)置當(dāng)前顯示頁等于最后一頁 ElseIF Page <= 0 Then Rs.AbsolutePage = 1 '設(shè)置當(dāng)前頁等于第一頁 Else Rs.AbsolutePage = Page '如果大于零,顯示當(dāng)前頁等于接收的頁數(shù) 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>經(jīng)典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>經(jīng)典WAP留言本</strong></p> <p><strong>制作：</strong><strong><a 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>標(biāo)題</strong></td> <td><strong>留言內(nèi)容</strong></td> <td><strong>提交方式</strong></td> <td><strong>留言時間</strong></td> <td width="34"><strong>回復(fù)</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")%>">回復(fù)</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(" 轉(zhuǎn)到" & "<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 > <strong>http://www.designer5.net</strong></a>  或<strong><a href="http://m.95time.cn/bbs" target="_blank"> </a></strong><a href="http://m.95time.cn/bbs" target="_blank"><strong> </strong></a><strong><a href="http://m.95time.cn/bbs" target="_blank">藍色理想論壇WAP版塊</a></strong><br/> <strong>廣告：</strong>藍色理想WAP網(wǎng)站改版了，請使用手機訪問<a ><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>標(biāo)題</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>留言內(nèi)容</strong></td> <td><textarea name="Content" cols="30" rows="4"><%=Rs("Content")%></textarea></td> </tr> <tr> <td><strong>本站回復(fù)</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 全部選擇提示：你可先修改部分代碼，再按運行]

連接數(shù)據(jù)庫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://m.95time.cn/bbs
廣告：藍色理想WAP網(wǎng)站改版了，使用手機訪問http://wap.blueidea.com
如果您參考了此程序，有WAP站點，請做上http://wap.blueidea.com的鏈接。

經(jīng)典論壇討論帖：

http://m.95time.cn/bbs/NewsDetail.asp?DaysPrune=60&lp=1&id=2055033

出處：藍色理想
責(zé)任編輯：moby

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

◎進入論壇網(wǎng)絡(luò)編程版塊參加討論

相關(guān)文章

[ASP]提高數(shù)據(jù)顯示效率--緩存探幽

web關(guān)聯(lián)菜單實現(xiàn)方法


關(guān)鍵字搜索	常規(guī)搜索	推薦文檔
熱門搜索：CSS Fireworks 設(shè)計比賽網(wǎng)頁制作 web標(biāo)準(zhǔn) 用戶體驗 UE photoshop Dreamweaver Studio8 Flash 手繪 CG

站點最新

站點最新列表

周大�！熬�•自然”設(shè)計大賽開啟

國際體驗設(shè)計大會7月將在京舉行

中國國防科技信息中心標(biāo)志征集

云計算如何讓安全問題可控

云計算是多數(shù)企業(yè)唯一擁抱互聯(lián)網(wǎng)的機會

阿里行云

云手機年終巨獻，送禮標(biāo)配299起

阿里巴巴CTO王堅的"云和互聯(lián)網(wǎng)觀"

1499元買真八核云OS雙蛋大促

首屆COCO桌面手機主題設(shè)計大賽

欄目最新

欄目最新列表

淺談JavaScript編程語言的編碼規(guī)范

如何在illustrator中繪制臺歷

Ps簡單繪制一個可愛的鉛筆圖標(biāo)

數(shù)據(jù)同步算法研究

用ps作簡單的作品展示頁面

CSS定位機制之一:普通流

25個最佳最閃亮的Eclipse開發(fā)項目

Illustrator中制作針線縫制文字效果

Photoshop制作印刷凹凸字體

VS2010中創(chuàng)建自定義SQL Rule

中文字幕二区_国产精品免费在线观看_黄色网站观看_人人草人人澡_日本真实娇小xxxx