hyshq_pass.asp

ASPkaifa 11111111111111111111111

<%
if request.Cookies("user")<>"会长" then
response.Write("未知来源！请先登陆！")
response.End()
end if
 %>
<%
Dim strname,zj
 strname= request("hyid")
%>
 <!--#include file="conn.asp" -->
<!--#include file="char.asp"-->
<%
	set rsUser=server.createobject("adodb.recordset")
	sqltxt="select * From hydsh  where hy_nch='"&strname&"'"
	 rsUser.open sqltxt,conn,3,3
	zj= rsUser("hy_st")
	hyst=request.cookies("stname")
	rsUser("hy_st")=replace(""&zj&"",""&hyst&"","")
	hydate=date()
	
		'	rsst.addnew
		'必添项
		hyname=rsUser("hy_name")
		hynch=rsUser("hy_nch")
		hypwd=rsUser("hy_pwd")
		hysex=rsUser("hy_sex")
		hynumber=rsUser("hy_number")
		hyzy=rsUser("hy_zy")
		hyaddress=rsUser("hy_address")
		hyphone=rsUser("hy_phone")
		hyemail=rsUser("hy_email")
		hybirthday=rsUser("hy_birthday")
		hyjl=rsUser("hy_jl")
	

	rsUser.update
	rsUser.close

	set rsUser=server.createobject("adodb.recordset")
	sqltxt="select * From hyinfor where hy_nch='"&hynch&"'"
	 rsUser.open sqltxt,conn,3,3
	if rsUser.recordcount > 0 then
	rsUser("hy_st")=rsUser("hy_st")&","&hyst
	
	else
'	zj= rsUser("hy_st")
'	hyst=request.cookies("stname")
'	rsUser("hy_st")=replace(""&zj&"",""&hyst&"","")
	hydate=date()
	
	rsUser.addnew
		'必添项
		rsUser("hy_date")=hydate
		rsUser("hy_st")=hyst
		rsUser("hy_name")=hyname
		rsUser("hy_nch")=hynch
		rsUser("hy_pwd")=hypwd
		rsUser("hy_sex")=hysex
		rsUser("hy_number")=hynumber
		rsUser("hy_zy")=hyzy
		rsUser("hy_address")=hyaddress
		rsUser("hy_phone")=hyphone
		rsUser("hy_email")=hyemail
		rsUser("hy_birthday")=hybirthday
		rsUser("hy_jl")=hyjl
	
end if
	rsUser.update
	rsUser.close
    conn.close	
	response.write "<script language=JavaScript>{window.alert('会员帐号已成功开通！');window.location.href='hz_hy_shp.asp'}</script>"
	response.end
%>