正在加载图片...
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR strDSN="ProviderMSDASQL, DRIVER=ISQL ServerI: SERVER=127.0.0. 1, DATABASE=Demo UID=chen PWD=123 Set connDemo= Server CreateObject("ADODB Connection") 建立记录集存放查询结果 Dim strSqlselectMessages Set rsMessages=Server CreateObject("ADODB. Recordset") strSqlselectMessages="SELECT* FROM guestbook messages WhERE id="& id rsMessages. Open strSqlselectMessages, connDemo <!-显示结果-> htmI> <head> <metahttp-equiv="content-type"content="text/html;charset=gb2312> <te功能模块“留言板”</itle> <body bgcolor="#COCOC0"> table width="550" height=23"> font face="华文行楷"size="8">留言板 <a href"select record gue. asp"> 首页</a> , ,< a href==" add record gue. htm">留言 管理<a>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 rsMessages Dim strSqlSelectMessages Set rsMessages = Server.CreateObject("ADODB.Recordset") strSqlSelectMessages="SELECT * FROM guestbook_messages WHERE id=" & id & "" rsMessages.Open strSqlSelectMessages,connDemo %> <!--显示结果--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>功能模块“留言板”</title> </head> <body bgcolor="#C0C0C0"> <table width="550" height="23"> <tr> <td width="326" height="19"> <font face="华文行楷" size="8">留言板   ; </font> </td> <td width="210" height="19"> <a href="select_record_gue.asp"> 首页</a> <a href="add_record_gue.htm"> 留言 </a> <a href="logon.asp">管理</a> </td> </tr> <tr> <td colspan="2" width="542" height="1"> <hr> </td> </tr> </table>