stshq_no.asp

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

<%
if request.Cookies("user")<>"管理员" then
response.Write("未知来源！请先登陆！")
response.End()
end if
 %>
<%
Dim strname
 strname= request("stid")
%>
 <!--#include file="conn.asp" -->
<!--#include file="char.asp"-->
<%

	sqltxt="Delete From stinfor  where st_id="&strname&""
	conn.execute sqltxt
    conn.close
		
		response.write "<script language=JavaScript>{window.alert('协会帐号已成功删除！');window.location.href='admin_st_shq.asp'}</script>"
	    response.end
%>