databaseconnect.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 29 行

<% 
set conn=server.createobject("adodb.connection")
conn.open "driver={sql server};server=xhxy.;uid=sa;pwd=;database=xhdlxy"
s="select sfzh as 身份证号,xm 姓名 from jbxxb where sfzh   > '55555'  order by sfzh  desc"
set rs=conn.execute(s)
if conn is nothing then
response.write "failure"
response.end
end if
%>
<table border=2>
<tr bgcolor=#0000ff>
<%
for i=0 to rs.fields.count-1
response.write "<td>"&rs(i).name&"</td>"
next
%>
</tr>
<%rs.movefirst
while not rs.eof
row="<tr>"
for i=0 to rs.fields.count-1
row=row&"<td>"&rs(i)&"</td>"
next
response.write row&"</tr>"
rs.movenext
wend
%>