<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/odbc.asp"-->
|
<!--#include virtual="/inc/function.asp"-->
|
<!--#include virtual="/inc/core.asp"-->
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
<%
|
n = Request("n")
|
s = Request("s")
|
u = Request("u")
|
l = Request("l") '注册用户/登录
|
|
' 如果没有传递任何参数，显示登录码输入页面
|
If n="" And s="" And u="" And l="" Then %>
|
<!--#include virtual="/inc/login_input.asp"-->
|
<%
|
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
|
%><!--#include virtual="/inc/JsonAPI.asp"--><%
|
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 &"<br><br>"
|
'Response.end
|
json=HTMLCODE
|
%>
|
<script language="jscript" runat="server">
|
Array.prototype.get = function(i)
|
{
|
return this[i];
|
};
|
function getjson(str){
|
try{
|
eval("var jsonStr = (" + str + ")");
|
}catch(ex){
|
var jsonStr = null;
|
}
|
return jsonStr;
|
}
|
</script>
|
<%
|
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&"<br>"&LoginURL
|
'Response.end
|
Else
|
Response.Redirect "/index.html"
|
End If
|
Else
|
Response.Redirect "/index.html"
|
End If
|
%>
|
