欢迎来到HELLO素材网! 南京网站制作选择顺炫科技
丰富的DIV CSS模版、JS,jQuery特效免费提供下载
当前位置:主页 > 建站教程 > 网站制作教程 >

初学者:ASP入门

发表于2019-05-15 15:30| 次阅读| 来源网络整理| 作者session

摘要:初学者:ASP入门
初学者:ASP入门

一、语法

<1>语句
<%...........%>
<2>定义变量dim语句

<%
dim a,b
a=10
b=”ok!”
%>

留意:定义的变量可能是数值型,也可能是字符或许其余类型的

<3>简略的控制流程语句

1. If 条件1 then
语句1
elseif 条件2 then
语句2
else
语句3
end if

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("\bbs\db1\user.mdb")
%>

(用来衔接bbs\db1\目录下的user.mdb数据库)

<2>显示数据库记载

原理:将数据库中的记载逐一显示到客户端阅读器,依次读出数据库中的每一条记载
假设是从头到尾:用循环并判别指针能否到末 利用: not rs.eof
假设是从尾到头:用循环并判别指针能否到末尾 利用:not rs.bof

<!--#include file=conn.asp--> (蕴含conn.asp用来打开bbs\db1\目录下的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用来打开bbs\db1\目录下的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用来打开bbs\db1\目录下的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删除胜利")
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write("删除失败")
%>

<6>几个简略的asp对象的讲解