<SCRIPT LANGUAGE=VBscript RUNAT=server>
sub session_onstart
Session.Timeout=300
End sub
sub session_onend
end sub
sub application_onstart
application("ConnectString")="provider=sqloledb;data source=10.0.0.116;uid=sa;pwd=mysql;database=dname" //写成自己的属性
End sub
sub application_onend
application("conn").Close
set application("conn")=nothing
End sub
</script>
///////////////////////////////////////connect.asp
Sub ConnectServer()
dim Cn
dim m_String
Set Cn=Server.CreateObject("ADODB.Connection")
m_String=Application("ConnectString")
Cn.Open m_String
Set Application("conn")=Cn