http://www.mxio.cn 傳播先進設計理念 推動原創設計發展 Sat, 14 May 2005 03:15:00 +0000 zh-Hans hourly 1 https://wordpress.org/?v=6.9.1 http://www.mxio.cn/1515.html http://www.mxio.cn/1515.html#respond Sat, 14 May 2005 03:15:00 +0000 　　首先，我們在做留言薄之前，先做出一個輸入屏的界面效果，也就是生成留言部輸入屏幕的htmL頁，然后在這些htmL源代碼中加入ASP腳本，我這里得到的htmL代碼如下。
*文件名：book.htm　　

＜html＞ ＜head＞ 　＜title＞留言薄＜/title＞ ＜/head＞ ＜body bgcolor=”#BED9FC” background=”images/bg.gif”＞ ＜p align=”center”＞＜img src=”images/gbook.gif” alt=”GBook.gif (12142 bytes)” WIDTH=”374″ HEIGHT=”83″＞ ＜/p＞ ＜p align=”center”＞[＜a href=”disp.asp”＞我要看留言板＜/a＞]  [＜a href=”../index.asp”＞返回首頁＜/a＞]＜/p＞ ＜form method=”POST” action=”book.asp”＞ ＜input type=”hidden” name=”task” value=”insert”＞＜div align=”left”＞＜table＞ ＜tr＞ ＜td align=”right”＞姓名＜/td＞ ＜td＞＜img src=”images/bottom-b.gif” alt=”BUTTOM-B.GIF (179 bytes)” WIDTH=”16″ HEIGHT=”16″＞＜/td＞ ＜td＞＜input name=”name” size=”46″＞＜/td＞ ＜/tr＞ ＜tr＞ ＜td align=”right”＞性別＜/td＞ ＜td＞＜img src=”images/bottom-g.gif” alt=”BUTTOM-G.GIF (179 bytes)” WIDTH=”16″ HEIGHT=”16″＞＜/td＞ ＜td＞＜input name=”sex” size=”46″＞＜/td＞ ＜/tr＞ ＜tr＞ ＜td align=”right”＞來自＜/td＞ ＜td＞＜img src=”images/bottom-b.gif” alt=”BUTTOM-B.GIF (179 bytes)” WIDTH=”16″ HEIGHT=”16″＞＜/td＞ ＜td＞＜input name=”from” size=”46″＞＜/td＞ ＜/tr＞ ＜tr＞ ＜td align=”right”＞主頁URL＜/td＞ ＜td＞＜img src=”images/homepage.gif” alt=”HomePage.gif (1232 bytes)” WIDTH=”30″ HEIGHT=”30″＞＜/td＞ ＜td＞＜input name=”url” size=”46″＞＜/td＞ ＜/tr＞ ＜tr＞ ＜td align=”right”＞                       E-mail＜/td＞ ＜td＞＜img src=”images/email.gif” alt=”Email.gif (1197 bytes)” WIDTH=”30″ HEIGHT=”30″＞＜/td＞ ＜td＞＜input name=”email” size=”46″＞＜/td＞ ＜/tr＞ ＜tr＞ ＜td align=”right”＞留言＜/td＞ ＜td colspan=”2″＞＜textarea wrap=”off” name=”comments” cols=”49″ rows=”9″＞＜/textarea＞＜/td＞ ＜/tr＞ ＜tr＞ ＜td＞     ＜/td＞ ＜td colspan=”2″＞＜dl＞ ＜dd align=”center”＞     ＜input type=”submit” value=”我寫好了”＞       ＜input type=”reset” value=”重新再寫”＞＜/dd＞ ＜/dl＞ ＜/td＞ ＜/tr＞ ＜/table＞ ＜/div＞ ＜/form＞ ＜p align=”center”＞　＜/p＞ ＜/body＞ ＜/html＞

　　您可以按這里看一下這個界面的效果（需要強調一點，這些htmL代碼還是完全沒有功能的）你可以把它保存為book.htm，然后用FRONTPAGE98來打開它，打開后，可以查看網頁中的那個輸入FORM的屬性，在這個留言薄中。我們使用兩個文件來處理，一個是book.asp，另一個是disp.asp，前者是一個輸入界面，后者是一個顯示界面，用于顯示留言信息。

　zmbbs=1;　
　　現在說說book.htm，讓大家了解一下其中的那個輸入FORM的作用，它的action對象是本身，book.asp（等一會兒需要把book.htm改名為book.asp）這個文件，也就是說。表單提交后，由本身來作處理。在這個FORM中，有幾個文本輸入框，它們分別是name，sex，from，url，email，以及多行文本輸入框comments。

　　現在把book.htm改名為book.asp，往文件中添加ASP代碼。如下：（單引號表示ASP的注析，編譯器是不處理的。

　　*book.asp

＜% @language=”vbscript” %＞ ＜% ‘’判斷請求方式，當客戶端請求文件時，比如直接輸入網址：http://active.silversand.net/index.htm這樣，就會產生一個GET的請求信息。而提交表單時（表單的方式設為POST），就會產生POST的請求方式，現在判斷book.asp這個文件是用戶用瀏覽器打開頁面，還是用戶提交數據這個動作，以便進行程序處理。 if Request.ServerVariables(“REQUEST_METHOD”)=”POST” then ‘這里判斷出是由用戶提交表單而調入入的頁面，因此進行登記留言處理。 ‘創建一個文件組件的服務器實例 set fsFilesys=CreateObject(“Scripting.FileSystemObject”) ‘打開文本文件server.mappath(“/”)是返回服務器發行目錄的真實路徑，也就是比如說：c:\Inetpub\wwwroot這個路徑，然后”/realchat/book/book.txt”就是相對于這個路徑基礎上的路徑。 set myText=fsFilesys.OpenTextFile(Server.MapPath(“/”)&”/realchat/book/book.txt”) ‘把文本文件的所有內容讀出，保存在Temp這個變量中。 Temp=myText.Readall myText.Close ‘是否需要添加內容 if Request(“task”)=”insert” Then ‘取得表單的各項的值 Tname=request.form(“name”) Tsex=request.form(“sex”) Temail=request.form(“email”) turl=request.form(“url”) Tfrom=request.form(“from”) Tcomments=request.form(“comments”) Ttime=”#&@”&time if Len(Tcomments)＜2 Then %＞ ＜font size=”4″ color=”red”＞ ＜p align=”center”＞對不起！你還未留言。＜a href=”book.asp”＞返回＜/a＞＜/font＞ ＜% else if Lcase(Left(Turl,7))＜＞”http://” Then Turl=”http://”&Turl End if Turl=Lcase(Turl) ‘重新創建數據文件，把原來的覆蓋掉。 set myText=fsFilesys.CreateTextFile(Server.MapPath(“/”)&”/realchat/book/book.txt”) myText.WriteLine(Tname) myText.WriteLine(Tsex) myText.WriteLine(Temail) myText.WriteLine(Turl) myText.WriteLine(Tfrom) myText.WriteLine(Tcomments) myText.writeLine(Ttime) myText.WriteLine(date) myText.writeLine(Temp) myText.Close %＞ ＜script Language=”ja;vascript”＞ document.write(“＜h1＞恭喜！您的留言已順利提交，請按＜a href=’disp.asp’＞這里＜/a＞查看”) ＜/script＞ ＜% end if ‘至此，留言已保存入文件book.txt中 End if else ‘第一次進入輸入屏幕，因此顯示htmL文件內容。 %＞ ＜html＞ ＜head＞ ＜title＞留言薄＜/title＞ ＜% colorbg=”#BED9FC” %＞ ＜/head＞ ＜body bgcolor=”＜% =colorbg %＞” background=”images/bg.gif”＞ ＜p align=”center”＞＜img src=”images/gbook.gif” alt=”GBook.gif (12142 bytes)” WIDTH=”374″ HEIGHT=”83″＞ ＜/p＞ ＜p align=”center”＞[＜a href=”disp.asp”＞我要看留言板＜/a＞]  [＜a href=”../index.asp”＞返回首頁＜/a＞]＜/p＞ ＜form method=”POST” action=”book.asp”＞ ＜input type=”hidden” name=”task” value=”insert”＞＜div align=”left”＞＜table＞ ＜tr＞ ＜td align=”right”＞姓名＜/td＞ ＜td＞＜img src=”images/bottom-b.gif” alt=”BUTTOM-B.GIF (179 bytes)” WIDTH=”16″ HEIGHT=”16″＞＜/td＞ ＜td＞＜input name=”name” size=”46″＞＜/td＞ ＜/tr＞ ＜tr＞ ＜td align=”right”＞性別＜/td＞ ＜td＞＜img src=”images/bottom-g.gif” alt=”BUTTOM-G.GIF (179 bytes)” WIDTH=”16″ HEIGHT=”16″＞＜/td＞ ＜td＞＜input name=”sex” size=”46″＞＜/td＞ ＜/tr＞ ＜tr＞ ＜td align=”right”＞來自＜/td＞ ＜td＞＜img src=”images/bottom-b.gif” alt=”BUTTOM-B.GIF (179 bytes)” WIDTH=”16″ HEIGHT=”16″＞＜/td＞ ＜td＞＜input name=”from” size=”46″＞＜/td＞ ＜/tr＞ ＜tr＞ ＜td align=”right”＞主頁URL＜/td＞ ＜td＞＜img src=”images/homepage.gif” alt=”HomePage.gif (1232 bytes)” WIDTH=”30″ HEIGHT=”30″＞＜/td＞ ＜td＞＜input name=”url” size=”46″＞＜/td＞ ＜/tr＞ ＜tr＞ ＜td align=”right”＞                       E-mail＜/td＞ ＜td＞＜img src=”images/email.gif” alt=”Email.gif (1197 bytes)” WIDTH=”30″ HEIGHT=”30″＞＜/td＞ ＜td＞＜input name=”email” size=”46″＞＜/td＞ ＜/tr＞ ＜tr＞ ＜td align=”right”＞留言＜/td＞ ＜td colspan=”2″＞＜textarea wrap=”off” name=”comments” cols=”49″ rows=”9″＞＜/textarea＞＜/td＞ ＜/tr＞ ＜tr＞ ＜td＞     ＜/td＞ ＜td colspan=”2″＞＜dl＞ ＜dd align=”center”＞     ＜input type=”submit” value=”我寫好了”＞       ＜input type=”reset” value=”重新再寫”＞＜/dd＞ ＜/dl＞ ＜/td＞ ＜/tr＞ ＜/table＞ ＜/div＞ ＜/form＞ ＜p align=”center”＞　＜/p＞ ＜/body＞ ＜/html＞ ＜% end if %＞

　　現在到disp.asp這個文件，這個文件主要完成從book.txt中提取文件內容，然后重新生成htmL代碼以顯示出留言內容。

　　代碼如下：

＜% @language=”vbscript” %＞ ＜html＞ ＜head＞ ＜title＞留言薄＜/title＞ ＜/head＞ ＜body background=”images/back.gif”＞ ＜p align=”center”＞＜img src=”images/gbook.gif” alt=”gbook.gif (12142 bytes)” WIDTH=”374″ HEIGHT=”83″＞＜% ‘打開數據文件 set fsFilesys=CreateObject(“Scripting.FileSystemObject”) set myText=fsFilesys.OpenTextFile(Server.MapPath(“/”)&”/realchat/book/book.txt”) Tname=myText.ReadLine %＞ ＜/p＞ ＜p align=”center”＞［＜font color=”#00FFFF” size=”4″＞＜a href=”book.asp”＞我要寫留言＜/a＞＜/font＞］［＜font color=”#00FFFF”＞＜a href=”../index.asp”＞返回首頁＜/a＞＜/font＞］＜/p＞ ＜table width=”600″＞ ＜% do while Tname＜＞”Line1″ ‘逐行讀出內容（Line1）是文件結束標志 Tsex=myText.ReadLine Temail=myText.ReadLine Turl=myText.ReadLine Tfrom=myText.ReadLine %＞ ＜tr＞ ＜td＞＜hr＞ ＜/td＞ ＜/tr＞ ＜tr＞ ‘＜%=表達式%＞是向客戶端輸出結果 ＜th colspan=”2″ align=”left”＞姓   名：＜% =Tname %＞＜br＞ 性   別：＜% =Tsex %＞＜br＞ E―mail：＜a href=”mailto:＜% =Temail %＞”＞＜% =Temail %＞＜/a＞＜br＞ 主頁URL：＜a href=”＜% =Turl %＞” target=”_blank”＞＜% =turl %＞＜/a＞＜br＞ 來   自：＜% =Tfrom %＞＜/th＞ ＜/tr＞ ＜tr＞ ＜th align=”left” bgcolor=”＜% =colorbg %＞”＞＜font color=”red”＞留   言：＜/font＞＜/th＞ ＜th align=”left” bgcolor=”＜% =colorbg %＞”＞＜% Tcomments=myText.ReadLine do while InStr(Tcomments,”#&@”)=0 %＞ ＜% =Tcomments %＞ ＜br＞ ＜% Tcomments=myText.ReadLine loop Ttime=Mid(Tcomments,4) Tdate=myText.ReadLine %＞ ＜/th＞ ＜/tr＞ ＜tr＞ ＜th colspan=”2″ align=”left”＞時   間：＜% =Ttime %＞ ＜br＞ 日   期：＜% =Tdate %＞＜/th＞ ＜/tr＞ ＜tr＞ ＜td＞＜br＞ ＜% tname=myText.ReadLine loop myText.Close %＞ ＜/td＞ ＜/tr＞ ＜/table＞ ＜p＞＜br＞ ＜br＞ ＜/p＞ ＜/body＞ ＜/html＞

　　好了，仔細地把源文件DOWN下去，自己不斷修改，不斷測試一下，這樣對學習很有好處，看看book.txt的內容。

　　*book.txt的內容，里面有一條留言

　　小Hu
　　男
　　realplay@163.net
　　http://realplay.163.net
　　佛山
　　熱烈興祝“泰信心動聊天室虛擬社區”進入測試使用階斷，衷心感謝些您的到來，在測試過程中有什么問題或好的建議，請告訴我。
　　yesky誠邀您的加盟參與！
　　webmaster

　　wak@21:51:15
　　99-7-13
　　Line1

　　這個留言本很簡單，但我覺得很有親切感，比那些比較“現代化”的比如說心動留言薄這類的風格，樸素得多。

]]> http://www.mxio.cn/1515.html/feed 0 主站蜘蛛池模板： 九九热爱视频精品| 久女女热精品视频在线观看| 国内揄拍国产精品人妻门事件| 人妻少妇精品中文字幕| 亚洲第一在线综合网站| 美女裸免费观看网站| 色噜噜亚洲男人的天堂| 色护士极品影院| 中文字幕人妻中文av不卡专区| 激情国产一区二区三区四区| 秋霞成人午夜鲁丝一区二区三区 | 成人无码免费一区二区三区| 狠狠色综合久久丁香婷婷| 色悠悠成人综合在线视频| 又大又硬又爽免费视频| 亚洲va中文字幕无码一二三区| 一道本AV免费不卡播放| 乱码午夜-极品国产内射| 一区二区和激情视频| 日本一卡2卡3卡四卡精品网站| 亚洲欧美综合一区二区三区| 国产亚洲精品久久久久小| 免费看又黄又无码的网站| 各类熟女熟妇真实视频| 黄页网址大全免费观看| 波多野结衣无内裤护士| 99久久爱re热6在播放| 少女韩国在线观看完整版免费| 亚洲成av人片在线播放无码| 制服视频在线一区二区| 人妻少妇精品中文字幕| 久久天堂av综合合色蜜桃网| 久久永久免费人妻精品| 久久月本道色综合久久| 国产精品自在线拍国产| 日韩人妻无码一区二区三区俄罗斯| 精品国产一区av天美传媒| 51妺嘿嘿午夜福利| 午夜内射中出视频| 怡红院一区二区三区在线| 亚洲人成图片小说网站|