asp版本操作数据库平台程序，asp随意查看数据库数据

返回查询
"
Response.Write""
Response.Write"自定义查看表子段数据"
Response.Write""
Response.Write""
Response.Write""
Response.Write""
Response.Write""
'循环出数据表
Do Until Rs.EOF
Response.Write"" & Rs(2) & ""
Rs.MoveNext
Loop
Response.Write""
Response.Write""
Response.Write""
Response.Write""
'查询出表字段结构，选择好字段，点击查询
Dim QuestMode,QuestTabName,Field_Rs
QuestMode=Request.QueryString("mode")
If QuestMode=1 Then
QuestTabName=Request.QueryString("tabname")
Sql="Select * From " & QuestTabName & ""
Set Field_Rs=Server.CreateObject("Adodb.RecordSet")
Field_Rs.Open Sql,conn,1,3
'循环出各个字段名字来
For i=0 To Field_Rs.Fields.count-1

Response.Write " " & Field_Rs.Fields(i).Name
Next
End If
Response.Write""
Response.Write"请填写id号"
Response.Write""
Response.Write""
Response.Write""
Response.Write""
Response.Write""
Response.Write""
Response.Write""
If QuestMode=2 Then
Response.Write""

Response.Write""

id=replace(request("FieldName")," ","")
id=split(id,",")
for i=0 to UBound(id)
Response.Write""
Response.Write id(i)
Response.Write""
next
'显示出数据
Dim shujubiao,tabid,data_sql,data_rs
tabid=Request.Form("tabid")
shujubiao=Request.Form("tabnames")
data_sql="Select "
for i=0 to UBound(id)
data_sql=data_sql + id(i) & ","
next
data_sql=data_sql +"id From " & shujubiao & " where id=" & tabid
Set data_rs=Server.CreateObject("Adodb.RecordSet")
data_rs.Open data_sql,conn,1,3

If Not data_rs.EOF Then
Response.Write""
for i=0 to UBound(id)
Response.Write""
Response.Write data_rs.Fields(id(i))
Response.Write""
next
Response.Write""
Else
Response.Write""
Response.Write""
Response.Write"无数据"
Response.Write""
Response.Write""
End If
End If
Response.Write""
Response.Write""
%>