2023年11月23日发(作者：)

asp连接SQL和Access数据代码（asp⾥的随机函数）

第⼀种写法：

复制代码 代码如下:

MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;"

Set conn = object("tion")

MM_conn_STRING

SET RS=Object("set")

SQL="SELECT * FROM TABLE ORDER BY ID DESC"

SQL,CONN,3,3

复制代码 代码如下:

DataServer = "jb51" '数据库服务器IP

DataUser = "jb51" '访问数据库⽤户名

DataBaseName = "jb51" '数据库名称

DataBasePsw = "" '访问数据库密码

Set conn = Object("tion")

ConnStr="driver={SQL

Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename

ConnStr

If Err Then :Set conn = Nothing: "数据库连接出错，请检查⽂件中的数据库参数设置。

":

使⽤ASP连接MS SQL数据库，标准的连接，常⽤的多的是下⾯这种连接字符串：

复制代码 代码如下:

"Provider=SQLOLEDB.1;"&_

"Password='"&pass_word&"';"&_

"Persist Security Info=true;"&_

"User ID='"&User_ID&"';"&_

"Initial Catalog='"&db&"';"&_

"Data Source='"&Data_Source&"';"&_

"CONNect Timeout="&cntimeout&""

描述：

Provider=SQLOLEDB.1;数据库提供者,后⾯的 1 是表⽰版本信息，如果没有就会完全使⽤当前最新版功能

User ID=SQL帐号，数据库的帐号

Password=SQL帐号密码，数据库的帐号密码

Initial Catalog=数据库名字（只有名字，⽽ACCESS的是具体带路径的数据⽂件）

Data Source=数据源,SQL服务器名或其IP，通常⽤IP

上五个参数缺⼀不可

关于Data Source：

如果 IIS 和 SQL 同⼀台服务器，则 使⽤安装 IIS的 IP 或 主机名HostName 或 (local)

例如：

//Data Source=(Local) '' IIS 与 SQL ⼀起则第⼀选择它！

//Data Source=212.100.1.12

//Data Source=LSS

如果 SQLserver 是在另外的机器上，⽐如你连接到我机器上的的 SQLserver ，就⽤我机器的 IP

//Data Source=208.190.21.112 '我的SQL server IP

CONNect Timeout=连接超时，是整数，缺省是30秒，可以不⽤

Persist Security Info= true or false 可以不⽤

理解SQL和ACCESS的区别：

ACCESS是⽂件型的数据库，⼀个数据库就是⼀个具体的 MDB⽂件，所以ACCESS的连接需要给出具体的数据库路径 Data

Source='c:'

⽽h()即是将 映射为 c:

SQLserver是S/C 客户端/服务器⽅式，与ACCESS完全不⼀样，所以访问SQL 2000的数据库需要建⽴客户端和服务器端的连

接，注意这个客户端是针对 SQL数据库服务器来说的

服务器端的脚本 对 SQLserver 来说也是“客户端应⽤程序”。

SQL的数据库物理上也是⼀个.MDF数据⽂件，但这与MDB是天壤之别的，SQL的MDF 可以说是⼀个数据库的集合,⾥⾯

包括了很多个数据库（⾥⾯的每个数据库有⼀个名字,每个数据库有相应的拥有者SchMa），⽽ACCESS的MDB是⼀个⽂件就

是⼀个数据库。

故访问SQL 数据库要指定其服务器IP 数据库帐号密码 数据库名（当然⽆路径可⾔）

⽽访问 ACCESS 只要访问 ACCESS的⽂件就⾏了。

现在要做的是，进⼊企业管理器，建⽴⼀个数据库（⽐如为AAA），在数据库中，建⽴添加数据库⽤户和密码，然后就

可以⽤上⾯的连接字符串来连接了！

//第⼆种写法：（DSN连接）

MM_conn_STRING="DSN=BBS;UID=SA;PWD=12345"

Set conn = object("tion")

MM_conn_STRING

SET RS=Object("set")

SQL="SELECT * FROM TABLE ORDER BY ID DESC"

SQL,CONN,3,3 // 3,3是修改、删除、增加开关！

//第三种写法：

MM_conn_STRING_own = "Driver={SQL Server};server=(local);uid=sa;pwd=11111;database=infs;"

Set conn = object("tion")

MM_conn_STRING_own

//第四种 - 这种⽅法⽤在ACCESS中

strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _

& h("")

set conn = object("tion")

strconn

我们常⽤的sqlserver与access都可以⽤的函数

复制代码 代码如下:

<%

Const DataBaseType=1

If DataBaseType=0 then

DBPath="/data/" //mdb数据库路径

Else

'如果是SQL数据库，请认真修改好以下数据库选项

DataServer = "jb51" '数据库服务器IP

DataUser = "jb51" '访问数据库⽤户名

DataBaseName = "jb51" '数据库名称

DataBasePsw = "" '访问数据库密码

End if

On Error Resume Next

If DataBaseType = 1 Then

ConnStr="driver={SQL

Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename

Else

ConnStr = "Provider=.4.0;Data Source=" & h(DBPath)

End If

Set conn = Object("tion")

ConnStr

If Err Then :Set conn = Nothing: "数据库连接出错，请检查⽂件中的数据库参数设置。

":

%>

连接MSSQL代码(附加判断代码)：

复制代码 代码如下:

<%

dim cn

set cn=object("tion")

tionstring="driver={SQL server};server=taihang;datebase=taihang;uid=sa;pwd=hacker"

If =1 Then

"数据库连接对象已打开"

Else

"数据库连接对象未打开"

end If

Set cn=nothing

%>

连接Access常⽤⽅法：

复制代码 代码如下:

Dim conn,strDataPath,connStr

set conn=object("tion") '//定义数据库连接对象

strDataPath=h("") '//数据库路径字符串

connStr="Provider=.4.0;Data Source=" & strDataPath '//数据库连接

connStr

也可以⽤：

复制代码 代码如下:

Dim conn,strDataPath,connStr

set conn=object("tion") '//定义数据库连接对象

strDataPath=h("") '//数据库路径字符串

connStr="driver={Microsoft Access Driver (*.mdb)};dbq=" & strDataPath '//数据库连接

connStr

注解：

因为我们想打开的是Access(.mdb)数据库，所以我们要透过Access的ODBC驱动程序{Microsoft Access Driver (*.mdb)}来

存取数据库，dbp参数则是⽤来指定想打开的数据库⽂件，因为它必须是完整路径名称，所以我们上⼀语句⽤了

h 函数 。

上⾯常⽤⽅法中⼀般为简洁起见也可⼀⽤下⾯⼀句

"Provider=.4.0;Data Source=" & h ("/") & ""

⼀般直接使⽤ .4.0 ⼀层接⼝:

"Provider=.4.0;Data Source=" & h ("/") & ""

避免使⽤ Microsoft OLEDB Provider for ODBC Drivers + Microsoft Access Driver (*.mdb)(Access 的 ODBC Driver)两层接⼝:

"PROVIDER=MSDASQL.1;Driver=Microsoft Access Driver(*.mdb);DBQ=" & h ("/") &

"

ACCESS数据库连接代码（⼀）

复制代码 代码如下:

<%

Set con = Object("tion")

"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & h("数据库⽂件路径")

%>

ACCESS数据库连接代码（⼆）

复制代码 代码如下:

<%

dim conn,cqie

conn="provider=.4.0;data source=" & h("数据库⽂件路径")

set cqie=object("tion")

conn

%>

asp⾥的简单随机函数

复制代码 代码如下:

<%

dim a,b,c

a=1310:b=9215

randomize