<%

Common_Class_new.IsLoginManager "statView.asp"

Common_Class_new.chkSysAuthoritys "200761110424526"

%>

<%

sType=Common_Class_new.SafeRequest("sType")

Select Case sType

Case "POST"

key = md5(Lcase(Request.ServerVariables("SERVER_NAME"))&"A6rderdf")

Str = "domain="&Lcase(Request.ServerVariables("SERVER_NAME"))&"&key="&key

Str = Str &"&cms=mysite"

reStr=Common_Class_new.XMLHTTP("/CreatKid.asp",Str)

If Instr(reStr,"@") > 0 Then

SiteKid = Split(reStr,"@")(0)

SiteKpsd = Split(reStr,"@")(1)

set Rs=server.createobject("adodb.recordset")

sqlcmd="select * from SysInfo Where SId='0'"

RS.open sqlcmd,CreatConnection,1,3

If Not Rs.Eof Then

Rs("SiteKid") =SiteKid

Rs("SiteKpsd") =SiteKpsd

Rs.Update

Call setCookie("(""SysInfo"")(""SiteKid"")", SiteKid)

Call setCookie("(""SysInfo"")(""SiteKpsd"")", SiteKpsd)

End If

End If

Response.Redirect("onlinekefu.asp")

Case "OPEN"

CreatConnection.Execute("UPDATE SysInfo SET SiteKStatue = 'True' Where SId='0'")

Call setCookie("(""SysInfo"")(""SiteKStatue"")","True")

Response.Redirect("onlinekefu.asp")

Case "VIEW"

set Rs=server.createobject("adodb.recordset")

sqlcmd="select * from SysInfo Where SId='0'"

RS.open sqlcmd,CreatConnection,1,1

SiteKid = Rs("SiteKid")

SiteKpsd = Rs("SiteKpsd")

%>