hy_modify_ok.asp

来自「ASPkaifa 11111111111111111111111」· ASP 代码 · 共 47 行

<%
if request.Cookies("user")="" then
response.Write("未知来源！请先登陆！")
response.End()
end if
 %>
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
	UserId=trim(request("txtnch"))
	set rsUser=server.createobject("adodb.recordset")
	sqltext="select * from hyinfor where hy_nch='"&UserId&"'"
	rsUser.open sqltext,conn,3,3
if rsUser.recordcount >= 1 then 

		rsUser("hy_pwd")=Request("txtpass")
    	rsUser("hy_number")=Request("txtnumber")
		rsUser("hy_zy")=Request("txtzy")
		rsUser("hy_address")=Request("txtaddress")
		rsUser("hy_phone")=Request("txtphone")
		rsUser("hy_birthday")=Request("txtbirthday")
		rsUser("hy_email")=Request("txtEmail")
		rsUser("hy_jl")=Request("txtjl")
		rsUser.update
		rsUser.close
else
		rsUser.close
	end if
	set rsUser=server.createobject("adodb.recordset")
	sqltext="select * from hydsh where hy_nch='"&UserId&"'"
	rsUser.open sqltext,conn,3,3

		rsUser("hy_pwd")=Request("txtpass")
    	rsUser("hy_number")=Request("txtnumber")
		rsUser("hy_zy")=Request("txtzy")
		rsUser("hy_address")=Request("txtaddress")
		rsUser("hy_phone")=Request("txtphone")
		rsUser("hy_birthday")=Request("txtbirthday")
		rsUser("hy_email")=Request("txtEmail")
		rsUser("hy_jl")=Request("txtjl")
		rsUser.update
		rsUser.close		
		 conn.close
    response.write "<script language=JavaScript>{window.alert('资料修改成功！');window.history.go(-1)}</script>"
	response.end
%>