add_news_save.asp

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

<!--#include file="../config/sys.asp" -->
<%a=check_session()
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		

autor = check1(request.form("autor"))
title = check1(request.form("title"))
message = 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

newstype = check2(request.form("newstype"))
remind= check2(request.form("remind"))
addip=Request.ServerVariables("REMOTE_ADDR")
if save = true then
	sql = "insert into news (title, autor,  message, views, replies, datum, datum_updated, connected,addip,newstype,remind)"
	sql = sql & " values('"&title&"', '"&autor&"', '"&message&"', 0, 0, '"& date & " " & time &"', '"& date & " " & time &"', 0,'"&addip&"',"&newstype&",'"&remind&"')" 
	conn.Execute(sql)
	CONN.close
	set CONN = nothing
	response.redirect("news.asp")
else%>
<script language="vbscript">
		msgbox "请检查填写项目是否完整！",vbInformation,"出错提示！"
		window.location="vbscript:history.back"
</script>
<%end if%>