addreview.asp

来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 32 行

<%@ Language=VBScript %>
<!--#include file=include/conn.asp -->
<%
NewsID=Request.Form("NewsID")
url=trim(Request.Form("url"))
Author=trim(Request.Form("Author"))
if author="" then
Response.Write "请输入您的姓名！"
Response.End
end if
author=replace(author,"'","''")

email=trim(Request.Form("email"))
if email="" then
Response.Write "请输入您的EMAIL。"
Response.End
end if
email=replace(email,"'","''")

Content=trim(Request.Form("content"))
if content="" then
Response.Write "请输入评论内容."
Response.End
end if
content=replace(content,"'","''")

sql="INSERT INTO ReView (NewsID,Author,Email,Content) values (" & NewsID & ",'" & Author & "','" & Email & "','" & Content & "')"
conn.Execute (sql)

Response.Redirect url

%>