listonetableallfield.asp

XXX档案美女图片站适合给图片广告的站长下载使用

<% Option Explicit %>
<!--#include file="inc/Cls_DB.asp" -->
<!--#include file="Inc/Const.asp" -->
<!--#include file="inc/PublicFun.asp" -->
<%
Dim DBC,UpdateConn
Set DBC = New DataBaseClass
DBC.ConnStr = "DBQ=" + server.mappath(UpdateDataBase) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set UpdateConn = DBC.OpenConnection()
Set DBC = Nothing

Dim Table,ObjectDBType,OServer,ObjectDB,OUser,OPassWord,OperateType,ResponseStr
Dim TableFieldStr
ResponseStr = "parent.SetBtnStatus(false);"
Table = Request("Table")
ObjectDBType = Request("ObjectDBType")
OServer = Request("OServer")
ObjectDB = Request("ObjectDB")
OUser = Request("OUser")
OPassWord = Request("OPassWord")
OperateType = Request("OperateType")
if Table <> "" then
	TableFieldStr = ListAllFieldOfTable(ObjectDBType,OServer,ObjectDB,OUser,OPassWord,Table)
	ResponseStr = "parent.SetTableField('" & TableFieldStr & "','" & OperateType & "');" & ResponseStr
end if
Response.Write("<script language=""JavaScript"">" & ResponseStr & "</script>")
Response.End
%>