% Dim Nsortid,sortname,gtopic Nsortid = Trim(Request("Nsortid")) gtopic=request.querystring("str") Dim DBC Set DBC=Server.createObject("hb1797.main") if DBC.checkIsInt(Nsortid)=false then Nsortid=1 select case Nsortid case 1 gtopic="无主题" case 5 gtopic="我要找菜谱……" case 4 If CStr(gtopic) = "" Or IsNull(gtopic) Then gtopic="我为餐馆酒店栏目纠错" else gtopic="我为【"& gtopic &"】纠错" end if case else gtopic="我为美食圈栏目纠错" end select sortname=DBC.gbookGetClassItem(Nsortid,1) dim ErrMsg if request("send")="ok" then '=======================屏蔽字符验证(标题和正文)================== dim topic,content topic= Trim(Request("topic")) content=Trim(Request.form("comments")) If CStr(topic) = "" Or IsNull(topic) Then ErrMsg = "留言标题不能为空" Call ShowErrMsg(ErrMsg) End If If CheckIsFuckBadStr(topic) Then ErrMsg = "留言标题中含非法字符(违禁或被管理员屏蔽)\n请修改后再提交!" Call ShowErrMsg(ErrMsg) End If If CStr(content) = "" Or IsNull(content) Then ErrMsg = "留言正文不能为空" Call ShowErrMsg(ErrMsg) End If If CheckIsFuckBadStr(content) Then ErrMsg = "留言正文中含非法字符(违禁或被管理员屏蔽)\n请修改后再提交!" Call ShowErrMsg(ErrMsg) End If '========================验证码============================= dim myanswer myanswer = Request.Form("myanswer") If CStr(myanswer) = "" Or IsNull(myanswer) Then ErrMsg = "问题答案不能为空" Call ShowErrMsg(ErrMsg) End If If CheckEvil(myanswer) = False Then ErrMsg = "问题回答错误" Call ShowErrMsg(ErrMsg) End If '================================================================= if ErrMsg="" then DBC.gbooksavepost() Session("TheEvil") = "" end if set DBC=nothing %>