1、
<%
dim a,b,c
set a=server.createobject("adodb.connection")
a.open"driver={ sql server};server=msde实例名或机器名;uid=sa;pwd=;database=数据库名"
b="select * from xsjk"
set c=server.createobject("adodb.recordset")
c.open b,a
response.write c("user")&"<br>"
%>
3、
<%
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
%>
4、
create procedure p_del
@var_name varchar(30)
as
exec('drop table '+@var_name)
go