📄 mmhttpdb.asp
字号:
<%@LANGUAGE="VBScript"%>
<%
currentSessionCodePage = Session.CodePage
svr = Request.ServerVariables("SERVER_SOFTWARE")
ix = Instr(svr, "/")
verStr = right(svr, len(svr)-ix)
Dim verEnd
verEnd = len(verStr)
For i = 1 To len(verStr)
char = Mid(verStr, i, 1)
if char >= "0" And char <= "9" Then
verEnd = i
Else
Exit For
End if
Next
verStr = Left(verStr, verEnd)
ver = CInt(verStr)
if ver > 4 then
Session.CodePage=65001
end if
%>
<HTML>
<!--#include file ="MMHTTPDB.js"-->
<%
On Error Resume Next
Set oConn = CreateMMConnection(Request("ConnectionString"),Request("UserName"),Request("Password"),Request("Timeout"))
Dim opCode
opCode = CStr(Request("opCode"))
if (Len(opCode) AND (opCode <> "undefined")) then
if (opCode = "GetODBCDSNs") then
Response.Write(oConn.GetODBCDSNs())
elseif (opCode = "GetTables") then
oConn.Open()
Response.Write(oConn.GetTables(Request("Schema"),Request("Catalog")))
elseif (opCode = "GetViews") then
oConn.Open()
Response.Write(oConn.GetViews(Request("Schema"),Request("Catalog")))
elseif (opCode = "GetProcedures") then
oConn.Open()
Response.Write(oConn.GetProcedures(Request("Schema"),Request("Catalog")))
elseif (opCode = "GetColsOfTable") then
oConn.Open()
Response.Write(oConn.GetColumnsOfTable(Request("TableName"),Request("Schema"),Request("Catalog")))
elseif (opCode = "GetParametersOfProcedure") then
oConn.Open()
Response.Write(MarshallRecordsetIntoHTML(oConn.GetParametersOfProcedure(Request("ProcName"),Request("Schema"),Request("Catalog"))))
elseif (opCode = "ExecuteSQL") then
oConn.Open()
Response.Write(oConn.ExecuteSQL(Request("SQL"),Request("MaxRows")))
elseif (opCode = "ExecuteSP") then
oConn.Open()
Response.Write(oConn.ExecuteSP(Request("ExecProcName"),0,Request("ExecProcParameters")))
elseif (opCode = "ReturnsResultset") then
oConn.Open()
Response.Write(oConn.ReturnsResultSet(Request("RRProcName"),Request("Schema"),Request("Catalog")))
elseif (opCode = "SupportsProcedure") then
oConn.Open()
Response.Write(oConn.SupportsProcedure())
elseif (opCode = "GetProviderTypes") then
oConn.Open()
Response.Write(oConn.GetProviderTypes())
elseif (opCode = "IsOpen") then
oConn.Open()
Response.Write(oConn.TestOpen())
elseif (opCode = "GetKeysOfTable") then
oConn.Open()
Response.Write(oConn.GetPrimaryKeysOfTable(Request("TableName"),Request("Schema"),Request("Catalog")))
end if
if Err then
Response.Write(oConn.HandleExceptions())
end if
oConn.Close()
end if
Session.CodePage = currentSessionCodePage
%>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -