電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR <table border="I"cellpadding="8"cellspacing="0"width="613"height="41"> < th width="35l" height="16">发言主题<th> < th width="62" height="16">发言者<h> < th width="15" height="16">发言时间</th> </t Do While Not rsMessages Eof <td width="368"height="1"> <a href=list sele record gue. asp?id=<% =rsMessages("id")%> onClick=return Open Windows( this href) ><font face=*M size=2"><% -rsMessages("subject")%></font</a> </td> <td width=94"height="I"><font face=*"size=2"><% -rsMessages("username")%></font</td> <td width="128" height="1"><font face="*M size=2"><% Messages MoveNext End If </htmI> < Option Explicit %> 接受表单输入的数据 建立一个到数据源的连接 Dim strdsN%> <table border="1" cellpadding="8" cellspacing="0" width="613" height="41"> <tr> <th width="351" height="16" >发言主题</th> <th width="62" height="16" >发言者</th> <th width="151" height="16" >发言时间</th> </tr> <% Do While Not rsMessages.Eof %> <tr> <td width="368" height="1"> <a href="list_sele_record_gue.asp?id=<% =rsMessages("id") %>" onClick='return OpenWindows(this.href);'><font face="宋体" size="2"><% =rsMessages("subject") %></font></a> </td> <td width="94" height="1"><font face="宋体" size="2"><% =rsMessages("username") %></font></td> <td width="128" height="1"><font face="宋体" size="2"><% =rsMessages("date") %></font></td> <% rsMessages.MoveNext Loop End If %> </table> </body> </html> <list_sele_record_gue.asp 源程序> <% Option Explicit %> <% '接受表单输入的数据 Dim id id=Request.QueryString("id") '建立一个到数据源的连接 Dim strDSN Dim connDemo