reply.asp

可以做论坛

<%@ Language=VBScript %> 
<%Response.Buffer = True %>
<!--#include file="user.asp"--> 
<!--#include file="asptbfunction.asp"--> 
<!--#include file="shhtm.asp"--> 
<!--#include file="listhtml.asp"--> 
<title>回复</title>

<%
if ulock=1 then 
Response.Write "此用户"&ubm&" 非法操作已被屏蔽"
else
mystring=ipp
call mystr(mystring,allstr,leng)
youipp=0
youippip=""
for i=0 to leng 
if InStr(userip,allstr(i))>0 then
youipp=youipp+1
youippip=allstr(i)
end if
If i=leng Then Exit For 
Next 
if youipp>0 then 'ip被屏蔽
Response.Write "此IP："&youippip&" 非法操作已被屏蔽"
else 'ip被屏蔽
IDS=request.form("n3")
cc="select * from neirong"
set rs=server.createobject("adodb.recordset")
rs.open cc,conn,1,3
dat=now()

n1=request.form("n1")
replypage=request.form("replypage")

'n1 = Replace(n1, "<", "&lt;")
'n1= Replace(n1,"<script", "&lt;script")
'n1=Replace(n1, chr(13), "<br>")
n1=Replace(n1, chr(032), "&nbsp;")
'n1=server.htmlencode(n1)
n1l=len(n1)
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
 If ip = "" Then 
 ip= Request.ServerVariables("REMOTE_ADDR")
 end if
pic=request.form("n2")
picl=len(pic)
picd=LCase(Right(pic,3))
picdd=LCase(Right(pic,4))
jpg="jpg"
gif="gif"
bmp="bmp"
jpeg="jpeg"
if picl>16  then
       if picd=jpg then
	   pic=pic
	   else
	      if picd=gif then
	      pic=pic
	      else
	         if picd=bmp then
	         pic=pic
	         else
	             if picdd=jpeg then
	             pic=pic
	             else
				 pic=""
	             end if
			 end if		  
		  end if
	   end if
else
pic=""
end if
IDL=request.form("n4")
'检查是否有屏蔽的词
mystring=cip
call mystr(mystring,allstr,leng)
youpb=0
youpbci=""
for i=0 to leng
if InStr(n1,allstr(i))>0  or InStr(pic,allstr(i))>0 then
youpb=youpb+1
youpbci=youpbci&allstr(i)
end if
If i=leng Then Exit For 
Next 
'检查是否有屏蔽的词结束
if youpb>0 then '如查有屏蔽的词
Response.Write "你发的内容含有非法词符："&youpbci&"不能提交"
else
if n1l<1 or n1l>15000 then 
%>
<div align="center">
内容填写错误，内容1-15000个字<a href=show.asp?IDS=<%=IDS%>>请返回重新填写</a> 
<%
else
conn.Execute("update neirong set lay=lay+1,huitime=now()  where IDS="&IDS)
ccc="select * from neirong where IDS="&IDS
set rssl=server.createobject("adodb.recordset")
rssl.open ccc,conn,1,3
zuozhe=rssl("zuozhe")
lay=rssl("lay")
    rs.AddNew
    rs("layer") = lay
    rs("idl") = IDL
    rs("huiid") = IDS
    rs("neirong") = n1
    rs("huitime") = dat
    rs("huiip") = ip
    rs("huizz") = uidy
    rs("pic") = pic	
    rs.Update
'主题贴若是会员加魅力值

if zuozhe<>0 and CInt(zuozhe)<>CInt(uidy) then
conn.Execute("update user set meili=meili+1 where idy="&zuozhe)
else
end if
'给回复会员加分
	if uidy<>0 then 
	conn.Execute("update user set jibiej=jibiej+10, jingnian=jingnian+1, jinqian=jinqian+5,huitie=huitie+1 where idy="&uidy )
	cus="select * from user  where idy="&uidy
	set rsus=server.createobject("adodb.recordset")
	rsus.open cus,conn,1,1
	jibiej=rsus("jibiej")
	jibie=rsus("jibie")
	    if jibiej>=jibie*100 then '是否达到升级
		jibiejl=jibiej-jibie*100
		conn.Execute("update user set jibie=jibie+1,jibiej="&jibiejl&" where idy="&uidy )
		else
		end if
	else
	end if
	

 '更新论坛贴数
conn.Execute("update luntan set tieshu=tieshu+1 where IDL="&IDL)	
 '  Response.Write ""&IDL&""
 cclt="select * from luntan where idl="&idl&""
set rslt=server.createobject("adodb.recordset")
rslt.open cclt,conn,1,3
lunhtml=rslt("html")
 if sallhtml=1 or lunhtml=1 then
 call shtm(ids)
 call  listhtml(idl)
 conn.Execute("update neirong set html=1 where IDS="&ids)
response.redirect "jinghuau/"&idl&"/"&ids&".htm"
else
response.redirect "show.asp?IDS="&IDS&"&Page="&replypage&""
end if
end if
end if '屏蔽词检查   
conn.close
set conn=nothing
end if 'ip被屏蔽
end if '屏蔽用户
Response.Flush %>