ASP编程环境搭建及实例图解
ASP编程环境搭建及实例图解
1 环境搭建
1.1 软件准备
软件名称
版本
下载地址
备注
IIS
6.0
服务器
Access
2003
数据库
UltraEdit
14.00
http://www.ultraedit.com/
ASP编程软件；
可以下载UltraEdit绿色破解版
1.2 软件安装配置
1.2.1 软件说明
本实例采用Access作为数据库、IIS作为服务器，这两个软件为必备软件，另外UltraEdit作为ASP编程软件，它的安装是可选的。
1.3 总体配置
1、 建立虚拟目录Web，将所有的asp文件放在该目录下，通过http://localhost/Web/xxx.asp/ 即可访问。
2 实例操作
2.1 建立数据库
2.1.1 准备
1、 在Web目录下新建AspExample.mdb数据库文件；
2、 选择该文件，右键选择“属性”，打开“安全”选项卡，添加一个“EveryOne”的“完全控制”权限。
2.1.2 建库及表
建立一个名为DUser的表，其字段如下：
字段名
类型
长度
备注
UserId
数字
长整型
唯一性；不可为空
UserName
文本
20
不可为空
UserPsd
文本
50
不可为空
UserDetail
文本
100
可空
2.2 ASP编程实例
2.2.1 设计
1、我们的目标是建立几个简单的网页来显示、添加、修改、删除用户；
2、建立以下几个网页：
页面show.asp显示数据库中的所有用户
页面add. asp添加用户
页面edit. asp修改用户信息
页面del. asp删除指定用户
2.2.2 编程
1、显示用户
show. asp内容如下：
<%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("AspExample.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SQL="select * from DUser"
SET CustomerList=dbconnection.EXECUTE(SQL)
%>
<html>
<head>
<title>Robin ASP Exmaple</title>
</head>
<body>
<h2>Show Data from DUser</h2>
<table width=90% align=center border=1>
<tr>
<td align=center bgcolor=#00FFFF>UserId</td>
<td align=center bgcolor=#00FFFF>UserName</td>
<td align=center bgcolor=#00FFFF>UserPsd</td>
<td align=center bgcolor=#00FFFF>UserDetail</td>
<td align=center bgcolor=#00FFFF>编辑操作</td>
<td align=center bgcolor=#00FFFF>删除操作</td>
</tr>
<% DO WHILE NOT CustomerList.EOF %>
<tr>
<td><% =CustomerList("UserId") %></td>
<td><% =CustomerList("UserName") %></td>
<td><% =CustomerList("UserPsd") %></td>
<td><% =CustomerList("UserDetail") %></td>
<td><a href='edit.asp?UserId=<%=CustomerList("UserId")%>&UserName=<%=CustomerList("UserName")%>&UserPsd=<%=CustomerList("UserPsd")%>&UserDetail=<%=CustomerList("UserDetail")%>'>编辑</a></td>
<td><a href='del.asp?UserId=<%=CustomerList("UserId")%>&UserName=<%=CustomerList("UserName")%>'>删除</a></td>
</tr>
<% CustomerList.movenext
loop
%>
</table>
<br />
<table width=90% align=center>
<tr>
<td><a href="add.asp">添加用户</a></td>
</tr>
</table>
</body>
</html>
运行之后，界面如下所示：
2、添加用户
add.asp内容如下：
<html>
<head>
<title>Robin ASP Exmaple</title>
</head>
<body>
<h1>Add an User</h1>
<form method="post" action="adddb.asp">
<table width=90% align=center>
<tr><td colspan=2>请填写用户信息(此处未做UserId唯一性认证)：</td></tr>
<tr><td>UserId: </td><td><input type=text name=txt_UserId size=40 maxlength=3 value=""></td></tr>
<tr><td>UserName: </td><td><input type=text name=txt_UserName size=40 maxlength=20 value=""></td></tr>
<tr><td>UserPsd: </td><td><input type=text name=txt_UserPsd size=40 maxlength=50 value=""></td></tr>
<tr><td>UserDetail: </td><td><input type=text name=txt_UserDetail size=40 maxlength=100 value=""></td></tr>
<tr><td></td><td><input type=submit value="Add"></td></tr>
</table>
</form>
</body>
</html>
运行之后，界面如下所示：
adddb.asp内容如下：
<%
myUserId = Request("txt_UserId")
myUserName = Request("txt_UserName")
myUserPsd = Request("txt_UserPsd")
myUserDetail = Request("txt_UserDetail")
If myUserId = "" Or myUserName = "" Or myUserPsd = "" Then
Response.Write "<html><body><center><font size=5>请将资料填写完整。</font></center></body></html>"
Response.End
End If
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("AspExample.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "DUser", dbconnection, adOpenDynamic, 3
rs.AddNew
rs("UserId") = myUserId
rs("UserName") = myUserName
rs("UserPsd") = myUserPsd
rs("UserDetail") = myUserDetail
rs.Update
Response.Write "<html><body><center><font size=5>Add data success!<p>"
Response.Write "<a href='show.asp'>查看数据</a>"
Response.Write "</font></center></body></html>"
%>
运行之后，界面如下所示：
2、修改用户
Edit.asp内容如下：
<html>
<head>
<title>Robin ASP Exmaple</title>
</head>
<body>
<h1>Edit an User</h1>
<form method="post" action="editdb.asp">
<table width=90% align=center>
<tr><td>UserId: </td><td><%= Request("UserId") %></td></tr>
<tr><td>UserName: </td><td><input type=text name=txt_UserName size=40 maxlength=100 value="<%= Request("UserName") %>"</td></tr>
<tr><td>UserPsd: </td><td><input type=text name=txt_UserPsd size=40 maxlength=100 value="<%= Request("UserPsd") %>"</td></tr>
<tr><td>UserDetail:</td><td><input type=text name=txt_UserDetail size=40 maxlength=100 value="<%= Request("UserDetail") %>"</td></tr>
<tr><td></td><td><input type=submit value="Edit"></td></tr></table>
<input type=hidden name=txt_UserId value="<%= Request("UserId") %>" />
</form>
</body>
</html>
运行之后，界面如下所示：
editdb.asp内容如下：
<%
myUserId = Request("txt_UserId")
myUserName = Request("txt_UserName")
myUserPsd = Request("txt_UserPsd")
myUserDetail = Request("txt_UserDetail")
If myUserId = "" Or myUserName = "" Or myUserPsd = "" Then
Response.Write "<html><body><center><font size=5>请将资料填写完整。</font></center></body></html>"
Response.End
End If
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("AspExample.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from DUser where UserId = " & myUserId
rs.open sql,dbconnection,1,3
rs("UserName") = myUserName
rs("UserPsd") = myUserPsd
rs("UserDetail") = myUserDetail
rs.Update
Response.Write "<html><body><center><font size=5>Edit data success!<p>"
Response.Write "<a href='show.asp'>查看数据</a>"
Response.Write "</font></center></body></html>"
%>
运行之后，界面如下所示：
2、删除用户
del.asp内容如下：
<%
myUserId = Request("UserId")
myUserName = Request("UserName")
If myUserId = "" Or myUserName = "" Then
Response.Write "<html><body><center><font size=5>请选择所要删除的记录。</font></center></body></html>"
Response.End
End If
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("AspExample.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
sql="delete from DUser where UserId=" & myUserId & " and UserName='" & myUserName & "'"
rs.open sql,dbconnection,3,2
Response.Write "<html><body><center><font size=5>Delete data success!<p>"
Response.Write "<a href='show.asp'>查看数据</a>"
Response.Write "</font></center></body></html>"
%>
运行之后，界面如下所示：
软件名称
版本
下载地址
备注
IIS
6.0
服务器
Access
2003
数据库
UltraEdit
14.00
http://www.ultraedit.com/
ASP编程软件；
可以下载UltraEdit绿色破解版
字段名
类型
长度
备注
UserId
数字
长整型
唯一性；不可为空
UserName
文本
20
不可为空
UserPsd
文本
50
不可为空
UserDetail
文本
100
可空
浙公网安备 33010602011771号