hz_hy_del.asp

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

<%@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
%>