stshq_pass.asp

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

<%
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="update  stinfor set st_state=1"&" 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
%>