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!try again":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
if mode=1 then '******************************************************************** | ||
注意:要运行上述ACCESS例程请先下载数据库,放在rwdata文件夹下。请将例程放在根目录下。 |
莆田空间域名网 ---制作外贸英文网站vps服务器中文自助建站
莆田域名注册,莆田外贸网站,莆田英文网站,莆田vps服务器,莆田外贸服务器,莆田自助建站
莆田一站式建设外贸英文网站中文网,提供莆田网站域名注册,国外贸vps服务器及自助建站,空易上手,不懂教会!
从域名到空间再到帮教会,说一站式就是一站式
无忧服务助你腾飞!
联系电话:13599020046(微信同号) qq在线:392051870 邮政编码:351100