33.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 24 行

<%
'站长令
function zzl(fn1,from1)
fn1=trim(fn1)
if InStr(fn1,"'")<>0 or InStr(fn1,"`")<>0 or InStr(fn1,"=")<>0 or InStr(fn1,"-")<>0 or InStr(fn1,",")<>0 then 
Response.Write "<script language=JavaScript>{alert('你想做什么？想捣乱吗？！');}</script>"
Response.End
exit function
end if
        Set conn=Server.CreateObject("ADODB.CONNECTION")
        Set rs=Server.CreateObject("ADODB.RecordSet")
        connstr=Application("hg_connstr")
        conn.open connstr
	    sql="SELECT id FROM 用户 WHERE 姓名='" & youname & "' and 门派='六扇门' and grade=11 and 身份='掌门'"
	    Set Rs=conn.Execute(sql)
	if rs.eof or rs.bof then
Response.Write "<script language=JavaScript>{alert('只有站长才能发站长令');}</script>"
Response.End
end if
      zzl="<table bgcolor=#669900 width=40% align=center border=0 cellspacing=0 cellpadding='0'><tr><td bgcolor=#FFFFFF align=center height='16'><font color='#FFFFFF' size='2'><b><font size='2' color='#9D64C4'><b><font color='#F8330A' face='Wingdings' size='5'>[</font></b></font> <font color='#FF0000' size='5'>站 长 通 告</font><font color='#000000' size='5'><font face='Wingdings' color='#F8330A' size='2'></font></font><font color='#FFFFFF' size='5'><b><font color='#9D64C4'><b><font color='#F8330A' face='Wingdings'>[</font></b></font></b></font></b></font></td><tr><td height='17'><div align='center'><font size='2' color='#9D64C4'><b><font color='#FFFFFF'size='2'>各位玩家请注意:"&fn1&"</font></b></font></div></td></tr></table>"       
	rs.close
	set rs=nothing
end function
%>