正在加载图片...
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR Set rsMessages=Server CreateObject("ADODB. Recordset") strSqlselectMessages="SELECT" FROM guestbook messages ORDER BY date ISelectMessages, connDemo, 3, 3 <-结果输出(以供选择)-> <htm> <head> <metahttp-equiv="content-type"content="text/html;charset=gb2312"> <tf。功能模块“留言板”</lile> function Open newwinwindow. open(url,"blank","toolbar=no, location=no, directories=no, status=no,"+ menubarno, scrollbars=yes, resizable-yes, " top=50, left=120, width=600, height=400") return false </SCRIPT> <hhead> <body bgcolor="#COCOCO"> table width=550"height=18> <td width="326"height=15"> < font face="华文行楷"sie="8">留言板  ,  :;  :     &nbs </td> <td width=210"height=17> ef="select record gue. asp"> 首页<a> , ,< a href=" add record gue. htm">留言 a> " logon. asp">管理 </d> </u> <td colspan=2"width=542"1"> If Not rsMessages Eof ThenSet rsMessages = Server.CreateObject("ADODB.Recordset") strSqlSelectMessages="SELECT * FROM guestbook_messages ORDER BY date" rsMessages.Open strSqlSelectMessages, connDemo,3,3 %> <!--结果输出(以供选择)--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>功能模块“留言板”</title> <SCRIPT> function OpenWindows(url){ var newwin=window.open(url,"_blank","toolbar=no,location=no,directories=no,status=no,"+ "menubar=no,scrollbars=yes,resizable=yes,"+ "top=50,left=120,width=600,height=400"); return false; } </SCRIPT> </head> <body bgcolor="#C0C0C0"> <table width="550" height="18"> <tr> <td width="326" height="15"> <font face="华文行楷" size="8">留言板   ; </font> </td> <td width="210" height="17"> <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> <% If Not rsMessages.Eof Then