ASP 如何实现查询 数据库文件！

分类: 电脑/网络 >>程序设计 >>其他编程语言

解析:

连接access数据库

asp数据库

一、

<%

dim conn

dim dbpath

set conn=server.createobject("adodb.connection")

DBPath = Server.MapPath("8301")

conn.Open "driver={Microsoft Access Driver (*.mdb)}dbq=" &DBPath

%>

二、

<%

Set Conn=Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("rc/lzh")+"DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"

Conn.Open connstr

%>

dim ipconn

set ipconn=server.createobject("ADODB.CONNECTION")

ipconn.open "DBQ="&server.mappath("ip.mdb")&"DRIVER={Microsoft Access Driver (*.mdb)}"

dim rs,sql

Set rs = Server.CreateObject("ADODB.Recordset")

sql="select top 1 ip_b,ip_c from ip where (ip_s<=" &ip &" and ip_e>=" &ip &")"

rs.Open sql,ipconn,1,1

if rs.eof or rs.bof then

getaddress="未知|未知"

Else

getaddress=rs(0)&"|"&rs(1)

end if

mdb数据库

一、

<%dim coon

Set Conn=Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("***********/123.mdb")+"DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"

Conn.Open connstr

%>

二、

dim conn

set conn = server.createobject("adodb.connection")

conn.open = "provider=microsoft.jet.oledb.4.0" &"data source = " &server.mappath("../db/bbs.mdb")

三、

<%@ language=VBs cript%>

<%

dim conn,mdbfile

mdbfile=server.mappath("数据库名称.mdb")

set conn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver (*.mdb)}uid=adminpwd=数据库密码dbq="&mdbfile

%>

set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")

DBPath = Server.MapPath("customer.mdb")

dbconnection.Open "driver={Microsoft Access Driver (*.mdb)}dbq=" &DBPath

SQL="select * from auth where id='" &user_id &"'"

SET uplist=dbconnection.EXECUTE(SQL)

2.

set dbconnection=Server.CreateObject("ADODB.Connection")

DBPath = Server.MapPath("customer.mdb")

dbconnection.Open "provider=microsoft.jet.oledb.4.0data source="&dbpath

SQL="select * from auth where id='" &user_id &"'"

SET uplist=dbconnection.EXECUTE(SQL)

3.

DBPath = Server.MapPath("customer.mdb")

set session("rs")=Server.CreateObject("ADODB.Recordset")

' rs=Server.CreateObject("ADODB.Recordset")

connstr="provider=microsoft.jet.oledb.4.0data source="&dbpath

SQL="select * from auth where id='" &user_id &"'"

session("rs").Open sql,connstr,1,3

4.

建odbc源xxx

set conn=server.createobject("Adodb.connection")

conn.open "DSN=xxxUID=PWD=Database=customer

SetConn=Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("aaa/bbspp1.mdb")+"DefaultDir=

DRIVER={Microsoft AccessDriver(*.mdb)}DriverId=25FIL=MSAccess

ImplicitCommitSync=Yes

MaxBufferSize=512MaxScanRows=8PageTimeout=5SafeTransactions=0

Threads=3UserCommitSync=Yes"

Conn.Openconnstr

说明： 其中SetConn=Server.CreateObject("ADODB.Connection")为建立一个访问数据的对象， server.mappath(aaa/bbspp1.mdb)是告诉服务器access数据库访问的路径

conn的内容如下：

<%

dim conn,rs

set conn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver (*.mdb)}dbq="&server.mappath("mdb/mfkiqpl.mdb ")

set rs=server.createobject("adodb.recordset")

set rs.activeconnection=conn

%>

还不懂啊 加偶的QQ 直接问吧

1G免费ASP、PHP空间，支持FTP！！！

http://hypnos.dns0755.net/

ASP免费空间

支持ASP+Access（暂不支持ASP.NET及SQL Server）

·支持JMAIL

·支持ASPJPEG

·支持动易组件

·单文件限512KB（ASP/.mdb数据库文件除外）

PHP免费空间

·支持PHP，安全模式运行

·支持MySQL数据库（MySQL在1G内自由分大小）

·支持GD库

·支持ZEND加密

·支持泛域名绑定（*记录绑定）

·单文件限512KB（PHP,.txt文件除外）

·1G超大空间，可开设多个虚拟主机（如开1个ASP及1个PHP网站）

·支持国际域名或二级域名，每个虚拟主机还可绑定别名（主域名外还可使用其它域名）

·支持FTP管理

·使用本公司收费控制平台。

·不限申请时间及申请条件。

·单站512Kb带宽，10个连接数。

没有这样的工具，如果是本地电脑上使用有aspbox和很多类似软件，做APP是没有的。你可以考虑使用HTML+JS的方式倒是可以，也有很多打包HTML称为APP的东西。既然你是单文件ASP，应该使用JS都是可以搞定的。ASP只能运行在win主机上，手机上能打包也运行不起来。

---