hz_hy_del.asp

一、一般游客： 1.查看论坛资料 二、注册会员： 1.修改本人资料 2.论坛发贴、回复 3.参加已有社团申请 4.成立社团申请 三、会长级别： 1、本社团资料修改 2、本社

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if request.Cookies("user")<>"会长" then
response.Write("未知来源！请先登陆！")
response.End()
end if
 %>
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
hynch=trim(request("keywords"))
UserId=request.cookies("stname")
      	set rsUser=server.createobject("adodb.recordset")
	    sqltext="select hy_st from hyinfor where hy_nch ='"&hynch&"'"
	    rsUser.open sqltext,conn,3,3		
%>
		
       <%
       resl=trim(rsUser("hy_st"))
	   resl = replace(""&resl&"", ""&UserId&"","")
	   resl = replace(""&resl&"",",,",",")
	   rsUser("hy_st") = trim(resl)
		rsUser.update
		rsUser.close
	      
		  
 	set rsUser=server.createobject("adodb.recordset")
	    sqltext="select hy_st from hydsh where hy_nch ='"&hynch&"'"
	    rsUser.open sqltext,conn,3,3

       resl=trim(rsUser("hy_st"))
	   resl = replace(""&resl&"", ""&UserId&"","")
	   resl = replace(""&resl&"",",,",",")
	   rsUser("hy_st") = trim(resl)

		
	rsUser.update
		rsUser.close
	 conn.close
		response.write "<script language=JavaScript>{window.alert('资料成功删除！');window.location.href='hz_look.asp'}</script>"
	response.end
%>