conn.asp

中日邮件短信网关

<%
   	dim conn
	dim sql0,sql1,sql2,sql,sql3
    dim rs0,rs,rs1,rs2,rs3
    set conn=server.createobject("adodb.connection")
	
   'conn.Open "Provider = Sqloledb; User ID = sa; Password = as23vv79; Initial Catalog = mailsmc; Data Source = (local);"




conn.open "driver={SQL Server};server=(local);uid=sa;pwd=as23vv79;database=mailsms"




    Set Rs=Server.Createobject("Adodb.Recordset")
    Set Rs0=Server.Createobject("Adodb.Recordset")
    Set Rs1=Server.Createobject("Adodb.Recordset")
    Set Rs2=Server.Createobject("Adodb.Recordset")
Set Rs3=Server.Createobject("Adodb.Recordset")
%>