admin_zhl_shuok.asp

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

<%
if request.Cookies("user")<>"管理员" then
response.Write("未知来源！请先登陆！")
response.End()
end if
 %>
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
	 	set rsUser=server.createobject("adodb.recordset")
	    sqltext="select hy_st from hyinfor"
	    rsUser.open sqltext,conn,3,3
	
		while not rsUser.Eof
    
       resl=trim(rsUser("hy_st"))
	   post_name = replace(""&resl&"", ",,",",")
		rsUser("hy_st") = trim(post_name)
		rsUser.MoveNext()
	
      Wend

	'	rsUser.update
		rsUser.close
	
       	set rsUser=server.createobject("adodb.recordset")
	    sqltext="select hy_st from hydsh"
	    rsUser.open sqltext,conn,3,3
		%>
		<%
		while not rsUser.Eof
         %>
       <%
       resl=trim(rsUser("hy_st"))
	   post_name = replace(""&resl&"", ",,",",")
		rsUser("hy_st") = trim(post_name)
		rsUser.MoveNext()
		%>
		<%
      Wend
	  %>
	  
	  <%
	'	rsUser.update
		rsUser.close
		 conn.close
		response.write "<script language=JavaScript>{window.alert('OK！');window.history.go(-1)}</script>"
	response.end
%>