speaktop.asp

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

<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
Server.ScriptTimeout=600
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
ly=Server.HTMLEncode(RTrim(Request.Form("speaktop")))
ly=Replace(ly," ","&nbsp;")
ly=Replace(ly,chr(13)&chr(10),"<br>")
Set fs=CreateObject("Scripting.FileSystemObject")
Set outfile=fs.CreateTextFile(server.mappath("speaktop.dat"))
outfile.WriteLine ly
outfile.Close
Response.Write "<b>[操作完成]</b><p align=center>已经把站长留言改为：<p align=center><font color=FF0000>"&ly&"</font><p align=center><a href=javascript:history.go(-1)>返回</a>"
Response.end%>