战舰世界 登陆不上:求ASP和SQL连接的代码

来源:百度文库 编辑:高考问答 时间:2024/04/29 00:41:46
re

1\SQL数据库连接:
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
connstr="driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
<I>function</I> CloseDatabase
Conn.close
Set conn = Nothing
End <I>function</I>
%>

2\ ASP与SQL数据库连接:

<%@ language=VBs cript%>
<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
%>

ConnStr = "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=123456;database=db"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr