answer.asp

心里在线咨询系统 怎么还有字数限制

<!--#include file="../config/sys.asp" -->
<%id = request.querystring("id")
save = true
function zweistellig(wert)
if len(wert)<2 then wert = "0" & wert
zweistellig = wert
end function
function check1(wert)
if len(wert)<1 then save = false
wert = replace(wert,"'", "`")
wert = replace(wert,chr(34), "``")
check1 = wert
end function
function check2(wert)
if len(wert)<1 then wert = " "
wert = replace(wert,"'", "`")
wert = replace(wert,chr(34), "``")
check2 = wert
end function
CheckCode=replace(Request("CheckCode"),"'","")
			if session("CheckCode")="" then
			response.write"<SCRIPT language=JavaScript>alert('你页面停留时间过长，请重新登陆！');"
			response.write"javascript:history.go(-1)</SCRIPT>"
			response.End
			end if
			if CheckCode<>CStr(session("CheckCode")) then
			response.write"<SCRIPT language=JavaScript>alert('你输入的验证码不正确，请重新输入！');"
			response.write"javascript:history.go(-1)</SCRIPT>"
			response.End
			end if		
if session("keeptime")="" then 
	session("keeptime")=now
else if (dateDiff("s",session("keeptime"),now)<=seconds and ((session("admin")<>1) and (session("admin")<>2))) then 
	response.Redirect("../error.asp?msg=你的发言过快！")
else session("keeptime")=now
end if
end if

autor = check1(request.form("autor"))
title = check1(request.form("title"))
message = check1(request.form("message"))
if killword<>"" then 
arrayx=Split(killword,",")
for i=0 to ubound(arrayx)
title =replace(title ,arrayx(i),"***")
message=replace(message,arrayx(i),"***")
next
end if
addip=Request.ServerVariables("REMOTE_ADDR")

if save = true then

	sqlp = "select HELPFLOG from postings where id = " & id
		set rsp=server.createobject("adodb.recordset")
		rsp.open sqlp,conn,1,1
			if not rsp.eof then
			MIMI=RSP("HELPFLOG")
			end if
		rsp.close

updated = right(year(date),2) & zweistellig(month(date)) & zweistellig(day(date)) & zweistellig(hour(time)) & zweistellig(minute(time)) & zweistellig(second(time))
sql = "insert into postings (title, autor,  message, views, replies, datum, datum_updated, updated, connected,addip,HELPFLOG)"
sql = sql & " values('"&title&"', '"&autor&"','"&message&"', 0, 0, '"& date & " " & time &"', '"& date & " " & time &"', "&updated&", "&id&",'"&addip&"','"&MIMI&"')" 
conn.Execute(sql)

sql = "update postings set replies = replies + 1 where id = " & id
conn.Execute(sql)
sql = "update postings set datum_updated = '"&date & " " & time&"' where id = " & id
conn.Execute(sql)
sql = "update postings set updated = '"&updated&"' where id = " & id
conn.Execute(sql)

sql = "update postings set lastdate = '"&date()&"' where id = " & id
conn.Execute(sql)


CONN.close
set CONN = nothing


response.redirect("view.asp?id=" & id)
else%>
<script language="vbscript">
msgbox "请检查填写项目是否完整！",vbInformation,"出错提示！"
window.location="vbscript:history.back"
</script><%end if%>