asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="include.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<%
key=replace(trim(request("key")),"‘","")
PayNO=replace(trim(request.form("PayNO")),"‘","")
If PayNO="" Then PayNO=replace(trim(request("PayNO")),"‘","")
PayJe=replace(trim(request.form("PayJe")),"‘","")
If PayJe="" Then PayJe=replace(trim(request("PayJe")),"‘","")
PayMore=replace(trim(request.form("PayMore")),"‘","")
If PayMore="" Then PayMore=replace(trim(request("PayMore")),"‘","")
PayTime=replace(trim(request.form("PayTime")),"‘","")
If PayTime="" Then PayTime=replace(trim(request("PayTime")),"‘","")
if PayNO<>"" and PayJe<>"" and isnumeric(PayJe)<>""  and trim(PayPwd)=""&Trim(key)&"" Then
    If PayMore="" Then
    uid=0
    Else
        set rs=server.CreateObject("adodb.recordset")
        sql="select * from users where username=‘"&PayMore&"‘ "
        rs.open sql,conn,1,1
        if not rs.eof Then
        uid=rs("id")
        NowAmount=rs("amount")+PayJe
        Else
        uid=0
        end if
        rs.close
        set rs=Nothing
    End If
    set rs=server.CreateObject("adodb.recordset")
    sql="select * from chongzhi where alipay_orderno=‘"&PayNO&"‘ "
    rs.open sql,conn,1,3
    if rs.eof and rs.bof then
    rs.addnew
    rs("uid")=uid
    rs("alipay_orderno")=PayNO
    rs("amount")=PayJe
    rs("PayTime")=PayTime
    rs("addtime")=now()
    rs("PayMore")=PayMore
    If uid>0 Then
    rs("status")=1
    Else
    rs("status")=3
    End If
    rs("typ")=2
    rs.update
    response.Write "Success"
    Else
        If rs("status")=0 Then
        rs("amount")=PayJe
        rs("PayTime")=PayTime
        rs("addtime")=now()
        rs("PayMore")=PayMore
        If uid>0 Then
        rs("status")=1
        Else
        rs("status")=3
        End If
        rs("typ")=2
        rs.update
        response.Write "Success"
        Else
        response.Write "Err"
        response.End
        End If
    end if
    rs.close
    set rs=Nothing
    If uid>0 Then
        set rs=server.CreateObject("adodb.recordset")
        sql="select * from users where id="&uid
        rs.open sql,conn,1,3
        if not rs.eof then
        rs("amount")=NowAmount
        rs.update
        end if
        rs.close
        set rs=Nothing
    End If
Else
response.Write "cuowu"
response.End
end if
conn.close
set conn=Nothing
%>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="include.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<%
if trim(request("PayNO"))<>"" and trim(request("PayJe"))<>"" and isnumeric(request("PayJe"))<>"" and trim(request("key"))="2015518" then 
     
    set rs=server.CreateObject("adodb.recordset")
    sql="select * from chongzhi where alipay_orderno=‘"&checkstr(request("PayNO"))&"‘"
    rs.open sql,conn,1,3
    if rs.eof and rs.bof then    
    rs.addnew
    
    rs("alipay_orderno")=request("PayNO")
    rs("amount")=request("PayJe")
    rs("addtime")=now()
    rs("status")=3
    rs("typ")=2
    
    rs.update
    end if
    rs.close
    set rs=nothing     
     
end if

conn.close
set conn=nothing
%>