;
Server.MapPath("bbssystem.mdb")
这一段是建立数据库连接,数据库的名称为bbssystem.mdb,这一段中唯一要注意的是Server.MapPath函数的应用。一般来说,凡是涉及到具体的目录的地方,都不要直接使用目录名,而用Server.MapPath函数来代替。善用好Server.MapPath和Request.ServerVariables()等函数,能够让你的WEB应用具有更好的可移植性。
Set cmd = Server.CreateObject("ADODB.Command")
'查询作者是否已存在
Set cmd.ActiveConnection = conn
cmd.CommandText = "查询作者"
ReDim param(0) ' 声明参数数组
param(0) = CStr(id) ' Cint 不可忽略
Set rs = cmd.Execute( ,param )
这一段就是用来执行存贮查询的。在ADO中执行查询的方法有很多种,但是对于存贮查询就只能使用Command对象了。首先,建立了一个叫做cmd的Command对象,然后把conn连接对象赋给cmd对象的ActiveConnection属性,把要执行的查询名称"查询作者"赋给CommandText属性,然后为查询参数赋值。我们声明了一个参数数组param(0),因为在"查询作者"这个查询中只有一个参数,所以数组就只有一个分量了。一般的,在查询中有几个参数,就要申明有相应分量个数的参数数组。并且参数出现的顺序是个数组中分量的顺序是对应的。在使用参数查询的过程中,尤其要注意的是,参数的类型要严格匹配,否这就会出错,所以上面的CStr()类型转换函数是不可缺少的。
if not (rs.eof or rs.bof) then
response.write "
错误,你输入的ID号已经被占用,请换一个再试试!
"
else
sql = "Insert Into 作者表 (id, 昵称, Email, 密码,姓名,学校,系别,性别,电话) Values( "
sql = sql & SqlStr(id) & ", "
sql = sql & SqlStr(nickname) & ", &
这一段是建立数据库连接,数据库的名称为bbssystem.mdb,这一段中唯一要注意的是Server.MapPath函数的应用。一般来说,凡是涉及到具体的目录的地方,都不要直接使用目录名,而用Server.MapPath函数来代替。善用好Server.MapPath和Request.ServerVariables()等函数,能够让你的WEB应用具有更好的可移植性。
Set cmd = Server.CreateObject("ADODB.Command")
'查询作者是否已存在
Set cmd.ActiveConnection = conn
cmd.CommandText = "查询作者"
ReDim param(0) ' 声明参数数组
param(0) = CStr(id) ' Cint 不可忽略
Set rs = cmd.Execute( ,param )
这一段就是用来执行存贮查询的。在ADO中执行查询的方法有很多种,但是对于存贮查询就只能使用Command对象了。首先,建立了一个叫做cmd的Command对象,然后把conn连接对象赋给cmd对象的ActiveConnection属性,把要执行的查询名称"查询作者"赋给CommandText属性,然后为查询参数赋值。我们声明了一个参数数组param(0),因为在"查询作者"这个查询中只有一个参数,所以数组就只有一个分量了。一般的,在查询中有几个参数,就要申明有相应分量个数的参数数组。并且参数出现的顺序是个数组中分量的顺序是对应的。在使用参数查询的过程中,尤其要注意的是,参数的类型要严格匹配,否这就会出错,所以上面的CStr()类型转换函数是不可缺少的。
if not (rs.eof or rs.bof) then
response.write "
错误,你输入的ID号已经被占用,请换一个再试试!
"
else
sql = "Insert Into 作者表 (id, 昵称, Email, 密码,姓名,学校,系别,性别,电话) Values( "
sql = sql & SqlStr(id) & ", "
sql = sql & SqlStr(nickname) & ", &
| 对此文章发表了评论 |
