<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<%
n = Request("n")
s = Request("s")
u = Request("u")
l = Request("l") '注册用户/登录
' 如果没有传递任何参数，显示登录码输入页面
If n="" And s="" And u="" And l="" Then
%>
登录码输入
<%
Response.End
End If
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
%>