' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
dbpass = request("password")
session("dbpass") = dbpass
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % request table 從之前的form
' % 詏定 session 變數因此可以讀取這個值作為下次查詢使用
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
dbtable = request("table")
session("dbtable") = dbtable
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % request field 從之前的form
' % 詏定 session 變數因此可以讀取這個值作為下次查詢使用
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
dbfield = request("field")
session("dbfield") = dbfield
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % request table 從之前的form
' % 詏定 session 變數因此可以讀取這個值作為下次查詢使用
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
dbwhere = request("where")
session("dbwhere") = dbwhere
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 檢查是否有任何要求的變數是blank, 如果有會通知使用者何者
' % 是blank ，反之繼續query
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if dsn = "" or dbuser = "" or dbtable = "" then
response.write "error in sql statement:<br>"
if dsn = "" then
response.write "<font color=red>missing system dsn</font><p>"
end if
if dbuser = "" then
response.write "<font color=red>missing username</font><p>"
end if
if dbtable = "" then
response.write "<font color=red>missing tablename</font><p>"
end if
response.write "<form action=adoselect.asp><input type=submit
value=requery></form>"
else
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 產生 conn object ，開啟時
' % 帶適參數 system dsn, userid, password
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.open dsn, dbuser, dbpass
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 建立 sql 敘述乲指定到變數 sql.
' $ 遙接 dbtable 以及select 敘述
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if dbfield = "" or dbwhere ="" then
sql="select * from " & dbtable
else
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 如果 dbfield 和 dbwhere 被定，接著
' % 改變sql 敘述使用 where 子句
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'
sql="select * from " & dbtable
sql = sql & " where " & dbfield
