!--#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,登录举哪网上银行、设置密码就可以交易了!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)