pinglun_save.asp

来自「网上购物系统 asp+sql server 2005」· ASP 代码 · 共 48 行

<!--#include file="include/dbopenbd.asp"-->
<%
if request.form("save")="ok" then 
call check_path()   '保证此页的调用是合法的
set rs=conn.execute("select * from s_setup")
jianju=clng(rs("book_jianju"))		'间距
view=cstr(rs("view1"))			'评论是否需要审核
mailyes=clng(rs("mailyes1"))		'是否必填邮箱

prodid=aspsql(request("prodid"))
name=aspsql(request.form("name"))
mail=aspsql(request.form("mail"))
nr=request.form("nr")
jibie=request.form("jibie")

    if mail<>"" then		'邮箱i不为空时检查邮箱是否合法
	if Instr(mail,".")<=0 or Instr(mail,"@")<=0 or len(mail)<10 or len(mail)>50 then
	mGoBack "出错了，您输入的电子邮件地址格式不正确，请检查后重新输入！"
	end if
    end if

	set rs=Server.CreateObject("ADODB.RecordSet")
	sql="select * from s_pinglun"
	rs.open sql,conn,1,3

			rs.Addnew
			rs("name")=name
			rs("prodid")=prodid
			rs("mail")=mail
			rs("nr")=nr
			rs("jibie")=jibie
			rs("status")=view
			rs("IP")=Request.serverVariables("REMOTE_ADDR")
			rs.Update
		rs.close
		set rs=nothing
	response.write "<script language='javascript'>"
	if view="0" then
	response.write "alert('评论提交成功，评论须经管理员审核才能发布。');"
	else
	response.write "alert('评论提交成功，感谢您的参与！');"
	end if
	response.write "location.href='list.asp?prodid="&prodid&"';"
	response.write "</script>"
	response.end
end if
%>