<% dim id rstable = tbl_content 'the content const rsclstable = "class" 'class table Function RemoveHTML(strHTML) Dim objRegExp, Match, Matches Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<.+?>" Set Matches = objRegExp.Execute(strHTML) For Each Match in Matches strHtml=Replace(strHTML,Match.Value,"") Next RemoveHTML=strHTML Set objRegExp = Nothing End Function Function GetCode() Dim TestObj On Error Resume Next Set TestObj = Server.CreateObject("Adodb.Stream") Set TestObj = Nothing If Err Then Dim TempNum Randomize timer TempNum = Clng(8999*Rnd+1000) Session("GetCode") = TempNum GetCode = Session("GetCode") Else GetCode = "" End If End Function %> 文章投稿

投稿指南


所有注册用户都可以投递文章/新闻，步骤如下
1、点击首页顶部导航栏“发表文章”。
2、本站编辑审核。
3、验证通过的文章/新闻将显示在本站的相应的频道。

发表文章/新闻应该注意些什么？
1、原作文章，请在标题处注明“原创”字样；
2、对于非原作文章，请尊重原作者的权益，请注明文章的作者、出处、出处链接。
3、文章和新闻中不能含有外部链接和超级链接；
4、本站接受文章/新闻的前提是该文对广大用户有所帮助，纯粹的广告文字将不予通过审核。
5、与博彩相关或者与互联网密切相关。
6、由于投稿数量众多，删稿不通知，请作者发布文章前先自留稿底。

我的投稿需要多长时间才能通过审核？
稿子审核时间是，早上8:30到中午12:00，下午1:00到5:30，晚上8:00到11:30，正常情况下，12小时内会通过审核，有时投稿比较多时间有可能会延迟。如果审核通过，文章会显示在本站相应栏目频道，请不要重复投稿。


<% if ( request.Form("submit") = "") then %>
文章标题： * 必须填写
所属栏目： <% sid = clng(request.QueryString("selectedid")) set cls= new clsdata cls.table = rsclstable response.Write cls.showselect("clsid" , sid) %>
来源：
作者： * 必须填写
验证码: <%=getcode%>
内容： * 必须填写
 



<% else title = RemoveHTML(trim(request.Form("title"))) clsid = RemoveHTML(trim(request.Form("clsid"))) from = RemoveHTML(trim(request.Form("from"))) writer = RemoveHTML(trim(request.Form("writer"))) content = RemoveHTML(trim(request.Form("content"))) code=trim(request.Form("code")) If (code="") then response.Write alert("错误!\n你没有填写验证码!","back") response.End() End If if cstr(session("GetCode"))<>cstr(code) then response.Write alert("验证码错误!","index.asp") response.End() end if If (title="") then response.Write alert("错误!\n你没有填写文章标题!","back") response.End() End If If (writer="") then response.Write alert("错误!\n你没有填写作者!","back") response.End() End If If (content="") then response.Write alert("错误!\n你没有填写请输入内容!","back") response.End() End if set rs = server.CreateObject("adodb.recordset") rs.cursorlocation=3 rs.open "content",conn,1,2 rs.addnew rs("title") = title rs("clsid") = clsid rs("from") = from rs("writer") = writer rs("arcrank") = 0 rs("content") = content rs("time") = Format_Time(now(), 2) rs.update set rs =nothing response.Write "
投稿成功！请等待审核~" end if %>