关于ASP网页的数据库设置

'=====设置数据库类型1为MSSQL,2为ACCESS====

const IsLoveSql=1 '你的是MSSQL数据库，所以这里设置为1

if IsLoveSql=2 then

Const SqlDatabaseName = "AspXP_love"

Const SqlPassword = "AspXP_SQL_Net"

Const SqlUsername = "AspXpLove"

Const SqlLocalName ="(local)"

else

Db="db.asp"

end if

sub opendb( )

dim Connstr

if IsLoveSql=1 then

ConnStr = "Provider = Sqloledb

User ID = " &SqlUsername &"'这里把SqlUsername替换成你的数据库用户名

Password = " &SqlPassword &" '这里把SqlPassword替换成你的数据库密码，空密码就删掉SqlPassword

Initial Catalog = " &SqlDatabaseName &" '这里把SqlDatabaseName替换成你的主数据库名

Data Source = " &SqlLocalName &"" '这里把SqlLocalName替换成你的数据库服务器IP

else

ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0Data Source = " &Server.MapPath(db)

asp连接数据库的代码为：

Set

conn

=

Server.CreateObject(ADODB.Connection)

conn.Opendriver={SQLServer}server=202.108.32.94uid=wu77445pwd=p780522database=w

ww_panwei_comconn

open其中/Set

conn

=

Server.CreateObject(ADODB.Connection)为设置一个数据库的连接对象

driver=（）告诉连接的设备名是SQL-SERVER

server是连接的服务器的ip地址，Uid是指用户的用户名，pwd是指的用户的password，

database是用户数据库在服务器端的数据库的名称

先建立数据库

然后再打开

<%

Option Explicit

dim databasename '定义数据库名称

databasename="database.mdb" '数据库名称

dim databasepath '定义数据库存放路径

databasepath="D:\database\" '数据库绝对路径

dim databasever '定义数据库版本 2000 或者 97

databasever = "2000"

Function Createdfile(FilePath,FileName,Ver)

Dim Ca,dbver

select case ver

case "97"

dbver = "3.51"

case "2000"

dbver = "4.0"

end select

if dbver <>"" then

Set Ca = Server.CreateObject("ADOX.Catalog")

call Ca.Create("Provider=Microsoft.Jet.OLEDB." &dbver &"Data Source=" &filepath &filename)

end if

End Function

Createdfile databasepath,databasename,databasever '创建数据库

%>

然后就是重新打开数据库了，应该没有问题了

---