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

📄 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
%>
<!--#include file="config.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title><%=title_name%></title>
<LINK href="style.css" type=text/css rel=stylesheet>
</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="460" bordercolordark="#ffffff" bordercolorlight="#000000" bordercolor="#000000" height="408" >
  <tr> 
    <td colspan="2" bordercolordark="#FFFFFF" width="450" height="23"> 
    <font color="#CC0000" style="font-size: 9pt"><span class="p11">&nbsp;&nbsp;&nbsp;&nbsp; 
      您的发件信息已经成功提交到我们的网站,稍后我们将迅速处理您的信息并尽快和您联系!</span></font></td>
  </tr>
  <tr> 
    <td colspan="2" bordercolordark="#FFFFFF" width="450" height="23">
    <font class=c> <font class="p11" style="font-size: 9pt">您提交的发件信息:</font></font></td>
  </tr>
  <tr> 
    <td width="94" valign="middle" align="center" bordercolordark="#FFFFFF" height="23">
    <span style="font-size: 9pt"> 发件城市:&nbsp;</span></td>
    <td width="348" bordercolordark="#FFFFFF" height="23" ><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><font color=blue><span style="font-size: 9pt"> </span></font></td>
  </tr>
  <tr> 
    <td width="94" valign="middle" align="center" bordercolordark="#FFFFFF" height="23">
    <span style="font-size: 9pt"> 发件人地址 :&nbsp;</span></td>
    <td width="348" bordercolordark="#FFFFFF" height="23"><font color=red> 
    <span style="font-size: 9pt"> </span></font><font color=blue><%=rs("title")%></font><font color=red><span style="font-size: 9pt"> </span></font></td>
  </tr>
  <tr> 
    <td width="94" valign="middle" align="center" bordercolordark="#FFFFFF" height="23">
    <span style="font-size: 9pt"> 发件人姓名 :&nbsp;</span></td>
    <td width="348" bordercolordark="#FFFFFF" height="23"><%=rs("name")%> </td>
  </tr>
  <tr> 
    <td width="94" valign="middle" align="center" bordercolordark="#FFFFFF" height="23">
    <span style="font-size: 9pt"> E-mail :&nbsp;</span></td>
    <td width="348" bordercolordark="#FFFFFF" height="23"><%=rs("email")%> </td>
  </tr>
  <tr> 
    <td width="94" valign="middle" align="center" bordercolordark="#FFFFFF" height="23">
    <span style="font-size: 9pt"> 发件人电话 :&nbsp;</span></td>
    <td width="348" bordercolordark="#FFFFFF" height="23"><%=rs("area")%> </td>
  </tr>
  <tr> 
    <td width="94" valign="middle" align="center" bordercolordark="#FFFFFF" height="24">
    <span style="font-size: 9pt"> 收件人地址 :&nbsp;</span></td>
    <td width="348" bordercolordark="#FFFFFF" height="24" ><%=rs("address")%> </td>
  </tr>
  <tr> 
    <td width="94" valign="middle" align="center" bordercolordark="#FFFFFF" height="24">
    <span style="font-size: 9pt"> 收件人电话 :&nbsp;</span></td>
    <td width="348" bordercolordark="#FFFFFF" height="24"><%=rs("phone")%> </td>
  </tr>
  <tr> 
    <td colspan="2" bordercolordark="#FFFFFF" width="450" height="24"> 
      <div align="left"><span style="font-size: 9pt">您的补充意见如下:</span></div>
    </td>
  </tr>
  <tr> 
    <td colspan="2" bordercolordark="#FFFFFF" width="450" height="132">
      <blockquote><%=rs("comment")%> </blockquote>
    </td>
  </tr>
</table>
<table width="687" border="0" cellspacing="0" cellpadding="3" align="center">
  <tr  align="right">  
  <td colspan="2" height="30" valign="middle" align="right" width="681" >
  <p align="center"><span style="font-size: 9pt"><a href="index.asp">[返回表单]</a></span><a href="#" onclick="javascript:window.close();"><span style="font-size: 9pt">[关闭窗口]</span></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 + -