connectasp.asp

来自「书中的例题」· ASP 代码 · 共 29 行

<!--*****************************************
*  程序文件名称：　ConnectASP.asp
*  功能：1、在IIS服务器端建立与后台数据库的连接。
*        2、响应客户端的查询请求，读取记录集。　
*******************************************-->
<%
  '建立到服务器端数据库j2metest.mdb的连接 
 Set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString="dbq="+Server.MapPath("j2metest.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)}"
 conn.open ConnectionString,1,1
 'SQL查询语句
 SQLstr="select * from message"
 Set rs=conn.execute(SQLstr) 
 count=rs.recordcount
'用循环结构读取全部记录，并发送给客户端
Do While Not rs.eof
  Response.Write "                        "  
  Response.Write "姓名："+ rs("name")
  Response.Write "                            "  
  Response.Write "密码："+ rs("passwd")
  rs.movenext 
loop
  rs.Close()
  conn.Close()
   Response.Write "          " 
   Response.Write("成功接收网络数据库的查询信息。")
   Response.Write("     successfully！ ")
%>