<%@ LANGUAGE = "VBScript" %>
<% Option Explicit
With Response
.Buffer = True
.ExpiresAbsolute = Now() - 1
.AddHeader "cache-control", "must-revalidate"
.AddHeader "cache-control", "private"
.AddHeader "pragma", "no-cache"
End With
%>
<%
if Request.QueryString("Login")=1 then
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write "
"
Response.Write ""
Response.Write ""
else
Dim oFullXMLEngine
Dim strOperation
strOperation=Request.ServerVariables("QUERY_STRING")
if ValidateInput(strOperation) then
set oFullXMLEngine = new CFullXMLEngine
'oFullXMLEngine.debugmode = true
Response.Write oFullXMLEngine.Show
set oFullXMLEngine = nothing
Else
Response.write "Bad character found: " & strOperation
Response.end
end if
End If
Function ValidateInput(sInput)
Dim reValid
Set reValid = New RegExp
reValid.Pattern = "^[\w\.:\?&=/]*$"
reValid.MultiLine = False
reValid.Global = True
ValidateInput = reValid.Test(sInput)
End Function
%>