数据库链接

ACCESS

dim con,rs,str

function setcon(filename)
   set setcon=server.createobject("ADODB.connection")
   setcon.connectionstring="provider=microsoft.jet.OLEDB.4.0;data source="&server.mappath(filename)
   setcon.open
end function

set con=server.createobject("ADODB.connection")
set rs=server.createobject("ADODB.recordset")

SQL SERVER

function sqlcon(filename)
   set sqlcon=server.createobject("adodb.connection")
   sqlcon.open "driver={SQL Server};server=mmx200;uid=sa;pwd=qiren5761;database=" & filename
end function