hyshq_no.asp

来自「一、一般游客： 1.查看论坛资料 二、注册会员： 1.修改本人资料 」· ASP 代码 · 共 25 行

<%
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 hy_st From hydsh  where hy_nch='"&strname&"'"
	 rsUser.open sqltxt,conn,3,3
	zj= rsUser("hy_st")
	rsUser("hy_st")=replace(""&zj&"",""&request.cookies("stname")&"","")
	rsUser.update
	rsUser.close
    conn.close
		
		response.write "<script language=JavaScript>{window.alert('会员帐号已成功删除！');window.location.href='hz_hy_shp.asp'}</script>"
	    response.end
%>