📄 book_write.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<%
if request("send")="ok" then
username=trim(request.form("username"))
usermail=trim(request.form("usermail"))
if username="" or request.form("Comments")="" then
response.write "<script language='javascript'>"
response.write "alert('填写资料不完整，请检查后重新输入！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
if checktxt(request.form("username"))<>request.form("username") then
response.write "<script language='javascript'>"
response.write "alert('您输入的用户名中含有非法字符，请检查后重新输入！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
if mailyes=0 then '邮箱为必填时检查邮箱是否合法
if checktxt(request.form("usermail"))<>request.form("usermail") then
response.write "<script language='javascript'>"
response.write "alert('您输入的邮箱中含有非法字符，请检查后重新输入！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
if Instr(usermail,".")<=0 or Instr(usermail,"@")<=0 or len(usermail)<10 or len(usermail)>50 then
response.write "<script language='javascript'>"
response.write "alert('您输入的电子邮件地址格式不正确，请检查后重新输入！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
end if
if len(request.form("Comments"))>1000 then
response.write "<script language='javascript'>"
response.write "alert('留言内容太长了，请不要超过"&maxlength&"个字符！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
set rss=Server.CreateObject("ADODB.RecordSet")
sqls="select * from book_setup "
rss.open sqls,conn,1,3
view=rss("view")
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from Feedback where online='1' order by Postdate desc"
rs.open sql,conn,1,3
rs.Addnew
rs("username")=Request("username")
rs("comments")=Request("comments")
rs("usermail")=Request("usermail")
rs("face")=Request("face")
rs("pic")=Request("pic")
rs("url")=Request("url")
rs("qq")=Request("qq")
view=cstr(view)
if view<>"0" then view="1"
rs("online")=view
rs("IP")=Request.serverVariables("REMOTE_ADDR")
rs.Update
rs.close
set rs=nothing
rss.close
set rss=nothing
response.write "<script language='javascript'>"
if view="0" then
response.write "alert('留言提交成功，留言须经管理员审核才能发布。');"
else
response.write "alert('留言提交成功，单击“确定”返回留言列表！');"
end if
response.write "location.href='gbook.asp';"
response.write "</script>"
response.end
end if
%>
<%
function checktxt(txt)
chrtxt="33|34|35|36|37|38|39|40|41|42|43|44|47|58|59|60|61|62|63|91|92|93|94|96|123|124|125|126|128"
chrtext=split(chrtxt,"|")
for c=0 to ubound(chrtext)
txt=replace(txt,chr(chrtext(c)),"")
next
checktxt=txt
end function
%>
<%
set book=conn.execute("select * from book_setup")
sitename=book("sitename")
admin=book("admin")
password=book("password")
maxlength=cint(book("maxlength"))
view=book("view")
bad=cstr(book("bad"))
set book=nothing
%>
<html><head><title><%=webname%>--意见反馈</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<!--#include file="webtop.asp"-->
<TABLE width=772 height="169" border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<td width="1" background="image/bgbg.gif"></td>
<TD class=b vAlign=top width=179>
<table width="178" border="0" cellspacing="0" cellpadding="0">
<TR>
<TD vAlign=top class=b><!--#include file="gouwucheinfo.asp"--></TD>
</TR>
<TR>
<TD class=b><!--#include file="searc.asp"--></TD>
</TR>
<TR>
<TD vAlign=top class=b><!--#include file="info_vote.asp" --></TD>
</TR>
</table>
<td width="1" background="image/bgbg.gif"></TD>
<TD class=b vAlign=top align=left width=590><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="image/book.gif" width="590" height="34"></td>
</tr>
</table>
<table width="590" border=0 cellspacing=0 cellpadding=0 align=center bgcolor="#FFFFFF" class="grayline">
<tr>
<td align=center height=50> <img border=0 src=images/write.gif>
<a href=gbook.asp><img border=0 src=images/read.gif title="我要看留言"></a>
</td>
</tr>
<tr>
<td> <form action=book_write.asp method=post name="book">
<table cellSpacing="1" borderColorDark="#ffffff" cellPadding="4" width="590" align="center" bgColor="#000000" borderColorLight="#000000" border="0">
<tr bgColor="#ebebeb">
<td width="20%" align=right>您的姓名：</td>
<td ><input type=text name="UserName" size="30" maxlength=16>
<font color="#FF0000">*</font></td>
</tr>
<tr bgColor="#ebebeb">
<td width="20%" align=right>您的邮箱：</td>
<td ><input type=text name="UserMail" size="30" maxlength=50>
<%if mailyes=0 then%>
<font color="#FF0000">*</font>
<%end if%>
</td>
</tr>
<tr bgColor="#ebebeb">
<td width="20%" align=right>您的网站：</td>
<td><input type=text value="http://" name="url" size="30" maxlength=100></td>
</tr>
<tr bgColor="#ebebeb">
<td width="20%" align=right>其它联系方式：</td>
<td><input type=text value="" name="QQ" size="30" maxlength=100>
（如QQ、MSN等）</td>
</tr>
<tr bgColor="#ebebeb">
<td width="20%" align=right>留言内容：<br>
<font color=red>（<%=maxlength%>字以内）</font></td>
<td><textarea name="Comments" rows="7" cols="66" style="overflow:auto;"></textarea></td>
</tr>
<tr bgColor="#ebebeb">
<td width="20%" align=right>请选择表情：</td>
<td> <input type="radio" value="1" name="face" checked>
<img border=0 src="images/face/face1.gif"> <input type="radio" value="2" name="face">
<img border=0 src="images/face/face2.gif"> <input type="radio" value="3" name="face">
<img border=0 src="images/face/face3.gif"> <input type="radio" value="4" name="face">
<img border=0 src="images/face/face4.gif"> <input type="radio" value="5" name="face">
<img border=0 src="images/face/face5.gif"> <input type="radio" value="6" name="face">
<img border=0 src="images/face/face6.gif"> <input type="radio" value="7" name="face">
<img border=0 src="images/face/face7.gif"> <input type="radio" value="8" name="face">
<img border=0 src="images/face/face8.gif"> <input type="radio" value="9" name="face">
<img border=0 src="images/face/face9.gif"> <input type="radio" value="10" name="face">
<img border=0 src="images/face/face10.gif"> <br> <input type="radio" value="11" name="face">
<img border=0 src="images/face/face11.gif"> <input type="radio" value="12" name="face">
<img border=0 src="images/face/face12.gif"> <input type="radio" value="13" name="face">
<img border=0 src="images/face/face13.gif"> <input type="radio" value="14" name="face">
<img border=0 src="images/face/face14.gif"> <input type="radio" value="15" name="face">
<img border=0 src="images/face/face15.gif"> <input type="radio" value="16" name="face">
<img border=0 src="images/face/face16.gif"> <input type="radio" value="17" name="face">
<img border=0 src="images/face/face17.gif"> <input type="radio" value="18" name="face">
<img border=0 src="images/face/face18.gif"> <input type="radio" value="19" name="face">
<img border=0 src="images/face/face19.gif"> <input type="radio" value="20" name="face">
<img border=0 src="images/face/face20.gif"> </td>
</tr>
<tr bgColor="#ebebeb">
<td width="20%" align=right>请选择头像：</td>
<td> <input type="radio" value="1" name="pic" checked>
<img border=0 src="images/face/pic1.gif" width=60> <input type="radio" value="2" name="pic">
<img border=0 src="images/face/pic2.gif" width=60> <input type="radio" value="3" name="pic">
<img border=0 src="images/face/pic3.gif" width=60> <input type="radio" value="4" name="pic">
<img border=0 src="images/face/pic4.gif" width=60> <input type="radio" value="5" name="pic">
<img border=0 src="images/face/pic5.gif" width=60> <br>
<input type="radio" value="6" name="pic">
<img border=0 src="images/face/pic6.gif" width=60> <input type="radio" value="7" name="pic">
<img border=0 src="images/face/pic7.gif" width=60> <input type="radio" value="8" name="pic">
<img border=0 src="images/face/pic8.gif" width=60> <input type="radio" value="9" name="pic">
<img border=0 src="images/face/pic9.gif" width=60> <input type="radio" value="10" name="pic">
<img border=0 src="images/face/pic10.gif" width=60> </td>
</tr>
<tr bgColor="#ebebeb">
<td colSpan="2"><input type="submit" value="提交留言" name="Submit2">
<input type="reset" value="重新填写" name="Submit2">
<input type=hidden name=send value=ok></td>
</tr>
</table>
</form></table></TD>
<td width="1" background="image/bgbg.gif"></td>
</TR>
</TBODY>
</TABLE>
<!--#include file="webfoot.asp"-->
</body>
</html>
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
function checkfk()
{
if(checkspace(document.fkinfo.fksubject.value)) {
document.fkinfo.fksubject.focus();
alert("您没有填写主题！");
return false;
}
if(checkspace(document.fkinfo.fkusername.value)) {
document.fkinfo.fkusername.focus();
alert("请填写您的姓名！");
return false;
}
if(checkspace(document.fkinfo.fklaizi.value)) {
document.fkinfo.fklaizi.focus();
alert("请填写您来自哪里！");
return false;
}
if(checkspace(document.fkinfo.fkcontent.value)) {
document.fkinfo.fkcontent.focus();
alert("请填写反馈信息内容！");
return false;
}
if(document.fkinfo.fkemail.value.length!=0)
{
if (document.fkinfo.fkemail.value.charAt(0)=="." ||
document.fkinfo.fkemail.value.charAt(0)=="@"||
document.fkinfo.fkemail.value.indexOf('@', 0) == -1 ||
document.fkinfo.fkemail.value.indexOf('.', 0) == -1 ||
document.fkinfo.fkemail.value.lastIndexOf("@")==document.fkinfo.fkemail.value.length-1 ||
document.fkinfo.fkemail.value.lastIndexOf(".")==document.fkinfo.fkemail.value.length-1)
{
alert("Email地址格式不正确！");
document.fkinfo.fkemail.focus();
return false;
}
}
else
{
alert("Email不能为空！");
document.fkinfo.fkemail.focus();
return false;
}
}
//-->
</script> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -