www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > OrderRec.asp

    <%
'乘风网站推广系统 Access版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfwztg
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站查看
%>
<%
Response.Expires= -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","no-store"
%>
<!--#Include File="Conn.asp"-->
<!--#Include File="CF_MyFunCtion.asp"-->
<!--#Include File="CF_Md5.asp"-->
<%
'导入订单接口

AdUserName=ChkStr(Trim(Request("AdUserName")),1)
OrderCode=ChkStr(Trim(Request("OrderCode")),1)
OrderUser=ChkStr(Trim(Request("OrderUser")),1)
OrderCent=ChkStr(Request("OrderCent"),2)'定单金额,以元单位
OrderTcRate=ChkStr(Request("OrderTcRate"),2)
TcObject=ChkStr(Trim(Request("TcObject")),2)
TcType=ChkStr(Trim(Request("TcType")),1)
CheckCode=ChkStr(Trim(Request("CheckCode")),1)'验证码


If AdUserName="" Then
 Response.write "<script>alert('请输入广告主的用户名');</script>"
 Response.End
End If

If OrderCode="" Then
 Response.write "<script>alert('请输入定单号码');</script>"
 Response.End
End If

If OrderUser="" Then
 Response.write "<script>alert('请输入定单用户1');</script>"
 Response.End
End If

If OrderCent="" Then
 Response.write "<script>alert('请输入定单金额');</script>"
 Response.End
End If

If TcObject="" Then
 Response.write "<script>alert('请输入订单对象类型');</script>"
 Response.End
End If

If TcType="" Then
 Response.write "<script>alert('请输入提成方式类型');</script>"
 Response.End
End If

If CheckCode="" Then
 Response.write "<script>alert('请输入验证码');</script>"
 Response.End
End If


If Not IsNumeric(OrderCent) Then
 Response.write "<script>alert('OrderCent格式有误，必须为数字');</script>"
 Response.End
End If

If Cdbl(OrderCent)<=0 Then
 Response.write "<script>alert('OrderCent格式有误，数字必须大于0');</script>"
 Response.End
End If

If OrderTcRate<>"" Then
 If Not IsNumeric(OrderTcRate) Then
 Response.write "<script>alert('OrderTcRate格式有误，必须为数字');</script>"
 Response.End
 End If

 If  CInt(OrderTcRate)<=0 Then
  Response.write "<script>alert('OrderTcRate格式有误，数字必须大于0');</script>"
  Response.End
 End If
End If


Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFWztg_AdUser where AdUserName='"&AdUserName&"'"
Rs.Open Sql,Conn,1,1
If Rs.eof And Rs.bof Then
 Response.write "<script>alert('没有此广告用户');</script>"
 Response.End
End If

If Rs("RecSafeCode")="" Then
 Response.write "<script>alert('验证码没有设置');</script>"
 Response.End
End If

CheckCode_2=Md5(AdUserName&OrderCode&OrderUser&OrderCent&OrderTcRate&TcObject&TcType&Rs("RecSafeCode"),1)'正确的验证码

If CheckCode<>CheckCode_2 Then
 Response.write "<script>alert('验证码有误');</script>"
 Response.End
End If

MyStr = "AdUserName="&AdUserName&"|||"
MyStr = MyStr&"OrderCode="&OrderCode&"|||"
MyStr = MyStr&"OrderUser="&OrderUser&"|||"
MyStr = MyStr&"OrderCent="&OrderCent&"|||"
MyStr = MyStr&"OrderTcRate="&OrderTcRate&"|||"
MyStr = MyStr&"TcObject="&TcObject&"|||"
MyStr = MyStr&"TcType="&TcType&"|||"


Sql="Insert Into CFWztg_Temp (MyStr) Values ('"&MyStr&"')"
Conn.Execute Sql

Sql="Select Top 1 ID From CFWztg_Temp Order By ID Desc"
Rs=Conn.Execute(Sql)
ID=Rs("ID")

Response.Redirect "CF.aspx?Action=orderadd&ID="&ID
%>