so easy ,first you should write a asp file .in this file you write the function that connecte the database .then in the asp file that you want to use the function ,add the sentence "#include name.asp" then you can use the function .
ok every thing done.
在global.asa中的application_onstart事件
set conn=server.createobject("adodb.connection")
application("conn")=conn.open "……"
调用的时候这样
set rs=application("conn").Execute("………………")
你看看,行吗?
sub session_onstart
set session("cn_myconnection")=server.createobject("adodb.connection")
session("cn_myconnection").open "driver=sql server;server=(local);uid=lysname;pwd=abcd;database=mydb"
end sub
试试rs_myrecordset.open "select * from mytable",session("cn_myconnection"),1,1
有错误出现: 当我使用rs_myrecordset.open "select * from mytable" session("cn_myconnection"),3,1 时出现以下出错指示
“变量或者类型不正确,或者不在可以接受的范围之内,要不就是与其他数据冲突。 ”
global.asa中的内容为
<script language=vbscript runat=server>
sub session_onstart
set session("cn_myconnection")=server.createobject("adodb.connection")
session("cn_myconnection").open "driver={sql server};uid=lysname;pwd=abcd;database=mydb;server=server"
session("str_cnstr")="driver={SQL Server};UID=SA;server=server;PWD=SA;database=hs"
'cn.Open "driver={SQL Server};server=server;uid=aa;pwd=sa;database=hs"
end sub
</script>
最好是在global.asa中的Session_onstart事件:
Set Session("Conn")=Server.CreateObject("ADODB.Connection")
Session("Conn").Open "driver=sql server;server=(local);uid=;password=;DSN="
在Session_onend事件:
Session("Conn").close
Set Session("Conn")=Nothing
只能这样了
在global.asa中的application_onstart事件
set application("conn")=server.createobject("adodb.connection")
application("conn").open
调用的时候这样
set rs=application("conn").Execute("………………")
<body bgcolor="#FFFFFF" text="#000000">
<table border>
<% dim rs
set rs=server.createobject("adodb.recordset")
'rs.open "select * from lx",application("myconnection"),3,1
set rs=session("cn_myconnection").execute("select * from lx")
%>
<% for i=0 to rs.fields.count-1 step 1 %>
<th nowrap><%=rs.fields(i).name%> </th>
<% next %>
<% do while not rs.eof %>
<tr bordercolor="#99FFFF">
<% for i=0 to rs.fields.count-1 step 1 %>
<% if i=8 then %>
<td nowrap><a href="<%=rs.fields(i).value%>" target="_blank"><%=rs.fields(i).value %></a>
<% elseif i=7 then %>
<td nowrap><a href=mailto:"<%=rs.fields(i).value %>"> <%=rs.fields(i).value %></a>
<% else %>
<td nowrap><%=rs.fields(i).value%>
<% end if %>
<% next %>
<% rs.movenext %>
<% loop %>
</table>
<script language="vbscript" runat=server>
SUB APPLICATION_ONSTART
application("myconnection")="server=server;uid=lys;pwd=123!@#;database=lys;driver={SQL Server}"
set cn_mycn=server.createobject("adodb.connection")
cn_mycn.open "server=server;uid=lys;pwd=123!@#;database=lys;driver={SQL Server}"
set conn=server.createobject("adodb.connection")
application("conn")=conn.open "server=server;uid=lys;pwd=123!@#;database=lys;driver={SQL Server}"
END SUB
</script>
<script language=vbscript runat=server>
sub session_onstart
set session("cn_myconnection")=server.createobject("adodb.connection")
session("cn_myconnection").open "driver={sql server};uid=lys;pwd=123!@#;database=lys;server=server"
session("str_cnstr")="driver={SQL Server};UID=SA;server=server;PWD=SA;database=hs"
'cn.Open "driver={SQL Server};server=server;uid=sa;pwd=sa;database=hs"
end sub
</script>