bztitle.asp

来自「聊天室源码呵呵你好用~~~~~~2.0版本」· ASP 代码 · 共 16 行

<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
if Session("a_c_user_name")="" then
 Response.write "<b>[操作失败]</b><p>您尚未登录（或已经超时退出），不能进行此操作！"
 Response.end
end if
if Session("a_c_user_level")<10 then
 Response.Write "<b>[操作失败]</b><p>您没有更改站长标题的权限！"
 Response.End
end if
bztitle=Request.Form("bztitle")
Application.Lock
Application("a_c_all_bztitle")=bztitle
Application.UnLock
Response.write "<br><br><br><br><p align=center>已经将聊天室的标题更改为</p><p align=center><font color=FF0000>" & bztitle & "</font></p><p align=center><a href=javascript:history.go(-1)>返回</a></p>"
Response.end%>