guestbook_save.asp

①后台增加了基本设置功能

<!--#include file="Inc/Code.asp" -->
<!--#include file="Inc/articleCHAR.INC"-->
<%
If request.form("xinging")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没输入姓名，请返回检查！！"");history.go(-1);</script>")
response.end
end if
If request.form("dinahua")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没输入联系电话，请返回检查！！"");history.go(-1);</script>")
response.end
end if
If request.form("E-Mail")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没输入E-Mail，请返回检查！！"");history.go(-1);</script>")
response.end
end if
If request.form("Title")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没输入标题，请返回检查！！"");history.go(-1);</script>")
response.end
end if
If request.form("content")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没输入留言内容，请返回检查！！"");history.go(-1);</script>")
response.end
end if

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from book"
rs.open sql,conn,1,3


rs.addnew
rs("name")=htmlencode2(request.form("name"))
rs("xinging")=htmlencode2(request.form("xinging"))
rs("dinahua")=htmlencode2(request.form("dinahua"))
rs("E-Mail")=htmlencode2(request.form("E-Mail"))
rs("sex")=htmlencode2(request.form("sex"))
rs("where")=htmlencode2(request.form("where"))
rs("title")=htmlencode2(request.form("title"))
rs("content")=htmlencode2(request.form("content"))
rs("time")=date()
rs.update
rs.close
if request.form("name")="用户留言" then
  response.write"<SCRIPT language=JavaScript>alert('在线留言已提交成功！');"
  response.write"location.href = 'Guestbook.asp'</script>"
end if
%>