⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 saveinfo.asp

📁 蜘蛛人产品反馈系统
💻 ASP
字号:
<!--#include file="conn.asp" -->
<%
tmpmess=Server.HtmlEncode(request.form("comment"))
tmpmess=replace(tmpmess,chr(10),"&nbsp;&nbsp;<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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>产品信息登记成功:)</title>
<style>
<!--
BODY {
td           { font-size: 9pt }
a            { color: #000000; text-decoration: none }
a:hover      { text-decoration: none; color: #808080 }
.a           { text-decoration: none; color: #FFFFFF }
.a:hover     { text-decoration: none; color: #C0C0C0 }
.ab           { text-decoration: none; color: #FFFFFF }
.ab:hover     { text-decoration: none; color: #FFFF00 }
-->
</style>
</head>

<body class=noborder 
style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px" 
bgColor=#d4d0c8 leftMargin=0 topMargin=0 background="bg.gif" >
<table border=1 cellspacing=0 cellpadding=3 align="center" width="100%" bordercolordark="#ffffff" bordercolorlight="#000000" bordercolor="#000000" >
  <tr> 
    <td colspan="2" height="35" valign="middle" align="center" bordercolordark="#FFFFFF"> 
    </td>
  </tr>
  <tr> 
    <td colspan="2" bordercolordark="#FFFFFF"> <font color="#CC0000"><span class="p11">&nbsp;&nbsp;&nbsp;&nbsp; 
      您的产品信息已经成功提交到我们的网站,稍后我们将迅速处理您的信息并尽快作出答复!</span></font></td>
  </tr>
  <tr> 
    <td colspan="2" bordercolordark="#FFFFFF"><font size="2" class=c> <font size="3" class="p11">您提交的产品信息:</font></font></td>
  </tr>
  <tr> 
    <td width="171" valign="middle" align="right" bordercolordark="#FFFFFF">公司名称:&nbsp;</td>
    <td width="814" bordercolordark="#FFFFFF" ><font color=blue><%=rs("title")%> </font></td>
  </tr>
  <tr> 
    <td width="171" valign="middle" align="right" bordercolordark="#FFFFFF">产品类型:&nbsp;</td>
    <td width="814" bordercolordark="#FFFFFF"><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="171" valign="middle" align="right" bordercolordark="#FFFFFF">姓 名:&nbsp;</td>
    <td width="814" bordercolordark="#FFFFFF"><%=rs("name")%> </td>
  </tr>
  <tr> 
    <td width="171" valign="middle" align="right" bordercolordark="#FFFFFF">E-mail:&nbsp;</td>
    <td width="814" bordercolordark="#FFFFFF"><%=rs("email")%> </td>
  </tr>
  <tr> 
    <td width="171" valign="middle" align="right" bordercolordark="#FFFFFF" height="25">来 自:&nbsp;</td>
    <td width="814" bordercolordark="#FFFFFF" height="25"><%=rs("area")%> </td>
  </tr>
  <tr> 
    <td width="171" valign="middle" align="right" bordercolordark="#FFFFFF">地 址:&nbsp;</td>
    <td width="814" bordercolordark="#FFFFFF" ><%=rs("address")%> </td>
  </tr>
  <tr> 
    <td width="171" valign="middle" align="right" bordercolordark="#FFFFFF">电 话:&nbsp;</td>
    <td width="814" bordercolordark="#FFFFFF"><%=rs("phone")%> </td>
  </tr>
  <tr> 
    <td colspan="2" bordercolordark="#FFFFFF"> 
      <div align="left">您的补充意见如下:</div>
    </td>
  </tr>
  <tr> 
    <td colspan="2" bordercolordark="#FFFFFF">
      <blockquote><%=rs("comment")%> </blockquote>
    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="3" align="center">
  <tr  align="right">  
  <td colspan="2" height="30" valign="middle" align="right" ><a href="dengji.htm">[返回到产品信息登记表或登记其它产品]</a><a href="#" onclick="javascript:window.close();">[关闭窗口]</a></td> 
</tr> 
</table>
</body>

</html>
<%                  
rs.close                  
set conn=nothing                  
set rs=nothing                  
end if                  
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -