|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP在国内异常流行,因为国内大多使用的是盗版的Windows和盗版的SQLServer,而ASP+COM+SQLServer实际上也是一种不错的搭配,其性能也不输于PHP+MYSQL,特别是Windows系统和SQLServer都有图形界面,比APACHE和MYSQL易于维护,因此对于不重视知识产权的国家来说也是一种不错的选择。程序default.asp
-------------------------------
<HTML><BODYBGCOLOR="#FFFFFF"TEXT="#000000">
<B>Thisismyguestbook.Usethisformtosubmityourgreeting:</B><BR>
<FORMMETHOD="POST"ACTION="write.asp">
<INPUTNAME="new_line"TYPE="TEXT"SIZE=35>
<INPUTTYPE="SUBMIT"VALUE="Addgreeting">
</FORM>
<BR><BR>
<%
MyFile="c:guestbook.txt"
Openstheguestbookfileifitexists
SetMyFileObj=Server.CreateObject("Scripting.FileSystemObject")
IFMyFileObj.FileExists(MyFile)THEN
SetMyTextFile=MyFileObj.OpenTextFile(MyFile)
Readsaline,andoutputsit
WHILENOTMyTextFile.AtEndOfStream
%>
<HR>
<%=MyTextFile.ReadLine%>
</HR>
<%
WEND
Closesthetextfile
MyTextFile.Close
ENDIFDoesfileexist
%>
<HR>
</BODY>
</HTML>
----------------------------
write.asp
----------------------------
<%
Typeinthepathofthefiletouse.Makesurethatthescripthaswriteaccess.
MyFile="c:guestbook.txt"
ReadyScripting.FileSystemObject
SetMyFileObj=Server.CreateObject("Scripting.FileSystemObject")
Openstextfile.8=addlinetofile,true=createifitdoesntexists
SetMyOutStream=MyFileObj.OpenTextFile(MyFile,8,TRUE)
Writesthelinetothefile
New_line=Request.Form("new_line")
New_line=Server.HTMLEncode(New_line)
Addsthetimeanddateitwasposted
New_line="<I>Posted:"&NOW&"</I><BR>"&New_line
MyOutStream.WriteLine(New_line)
Closesthefile
MyOutStream.Close
Sendsthembacktothedefaultpage
Response.Redirect"default.asp"
%>
</p>强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。 |
|