asp 数据查询

SET rs=conn.Execute("select jhbianhao from shuji ")

response.write rs("jhbianhao") '循环你自己写

rs.close
set rs=nothing

conn是连接数据库建立的对象，如下：
<%
'********************************
'1为MYSQL数据库 0为ACCESS数据库
'********************************
Dim Database
Dim MySql,Conn
Dim db1,cttr
Database = 1
IF Database=0 THEN
db1="mydatabase_feel/my#database##ggd.mdb"
Set Conn= Server.CreateObject("ADODB.Connection")
cttr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath(db1)
Conn.Open cttr
ELSEIF Database=1 THEN
'连接MYSQL数据库 第一种方法 直接写数据库名和密码连接
Set Conn = Server.CreateObject("ADODB.Connection")
MySql = "Driver={MySQL ODBC 5.1 Driver};server=localhost;uid=root;pwd=数据库密码;database=数据库名"
Conn.Open MySql
END IF
'-- 释放数据库连接