您所在位置：主题：我的留言板出问题了，高手请解答，谢谢。
huoyanone
[专家分：0] 发布于 2009-02-01 12:48:00
我的留言板出问题了，高手请解答，谢谢。（修改别人的）
我只填写必填项，提交页面能通过，但是写数据库出错，feedback页面显示出错。但是，所有项目填齐，就全部能通过了。
[color=000080]提交页面：[/color]
<html>
<head>
<title>意见和建议提交</title>
<SCRIPT language=javascript>
function check_input()
{
if (Frm.title.value=="")
{ alert("主题不能为空，请重新填写！");
return false;
}
if (Frm.leixing.value=="")
{ alert("类型不能为空，请重新填写！");
return false;
}
if (Frm.comment.value=="")
{ alert("反馈信息不能为空，请重新填写！");
return false;
}
return true;
}
</SCRIPT>
<style type="text/css">
<!--
.p9 { font-size: 9pt}
.p11 { font-size: 11pt}
.STYLE3 {
font-size: 16pt;
color: #2A00FF;
font-weight: bold;
}
.STYLE4 {color: #2A00FF}
.STYLE5 {color: #000000}
-->
</style>
</head>
<body bgcolor="#FFFFFF">
<table width="499" border="2" align="center" cellpadding="0" cellspacing="8" bordercolor="#A0A0A4" bgcolor="#E6FBE3" style="border:1px double rgb(200,200,200)">
<tr>
<td class="p11">
<p align="center"><br>
<span class="STYLE3"><font face="楷体_GB2312, 黑体, 隶书">意见和建议提交</font></span><font face="楷体_GB2312, 黑体, 隶书"><br>
<br>
</font><span class="p9"> 请填写以下反馈表单，谢谢！ </span></p>
<form action=feedback.asp method=post name=Frm >
<p class="p9"> 主 题：
<input type="text" name="title" size="48" style="border:1px double rgb(88,88,88);font:9pt">
<span class="STYLE4">*</span><br>
类 型：
<select name="leixing">
<option selected value="A1">对网站的意见</option>
<option value="A2">给网站的建议</option>
</select>
<span class="STYLE4">*<br>
</span><br>
姓 名：
<input type="text" name="name" style="border:1px double rgb(88,88,88);font:9pt">
<br>
E-mail：
<input type="text" name="email" style="border:1px double rgb(88,88,88);font:9pt">
<span class="STYLE4">建议填写，方便我们与您取得联系</span> <br>
来 自：
<input type="text" name="area" style="border:1px double rgb(88,88,88);font:9pt">
<br>
地 址：
<input type="text" name="address" size="48" style="border:1px double rgb(88,88,88);font:9pt">
<br>
电 话：
<input type="text" name="phone" style="border:1px double rgb(88,88,88);font:9pt">
<br>
<br>
反馈信息：<span class="STYLE5">（请使用<span class="STYLE4"><font face="Arial, Helvetica, sans-serif">Enter</font></span>键来换行）</span><br>
<textarea name="comment" cols="56" rows="10" style="border:1px double rgb(88,88,88);font:9pt"></textarea>
<br>
<br>
<input type="submit" name="Submit" value=" 提 交 信 息 " style="border:1px double rgb(88,88,88);font:9pt">
<input type="reset" name="Reset" value=" 重 新 填 写 " style="border:1px double rgb(88,88,88);font:9pt">
</p>
</form>
</td>
</tr>
</table>
</html>
[size=6]feedback页面[/size]<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("data/feedback.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
tmpmess=Server.HtmlEncode(request.form("comment"))
tmpmess=replace(tmpmess,chr(10)," <br>")
set rstmp=server.createobject("adodb.recordset")
set rstmp=conn.execute("Select * from feedbackinfo Where comment='"&trim(tmpmess)&"'")
if not rstmp.eof then
response.write("<p><font color=red style=""font:11pt"">错误：您重复提交了相同的反馈信息！</font><p><a href=javascript:history.back()>按此返回>></a>")
else
str="Insert Into feedbackinfo (title,leixing,name,email,area,address,phone,mess_date,mess_time,comment) Values('"
str=str & request.form("title") & "','"
str=str & request.form("leixing") & "','"
str=str & request.form("name") & "','"
str=str & request.form("email") & "','"
str=str & request.form("area") & "','"
str=str & request.form("address") & "','"
str=str & request.form("phone") & "','"
str=str & cstr(DATE) & "','"
str=str & CStr(Time) & "','"
str=str & tmpmess & "')"
' Response.Write str
conn.execute(str)
set rs=server.createobject("adodb.recordset")
set rs=conn.execute("Select * from feedbackinfo Where comment='"&tmpmess&"'")
session.contents("comment")=tmpmess
%>
<html>
<head>
<title>反馈信息提交成功！</title>
<meta http-equiv="Content-Type" c>
<style type="text/css">
<!--
.p11 { font-size: 11pt}
.p9 { font-size: 9pt}
td{ font-size: 9pt}
-->
</style>
</head>
<body bgcolor="#FFFFFF" link="#FF0000" alink="#33CC00" vlink="#FF0000" topmargin="2">
<table width=500 border=0 align=center bgcolor="ffffff">
<tr>
<td>
<div align="left">
<p class="p11"><br>
<font color="#CC0000"><span class="p11">您的反馈信息已经成功提交到我们的网站，稍后我们将迅速处理您的反馈信息并将处理情况反馈给您！</span></font></p>
</div>
</td>
</tr>
</table>
<table border=1 cellspacing=0 cellpadding=3 align="center" width="500" bordercolordark="#ffffff" bordercolorlight="#999999" bgcolor="ffffec">
<tr>
<td colspan="2"><font size="2" class=c> <font size="3" class="p11">您提交的反馈信息：</font></font></td>
</tr>
<tr>
<td width="86">主 题</td>
<td width="456" ><font color=blue><%=rs("title")%> </font></td>
</tr>
<tr>
<td width="86">类 型</td>
<td width="456"><font color=red>
<%
select case rs("leixing")
case "A1"
Response.Write " 对网站的意见"
case "A2"
Response.Write "给网站的建议 "
End select
%> </font></td>
</tr>
<tr>
<td width="86">姓 名</td>
<td width="456"><%=rs("name")%> </td>
</tr>
<tr>
<td width="86">E-mail</td>
<td width="456"><%=rs("email")%> </td>
</tr>
<tr>
<td width="86">来 自</td>
<td width="456"><%=rs("area")%> </td>
</tr>
<tr>
<td width="86">地 址</td>
<td width="456" ><%=rs("address")%> </td>
</tr>
<tr>
<td width="86">电 话</td>
<td width="456"><%=rs("phone")%> </td>
</tr>
<tr>
<td colspan="2">
<div align="left">反馈的具体信息如下：</div>
</td>
</tr>
<tr>
<td colspan="2"><blockquote><%=rs("comment")%> </blockquote></td>
</tr>
</table>
<table width="400" border="0" cellspacing="0" cellpadding="3" align="center">
<tr align="right">
<td colspan="2" ><a href="index.html">［返回到反馈表］</a> <a href="../index.html">［返回主页］</a></td>
</tr>
</table>
<hr width="500" size="1">
</body>
</html>
<%
rs.close
set conn=nothing
set rs=nothing
end if
%>