<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage=65001%> <% 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 %>