|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来;
从本章入手下手我们将由一个复杂的,使用文件贮存会见留言的留言簿程序进进我们的教程。编写如许一个留言簿,我们大抵能够从以下三个步骤来完成。
步骤一:先计划一个留言表单的网页(如:guestbook1.asp,这不必我在这儿说教了吧?)。见下图:
步骤二:在计划好留言表单后,我们入手下手举行编写处置留言的ASP程序。
我们要编写处置留言的ASP程序,最主要的成绩是怎样完成存取留言。而在ASP程序中,要存取文件,我们必需创建FileSystemObject工具(该工具次要用于读取Unicode或ASCII码的文件)。而要创建FileSystemObject工具,我们又可使用以下的语句:
SET工具实例=CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
FileSystemObject工具的办法包含:CreateTextFile和OpenTextFile:
CreateTextFile:创建一个文件称号,并前往一个TextStream工具供应你读写文件
OpenTextFile:翻开一个已存在的文件并创建一个TextStream工具以供你读写文件在创建并翻开一个可供编纂的文件后,我们最初能够挪用TextStream工具下的办法WriteLine(把信息写进到已翻开的文件中并换行)和办法ReadLine(读取已翻开文件的一行信息)来存取文件。
因而,要完成存取留言的ASP程序,我们能够大抵构想以下:
先创建FileSystemObject工具;然后经由过程该工具来挪用OpenTextFile翻开文件大概挪用CreateTextFile来创立新的文件,创建TextStream工具;最初我们再举行挪用TextStream工具的WriteLine和ReadLine举行存取文件。办理了这个次要成绩后,我们能够将处置留言的ASP程序写成以下所示:
<%
Name=Request("Name"))
Email=Request("Email")
Subject=Request("Subject")
Memo=Request("Memo")
从留言表单获得数据
IfName=""OrEmail=""OrSubject=""OrMemo=""Then
Response.Write"输出框不克不及为空缺!"
Response.End
EndIf
反省表单的各输出框是不是有信息输出,若留有空输出框没填则显现申明信息:"输出框不克不及为空缺!"并中断实行上面的程序。?
Line1="留言人:"&Name
Line1=Line1&String(5," ")
Email="<AHREF=mailto:"&Email&">"&Email&"</A>"
Line1=Line1&"Email?"&Email&"<BR>"
Line2="主题:"&Subject&"<BR>"
Memo=Replace(Memo,vbCrLf,"<BR>")
Line3="<TABLEBORDER=1><TR><TD>"
Line3=Line3&"您的留言:"&Memo&"</TD></TR></TABLE>"
Line4="时间:"&Now()
界说留言的显现格局,个中留言信息用信息框框起来。
OnErrorResumeNext
制止假如实行上面的ReadAll(读取已翻开文件的全体信息)时,没法读失信息就酿成的程序毛病的情形产生,因而到场此句用于疏忽一切的毛病。
Setfso=Server.CreateObject("Scripting.FileSystemObject")Application.Lock
TxtPath=Server.MapPath("book1.txt")
NewPath=Server.MapPath("newbook.txt")
fso.MoveFileTxtPath,NewPath
Setfin=fso.OpenTextFile(NewPath,,True)
Setfout=fso.CreateTextFile(TxtPath)
创建FileSystemObject工具,并锁定Application工具,不让任何两位上彀者同时实行留言操纵,同时创建和翻开一个TextStream工具,指向要对实在行操纵,用于留言纪录的文本book1.txt。
fout.WriteLineLine1
fout.WriteLineLine2
fout.WriteLineLine3
fout.WriteLineLine4
fout.WriteLine"<hr>"
fout.WriteLinefin.ReadAll
把留言表单中的信息分行写进到已翻开的文件中。
fin.Close
fso.DeleteFileNewPath,True
Application.UnLock
Response.Redirect"guestbook1.asp"
封闭并删除gbookold.txt,然后排除Application工具的锁定,再指引客户端扫瞄器到新的Web页面guestbook1.asp。
%>
将上述代码COPY到你的记事本,注重:要记得将一切“<”标记前面多加的空格往失落,然后存成文件manage1.asp。
步骤三:计划留言页面
由于我们要本留言簿的留言显现在留言表单上面,以是我们能够将以下HTML代码COPY到guestbook1.asp的最初面。
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>您的留言</title>
<linkrel="stylesheet"href="../images/Text.CSS">
</head>
<bodyTEXT="#000000"BGCOLOR="#FFFFFF"BACKGROUND="b01.jpg">
<h2ALIGN="CENTER">您的留言</h2>
<hrnoshadecolor="red">
<!--#includefile="book1.txt"-->
</body>
</html>
<%Response.End%>
完成上述的一切步骤后,将guestbook1.asp和manage1.asp保留在WEB服务器的可实行假造目次(如:asp/)下,并在扫瞄器顶用HTTP的体例举行扫瞄,如:http://yourcomputername/asp/guestbook1.asp。瞧!就这么复杂,你已有了本人的留言簿了。还不从速尝尝!
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们) |
|