luntansave.asp

可以做论坛

<!--#include file="sysinfo.asp"--> 
<!--#include file="asptbfunction.asp"--> 
<!--#include file="conn.asp"--> 
<!--#include file="user.asp"-->

<%
luntanj=Request("aa")
mystring=cip
call mystr(mystring,allstr,leng)
youcipc=0
youcip=""
for i=0 to leng 
if InStr(luntanj,allstr(i))>0 then
youcipc=youipp+1
youcip=allstr(i)
end if
If i=leng Then Exit For 
Next 
if youcipc>0 then '词被屏蔽
Response.Write "相关于[<font color=#FF0000>"&youcip&"</font>]内容不能建立。有疑问请与管理员联系；<a href=index.asp>回首页</a>"
else '词被屏蔽
cc="select * from luntan where luntan= '" & Request("aa") &"'"
set rs=server.createobject("adodb.recordset")
rs.open cc,conn,1,3

if rs.eof then '如果不存在就建立

dat=now()
IP=Request.ServerVariables("REMOTE_ADDR") 
aa=request.form("aa")
aa=Trim(aa)
bb=request.form("bb")
bb1=len(bb)
if bb1<2 then %>
<div align="center">贴吧简介填写错误，内容必大于2个字符以上<a href=index.asp>请返回重新填写</a> </div>
 
<%
else
if CInt(sallhtml)=1 then
sethtml=1
else
sethtml=0
end if
    rs.AddNew
    rs("luntan") = aa
    rs("ltjj") = bb
    rs("jltime") = dat
    rs("ip") = IP
    rs("banzhu") = "notbz"
    rs("html") = sethtml
    rs("fenlei")=0
    rs.Update


response.redirect "list.asp?idl="&rs("idl")&""
conn.close
set conn=nothing
end if  
else
Response.Write "你要建立的论坛已经存在返<a href=index.asp>回首页</a>"
end if
end if '词被屏蔽
%>