下面作者将提供一个简单但实用的运用 SQL 语句查询的 ASP 程序供大家参考。

　　为了使大家更清楚更直接地了解 SQL 语法在 ASP 中的应用，我们先将查询的所有核心过程写成一个名为 query2table 的 SUB，然后利用 ASP 的服务器端包容功能调用该 SUB。请将以下语句剪贴到记事簿，保存为 subdbtable.inc 文件，并置于虚拟目录 asptest 下 :

　　< %

　　sub query2table(inputquery)

　　set conntemp=server.createobject("adodb.connection")

　　conntemp.open "DSN=Student;uid=student;pwd=aspmagic"

　　set rstemp=conntemp.execute(inputquery)

　　howmanyfields=rstemp.fields.count -1

　　' 统计数据库中的列数

　　%>

　　< table border=1>< tr>

　　< %

　　for i=0 to howmanyfields

　　%>

　　< td>< b>< %=rstemp(i).name%>< /B>< /TD>

　　< % next %>

　　< /tr>

　　< %

　　do while not rstemp.eof

　　%>

　　< tr>

　　< % for i = 0 to howmanyfields

　　thisvalue=rstemp(i)

　　If isnull(thisvalue) then

　　thisvalue="?

　　' 如果字段为空，则将变量 thisvalue 的值定义为一个空格

　　end if%>

　　< td valign=top>< %=thisvalue%>< /td>

　　< % next %>

　　< /tr>

　　< %rstemp.movenext

　　loop%>

　　< /table>

　　< %

　　rstemp.close

　　set rstemp=nothing

　　conntemp.close

　　set conntemp=nothingend sub%>

　　完成了 SUB 的定义过程，在下面几个 ASP 程序中我们只要加入想要使用的 SQL 查询语句，并调用该过程就可以非常方便的得到查询结果。将以下四段代码分别保存为 asp11a.asp、asp11b.asp、asp11c.asp、asp11d.asp 四个 .asp 文件。