求网页制作：制作留言板的代码

Question

只要求简单的留言板代码，就像百度贴吧留言板的样式，自己看到就行了的。我们还没学到，这次作业我想加个留言板在自己的网页作业里

Answer 1

<!--#include file="../inc/conn.asp"-->
<%
dim name,qq,email,sex,liuyan,ly_type,ip,riqi
name=request("ly_user_name")
qq=request("ly_user_qq")
email=request("ly_user_email")
sex=request("ly_sex")
liuyan=request("ly_liuyan")
ly_type=request("ly_type")
ip=request.ServerVariables("REMOTE_ADDR")

if name="" then
response.write "<script language=javascript>alert('您的名字没有填写，请填写完整信息，谢谢!');history.go(-1);</script>"
elseif qq="" then
response.write "<script language=javascript>alert('忘了QQ哦');history.go(-1);</script>"
elseif liuyan="" then
response.write "<script language=javascript>alert('留言内容不能为空!');history.go(-1);</script>"

else
if ly_type="" then
ly_type=1
else
ly_type=2
end if

dim sql

sql="insert into liuyan(ly_user_name,ly_user_qq,ly_user_email,ly_sex,ly_liuyan,ly_type,ly_user_ip,ly_user_riqi) values('" & name & "','" & qq & "','" & email & "','" & sex & "','" & liuyan & "','" & ly_type & "','" & ip & "',#" & date() & "#)"
db.execute(sql)

response.redirect "ly_main.asp"
end if
%>