正在加载图片...
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR id=Request QueryString("id") 建立一个到数据源的连接 Dim conn Demo strDSN="ProviderMSDASQL DRIVER=(SQL Server: SERVER=127.0.0.1: DATABASE=Demo UID=chen, PWD=123 Set conn Demo= Server CreateObject("ADODB Connection") connDemo. Open strDSN 建立记录集存放查询结果 Dim strsql Set rsUsers= Server CreateObject("ADODB. Recordset") strSqlSelectUsers="SELECT* FROM users WhERE id="& id rsUsers. Open strSqlselectUsers, connDeme <!-显示结果-> <metahttp-equiv="content-type"content="text/html;charset=gb2312"> <te→基础模块“选择记录,显示记录详细内容”之“显示记录详细内容 <body bgcolor"#COCOC0"> < font face="华文行楷"sie="6">显示记录详细内容<ont><hl> <h3>您所选择的记录的详细内容为:</h3> <form> <p style="line-height: 100%">        :;    ,   bsp;     &n bsp;    ,  :  ,    ,   &nbs < font faces="华文新魏">姓名: ,<% rsUsers(" username")%电话 p style=" line-height:100%">< font face="华文新魏">       :;   nbsp;  :;  :  :    :;  : &nDim id id=Request.QueryString("id") '建立一个到数据源的连接 Dim strDSN Dim connDemo strDSN="Provider=MSDASQL;DRIVER={SQL Server};SERVER=127.0.0.1;DATABASE=Demo;UID=chen;PWD=123" Set connDemo = Server.CreateObject("ADODB.Connection") connDemo.Open strDSN '建立记录集,存放查询结果 Dim rsUsers Dim strSqlSelectUsers Set rsUsers = Server.CreateObject("ADODB.Recordset") strSqlSelectUsers="SELECT * FROM users WHERE id=" & id & "" rsUsers.Open strSqlSelectUsers,connDemo %> <!--显示结果--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>基础模块“选择记录,显示记录详细内容”之“显示记录详细内容”</title> </head> <body bgcolor="#C0C0C0"> <p> <font face="华文行楷" size="6">显示记录详细内容</font></h1> </p> <h3>您所选择的记录的详细内容为：</h3> <form> <p style="line-height:100%"> & nbsp; &n bsp; &nbs p; <font face="华文新魏">姓名 ： <%=rsUsers("username")%> 电话： <%=rsUsers("phone")%></font></p> <p style="line-height: 100%"><font face="华文新魏"> & nbsp; &n