<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage=65001%> <% n = Request("n") s = Request("s") u = Request("u") l = Request("l") '×¢²áÓû§/µÇ½ Response.Cookies("n")=n Response.Cookies("n").Expires=DateAdd("n",30,now()) Response.Cookies("s")=s Response.Cookies("s").Expires=DateAdd("s",30,now()) Set rs = Server.CreateObject("ADODB.Recordset") If n<>"" Then sql="select id,URL from dwzURL where dateadd(day,15,nTime)>=getdate() and n='"&n&"' order by id desc" rs.open Sql,objConn,1,1 If not rs.Eof Then URL=rs("URL") If InStr(URL,"MyOrder.php")>=1 Then DispatchOrdID=Mid(URL,InStr(URL,"DispatchOrdID")+14,10) Sign1=Md5Sign(DispatchOrdID,GPSKey,"utf-8") ElseIf InStr(URL,"GuestOrder.php")>=1 Then DispatchOrdID=Mid(URL,InStr(URL,"DispatchOrdID")+14,10) Sign1=Md5Sign(DispatchOrdID,GPSKey,"utf-8") If InStr(request.ServerVariables("HTTP_USER_AGENT"),"MicroMessenger")>=1 Then URL=Replace(URL,"GuestOrder.php","MyOrder.php") End If else Sign1=SignArgs(URL) End if Response.Redirect URL&"&sign="&Sign1 Else Response.Redirect "/OrdEvaluateError.asp" End If rs.close() ElseIf u<>"" Then sql="select id,vtext,vOrder from dictionary where vtitle='URL' and vType>=1 and vID="&u rs.open Sql,objConn,1,1 If not rs.Eof Then id=rs("id") URL=rs("vtext") sql="update dictionary set vOrder=vOrder+1 where id="&id objConn.Execute sql Response.Redirect URL Else Response.Redirect "/OrdEvaluateError.asp" End If rs.close() ElseIf l="1" Then '×¢²áÓû§/µÇ½(ÊÖ»ú) LoginType = Request("t") UserPhone = Request("p") If LoginType="" Then LoginType=1 If Len(UserPhone)=11 And IsNumeric(UserPhone) Then %><% LoginSign="APPID"&APPID&"LoginType1UnixTime"&ToUnixTime(now(), +8)&"UserPhone"&UserPhone&"methodUser_Login" Sign1=Md5Sign(LoginSign,APPKey,"utf-8") appUrl="https://api.966120.com.cn/user/" args1="method=User_Login&LoginType=1&UserPhone="&UserPhone&"&APPID="&APPID&"&UnixTime="&ToUnixTime(now(), +8)&"&Sign="&Sign1 HTMLCODE= GetBody(appUrl,args1) 'Response.Write HTMLCODE &"

" 'Response.end json=HTMLCODE %> <% str=json 'str=right(str,len(str)-instr(str,"?{")+1) 'str=left(str,InstrRev(str,"}")) dim obj set obj = getjson(str) str0="" result=obj.result If result=1 Then UserID=obj.UserID End If Sign1=Md5Sign(UserID,GPSKey,"utf-8") Response.Redirect "/index.html#/?UserID="&UserID&"&s="&s&"&Sign="&Sign1 'Response.Write UserID&"
"&LoginURL 'Response.end Else Response.Redirect "/index.html" End If Else Response.Redirect "/index.html" End If %>