用ASP做支付页面的源代码

用ASP做支付页面的源代码,第1张

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%

!--#include file="include/conn.asp"--

!--#include file="include/function.asp"--

!--#include file="include/md5.asp"--

!--#include file="include/wzxx.asp"--

%

set rs12=server.CreateObject("adodb.recordset")

sql="select top 10 uid,yhm,nicheng,sex,yhtime from userb order by uid desc"

rs12.open sql,conn,1,3

%

%

yhm=Str_filter(trim(request.Form("yhm")))

nicheng=Str_filter(trim(request.Form("nicheng")))

pwd=md5(Str_filter(trim(request.form("pwd"))))

sex=Str_filter(trim(request.form("sex")))

mmwt=Str_filter(trim(request.Form("mmwt")))

mmda=Str_filter(trim(request.Form("mmda")))

xingming=Str_filter(trim(request.form("xingming")))

ICO=Str_filter(trim(request.Form("ICO")))

eamil=Str_filter(trim(request.form("eamil")))

tel=Str_filter(trim(request.form("tel")))

qq=Str_filter(trim(request.form("qq")))

dizhi=Str_filter(trim(request.form("dizhi")))

ip=Str_filter(trim(request.form("ip")))

if yhm"" then

set rs1=Server.CreateObject("ADODB.Recordset")

sql="Select * from userb where yhm='"yhm"'"

rs1.open sql,conn,1,3

if not rs1.eof then

response.Write("script language='javascript'alert('此用户名已经存在,请重新输入用户名!')history.go(-1)/script")

else

rs1.addnew

rs1("yhm"桐纳)=yhm

rs1("nicheng")=nicheng

rs1("搏轮判pwd")=pwd

rs1("sex")=sex

rs1("mmwt")=mmwt

rs1("mmda")=mmda

rs1("xingming")=xingming

rs1("ICO")=ICO

rs1("eamil")=eamil

rs1("tel")=tel

rs1("qq")=qq

rs1("dizhi")=dizhi

rs1("ip")=ip

rs1.update

rs1.close

'修改用户登录信息!

set rs14=server.CreateObject("adodb.recordset")

sql="select * from logion"

rs14.open sql,conn,1,3

rs14.addnew

rs14("yhm")=yhm

rs14("nicheng1")=nicheng

rs14("sex4")=sex

rs14("log_tx")=ICO

rs14("log_cs")=1

rs14("gongxian")=5

rs14("log_time")=now()

rs14("log_ip")=ip

rs14.update

rs14.close

set rs14=nothing

response.Write("script language='javascript'alert('恭基改喜您,注册成功,请登录!')location.href='zhuce2.asp'/script")

set rs1=nothing

end if

end if

%

支付宝 咨询支付宝客服,给你接口函数,生成就可以了,他会有例子,代码给你滴洞拆,抄简正颤码单!

网银 必须本人带身份z到银行柜台办理网上银行,配UK,登录举哪网上银行、设置密码就可以交易了!


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/tougao/12240433.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-22
下一篇 2023-05-22

发表评论

登录后才能评论

评论列表(0条)

保存