ASP连接access数据库例程
注意：要运行上述ACCESS例程请先下载数据库，放在db 或 rwdata文件夹下。请将例程放在根目录下。
<%
Dim mode
mode=request.form("text4")
if mode=1 then
name=request.form("text1")
age=request.form("text2")
addr=request.form("text3")
if not isnumeric(age) then response.write "age must be number!<a href=javascript:history.go
(-1)>try again</a>":response.end
age=clng(age)
end if '********************************************************************
' 与AccessDB相关的连接信息
' 可以参照它建立您的数据库连接
'********************************************************************
Dim conn,rs,dbpath
Set conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
dbpath=Server.MapPath("rwdata/db_test_com.mdb")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&dbpath
'********************************************************************
'********************************************************************
dim strsql
'********************************************************************
' 读数据库相关操作
sub readdb()
strsql="select * from test"
rs.open strsql,conn,1,1
if rs.EOF then response.write "no record at all":exit sub
response.write "<table border=1>"
response.write "<tr>"
for i=0 to rs.Fields.Count-1
response.write "<td><font color=blue>"&rs.Fields(i).Name&"</font></td>"
next
response.write "</tr>"
while not rs.EOF
response.write "<tr>"
for i=0 to rs.Fields.Count-1
response.write "<td>"&rs.Fields(i).Value&"</td>"
next
response.write "</tr>"
rs.MoveNext
wend
response.write "</table>"
rs.Close
end sub
'********************************************************************
'********************************************************************
' 写数据库相关
sub insertdata()
strsql="INSERT INTO test(name,age,addr) VALUES('"&name&"',"&age&",'"&addr&"')"
rs.Open strsql,conn,1,3
end sub
'********************************************************************
if mode=1 then
call insertdata()
response.write "insert ok!"
elseif mode=2 then
call readdb()
end if
'********************************************************************
' 释放数据库连接对象
set rs=nothing
set conn=nothing
%>
<HTML>
<HEAD>
<TITLE></TITLE>
<script language=javascript>
function clickit(flag){
var form1=document.form2
form1.text4.value=flag;
if (flag==1){
if (form1.text1.value==""){
alert("name cant empty!");
return false;
}
if (form1.text2.value==""){
alert("age cant empty!");
return false;
}
if (form1.text3.value==""){
alert("addr cant empty!");
return false;
}
}
form1.submit();
return true;
}
</script>
</HEAD>
<BODY>
<form method=post name=form2>
name:<INPUT type="text" id=text1 name=text1 size=12>
age:<INPUT type="text" id=text2 name=text2 size=12>
city:<INPUT type="text" id=text3 name=text3 size=12><br>
<INPUT type="hidden" id=text4 name=text4>
<INPUT type="button" value="write" id=button1 name=button1 onclick="clickit(1)">
<INPUT type="button" value="read" id=button2 name=button2 onclick="clickit(2)">
</form>
</BODY>
</HTML>
注意：要运行上述ACCESS例程请先下载数据库，放在rwdata文件夹下。请将例程放在根目录下。
介绍完之后，下面向大家介绍几款不错 的虚拟主机给大家！绝对有您想要的！金牌注册机构,"全国五强"
主机注册商!大品牌技术和服务都有保障！现推出的“07卓越主机”正在搞促销！祝大家好运!
●入门学习型虚拟主机:现特价100 元/年！WindowsServer2003 操作系统 50MB独立网页空间，静态HTML
网页 支持WAP
● 基本C型主机 150M空间,支持 ASP.NET/ASP ，免费送100Mb邮局 355 元/年 ,另赠送.CN域名;
● 增强c型主机:WindowsServer2003 操作系统 支持 ASP.NET/ASP ;250MB独立空间体积 SQLSERVER数据
库 20MB独立数据库空间 支持ACCESS数据库 送350MB邮局空间 多域名绑定 GCDN 网站加速器 支持WAP 原
价757元，现特价599元
适合已初具规模的电子商务企业，动态交互式网站的建站首选！
▲标准商务C型主机+CN域名(特别推荐): 原价1770元/年，特价只需1415元/年 ，免费加送域名,CDN网站
加速器 送繁简通网络简装版 500M独立空间，支持ASP/ASP.NET免费送800Mb邮箱;Win20 03，IIS 6.0支持
SQLSERVER 2005ACCESS 数据库 提供计数器，留言板脚本列表 ASP ASP.NET Active Perl CGIASP.NET
2.0 Microsoft Front Page 2000 扩 展
适合比较大中型的电子商务企业！
▲智强商务C型 +.CN 原价1952,现特价1588元/年 WindowsServer2003 操作系统 ,支持ASP.NET/ASP
1000MB独立空间体积 ,SQLSERVER数据库, 送1000MB邮局空间 ,支持WAP,CDN网站加速器 送繁简 通网络简
装版
适合 购物、招聘、旅游、银行、黄页类等大中型网站首选
▲至尊专用C型主机+.CN: 现特价3957元/年 WindowsServer2003 操作系统 ,支持ASP.NET/ASP ,
3000MB独立空间体积,独立带宽,SQLSERVER数据库 ,数据库空间不限大小; 数据库自动备份 ,1000MBVIP集
团邮局 ,免费送繁简通商务版 GCDN 网站加速器, 支持WAP 多子网站镜像加速 高级访问统计系统
空间免费申请:
http://www.now.cn/vhost
