asp获取表结构，并返回特定结果

网络整理 - 09-06

只写了很简单的数据类型，对于更多的数据类型，请更改代码

<%
Dim TblName : TblName = SafeSql(GetRequest("tbl","",1,0))%>
<form id="form1" name="form1" method="post" action="table.asp?action=show">
<input type="text" name="tbl" id="tbl" value="<%=TblName%>" />
<input type="submit" name="button" id="button" value="提交" />
</form>
<%
Dim Action : Action = GetRequest("action","GET",1,0)
If Action = "show" Then
Call Show()
End If
Sub Show()
Dim Rs,i,iCount : Set Rs = ExecuteSql("select top 1 * from " & TblName)
iCount = 0
For i = 0 To Rs.Fields.Count - 1
If iCount > 0 Then Response.Write ","
Response.write Rs(i).Name
iCount = iCount + 1
Next
Response.Write "<br />"
For i = 0 To Rs.Fields.Count - 1
Response.write i & " " & Rs(i).Name & "<br />"
Next
Response.Write "<br />insert into " & TblName & "("
iCount = 0
For i = 0 To Rs.Fields.Count - 1
If LCase(Rs(i).Name)<>"id" Then
If iCount > 0 Then Response.Write ","
Response.write Rs(i).Name
iCount = iCount + 1
End If
Next
Response.Write ") values("
iCount = 0
For i = 0 To Rs.Fields.Count - 1
If LCase(Rs(i).Name)<>"id" Then
If iCount > 0 Then Response.Write ","
If Rs(i).Type = 202 Then
Response.write "'""&" & Rs(i).Name & "&""'"
Else
Response.write """&" & Rs(i).Name & "&"""
End If
iCount = iCount + 1
End If
Next
Response.Write ") <br />update " & TblName & " set "
iCount = 0
For i = 0 To Rs.Fields.Count - 1
If LCase(Rs(i).Name)<>"id" Then
If iCount > 0 Then Response.Write ","
If Rs(i).Type = 202 Then
Response.write Rs(i).Name & "='""&" & Rs(i).Name & "&""'"
Else
Response.write Rs(i).Name & "=""&" &Rs(i).Name & "&"""
End If
iCount = iCount + 1
End If
Next
Response.Write "where ID=""&ID<br />"
For i = 0 To Rs.Fields.Count - 1
If LCase(Rs(i).Name)<>"id" Then
Response.write "Rs(""" & Rs(i).Name & """) = " & Rs(i).Name & "<br />"
End If
Next
Rs.Close : Set Rs = Nothing
End Sub
%>
------------------------------------------------------------------------------------------
结果
------------------------------------------------------------------------------------------
这个是将查询放进数组时，查询的字段
Id,Title,eName,Parent,Child,Url,Sort,UpImg,Content,Template,ArtTemp,PubDate,IsLock,ItemTemplate
对应的数组中某字段的索引号
0 Id
1 Title
2 eName
3 Parent
4 Child
5 Url
6 Sort
7 UpImg
8 Content
9 Template
10 ArtTemp
11 PubDate
12 IsLock
13 ItemTemplate
插入操作
insert into Mall_acata(Title,eName,Parent,Child,Url,Sort,UpImg,Content,Template,ArtTemp,PubDate,IsLock,ItemTemplate) values('"&Title&"','"&eName&"',"&Parent&","&Child&",'"&Url&"',"&Sort&",'"&UpImg&"',"&Content&","&Template&","&ArtTemp&","&PubDate&","&IsLock&","&ItemTemplate&")
更新操作
update Mall_acata set Title='"&Title&"',eName='"&eName&"',Parent="&Parent&",Child="&Child&",Url='"&Url&"',Sort="&Sort&",UpImg='"&UpImg&"',Content="&Content&",Template="&Template&",ArtTemp="&ArtTemp&",PubDate="&PubDate&",IsLock="&IsLock&",ItemTemplate="&ItemTemplate&"where ID="&ID
更新操作
Rs("Title") = Title
Rs("eName") = eName
Rs("Parent") = Parent
Rs("Child") = Child
Rs("Url") = Url
Rs("Sort") = Sort
Rs("UpImg") = UpImg
Rs("Content") = Content
Rs("Template") = Template
Rs("ArtTemp") = ArtTemp
Rs("PubDate") = PubDate
Rs("IsLock") = IsLock
Rs("ItemTemplate") = ItemTemplate