商城在线支付代码

1.修改13行
const pay_url="http://www.1st-pay.net/work/work.asp"
2.修改public sub pay_frm(ftype)

public sub pay_frm(ftype)
    dim temp1,leixing,ver,urlback,stusername,stpassword,payfangshi,shopname
    pay_amount=fm_price(pay_amount,1)
leixing=4
ver="2.0"
urlback=02
stusername="用户名"
stpassword=密码
payfangshi=1
shopname="商城购物"
    dim var_tmp,pay_safety
    pay_sort=sort_type(pay_sort)
    var_tmp=cstr(pay_number)&cstr(pay_signa)&cstr(pay_sort)&cstr(pay_ordernum)&cstr(fm_price(pay_amount,1))&cstr(pay_username)
    pay_safety=pay_encrypt(var_tmp)
    if back_url="" then back_url=pay_back
    temp1=vbcrlf&"<form name=joekoe_pay_frm action='"&pay_url&"' method=post"
    if frm_target then temp1=temp1&" target=pay_win"
    temp1=temp1&">" & _
   vbcrlf&"<input type=hidden name=shopname value='"&shopname&"'>" & _
   vbcrlf&"<input type=hidden name=name value='"&pay_username&"'>" & _
   vbcrlf&"<input type=hidden name=payid value='"&pay_ordernum&"'>" & _
   vbcrlf&"<input type=hidden name=cash value='"&pay_amount&"'>" & _
   vbcrlf&"<input type=hidden name=email value='"&pay_email&"'>" & _
   vbcrlf&"<input type=hidden name=handphone value='"&pay_phone&"'>" & _
   vbcrlf&"<input type=hidden name=payfangshi value='"&payfangshi&"'>" & _
   vbcrlf&"<input type=hidden name=1stpassword value='"&stpassword&"'>" & _
   vbcrlf&"<input type=hidden name=1stusername value='"&stusername&"'>" & _
   vbcrlf&"<input type=hidden name=urlback value='"&urlback&"'>" & _
   vbcrlf&"<input type=hidden name=xinxi value='"&pay_username&"'>" & _
   vbcrlf&"<input type=hidden name=ver value='"&ver&"'>" & _
   vbcrlf&"<input type=hidden name=leixing value='"&leixing&"'>" & _
   vbcrlf&"<input type=hidden name=username value='"&stusername&"'>" & _
  
   vbcrlf&"</form>"
    if frm_js then
      temp1=temp1&vbcrlf&"<script language=javascript>" & _
     vbcrlf&"<!--"
    end if
    temp1=temp1&vbcrlf&"function joekoe_online_pay()" & _
   vbcrlf&"{"
    if frm_target then temp1=temp1&vbcrlf&"  window.open('about:blank','pay_win');"
    temp1=temp1&vbcrlf&"  document.joekoe_pay_frm.submit();" & _
   vbcrlf&"}"
    if ftype=1 then temp1=temp1&vbcrlf&"joekoe_online_pay();"
    if frm_js then
      temp1=temp1&vbcrlf&"-->" & _
     vbcrlf&"</script>"
    end if
    response.write temp1
  end sub
这是修改过的代码,请对照原代码修改


vbcrlf&"</form>"
自动流用户在修改1st-pay-get.asp文件
增加
if shopname="商城购物" then
dim id
sql="select top 1 id,ispay from shop_orders where ordernum='"&payid&"'"
set rs=joekoe_cms.exec(sql,1)
id=rs("id")
call joekoe_cms.exec("update shop_orders set ispay=1 where id="&id,0)
end if

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: