<%@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")
|
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()
|
Else
|
Response.Redirect "/OrdEvaluateError.asp"
|
End If
|
%>
|
