原代码如下：
<%
Table = Request("Table")
If Request("Table") = "" Then Table = "authors"
%>
<html>
<head>
<title>SQL Server 连接范例</title>
</head>
<body bgcolor="#FFFFFF">
<form Action="firstSQL.asp" Method="GET">
<p><select name="Table" size="4">
<option value="authors">authors </option>
<option value="publishers">publishers </option>
<option value="titles">titles </option>
<option value="titleauthor">titleauthor </option>
</select><input type="submit" value=" 浏 览 "> </p>
</form>
<hr align="center">
<p align="center">数据表名称：<%=Table%></p>
<hr align="center">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={SQL Server};server=192.168.18.25;uid=sa;pwd=deng;database=pubs"
Set rs = conn.Execute( "Select * From " & Table )
RsToTable rs
%>
</body>
</html>
<%
' 将 Recordset 输出成HTML的表格
Sub RsToTable( rs )
' Part I：输出数据表的表头
Response.Write "<CENTER><TABLE BORDER=1>"
Response.Write "<TR BGCOLOR=#00FFFF>"
For i=0 to rs.Fields.Count-1
Response.WRITE "<TD>" & rs.Fields(i).Name & "</TD>"
Next
Response.Write "</TR>"
' Part II：输出数据表的内容
While Not rs.EOF
Response.Write "<TR>"
For i=0 to rs.Fields.Count-1
Response.WRITE "<TD>" & rs.Fields(i).value & "</TD>"
Next
Response.Write "</TR>"
rs.MoveNext
Wend
Response.Write "</TABLE></CENTER>"
End Sub
%>
