comment_save.asp

网络购物

<%
'=========================================
'
'         凡人网络购物系统V4.0免费版
'    FreeDown.Net [e-mail] 
'            www.freedown.net
'     版权所有·免费版仅供研究测试只用
'            商业使用请购买正版
'
'=========================================
%>
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<link rel="stylesheet" type="text/css" href="css.css">
<%
dim id,mailX,CommentX
If IsEmpty(request("id")) Then
response.write "没有该产品" 
End If
id=request("id")
set rs=conn.execute("select * from hw where hw_id="&id&"")
if rs.bof and rs.bof then
response.write "该产品不存在" 
End If
rs.close
set rs=nothing
	mailX=replace(trim(request("MailX")),"'","")
	CommentX=replace(trim(Request("CommentX")),"'","")
    if mailX="" or CommentX="" then
response.write "必须项为空时系统不接受" 
else
set rs=nothing
CommentX = HTMLEncode(CommentX)
  conn.execute("insert into Comment(dataid,mailX,CommentX) values ('"&id&"','"&mailX&"','"&CommentX&"')")
  Successstr="您所提交的评论已经成功存储入ACCESS"
  Successbox(Successstr)
  end if
%>