<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=sqldb;Data Source=localhost"
set rs1 = Server.CreateObject("ADODB.RecordSet")
sql="select * from ApplyCase"
rs1.Open sql,conn,1,1
if rs1.recordcount>0 then
...
else
...
end if
<%
dim a,b,c
set a=server.createobject("adodb.connection")
a.open"driver={ sql server};server=gg;uid=ss;pwd=12331233;database=student"
b="select * from xsjk"
set c=server.createobject("adodb.recordset")
c.open b,a
response.write c("user")&"<br>"