libaddok.asp

基于ASP开发的聊天室源码

<%Response.Expires=0%>
<%
if not IsArray(Session("info")) then Response.Redirect "err1.asp?kind=01"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
gradeinfo=Application("gradeinfo")
if gradeinfo(info(1),6)<>true then Response.Redirect "err.asp?kind=23"
words=Request.Form("word")
words=Replace(words," ","")
words=Replace(words,"　","")
words=Replace(words,"（","(")
words=Replace(words,"）",")")
if words="" then Response.Redirect "err.asp?kind=25"
Set Conn=server.createobject("ADODB.CONNECTION")
Conn.Open Application("zzbird_conn")
Set Rs=server.createobject("adodb.recordset")
sql="select * from lib where text='"&server.HTMLEncode(words)&"'"
rs.open sql,conn,1,3
if Rs.Eof and Rs.bof then
rs.AddNew
Rs("text")=server.HTMLEncode(words)
Rs("writer")=info(0)
Rs("time")=now
rs.Update
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
Response.Redirect "lib.asp"
else
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
Response.Redirect "err.asp?kind=26"
end if
%>