<% ' GetUserRole Request.QueryString("username"), Request.QueryString("password"), "Command.asp" if Request.QueryString("CmdType") = "DBDatVw" then if Request.QueryString("cfgType") <> "" and Request.QueryString("GroupID") <> "" and Request.QueryString("PgSize") then dim dbSvr set dbSvr = Server.CreateObject("KVWebSvr.DBSvr") if not dbSvr is nothing then dim cfgType, GroupID, PgSize, Page cfgType = cint(Request.QueryString("cfgType")) GroupID = cint(Request.QueryString("GroupID")) PgSize = cint(Request.QueryString("PgSize")) Page = cint(Request.QueryString("Page")) dim fldName, fldFrom, fldTo fldName = CStr(Request.QueryString("FldName")) fldFrom = CStr(Request.QueryString("from")) fldTo = CStr(Request.QueryString("to")) ' Response.Write "

cfgType=" & cfgType & "

" ' Response.Write "

GroupID=" & GroupID & "

" ' Response.Write "

PgSize=" & PgSize & "

" ' Response.Write "

Page=" & Page & "

" ' Response.Write "

fldName=" & fldName & "

" ' Response.Write "

fldFrom=" & fldFrom & "

" ' Response.Write "

fldTo=" & fldTo & "

" ' Response.Write "

" & cstr(dbSvr.Test(0, 1, 200, 1, "Time")) & "

" dim iRealPage iRealPage = dbSvr.Query(cfgType, GroupID, PgSize, Page, fldName, fldFrom, fldTo) If 0 <> iRealPage Then Response.Write "ok,rp=" & CStr(iRealPage) else Session("ErrorMsg") = "Fail to query data,please ensure database configuration and query condition is correct." Response.Write "Error" end if set dbSvr = nothing else Session("ErrorMsg") = "Fail to create KVWebSvr.DBSvr component,please contact administrator" Response.Write "Error" end if else Session("ErrorMsg") = "Invalid query condition,please input again." Response.Write "Error" end if elseif Request.QueryString("CmdType") = "DBCurve" then if Request.QueryString("QueryBeginTime") <> "" and Request.QueryString("QueryEndTime") <> "" then else Session("ErrorMsg") = "Invalid query condition,please input again." Response.Write "Error" end if else Session("ErrorMsg") = "Request type cannot be supported,please update KVWeb*.ocx." Response.Write "Error" end if %>