28,409
社区成员




<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
</head>
<%
'数据库连接
dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath("zhongyi.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" '数据库连接地址
Set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<body>
<%
Sql="select xingming from mincheng "
Set mRs=Server.CreateObject("adodb.recordSet")
mRs.open sql,conn,1,1
If mRs.bof and mRs.eof then
Response.Write"<span>没有任何记录</span>"
Else
while not mRs.eof
response.Write mRs("xingming") & "<br>"
mRs.movenext
wend
End If
%>
</body>
<%
conn.close
mRs.close
set conn = nothing
set mRs = nothing
%>
</html>