📄 feedback.asp
字号:
<%
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" content="text/html; charset=gb2312">
<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"><font color="#000000">单 位 名 称</font></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 "平机设计的订单 "
case "A3"
Response.Write "虚拟主机的订单 "
case "A4"
Response.Write "域名注册的订单 "
case "A5"
Response.Write "程序订制的订单 "
case "A6"
Response.Write "服务投诉 "
End select
%>
</font></td>
</tr>
<tr>
<td width="86">单 位 地 址</td>
<td width="456"><%=rs("area")%> </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"><font size="2">借 鉴 站 点</font></td>
<td width="456" ><font color=red> <%=rs("address")%> </font></td>
</tr>
<tr>
<td width="86">联 系 电 话</td>
<td width="456"><%=rs("phone")%> </td>
</tr>
<tr>
<td colspan="2">
<div align="left"><font size="2">站点整体设计风格</font>如下：</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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -