十天学会ASP

ASP学习
第一天
学习目的：学会用表单元素向服务器传送变量，然后显示变量在客户端的浏览器。
  Dreamweaver 的表单元素。表单元素要放在一个表单域里面，建立一个表单域。然后修改动作里面的文件为要接受这个表单变量的ASP文件。方法有两种，一种是POST，这 个方法传送的变量不会在浏览器的地址栏里面显示，可以大批量传送数据；GET则是会在浏览器地址栏里面显示的。1、文本域，这个是最基本的，传送的是文本 信息，一般用户名，密码都要用这个传送，不过要是密码的话要在类型里面选择密码，这样就会以*代替显示出来的字符，文本域的名字很重要，eg如果文本域的 名字是name的话，用来传送网上用户登记的名字，在表单域里面，传送到reg.asp，用POST方法，那么在reg.asp里面这样得到变量< %name=request.form("name")%>如果要显示变量再家加一句，response.write name，这样就形成了一个 从客户端到浏览器再回到客户端的过程。如果方法用的是GET的话，那么就改为name=request.querystring("name")实际上两 者可以统一为name=request("name")。下面看看按钮，按钮里面无非两种，一种是提交表单的按钮，一种是重新输入的按钮。单选按钮，一个 按钮有一个值。在列表里面同样，添加列表选项和值。下面举一个例子，实际上各种表单元素都是差不多的。下面是DREAMWEAVER里面的代码：
<form name="form1" method="post" action="reg.asp">姓名： 
<input type="text" name="name"> //文本域，名字叫name
<br>密码： <input type="password" name="psw"> //文本域，用来输入密码，名字叫psw
<br><br>
性别： <input type="radio" name="sex" value="男"> //单选，名字叫sex，数值是"男" 
男 <input type="radio" name="sex" value="女"> //单选，名字叫sex，数值是"女" 
女 <br><br>
城市： <select name="city">
<option value="上海" selected>上海</option> //复选，大家自己分析一下
<option value="北京">北京</option>
</select>
<br>
<input type="submit" name="Submit" value="提交"> //提交按钮 
<input type="reset" name="Submit2" value="重置">
</form>
下面是reg.asp的代码，用来显示出刚才受到的信息：
<%   name=request.form("name")
psw=request.form("psw")
sex=request.form("sex") 
city=request.form("city")
response.write name
response.write psw
response.write sex
response.write city   %> 
第二天
学 习目的：学会ACCEES数据库的使用，并建立一个将来要用的留言簿数据库。 新建一个数据库，文件名字可以叫gustbook.mdb，我这里叫 example3.mdb填写字段名字然后选择字段类型，一条记录可以有很多字段，可以有很多字段类型，字段大小的意思就是这个字段最多可以容纳的字符 树，当这个字段没有任何信息是，ACCEES会用默认值代替（没有任何信息不是空的意思），一般必填字段和允许空字符串分别设置为否、是，以防止出错 最 后，把这个表的名字设置为guestbook，然后双击打开这个表，观看表里面的记录按照上图大家分别建立几个字段，在时间中默认值为=now()就是这 个字段不需要填写，系统直接以当前时间代替最后，把这个表的名字设置为guestbook，然后双击打开这个表，观看表里面的记录
第三天
学习目的：掌握ACCESS数据库的连接和读取记录    今天要学习的内容有一点枯燥，但是很重要。在这里大家不需要知道命令具体的运行情况，外面的很多书籍之所以不适合入门就是因为介绍了太多的理论知识，让初学者一头雾水。   下面开门见山，看两句话：
<%   set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")    %>
第一句话定义了一个adodb数据库连接组件，第二句连接了数据库，大家只要修改后面的数据库名字就可以了。是不是很简单？
下面再看三句：
<%
exec="select * from guestbook"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1 
%>
这 三句加在前面两句的后面，第一句：设置查询数据库的命令，select后面加的是字段，如果都要查询的话就用*，from后面再加上表的名字，我们前面建 立的是不是一个gustbook表阿？第二句：定义一个记录集组件，所有搜索到的记录都放在这里面，第三句是打开这个记录集，exec就是前面定义的查询 命令，conn就是前面定义的数据库连接组件，后面参数"1，1"，这是读取，后面讲到修改记录就把参数设置为1，3，好了接下来我们读取记录。
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%do while not rs.eof%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("message")%></td>
<td><%=rs("time")%></td>
</tr><%
rs.movenext
loop
%>
</table>
在 一个表格中，我们用4列分别显示了上次建立的表里面的四个字段，用do循环，not rs.eof的意思是条件为没有读到记录集的最后， rs.movenext的意思是显示完一条转到下面一条记录，<%=%>就等于<%response.write%>用于在 html代码里面插入asp代码，主要用于显示变量。
  第四天
 学习目的：学会数据库的基本操作1（写入记录）----insert into
  数据库的基本操作无非是：查询记录，写入记录，删除记录，修改记录。今天我们先学习写入记录。
先建立一个表单：
<form name="form1" method="post" action="example5.asp">
name <input type="text" name="name"><br>
tel <input type="text" name="tel"><br>
message <input type="text" name="message" value=""><br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</form>
表单提交到example5.asp，下面是example5.asp的代码： 
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
name=request.form("name")
tel=request.form("tel")
message=request.form("message") 
exec="insert into guestbook(name,tel,message)values('"+name+"',"+tel+",'"+message+"')"
conn.execute exec
conn.close
set conn=nothing
response.write "记录添加成功!"
%>
在 这里前面两句我不说了，后面三句我也不说了，前面说过exec里面的是执行的命令，添加记录的比较繁，大家要仔细看。insert into后面加的是表 的名字，后面的括号里面是需要添加的字段，不用添加的或者字段的内容就是默认值的可以省略。注意，这里的变量一定要和ACCESS里面的字段名对应，否则 就会出错。values后面加的是传送过来的变量。exec是一个字符串，"insert into guestbook(name,tel, message)values('"是第一段，在ASP里面不能嵌双引号，所以可以用'代替双引号，放在双引号里面，连接两个变量用+或者&所以 "',"又是一段，中间夹了一个name就是表单传来的变量，这样就可以在这个变量外面加两个''，表示是字符串了，后面的tel是数字型变量所以不需要 外面包围''，大家慢慢分析这句话，如果用表单传来的数据代替变量名字的话这句话为（假设name="aaa",tel=111,message= "bbb"）："insert into guestbook(name,tel,message)values('aaa',111,'bbb')"。
接下来的conn.execute 就是执行这个exec命令，最后别忘记把打开的数据库关闭，把定义的组件设置为空，这样可以返回资源。上次的读取为了简单，我没有关闭，大家可以补充上去：
rs.close
set rs=nothing
conn.close
set conn=nothing
记住，次序不可以颠倒！大家可以到数据库里面去看一看，或者用example4.asp读取看看是不是多了记录阿？
第五天
学习目的：学会数据库的基本操作2（查询记录）    在第四天中我们有这样一个程序：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
exec="select * from guestbook"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1 
%>     我们查询的是所有的记录，但是我们要修改、删除记录的时候不可能是所有记录，所有我们要学习检索合适的记录。先看一条语句：
a="张三"
b=111 
exec="select * from guestbook where name='"+a+"'and tel="+b
where 后面加上的是条件，与是and，或是or，我想=，<=，>=，<，>的含义大家都知道吧。这句话的意思就是搜索name是张三 的，并且电话是111的记录。还有一点就是如果要搜索一个字段里面是不是包含一个字符串就可以这么写：where instr(name,a)也就是搜索 name里面有a（张三）这个字符串的人。
我这里的a,b,是常量，大家可以让a ,b是表单提交过来的变量，这样就可以做一个搜索了。
下面大家看看这个代码，理解一下：
<form name="form1" method="post" action="example6.asp">
搜索：<br>
name =<input type="text" name="name">
and tel= <input type="text" name="tel">
<br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</form>
example6.asp：
<%
name=request.form("name")
tel=request.form("tel")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
exec="select * from guestbook where name='"+name+"' and tel="+tel
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head> 
<body bgcolor="#FFFFFF" text="#000000"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
do while not rs.eof
%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("message")%></td>
<td><%=rs("time")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
</body>
</html>        今天实际上就讲了一个where把instr()做进去 
第六天
学习目的：学会数据库的基本操作3（删除记录）
开门见山，大家直接看程序。
exec="delete * from guestbook where id="&request.form("id")
上面这句话完成了删除记录的操作，不过锁定记录用了记录唯一的表示id，我们前面建立数据库的时候用的是系统给我们的主键，名字是编号，由于是中文的名字不是很方便，大家可以修改为id，不修改的话就是
exec="delete * from guestbook where 编号="&request.form("id")
下面我们看完整的代码：一个表单传给ASP文件一个ID，然后这个ASP文件就删除了这个ID。
<form name="form1" method="post" action="example7.asp">
delete: 
<input type="text" name="id">
<input type="submit" name="Submit" value="提交">
</form>

example7.asp：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
exec="delete * from guestbook where 编号="&request.form("id")
conn.execute exec
%>
我 在示例里面加了一个example72.asp，和example4.asp差不多，就是加了一个id字段，大家可以先运行这个文件看一下所有记录的ID 和想删除记录的ID，删除记录以后也可以通过这个文件复查。等到最后一天，我们会把所有的这些东西整合的。大家就不会需要这么麻烦的操作。

example72.asp：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
exec="select * from guestbook"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1 
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
do while not rs.eof
%><tr>
<td><%=rs("编号")%></td>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("message")%></td>
<td><%=rs("time")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
</body>
</html>
第七天
学习目的：学会数据库的基本操作4（修改记录）   先来看代码：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("test.mdb")//这不是以前的一个数据库，里面就aa,bb两个字段
exec="select * from test where id="&request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
%>
<form name="form1" method="post" action="modifysave.asp">
<table width="748" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td>aa</td>
<td>bb</td>
</tr>
<tr> 
<td>
<input type="text" name="aa" value="<%=rs("aa")%>">
</td>
<td>
<input type="text" name="bb" value="<%=rs("bb")%>">
<input type="submit" name="Submit" value="提交">
<input type="hidden" name="id" value="<%=request.querystring("id")%>">
</td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
大 家到现在应该分析这个代码没有什么问题，这个代码的作用是接受前面一个页面的ID然后显示这条记录，文本框即是输入的地方也是显示的地方，如果需要修改的 话修改以后按提交；如果不需要修改就可以直接按提交按钮。这里还有一个东西以前没有说，那就是隐藏的表单元素：hidden元素，里面的value是不用 用户输入的，会随着表单一起提交，用于传递变量。下面是modifysave.asp的代码：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("test.mdb")
exec="select * from test where id="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("aa")=request.form("aa")
rs("bb")=request.form("bb")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
在 这里，rs.open exec,conn,1,3后面的参数是1，3，这我以前提过，修改记录就要用1，3。实际上修改记录很容易看懂，记录集是rs， rs("aa")就是当前记录aa字段的东西，让它等于新的数据request.form("aa")当然就修改了，不过最后别忘记保存，那就是 rs.update！
说到这里，记录的搜索，读取，修改，插入都说了，通过这最基本的东西就可以作出复杂的东西了，外面的大型数据库：新闻系统， 留言簿就是字段多一点罢了。今天的示例中的代码是结合以前的数据库的，大家DOWN了以后回去调试分析一下。（rar里面的那个 example72.asp还是供大家查询记录ID和核对修改以后的记录用的）
第八天
学习目的：基本的SESSION组件，总结response，request组件。  首先，有会员系统的任何程序都会用到检测是不是用户已经登陆这个步骤。这就用到了SESSION组件，下面我们    看一个代码来说明。
<%
session("islogin")="yes"
%>
这句话的意思就是在session里面定义一个islogin字符串变量，值为"yes"，直接可以赋值，不需要声明。是不是很简单？
如果我们做管理员登陆系统的话，首先是一段检测是不是管理员
if 是 then 
session("isadmin")=yes"
else 
session("isadmin")="no"
end if
在每一个需要管理员才能看的页面最前面加上
<%
if not session("isaadmin")="yes"then
response.redirect "login.htm"
%>
这样一般用户就无法打开这个页面。解释一下response.redirect，它是转向的意思，后面的"login.htm"就是转向的文件。这样没有登陆的管理员是无法看到后面的内容的。
    下面总结一下
response组件基本就是用到response.write ()，response.redirect() 分别是写字符串和转向的作用
request基本就是request.form()，request.querystring() 分别是接受post,get方法传来的信息
今天就说到这里了，最后我的示范是一个登陆系统大家可以研究一下，基本就是上面的知识点比较简单的。
第九天
学习目的：分页技术，总结
  今天最后一天我们学习一下ASP里面稍微难一点地分页技术，毕竟当我们有N条记录的时候我们不可能把所有记录显示在一个页面里面吧。
<%
exec="select * from test"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
rs.PageSize=3
pagecount=rs.PageCount 
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page 
%>
rs.pagesize 设置一个页面里面显示的记录数，pagecount是我们自己定义的一个变量，rs.pagecount是记录的个数，page也是我们自己定义的一个变 量，我们下一页的链接可以设置为list.asp?page=<%=page+1%>，下一页的链接可以设置为list.asp?page= <%=page-1%>，这样当按下链接的时候调用页面自己，page这个变量就+1或者-1了，最后我们让rs.absolutepage （当前页面）为第page页就可以了。
if request.QueryString("page")="" then page=1，这句话的 作用就是我们打开list.asp的时候没有跟随page变量，自动设置为page=1，防止出错，还有当我们if....then...放在一行的时候 end if可以省略。是不是分页也不难？
下面说一种特殊情况：
if page=1 and not page=pagecount，这个时候没有上一页，但是有下一页
elseif page=pagecount and not page=1，这个时候没有下一页，但是有上一页
elseif page<1，这个时候没有任何记录
elseif page>pagecount then，这个时候没有任何记录
elseif page=1 and page=pagecount，这个时候没有上一页，没有下一页
else，这个时候有上一页，也有下一页。
下面看一段显示1到n页，且每一个数字点击以后就出现这个数在代表的页面的代码，很常见哦。
<%for i=1 to pagecount%>
<a href="list.asp?page=<%=i%>"><%=i%></a><%next%>
for....next是循环从i=1开始，循环一次加1到pagecount为止。
最后我的实例里面包含了一个最简单的ASP程序，但是功能样样有，是ASP的精髓，每一个ASP大型程序都包含了它。
add.htm增加记录页面
add.asp增加记录操作
conn.asp数据库链接
del.asp删除记录操作
modify.asp修改记录页面
modifysave.asp修改记录操作
list.asp这个是这个程序的核心，通过这个页面实现记录的添加、修改、删除。
test.mdb数据库，里面有aa，bb两个字段：aa数字型只能接受数字，bb是字符型。
《完》
Asp语法大全
语句Call
[call] name [argumentlist]
把控制转移到函数或子程序。当调用函数或子程序时，Call是可写可不写的。但是如果你用了Call,那么argumentlist必须用括号括起来。
Const
[Public | Private] Const constantname=expression
用于申明常数。你可以在一行里申明多个常数，此时你必须用逗号把常数赋值语句隔开。
Dim
Dim varname[ ( [subscripts])][, varname [( [subscripts])]...
创建一个新变量并且分配存储空间。
DO . . . LOOP
语法 1：
Do [{While | Until } condition ]
[statements]
[Exit Do]
[statements]
LOOP
语法 2：
Do
[statements]
[Exit Do]
[statements]
LOOP [{While | Until } condition ]
当条件condition为真时或直到条件condition为真时，两种形式都重复执行语句。
Erase
Erase array
清理数组，对于固定长度的数组，重新初始化元素；对于动态数组，重置存储空间。
Exit
Exit Do
退出一个 DO . . . LOOP 循环。
Exit For
退出一个 For . . . Next 循环或For Each . . . Next循环。
Exit Function
退出一个 函数。
Exit Sub
退出一个子程序。
For . . . Next
For counter = start To End [Step step]
[statements]
Exit For]
[statements]
Next
由loop 计数器指定的次数重复执行statements语句群。
For Each . . . Next
For Each element In group
[statements]
[Exit For]
[statements]
Next [element]
对于每一个在数组或集合中的元素，重复执行statements语句群。
Function
[Public | Private] Function name [(arglist)]
[statements]
[name=expression]
[Exit Function]
[statements]
[name=expression]
End Function
定义一个函数，指明函数名，参数及代码。
If . . . Then . . . Else
语法1：
If condition Then statements [Else elsestatements]
语法2：
If condition Then
statements
[ElseIf condition-n Then
[elseifstatements]] . . .
[Else 
[elsestatements]]
End If
两种格式都条件执行一系列语句。
On Error
On Error Resume Next
当一个错误发生时，这条语句就执行紧靠发生错误语句后面的语句，或者执行紧靠调用进程后面的语句。
Option Explicit
Option Explicit
在使用变量之前强制明确定义该变量，可以用Dim,Private,Public或 ReDim语句定义变量。
Private
Private varname[([下标])][, varname[([下标])] . . . 
创建私有变量并且分配存储空间。（私有变量只能在定义该变量的脚本中可用）
Public
Public varname[([下标])][, varname[([下标])] . . . 
创建公有变量并且分配存储空间。（公有变量在程序的任何地方均可使用）
Randomize
Randomize [number]
给Rnd函数的随机数发生器一个新种子值。
ReDim
ReDim [Preserve] varname(subscripts)[, varname(subscripts)] . . . 
修改维的下标，大小；或重置动态数组的大小。Preserve 保护已存数组的数据。
Rem
语法1：
Rem comment
语法2：
'comment
这两种语句形式都能使注释的句子不被处理。如果Rem和其它语句在同一行上，Rem 语句必须在后且二者之间必须用冒号隔开。
Select Case
Select Case testexpression
[Case expressionlist-n
[statements-n]] . . .
[Case Else expressionlist-n
[elsestatements-n]]
End Select
如果某一个expressionlist 和testexpression 匹配，则执行和expressionlist对应的语句；如果没有一个expressionlist 和testexpression 相匹配，则执行和Case Else 相对应的语句。
Set
Set obectvar= {objectexpression | Nothing}
赋予一个变量或一个性质对象引用。当赋予的值为Nothing 时，使obectva 和任何以前指明的对象解除关系。
Sub
[Public | Private] Sub name [(arglist)]
[statements]
[Exit Sub]
[statements]
End Sub
定义一个子程序，指明名称，参数及代码。
While . . . Wend
While condition
[statements]
Wend
不停地连续执行语句statements 直到条件condition为True。
1小时ASP入门，非常简单
<%
语句
……
%>
<2>定义变量dim语句
<%
dim a,b
a=10
b="ok!"
%>
注意：定义的变量可以是数值型，也可以是字符或者其他类型的
<3>简单的控制流程语句
1. If 条件1 then
语句1
elseif 条件2 then
语句2
else
语句3
endif
2.while 条件
语句 
wend
3.for count=1 to n step m
语句1
exit for
语句2
next 
二.ASP数据库简单性作教程
<1>.数据库连接(用来单独编制连接文件conn.asp)
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bbsdb1user.mdb") 
%>
(用来连接bbsdb1目录下的user.mdb数据库)
<2>显示数据库记录
原理：将数据库中的记录一一显示到客户端浏览器，依次读出数据库中的每一条记录
如果是从头到尾：用循环并判断指针是否到末 使用: not rs.eof
如果是从尾到头：用循环并判断指针是否到开始 使用：not rs.bof
<!--#include file=conn.asp--> (包含conn.asp用来打开bbsdb1目录下的user.mdb数据库)
<%
set rs=server.CreateObject("adodb.recordset") (建立recordset对象)
sqlstr="select * from message" ---->(message为数据库中的一个数据表，即你要显 示的数据所存放的数据表)
rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)
rs.movefirst ---->(将指针移到第一条记录)
while not rs.eof ---->(判断指针是否到末尾)
response.write(rs("name")) ---->(显示数据表message中的name字段)
rs.movenext ---->(将指针移动到下一条记录)
wend ---->(循环结束)
rs.close
conn.close 这几句是用来关闭数据库
set rs=nothing
set conn=nothing
%>
其中response对象是服务器向客户端浏览器发送的信息
<3>增加数据库记录
增加数据库记录用到rs.addnew,rs.update两个函数
<!--#include file=conn.asp--> (包含conn.asp用来打开bbsdb1目录下的user.mdb数据库)
<%
set rs=server.CreateObject("adodb.recordset") (建立recordset对象)
sqlstr="select * from message" ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)
rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)
rs.addnew 新增加一条记录
rs("name")="xx" 将xx的值传给name字段
rs.update 刷新数据库 
rs.close
conn.close 这几句是用来关闭数据库
set rs=nothing
set conn=nothing
%>
<4>删除一条记录
删除数据库记录主要用到rs.delete,rs.update
<!--#include file=conn.asp--> (包含conn.asp用来打开bbsdb1目录下的user.mdb数据库)
<%
dim name
name="xx"
set rs=server.CreateObject("adodb.recordset") (建立recordset对象)
sqlstr="select * from message" ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)
rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)
while not rs.eof
if rs.("name")=name then
rs.delete
rs.update 查询数据表中的name字段的值是否等于变量name的值"xx"，如果符合就执行删除，
else 否则继续查询,直到指针到末尾为止
rs.movenext
emd if
wend
rs.close
conn.close 这几句是用来关闭数据库
set rs=nothing
set conn=nothing
%>
<5>关于数据库的查询
(a) 查询字段为字符型
<%
dim user,pass,qq,mail,message
user=request.Form("user")
pass=request.Form("pass")
qq=request.Form("qq")
mail=request.Form("mail")
message=request.Form("message")
if trim(user)&"x"="x" or trim(pass)&"x"="x" then (检测user值和pass值是否为空，可以检测到空格)
response.write("注册信息不能为空")
else
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from user where user='"&user&"'" (查询user数据表中的user字段其中user字段为字符型)
rs.open sqlstr,conn,1,3
if rs.eof then
rs.addnew
rs("user")=user
rs("pass")=pass
rs("qq")=qq
rs("mail")=mail
rs("message")=message
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write("注册成功")
end if 
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write("注册重名")
%>
(b)查询字段为数字型
<%
dim num
num=request.Form("num")
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from message where id="&num (查询message数据表中id字段的值是否与num相等，其中id为数字型)
rs.open sqlstr,conn,1,3
if not rs.eof then
rs.delete
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write("删除成功")
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write("删除失败")
%>
<6>几个简单的asp对象的讲解
response对象:服务器端向客户端发送的信息对象,包括直接发送信息给浏览器,重新定向URL，或设置cookie值
request对象:客户端向服务器提出的请求
session对象:作为一个全局变量，在整个站点都生效
server对象：提供对服务器上方法和属性的访问 
(a) response对象的一般使用方法
比如：
<%  resposne.write("hello, welcome to asp!")  %>
在客户端浏览器就会看到 hello, welcome to asp! 这一段文字
<%  response.Redirect("www.sohu.com")  %>
如果执行这一段，则浏览器就会自动连接到 "搜狐" 的网址
关于response对象的用法还有很多，大家可以研究研究
request对象的一般使用方法
比如客户端向服务器提出的请求就是通过request对象来传递的
列如 ：你在申请邮箱的所填写的个人信息就是通过该对象来将
你所填写的信息传递给服务器的
比如：这是一段表单的代码，这是提供给客户填写信息的，填写完了按
"提交"传递给request.asp文件处理后再存入服务器数据库
<form name="form1" method="post" action="request.asp">
<p>
<input type="text" name="user">
</p>
<p> 
<input type="text" name="pass">
</p>
<p>
<input type="submit" name="Submit" value="提交">
</p>
</form> 
那么request.asp该如何将其中的信息读入，在写入数据库，在这里就要用到
request对象了，下面我们就来分析request.asp的写法
<%
dim name,password (定义user和password两个变量)
name=request.form("user") (将表单中的user信息传给变量name)
password=request.form("pass") (将表单中的pass信息传给变量password)
%> 
通过以上的几句代码我们就将表单中的数据读进来了，接下来我们要做的就是将
信息写入数据库了，写入数据库的方法上面都介绍了，这里就不一一复述了。
ASP常用函数收藏
'取得IP地址
Function?Userip()
????Dim?GetClientIP
????'如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法
????GetClientIP?=?Request.ServerVariables("HTTP_X_FORWARDED_FOR")
????If?GetClientIP?=?""?or?isnull(GetClientIP)?or?isempty(GetClientIP)?Then
????????'如果客户端没用代理，应该用Request.ServerVariables("REMOTE_ADDR")方法
????????GetClientIP?=?Request.ServerVariables("REMOTE_ADDR")
????end?if
????Userip?=?GetClientIP
End?function
'?弹出对话框
Sub?alert(message)
??message?=?replace(message,"'","'")
??Response.Write?("<script>alert('"?&?message?&?"')</script>")
End?Sub
'?返回上一页，一般用在判断信息提交是否完全之后
Sub?GoBack()
??Response.write?("<script>history.go(-1)</script>")
End?Sub
'?重定向另外的连接
Sub?Go(url)
??Response.write?("<script>location.href('"?&?url?&?"')</script>")
End?Sub
'?指定秒数重定向另外的连接
sub?GoPage(url,s)
??s=s*1000
??Response.Write?"<SCRIPT?LANGUAGE=javascript>"
??Response.Write?"window.setTimeout("&chr(34)&"window.navigate('"&url&"')"&chr(34)&","&s&")"
??Response.Write?"</script>"
end?sub
'?判断数字是否整形
function?isInteger(para)
on?error?resume?next
dim?str
dim?l,i
if?isNUll(para)?then?
isInteger=false
exit?function
end?if
str=cstr(para)
if?trim(str)=""?then
isInteger=false
exit?function
end?if
l=len(str)
for?i=1?to?l
if?mid(str,i,1)>"9"?or?mid(str,i,1)<"0"?then
isInteger=false?
exit?function
end?if
next
isInteger=true
if?err.number<>0?then?err.clear
end?function
'?获得 文件扩展名
function?GetExtend(filename)
dim?tmp
if?filename<>""?then
tmp=mid(filename,instrrev(filename,".")+1,len(filename)-instrrev(filename,"."))
tmp=LCase(tmp)
if?instr(1,tmp,"asp")>0?or?instr(1,tmp,"php")>0?or?instr(1,tmp,"php3")>0?or?instr(1,tmp,"aspx")>0?then
getextend="txt"
else
getextend=tmp
end?if
else
getextend=""
end?if
end?function
'?*?函数：CheckIn
'?*?描述：检测参数是否有SQL危险字符
'?*?参数：str要检测的数据
'?*?返回：FALSE：安全?TRUE：不安全
'?*?作者：
'?*?日期： 
function?CheckIn(str)
if?instr(1,str,chr(39))>0?or?instr(1,str,chr(34))>0?or?instr(1,str,chr(59))>0?then
CheckIn=true
else
CheckIn=false
end?if
end?function
'?*?函数：HTMLEncode
'?*?描述：过滤HTML代码
'?*?参数：--
'?*?返回：--
'?*?作者：
'?*?日期： 
function?HTMLEncode(fString)
if?not?isnull(fString)?then
fString?=?replace(fString,?">",?"&gt;")
fString?=?replace(fString,?"<",?"&lt;") 
fString?=?Replace(fString,?CHR(32),?"&nbsp;")
fString?=?Replace(fString,?CHR(9),?"&nbsp;")
fString?=?Replace(fString,?CHR(34),?"&quot;")
fString?=?Replace(fString,?CHR(39),?"&#39;")
fString?=?Replace(fString,?CHR(13),?"")
fString?=?Replace(fString,?CHR(10)?&?CHR(10),?"</P><P>?")
fString?=?Replace(fString,?CHR(10),?"<BR>?")
HTMLEncode?=?fString
end?if
end?function
'?*?函数：HTMLcode
'?*?描述：过滤表单字符
'?*?参数：--
'?*?返回：--
'?*?作者：
'?*?日期： 
function?HTMLcode(fString)
if?not?isnull(fString)?then
fString?=?Replace(fString,?CHR(13),?"")
fString?=?Replace(fString,?CHR(10)?&?CHR(10),?"</P><P>")
fString?=?Replace(fString,?CHR(34),?"")
fString?=?Replace(fString,?CHR(10),?"<BR>")
HTMLcode?=?fString
end?if
end?function
ASP初学者常犯的几个错误（ZT）
   
记录集关闭之前再次打开:
sql="select?*?from?test"
rs.open?sql,conn,1,1
if?not?rs.eof?then
dim?myName
myName=rs("name")
end?if
sql="select?*?from?myBook"
rs.open?sql,conn,1,1
解决:在第二次rs.open之前先关闭?rs.close
或
set?rs1=server.createobject
rs1.open?sql,conn,1,1
2,用SQL关键字做表名或字段名
sql="select?*?from?user"
rs.open?sql,conn,1,1
user为sql关键字
解决:改为
sql="select?*?from?[user]" 
3,用锁定方式去进行update
sql="select?*?from?[user]"
rs.open?sql,conn,1,1
rs.addnew
或
rs("userName")="aa"
rs.update
当前记录集的打开方式为只读
解决:
改为
rs.open?sql,conn,1,3
4,在查询语句中采用的对比字段值与字段类型不符
sql="select?*?from?[user]?where?id='"?&?myID?&?"'"
rs.open?sql,conn,1,1
假设表中设计ID为数字型，那么些时出错。
解决:
sql="select?*?from?[user]?where?id="?&?myID
5,未检查变量值而出错
sql="select?*?from?[user]?where?id="?&?myID
rs.open?sql,conn,1,1
假设myID变量此时值为null,那么sql将成为
sql="select?*?from?[user]?where?id="
解决:
在前面加上
if?isnull(myID)?then?出错提示
6,未检查变量值类型而出错
sql="select?*?from?[user]?where?id="?&?myID
rs.open?sql,conn,1,1
假设id为数字型,myID变量此时值不为null,但为字符，比如myID此时为"aa"
那么sql将成为
sql="select?*?from?[user]?where?id=aa"
解决:
在前面加上
if?isnumeric(myID)=false?then?出错提示
这也可以有效防止?sql?injection?漏洞攻击。
7,由于数据库文件所在目录的NTFS权限而引起的'不能更新。数据库或对象为只读"错误。
说明:
WIN2K系统延续了WINNT系统的NTFS权限。
对于系统中的文夹都有默认的安全设置。
而通过HTTP对WWW访问时的系统默认用户是?iusr_计算机名?用户?,它属于guest组。
当通过HTTP访问时，可以ASP或JSP，也或是PHP或.NET程序对数据进行修改操作：
比如：
当打开某一个文章时，程序设定，文章的阅读次数=原阅读次数+1
执行
conn.execute("update?arts?set?clicks=clicks+1?where?id=n")
语句时，如果?iusr_计算机名?用户没有对数据库的写权限时，就会出错.
解决方法:
找到数据库所在目录
右键》属性》安全选项卡》设置?iusr_计算机名?用户的写权限(当然，也可以是everyone)
无组件上传图片之文件采用方案
首先，图片在页面中能查找选择设计表单页面index.asp和上传选择页upload.asp，upload.asp在index.asp中以iframe包含。
其次，所选图片应能上传到某文件夹。建立一文件夹uploadimg
最后传上去的图片应如何引用？很显然，采用UBB立即显示。upload.asp的指向对象upfile.asp具有写入UBB标签的功能。
图片上传采用稻香老农的无组件上传。所以upload.inc文件必不可少。
1，upload.inc（拷贝以下文本框的所有代码）
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
dim upfile_5xSoft_Stream
Class upload_5xSoft
dim Form,File,Version
Private Sub Class_Initialize 
   dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
  dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
  Version=""
   if Request.TotalBytes<1 then Exit Sub
    set Form=CreateObject("Scripting.Dictionary")
    set File=CreateObject("Scripting.Dictionary")
   set upfile_5xSoft_Stream=CreateObject("Adodb.Stream")
   upfile_5xSoft_Stream.mode=3
   upfile_5xSoft_Stream.type=1
   upfile_5xSoft_Stream.open
  upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes)
  vbEnter=Chr(13)&Chr(10)
   iDivLen=inString(1,vbEnter)+1
 strDiv=subString(1,iDivLen)
 iFormStart=iDivLen
   iFormEnd=inString(iformStart,strDiv)-1
 while iFormStart < iFormEnd
   iStart=inString(iFormStart,"name=""")
   iEnd=inString(iStart+6,"""")
   mFormName=subString(iStart+6,iEnd-iStart-6)
  iFileNameStart=inString(iEnd+1,"filename=""")
 if iFileNameStart>0 and iFileNameStart<iFormEnd then
  iFileNameEnd=inString(iFileNameStart+10,"""")
   mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)
    iStart=inString(iFileNameEnd+1,vbEnter&vbEnter)
   iEnd=inString(iStart+4,vbEnter&strDiv)
    if iEnd>iStart then
     mFileSize=iEnd-iStart-4
     else
     mFileSize=0
   end if
  set theFile=new FileInfo
 theFile.FileName=getFileName(mFileName)
  theFile.FilePath=getFilePath(mFileName)
  theFile.FileSize=mFileSize
  theFile.FileStart=iStar=FormName
  file.add mFormName,theFile
    else
    iStart=inString(iEnd+1,vbEnter&vbEnter)
    iEnd=inString(iStart+4,vbEnter&strDiv)
  if iEnd>iStart then
  mFormValue=subString(iStart+4,iEnd-iStart-4)
  else
  mFormValue="" 
  end if
  form.Add mFormName,mFormValue
  end if
  iFormStart=iformEnd+iDivLen
   iFormEnd=inString(iformStart,strDiv)-1
  wend
End Sub
Private Function subString(theStart,theLen)
dim i,c,stemp
 upfile_5xSoft_Stream.Position=theStart-1
 stemp=""
 for i=1 to theLen
  if upfile_5xSoft_Stream.EOS then Exit for
  c=ascB(upfile_5xSoft_Stream.Read(1))
  If c > 127 Then
   if upfile_5xSoft_Stream.EOS then Exit for
   stemp=stemp&Chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))&ChrB(c)))
   i=i+1
 else
 stemp=stemp&Chr(c)
 End If
 Next
 subString=stemp
End function
Private Function inString(theStart,varStr)
 dim i,j,bt,theLen,str
 InString=0
 Str=toByte(varStr)
 theLen=LenB(Str)
 for i=theStart to upfile_5xSoft_Stream.Size-theLen
   if i>upfile_5xSoft_Stream.size then exit Function
   upfile_5xSoft_Stream.Position=i-1
   if AscB(upfile_5xSoft_Stream.Read(1))=AscB(midB(Str,1)) then
   InString=i
    for j=2 to theLen
      if upfile_5xSoft_Stream.EOS then 
        inString=0
        Exit for
      end if
     if AscB(upfile_5xSoft_Stream.Read(1))<>AscB(MidB(Str,j,1)) then
       InString=0
        Exit For
    end if
    next
    if InString<>0 then Exit Function
   end if
next
End Function
Private Sub Class_Terminate  
  form.RemoveAll
  file.RemoveAll
 set form=nothing
  set file=nothing
  upfile_5xSoft_Stream.close
  set upfile_5xSoft_Stream=nothing
End Sub
 Private function GetFilePath(FullPath)
  If FullPath <> "" Then
   GetFilePath = left(FullPath,InStrRev(FullPath, ""))
  Else
   GetFilePath = ""
  End If
 End  function
 Private function GetFileName(FullPath)
  If FullPath <> "" Then
  GetFileName = mid(FullPath,InStrRev(FullPath, "")+1)
 Else
  GetFileName = ""
 End If
End  function
 Private function toByte(Str)
   dim i,iCode,c,iLow,iHigh
   toByte=""
   For i=1 To Len(Str)
   c=mid(Str,i,1)
   iCode =Asc(c)
   If iCode<0 Then iCode = iCode + 65535
   If iCode>255 Then
     iLow = Left(Hex(Asc(c)),2)
     iHigh =Right(Hex(Asc(c)),2)
     toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)
  Else
     toByte = toByte & chrB(AscB(c))
   End If
   Next
 End function
End Class
Class FileInfo
 dim FormName,FileName,FilePath,FileSize,FileStart
 Private Sub Class_Initialize 
   FileName = ""
    FilePath = ""
   FileSize = 0
    FileStart= 0
    FormName = ""
  End Sub
 Public function SaveAs(FullPath)
    dim dr,ErrorChar,i
   SaveAs=1
   if trim(fullpath)="" or FileSize=0 or FileStart=0 or FileName="" then exit function
    if FileStart=0 or right(fullpath,1)="/" then exit function
    set dr=CreateObject("Adodb.Stream")
    dr.Mode=3
    dr.Type=1
    dr.Open
   upfile_5xSoft_Stream.position=FileStart-1
   upfile_5xSoft_Stream.copyto dr,FileSize
   dr.SaveToFile FullPath,2
   dr.Close
    set dr=nothing 
    SaveAs=0
  end function
End Class
</SCRIPT>
2，表单页面index.asp。注意包含的上传选择页upload.asp
<form?name="form_name"?method="POST"?action="add.asp">
<textarea?cols="100"?name="cn_content"?rows="18"?width="100%"></textarea>
</form>
<iframe?border="0"?frameBorder="0"?noResize?scrolling="no"?width="100%"?src="upload.asp"></iframe>
3，上传选择页upload.asp?注意：?enctype="multipart/form-data"?
<form?name="form"?method="post"?action="upfile.asp"?enctype="multipart/form-data">
<input?type="hidden"?name="filepath"?value="uploadimg">
<input?type="hidden"?name="act"?value="upload">
<input?type="file"?name="file1"?size=40>
< input?type="submit"?class=button?name="Submit"?value="上传图片"?onclick= "parent.document.forms[0].Submit.disabled=true">类型：gif,jpg，限制：100K
</form>
4，最后一?个文件?upfile.asp?主要作用：生成图片名，并将图片上传，同样也要将UBB标签写入index.asp中的textarea中。
（拷贝以下文本框的所有代码）
<!--#include file="upload.inc"-->
<html>
<head>
<title>文件上传</title>
</head>
<body>
<script>
parent.document.forms[0].Submit.disabled=false;
</script>
<%  dim upload,file,formName,formPath,iCount,filename,fileExt
set upload=new upload_5xSoft ''建立上传对象
 formPath=upload.form("filepath")
 ''在目录后加(/)
 if right(formPath,1)<>"/" then formPath=formPath&"/" 
response.write "<body>"
iCount=0
for each formName in upload.file ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
 if file.filesize<100 then
     response.write "请选择你要上传的文件　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
    response.end
 end if
      if file.filesize>100*1000 then
response.write "文件大小超过了限制100K　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
    response.end
 end if
 fileExt=lcase(right(file.filename,4))
 uploadsuc=false
Forum_upload="gif,jpg,png"
 Forumupload=split(Forum_upload,",")
 for i=0 to ubound(Forumupload)
    if fileEXT="."&trim(Forumupload(i)) then
    uploadsuc=true
    exit for
    else
    uploadsuc=false
    end t+4
  theFile.FormName

if

 next

 if uploadsuc=false then

     response.write "文件格式不正确　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"

    response.end

 end if

 randomize

 ranNum=int(90000*rnd)+10000

filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&fileExt

 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据

  file.SaveAs Server.mappath(FileName)   ''保存文件

    for i=0 to ubound(Forumupload)

        if fileEXT="."&trim(Forumupload(i)) then

         response.write "<script>parent.form_name.cn_content.value+='[img]"&FileName&"[/img]'</script>"

        exit for

        end if

    next

 iCount=iCount+1

 end if

 set file=nothing

next

set upload=nothing  ''删除此对象

Htmend iCount&" 个文件上传结束!"

sub HtmEnd(Msg)

 set upload=nothing

 response.write "上传成功 [ <a href=# onclick=history.go(-1)>继续上传</a>]"

 response.end

end sub

%>

</body>

</html>

当然，保持图片的文件夹uploadimg不能少

© 2008 - 2010, Zeroun's Blog -- 黄志勇的博客!. 版权所有.