sql判斷且增加字段ADD

　　sql 判斷且增加字段

　　<%
Dim iRsSqlTableColumnBool
Table = "A"
Column = "B"
Bool = False
sql="Select * From ["&Table&"]"
Set Rs = ConnExeCute(Sql)
For Each i In RsFields
ResponseWrite(iName&"<br>")
If iName=Column Then
Bool = True
Exit For
End If
Next
If Bool Then
ResponseWrite("在《"&Table&"》表中存在《"&Column&"》列!")
Else
ResponseWrite("在《"&Table&"》表中不存在《"&Column&"》列!")
End If
%>

From:http://tw.wingwit.com/Article/program/MySQL/201311/29534.html