ASP网页设计用ASP计划一个留言薄

我想详细了解ASP整站代码与PSP整站代码有什么优缺点，那个更好，更安全，更用容易维护，和管理。。。计划　　起首，我们在做留言薄之前，先做出一个输出屏的界面效果，也就是天生留言部输出屏幕的htmL页，然后在这些htmL源代码中到场ASP剧本，我这里失掉的htmL代码以下。
　　*文件名：book.htm　　


<P>＜html＞
＜head＞
　＜title＞留言薄＜/title＞

＜/head＞

＜bodybgcolor="#BED9FC"background="images/bg.gif"＞


＜palign="center"＞＜imgsrc="http://www.webjx.com/htmldata/2005-03-11/images/gbook.gif"alt="GBook.gif(12142bytes)"WIDTH="374"
HEIGHT="83"＞＜/p＞

＜palign="center"＞[＜ahref="disp.asp"＞我要看留言板＜/a＞][＜ahref="../index.asp"＞前往首页＜/a＞]＜/p＞

＜formmethod="POST"action="book.asp"＞
＜inputtype="hidden"name="task"value="insert"＞＜divalign="left"＞＜table＞
＜tr＞
＜tdalign="right"＞姓名＜/td＞
＜td＞＜imgsrc="http://www.webjx.com/htmldata/2005-03-11/images/bottom-b.gif"alt="BUTTOM-B.GIF(179bytes)"WIDTH="16"HEIGHT="16"＞＜/td＞
＜td＞＜inputname="name"size="46"＞＜/td＞
＜/tr＞
＜tr＞
＜tdalign="right"＞性别＜/td＞
＜td＞＜imgsrc="http://www.webjx.com/htmldata/2005-03-11/images/bottom-g.gif"alt="BUTTOM-G.GIF(179bytes)"WIDTH="16"HEIGHT="16"＞＜/td＞
＜td＞＜inputname="sex"size="46"＞＜/td＞
＜/tr＞
＜tr＞
＜tdalign="right"＞来自＜/td＞
＜td＞＜imgsrc="http://www.webjx.com/htmldata/2005-03-11/images/bottom-b.gif"alt="BUTTOM-B.GIF(179bytes)"WIDTH="16"HEIGHT="16"＞＜/td＞
＜td＞＜inputname="from"size="46"＞＜/td＞
＜/tr＞
＜tr＞
＜tdalign="right"＞主页URL＜/td＞
＜td＞＜imgsrc="http://www.webjx.com/htmldata/2005-03-11/images/homepage.gif"alt="HomePage.gif(1232bytes)"WIDTH="30"HEIGHT="30"＞＜/td＞
＜td＞＜inputname="url"size="46"＞＜/td＞
＜/tr＞
＜tr＞
＜tdalign="right"＞


E-mail＜/td＞
＜td＞＜imgsrc="http://www.webjx.com/htmldata/2005-03-11/images/email.gif"alt="Email.gif(1197bytes)"WIDTH="30"HEIGHT="30"＞＜/td＞
＜td＞＜inputname="email"size="46"＞＜/td＞
＜/tr＞
＜tr＞
＜tdalign="right"＞留言＜/td＞
＜tdcolspan="2"＞＜textareawrap="off"name="comments"cols="49"rows="9"＞＜/textarea＞＜/td＞
＜/tr＞
＜tr＞
＜td＞＜/td＞
＜tdcolspan="2"＞＜dl＞
＜ddalign="center"＞＜inputtype="submit"value="我写好了"＞
＜inputtype="reset"value="从头再写"＞＜/dd＞
＜/dl＞
＜/td＞
＜/tr＞
＜/table＞
＜/div＞
＜/form＞

＜palign="center"＞　＜/p＞
＜/body＞
＜/html＞


　　您能够按这里看一下这个界面的效果（必要夸大一点，这些htmL代码仍是完整没有功效的）你能够把它保留为book.htm，然后用FRONTPAGE98来翻开它，翻开后，能够检察网页中的谁人输出FORM的属性，在这个留言薄中。我们利用两个文件来处置，一个是book.asp，另外一个是disp.asp，前者是一个输出界面，后者是一个显现界面，用于显现留言信息。
<P>　　如今说说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这个文件是用户用扫瞄器翻开页面，仍是用户提交数据这个举措，以便举行程序处置。
ifRequest.ServerVariables("REQUEST_METHOD")="POST"then
‘这里判别出是由用户提交表单而调进进的页面，因而举行挂号留言处置。
‘创立一个文件组件的服务器实例

setfsFilesys=CreateObject("Scripting.FileSystemObject")
‘翻开文本文件server.mappath("/")是前往服务器刊行目次的实在路径，也就是好比说：c:Inetpubwwwroot这个路径，然后"/realchat/book/book.txt"就是相对这个路径基本上的路径。

setmyText=fsFilesys.OpenTextFile(Server.MapPath("/")&"/realchat/book/book.txt")
‘把文本文件的一切内容读出，保留在Temp这个变量中。

Temp=myText.Readall
myText.Close
‘是不是必要增加内容

ifRequest("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
ifLen(Tcomments)＜2Then
%＞
＜fontsize="4"color="red"＞

＜palign="center"＞对不起！你还未留言。＜ahref="book.asp"＞前往＜/a＞＜/font＞＜%
else
ifLcase(Left(Turl,7))＜＞"http://"Then
Turl="http://"&Turl
Endif
Turl=Lcase(Turl)
‘从头创立数据文件，把本来的掩盖失落。

setmyText=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
%＞
＜scriptLanguage="JavaScript"＞
document.write("＜h1＞祝贺！您的留言已顺遂提交，请按＜ahref=disp.asp＞这里＜/a＞检察")
＜/script＞
＜%

endif
‘至此，留言已保留进文件book.txt中

Endif

else
‘第一次进进输出屏幕，因而显现htmL文件内容。
%＞
＜html＞

＜head＞
＜title＞留言薄＜/title＞
＜%colorbg="#BED9FC"%＞
＜/head＞

＜bodybgcolor="＜%=colorbg%＞"background="images/bg.gif"＞


＜palign="center"＞＜imgsrc="http://www.webjx.com/htmldata/2005-03-11/images/gbook.gif"alt="GBook.gif(12142bytes)"WIDTH="374"
HEIGHT="83"＞＜/p＞

＜palign="center"＞[＜ahref="disp.asp"＞我要看留言板＜/a＞][＜ahref="../index.asp"＞前往首页＜/a＞]＜/p＞

＜formmethod="POST"action="book.asp"＞
＜inputtype="hidden"name="task"value="insert"＞＜divalign="left"＞＜table＞
＜tr＞
＜tdalign="right"＞姓名＜/td＞
＜td＞＜imgsrc="http://www.webjx.com/htmldata/2005-03-11/images/bottom-b.gif"alt="BUTTOM-B.GIF(179bytes)"WIDTH="16"HEIGHT="16"＞＜/td＞
＜td＞＜inputname="name"size="46"＞＜/td＞
＜/tr＞
＜tr＞
＜tdalign="right"＞性别＜/td＞
＜td＞＜imgsrc="http://www.webjx.com/htmldata/2005-03-11/images/bottom-g.gif"alt="BUTTOM-G.GIF(179bytes)"WIDTH="16"HEIGHT="16"＞＜/td＞
＜td＞＜inputname="sex"size="46"＞＜/td＞
＜/tr＞
＜tr＞
＜tdalign="right"＞来自＜/td＞
＜td＞＜imgsrc="http://www.webjx.com/htmldata/2005-03-11/images/bottom-b.gif"alt="BUTTOM-B.GIF(179bytes)"WIDTH="16"HEIGHT="16"＞＜/td＞
＜td＞＜inputname="from"size="46"＞＜/td＞
＜/tr＞
＜tr＞
＜tdalign="right"＞主页URL＜/td＞
＜td＞＜imgsrc="http://www.webjx.com/htmldata/2005-03-11/images/homepage.gif"alt="HomePage.gif(1232bytes)"WIDTH="30"HEIGHT="30"＞＜/td＞
＜td＞＜inputname="url"size="46"＞＜/td＞
＜/tr＞
＜tr＞
＜tdalign="right"＞


E-mail＜/td＞
＜td＞＜imgsrc="http://www.webjx.com/htmldata/2005-03-11/images/email.gif"alt="Email.gif(1197bytes)"WIDTH="30"HEIGHT="30"＞＜/td＞
＜td＞＜inputname="email"size="46"＞＜/td＞
＜/tr＞
＜tr＞
＜tdalign="right"＞留言＜/td＞
＜tdcolspan="2"＞＜textareawrap="off"name="comments"cols="49"rows="9"＞＜/textarea＞＜/td＞
＜/tr＞
＜tr＞
＜td＞＜/td＞
＜tdcolspan="2"＞＜dl＞
＜ddalign="center"＞＜inputtype="submit"value="我写好了"＞
＜inputtype="reset"value="从头再写"＞＜/dd＞
＜/dl＞
＜/td＞
＜/tr＞
＜/table＞
＜/div＞
＜/form＞

＜palign="center"＞　＜/p＞
＜/body＞
＜/html＞
＜%
endif
%＞
　　如今到disp.asp这个文件，这个文件次要完成从book.txt中提取文件内容，然后从头天生htmL代码以显现出留言内容。

　　代码以下：

＜%@language="vbscript"%＞

＜html＞

＜head＞
＜title＞留言薄＜/title＞
＜/head＞

＜bodybackground="images/back.gif"＞

＜palign="center"＞＜imgsrc="http://www.webjx.com/htmldata/2005-03-11/images/gbook.gif"alt="gbook.gif(12142bytes)"WIDTH="374"HEIGHT="83"＞＜%
‘翻开数据文件

setfsFilesys=CreateObject("Scripting.FileSystemObject")
setmyText=fsFilesys.OpenTextFile(Server.MapPath("/")&"/realchat/book/book.txt")
Tname=myText.ReadLine
%＞＜/p＞

＜palign="center"＞［＜fontcolor="#00FFFF"size="4"＞＜ahref="book.asp"＞我要写留言＜/a＞＜/font＞］［＜fontcolor="#00FFFF"＞＜ahref="../index.asp"＞前往首页＜/a＞＜/font＞］＜/p＞

＜tablewidth="600"＞
＜%
dowhileTname＜＞"Line1"
‘逐行读出内容（Line1）是文件停止标记

Tsex=myText.ReadLine
Temail=myText.ReadLine
Turl=myText.ReadLine
Tfrom=myText.ReadLine
%＞
＜tr＞
＜td＞＜hr＞
＜/td＞
＜/tr＞
＜tr＞
‘＜%=表达式%＞是向客户端输入了局

＜thcolspan="2"align="left"＞姓名：＜%=Tname%＞＜br＞
性别：＜%=Tsex%＞＜br＞
E―mail：＜ahref="mailto:＜%=Temail%＞"＞＜%=Temail%＞＜/a＞＜br＞
主页URL：＜ahref="＜%=Turl%＞"target="_blank"＞＜%=turl%＞＜/a＞＜br＞
来自：＜%=Tfrom%＞＜/th＞
＜/tr＞
＜tr＞
＜thalign="left"bgcolor="＜%=colorbg%＞"＞＜fontcolor="red"＞留言：＜/font＞＜/th＞
＜thalign="left"bgcolor="＜%=colorbg%＞"＞＜%
Tcomments=myText.ReadLine
dowhileInStr(Tcomments,"#&@")=0
%＞
＜%=Tcomments%＞
＜br＞
＜%
Tcomments=myText.ReadLine
loop
Ttime=Mid(Tcomments,4)
Tdate=myText.ReadLine
%＞＜/th＞
＜/tr＞
＜tr＞
＜thcolspan="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

　　这个留言本很复杂，但我以为很有亲热感，比那些对照“古代化”的好比说心动留言薄这类的作风，朴实很多。
优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

不能只是将它停留在纸上谈兵的程度上。

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。