水潋青绡锦衣染妈妈网:谁能具体点帮助我！！ASP+SQL连接数据库

先建立一个Global.asa文件（必须放在web应用的根目录），内容如下：
<script language=vbscript runat=server>

sub Session_OnStart()

'创建Connection对象
set Application("cn")=Server.CreateObject("ADODB.Connection")

'打开Connection对象
Application("cn").Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=用户名;Password=密码;Initial Catalog=默认数据库名;Data Source=主机名\实例名"

end sub

sub Session_OnEnd()
'释放Connection对象
set Application("cn")=nothing
end sub

</script>

如果SQL Server安装时没有创建实例（即用了默认的），上面的连接字符串中的Data Source参数可直接写主机名，而不用后的\实例名。
如果数据库不是用SQL Server，把整个连接字符串改写为相应的就行了。

接着就可在asp文件中访问了，如：
<%
'创建RecordSet对象
set rs=Server.CreateObject("ADODB.Recordset")

'打开RecordSet对象
rs.Open "Select * from 表名",Application("cn")

while(not rs.EOF)
{
Response.Write rs.Fields("字段名")
}
%>

当然，你以后还可利用连接池的方式提高性能
如果还不知道怎么做，最好结合书看看。

应该够具体了吧，要+分哦。
:)

<%
'Asp连SQLServer数据库(本地数据库)
dim conn,connstr

connstr="Provider = Sqloledb; User ID =sa; Password =123123; Initial Catalog =vote; Data Source =(local);"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err then
Err.Clear
Set conn = Nothing
Response.Write "系统调整中"
Response.End
End If
%>

<%
'Asp连SQLServer数据库(远程数据库)
dim conn,connstr

connstr="Provider = Sqloledb; User ID =hm; Password =newfeel; Initial Catalog =vote; Data Source =192.168.168.38;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err then
Err.Clear
Set conn = Nothing
Response.Write "系统调整中"
Response.End
End If
%>

<%
dim MM_gbook_STRING,db,conn
db="database/Shop.mdb" '数据库路径及名称
Set conn = Server.CreateObject("ADODB.Connection")
MM_gbook_STRING="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open MM_gbook_STRING
%>

'带密码
dim conn
set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath("mydata.mdb")&";uid=id;pwd=pwd"
这个给行