say.asp

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

<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
act=0
username=Session("a_c_user_name")
if username="" or Session("a_c_user_outchat")=1 then
 Response.Redirect "close.asp"
end if
fontsize=Request.Form("fontsize")
Session("a_c_user_fontsize")=fontsize
sift=Request.Form("sift")
Session("a_c_user_sift")=sift
says=Trim(Request.Form("says"))
if len(says)>100 then says=left(says,100)
if (says="" or says="//") then Response.Redirect "f1.asp"
says=server.HTMLEncode(says)
says=Replace(says,"&amp;","&")
if InStr(says,"