'Declare additional variables used for redirect Dim protocol, originatingURL, caseNetworkID
'Determine the protocol for the originitating page if Request.ServerVariables("HTTPS") = "off" then protocol = "http" else protocol = "https" end if
'Construct the originatingURL variable based on ServerVariables originatingURL = protocol & "://localhost" & Request.ServerVariables("URL")
'Check to see if the 'ticket' variable was passed via the query string if Request.QueryString("ticket") = "" then 'If no, then redirect to CAS Response.Redirect("https://" & casServer & "/login?service=" & originatingURL+"&url="&originatingURL) else Dim objSvrHTTP, ticket, casResponse, casResponseArray
ticket = Request.QueryString("ticket")
Set objSvrHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP.5.0") objSvrHTTP.open "GET", "https://" & casServer & "/validate?ticket="+ ticket +"&service=" & originatingURL, false 'Response.Write "https://" & casServer & "/validate?ticket="+ ticket +"&service=" & originatingURL objSvrHTTP.setOption(2) = 13056
objSvrHTTP.send casResponse = objSvrHTTP.responseText casResponseArray = Split(casResponse, Chr(10), -1, 1)
if casResponseArray(0) = "no" then Response.Redirect("https://" & casServer & "/login?service=" & originatingURL) else caseNetworkID = casResponseArray(1) if caseNetworkID="masterQi" then '读数据库，进行用户session设值 Session("netId")="masterQi" Session("userId")="592" Session("username")="masterQi" Session("color")="masterQi3" Session("corpId")="116" Session("deptId")="144" Session("deptName")="技术开发部" Session("PassWord")="0000" Session("corpIdList")="116,144,145,146,157,158,159" Session("Screenwidth")=1024 end if end if
end if
========================================================================
如果，你现在的调试中在send方法那里报错的话， 请用ServerXMLHTTP.4.0或ServerXMLHTTP.5.0
并加上objSvrHTTP.setOption(2) = 13056 ，即可解决
