问题描述:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
option explicit
dim conn,strCon,db
Dim strSQLServerName
Dim strSQLDBUserName
Dim strSQLDBPassword
Dim strSQLDBName
'请填写数据库具体参数
'-----------------------------------------------------------------------------------------------
strSQLServerName="****" '服务器名称或地址
strSQLDBUserName="**" '数据库帐号
strSQLDBPassword="**" '数据库密码
strSQLDBName="****" '数据库名称
'-----------------------------------------------------------------------------------------------
'SQL Server OLE Driver
Set conn=Server.CreateObject("ADODB.Connection")
strCon="Provider=SQLOLEDB.1;Persist Security Info=False;Server="&strSQLServerName&";User ID="&strSQLDBUserName&";Password="&strSQLDBPassword&";Database="&strSQLDBName&";"
conn.Open strCon
dim rs
set rs=Server.CreateObject("ADODB.Recordset")
sub rsop(table,action1,action2)'查询,添加,修改记录
if rs.state=1 then rs.close
rs.open table,conn,action1,action2
end sub
sub objectclose()'关闭对象
if rs.state=1 then rs.close
set rs=nothing
conn.close
set conn=nothing
end sub
%>
问题解答:
strSQLServerName="****" '服务器名称或IP地址
strSQLDBUserName="**" '数据库帐号
strSQLDBPassword="**" '数据库密码
数据库名称 就不要了,填写以上信息后你验证下是够能够连接成功,如果成功你就读取它上面有什么数据库,然后让用户选择下就行了,如果你让用户填写的话,用户会写错的!