ASP最常用代码Word格式文档下载.docx
《ASP最常用代码Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《ASP最常用代码Word格式文档下载.docx（84页珍藏版）》请在冰豆网上搜索。
这里先给大家讲解
第一节:
注册系统
（一），设定注册页面的外观：
在这个例子中涉及了五个页面，其中有三幅是一般的htm文件，另外的两幅是asp文件，在这里制作利用的工具是frontpage98，但是大部分的asp代码还是要自己输入的：
1，设定原来已经注册的用户进入的外观：
在这里设置了两个文本框，一个超级链接和两个按钮。
两个文本框分别用来输入帐号（txtNum）和密码（txtPasswd），超级链接（New）链接到新用户进行注册的页面，两个按钮是用来提交和清除的，用来清除的按钮（cmdReset）直接选择为Reset类型，不过用来提交的按钮（cmdTijiao）并不要选择为Submit类型，而选择的是Normal类型，这是为了在这个按钮的onClick事件中添加代码，并且判断用户的输入是否合法！
2，设定新用户登陆的页面外观：
一般都是要新用户输入帐号，密码，姓名，及相关的一些信息，在这里我们有五个文本框，一个下拉式列表框和两个按钮，五个文本框就分别是让用户输入姓名，email，帐号，密码，确定密码。
但是其中只有用来输入帐号，密码和确定密码的文本框有名字，分别为txtNum，txtPasswd和txtConfirm。
提交按钮的名字为cmdTijiao
3，这一步当然是设定注册成功后用户所进的页面了，这就由大家决定吧：
）
（二），添加程序代码：
1，首先添加原来已经注册用户页面的代码，它主要是处理cmdTijiao_onClick事件，并且判断用户的输入是否合法，在这个例子中要求帐号必须是数字，密码不能为空，代码如下，其中frmRes是这个页面中窗口的名字，窗口的Action指向http:
//your/ResJudge.asp
subcmdTijiao_onClick（）
iffrmRes.txtNum.value="
"
orfrmRes.txtPasswd.value="
or（NotIsNumeric（frmRes.txtNum.value））then
Alert"
请在帐号和密码中输入相应的内容，帐号必须为数字！
elsefrmRes.submit
endif
endsub
2，添加新用户登陆的页面代码，这些代码是用来处理cmdTijiao_onClick事件的，要求用户输入的帐号必须是数字，密码和确定密码必须相同，这个页面的窗口的Action指向http:
//your/NewRes.asp，代码如下
ifNotNumeric（frmNew.txtNum.value）orfrmNew.txtPasswd.value＜＞frmNew.txtConfirm.valuethen
Alert"
输入不正确，请重新输入！
elsefrmNew.submit
endif
endsub
3，创建ResJudge.asp文件，这个asp文件的主要功能就是打开存储注册信息的数据库，查找是否有与前面页面提交的帐号和密码相匹配的纪录，如果有，就是注册成功，同时也可以在数据库中查找出这个用户的相关信息来，应允许这个用户进入他所希望进去的页面，如果没有则注册失败，整个代码如下
＜html＞＜head＞
＜metahttp-equiv="
Content-Type"
content="
text/html;
charset=gb2312"
＞
＜metaname="
GENERATOR"
MicrosoftFronpage3.0"
＜titile＞注册判断＜/title＞＜/head＞
＜body＞＜%
Num=Request.form（"
txtNum"
）"
把前面窗口传送来的内容赋给Num和Passwd两个字符串。
Passwd=Request.form（"
txtPasswd"
dbname="
Driver={MicrosoftAccessDriver（*.mdb）};
DBQ="
&
Server.MapPath（"
\"
）"
\ResDb\Res.mdb;
"
dbname是打开数据库要用的
setCres=Server.CreateObject（"
ADODB.Connection"
以下是利用Connection对像和Recordset对象联结数据库并查找的代码。
setres=Server.CreateObject（"
ADODB.Recordset"
Cres.opendbname
res.ActiveConnection=Cres
res.source="
Select*fromreswhere帐号="
Num&
and密码="
Passwd&
;
res.open
ifres.BOFthen"
如果查找结果为空，那么就说明注册不正确，所以在页面中显示下面的文本/
%＞＜p＞注册不正确，请返回注册页面重新注册！
＜/p＞
＜%
else“否则就说明注册成功，可以进入浏览页面！
%＞
＜!
--#Includevirtual="
/success.htm"
--＞"
这里采用了ServerSideInclude的方法，把允许浏览的页面包含在这个文件里面！
＜%res.Close“关闭刚才打开的数据库。
endif%＞
＜/body＞＜/html＞
4，创建NewRes.asp文件，这个文件的主要功能是把新用户的登陆信息存入数据库，代码如下
＜html＞
＜head＞
＜metahttp-equiv="
＜metaname="
Microsoftfrontpage3.0"
＜title＞输入数据库＜/title＞
＜/head＞
＜body＞
/adovbs.inc"
＞
“这个被包含进来的文件adovbs.inc是定义数据库对象ADO常量的文件。
Num=Request.form（"
）“把前面主页传送过来的内容赋给Num和Passwd两个变量。
Passwd=Request.form（"
Setres=Server.CreateObject（"
）“打开数据库。
dbname="
Driver={MicrosoftAccess Driver（*.mdb）};
ServerMapPath（"
）&
sql="
select*fromres"
res.opensql,dbName,adOpenKeyset,adLockOptimistic
res.AddNew“添加新纪录
res
（1）=Num“res
（1）代表数据库中的第二个字段，存储的是用户的帐号。
res
（2）=Passwd“res
（2）代表数据库中的第三个字段，存储的是用户的密码。
res.Update“更新数据库/
res.Close%＞
＜p＞＜b＞＜fontface=楷体_gb2312size=5＞您的帐号和密码已经注册成功，您现在可以＜ahref="
http:
//your/index.htm"
＞进入＜/a＞了！
＜/font＞＜/p＞
好了简单的代码就先讲解到这里,那里不对忘指教,下一节继续讲解用ASP设计一个留言薄,请各位及时收藏
[本帖最后由case于2006-7-117:
14编辑]
--------------------------------------------------------------------------------
作者:
天涯风云时间:
2006-7-109:
58
今天呢我们继续学习ASP建站十大常用程序第二节,这一节代码比较多请大家耐心的学习.
本节我们要讲两个方面的知识:
前者是一个输入界面，后者是一个显示界面，用于显示留言信息.
用ASP设计一个留言薄（上）
首先，我们在做留言薄之前，先做出一个输入屏的界面效果，也就是生成留言部输入屏幕的htmL页，然后在这些htmL源代码中加入ASP脚本，我这里得到的htmL代码如下。
*文件名：
book.htm
＜html＞
＜title＞留言薄＜/title＞
＜bodybgcolor="
#BED9FC"
background="
images/bg.gif"
＜palign="
center"
＞＜imgsrc="
images/gbook.gif"
alt="
GBook.gif（12142bytes）"
WIDTH="
374"
HEIGHT="
83"
＞＜/p＞
＞[＜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="
images/bottom-b.gif"
BUTTOM-B.GIF（179bytes）"
16"
HEIGHT="
＞＜/td＞
＜td＞＜inputname="
name"
size="
46"
＜/tr＞
＞性别＜/td＞
images/bottom-g.gif"
BUTTOM-G.GIF（179bytes）"
sex"
＞来自＜/td＞
from"
＞主页URL＜/td＞
images/homepage.gif"
HomePage.gif（1232bytes）"
30"
url"
E-mail＜/td＞
images/email.gif"
Email.gif（1197bytes）"
email"
＞留言＜/td＞
＜tdcolspan="
2"
＞＜textareawrap="
off"
comments"
cols="
49"
rows="
9"
＞＜/textarea＞＜/td＞
＜td＞＜/td＞
＞＜dl＞
＜ddalign="
＞＜inputtype="
submit"
我写好了"
＜inputtype="
reset"
重新再写"
＞＜/dd＞
＜/dl＞
＜/td＞
＜/table＞
＜/div＞
＜/form＞
＞ ＜/p＞
＜/body＞
＜/html＞
您可以按这里看一下这个界面的效果（需要强调一点，这些htmL代码还是完全没有功能的）你可以把它保存为book.htm，然后用FRONTPAGE98来打开它，打开后，可以查看网页中的那个输入FORM的属性，在这个留言薄中。
我们使用两个文件来处理，一个是book.asp，另一个是disp.asp，前者是一个输入界面，后者是一个显示界面，用于显示留言信息。
用ASP设计一个留言薄（下）
现在说说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"
%＞
‘'
判断请求方式，当客户端请求文件时，比如直接输入网址：
ifRequest.ServerVariables（"
REQUEST_METHOD"
）="
then
‘这里判断出是由用户提交表单而调入入的页面，因此进行登记留言处理。
‘创建一个文件组件的服务器实例
setfsFilesys=CreateObject（"
Scripting.FileSystemObject"
‘打开文本文件server.mappath（"
/"
）是返回服务器发行目录的真实路径，也就是比如说：
c:
\Inetpub\wwwroot这个路径，然后"
/realchat/book/book.txt"
就是相对于这个路径基础上的路径。
setmyText=fsFilesys.OpenTextFile（Server.MapPath（"
‘把文本文件的所有内容读出，保存在Temp这个变量中。
Temp=myText.Readall
myText.Close
‘是否需要添加内容
ifRequest（"
Then
‘取得表单的各项的值
Tname=request.form（"
Tsex=request.form（"
Temail=request.form（"
turl=request.form（"
Tfrom=request.form（"
Tcomments=request.form（"
Ttime="
#&
@"
time
ifLen（Tcomments）＜2Then
＜fontsize="
4"
color="
red"
＞对不起！
你还未留言。
＜ahref="
＞返回＜/a＞＜/font＞＜%
else
ifLcase（Left（Turl,7））＜＞"
//"
Turl="
Turl
Endif
Turl=Lcase（Turl）
‘重新创建数据文件，把原来的覆盖掉。
setmyText=fsFilesys.CreateTextFile（Server.MapPath（"
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）
＜scriptLanguage="
JavaScript"
document.write（"
＜h1＞恭喜！
您的留言已顺利提交，请按＜ahref='
disp.asp'
＞这里＜/a＞查看"
＜/script＞
‘至此，留言已保存入文件book.txt中
‘第一次进入输入屏幕，因此显示htmL文件内容。
＜title＞留言薄＜/title＞
＜%colorbg="
＜%=colorbg%＞"
现在到disp.asp这个文件，这个文件主要完成从book.txt中提取文件内容，然
升级会员 