comment.asp

官方最新的南方数据v12生成静态商业版。全站生成静态。

<!--#Include File="inc/Check_Sql.asp"-->
<!--#include file="inc/conn.asp"--> 
<%id=cstr(replace(trim(request("id")),"'",""))
VerifyCode=replace(trim(Request("VerifyCode")),"'","")
if VerifyCode<>CStr(session("VerifyCode")) then
  Response.Write("<script language=""JavaScript"">alert(""错误：您输入验证码有错，请返回检查！！"");history.go(-1);</script>")
  response.end
end if
com_name=Replace(trim(Request.Form("com_name")),"'","''") 
content=Replace(trim(Request.Form("com_content")),"'","''") 
if id="" then%>
请选择你要评论的文章!<a href="Shownews.asp?id=<%=id%>">请返回</a>
<%
Response.end 
end if
if com_name="" then%>
请输入你的大名!<a href="Shownews.asp?id=<%=id%>">请返回</a>
<%
Response.end 
end if
if content="" then%>
评论内容不能为空?!<a href="Shownews.asp?id=<%=id%>">请返回</a>
<%
Response.end 
end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from 0791idc_comment",conn,1,3
rs.addnew
rs("com_name")=com_name
rs("com_content")=content
rs("com_typeid")=id
rs("com_date")=date
rs.update
rs.close
set rs=nothing
response.redirect "Shownews.asp?id="&id
%>