ASP教程之一 些 ASP 小 源 程 序

缺点:安全性不是太差了，还行，只要你充分利用系统自带的工具;唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。ActiveServerPages
PasswordScript
<%
SubFormInput()%>
<formmethod=postaction="logon.asp">
<center>
<H1>GenericLogon</H1>
UserName:<inputtype=textsize=20name=username>
<br><br>
Password:<inputtype=passwordsize=20name=password>
<br><br>
<inputtype=submitname=submitvalue="Submit">
</center>
</form>
<%EndSub%>
<!--#includefile="adovbs.inc"-->

<%
***********PasswordLoginCode*********************
***********programmedbyRobertRobbins************
***********FirstVersion03/28/99******************
*****************************************************
CallInputFormsubroutine
FormInput()

Createsessionvariable.Usernameneededforfilename.asp
Session("user")=""

Initializebooleanflagstofalse
correct_name=False
correct_password=False

Connecttotableindatabase
Setcn=Server.CreateObject("ADODB.Connection")
Setrs=Server.CreateObject("ADODB.Recordset")
cn.Open"DSNName"
rs.Open"Select*FromTableName",cn,adOpenStatic,adLockPessimistic

Testforcorrectusernameandpassword
IfRequest.Form("submit")>""Then
DoWhileNotrs.EOF
Compareforminputtopassworddatabaserecordsetvalues
IfRequest.Form("username")=rs("username")Then
correct_name=True
EndIf
IfRequest.Form("password")=rs("password")Then
correct_password=True
EndIf
rs.MoveNext
Loop

Ifcorrect_password=TrueAndcorrect_name=TrueThen
Ifpasswordandusernamearecorrect,jumptoDataEntry.asp
Note:chr(34)isthedoublequotescharacter
Session("user")=Request.Form("username")
Response.write"<ScriptLanguage="&chr(34)&"JavaScript"&chr(34)&">"
Response.write"window.location="&chr(34)&"DataEntry.asp"&chr(34)&"""
Response.write"</Script>"
Else
Ifpasswordorusernameisincorrect,writeJavaScriptcodeinHTMLforanalert
dialogbox
Response.write"<ScriptLanguage="&chr(34)&"JavaScript"&chr(34)&">"
Response.write"alert("&chr(34)&"AccessDenied!"&chr(34)&");"
Response.write"</Script>"
EndIf
rs.Close
EndIf
%>
PasswordProtectScript
<%
SetlocalvariableusernametoSessionvariableuser
username=Session("user")

Ifusernameisanemptystring,theuserdidnotuselogon.asptologin
Ifusername=""Then
Response.write"Sorry,youarenotloggedin!<br>"
Session.Abandon
Response.End
EndIf
%>
EmailScript
Newline=chr(13)&chr(10)
SetMailer=Server.CreateObject("CDONTS.NewMail")
Mailer.To=""&Request.Form("Email")&""
Mailer.From=""&"rrobbins@sunlink.net"&""
Mailer.Subject=""&"TestingAutomatedEmail"&""
Mailer.Body=""&"Myemailmessage"&Newline&"Secondline"&""
Mailer.Send
SetMailer=Nothing
SQLServerConnection
<%
Setcn=Server.CreateObject("ADODB.Connection")
Setrs=Server.CreateObject("ADODB.Recordset")
strConn="driver={SQLServer};server=Pentium;uid=sa;pwd=;database=Test"
cn.OpenstrConn
%>
WindowsScriptHost
WindowsScriptHostFile
programmedbyRobertS.Robbins
Opendatabaseconnecectionandgetrecordset
ConstadOpenForwardOnly=0
ConstadLockPessimistic=2
Setcn=WScript.CreateObject("ADODB.Connection")
Setrs=WScript.CreateObject("ADODB.Recordset")
cn.Open"DSNName"
rs.Open"Select*FromTableName",cn,adOpenForwardOnly,adLockPessimistic
WhileNotrs.EOF
message=rs("Message")
MsgBoxmessage,64,"DatabaseMessage"
rs.MoveNext
Wend

VBScript5.0RegularExpression
<%
SetobjFile=Server.CreateObject("Scripting.FileSystemObject")
SetinFile=objFile.OpenTextFile("D:Temp        est.txt",1)
strInput=inFile.ReadALL
inFile.Close
SetmyTest=newRegExp
myTest.Pattern="w+,"
myTest.Global=True
myTest.IgnoreCase=True
SetmyCollection=myTest.Execute(strInput)
ForEachelementInmyCollection
Response.writeelement&"<BR>"
Next
%>

楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

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

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。