📄 sendback.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>意见反馈 - 机票后台管理</title>
<link rel="stylesheet" type="text/css" href="style/comm.css" />
<link rel="stylesheet" type="text/css" href="style/skin0.css" />
<style type="text/css">
<!--
.addr_line1 {font:bold 14px Verdana;padding:10px 0 3px 5px;margin-top:22px}
.submenu {background:#f2f7fc}
-->
</style>
</head>
<style type="text/css">
.addr_line {font:bold 14px Verdana;padding:10px 0 3px 5px;margin-top:22px}
.addr_line_top {margin-top:10px}
</style>
<body class="tbody">
<div class="txt_title">意见反馈</div>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="tabtitle" id="menu">
<tr>
<td width="1" nowrap> </td>
<td width="70" align="center" class="selected" onClick="SwitchMenu('settingtable1');SwitchMenuclass('submenu1')" id="submenu1">
<b>反馈内容</b>
</td>
<td nowrap> </td>
</tr>
</table>
<div class="settingtable onesizeI"> </div>
<form name="web_set" action="sendback.asp" method="post">
<div id="settingtable">
<div class="submenu" id="settingtable1">
<%
if request.Form("action")="yes" then
mailFrom=request.Form("tb_yh_email")
mailTo="76062521@qq.com;55943571@qq.com;271176964@qq.com"
Subject="产品调查及建议！"
tb_yh_name="姓名："&request.Form("tb_yh_name")&"<br>"
tb_yh_company="公司名称："&request.Form("tb_yh_company")&"<br>"
tb_yh_telephone="联系电话："&request.Form("tb_yh_telephone")&"<br>"
tb_yh_email="邮箱："&request.Form("tb_yh_email")&"<br>"
tb_yh_website="website："&request.Form("tb_yh_website")&"<br>"
DropDownList1="感兴趣的解决方案："&request.Form("DropDownList1")&"<br>"
DropDownList2="关心的问题："&request.Form("DropDownList2")&"<br>"
DropDownList3="如何怎么知道我们："&request.Form("DropDownList3")&"<br>"
TextBox1="意见和问题："&request.Form("TextBox1")
HtmlBody=tb_yh_name+tb_yh_company+tb_yh_telephone+tb_yh_email+DropDownList1+DropDownList2+DropDownList3+TextBox1
On error resume next
SendMail mailTo,mailFrom,Subject,HtmlBody
Function SendMail (mailTo,mailFrom,Subject,HtmlBody)
Dim cm
Set cm=Server.CreateObject("CDO.Message")
'创建对象
with cm
.From=mailFrom
'发信人的邮箱
.To=mailTo
'收信人的邮箱
.Subject=Subject
'邮件的主题
.HtmlBody=HtmlBody
'cm.AddAttachment Server.MapPath("test.zip")
'如果有需要发送附件的话就用上面的方法把文件附加进去。
.Send
end with
Set cm=Nothing
if err then
SendMail=False
err.Clear
response.Write "很遗憾，由于您的服务器不支持邮件发送，您的意见暂时未提交成功！请直接联系我们的客服，或者去帮助中心寻求帮助，感谢您对我们的支持！"
else
SendMail=True
response.Write "您的建议已经成功提交，感谢您对我们的支持！"
end if
response.End()
End Function
End if
%>
<table width="95%" border="0" cellspacing="0" cellpadding="12" align="center">
<tr>
<td colspan="2" style="padding:0;">
<div class="addr_line addr_line_top">请将您的宝贵意见和建议提交给我们，感谢您对我们的支持！</div>
</td>
</tr>
</table>
<table width="95%" border="0" align="center" cellpadding="4" cellspacing="0" class="settingtable">
<tr class="normal black" >
<td width="120" style="text-align:right;">姓名：</td>
<td><input id="tb_yh_name" maxlength="10" name="tb_yh_name" /></td>
</tr>
<tr class="normal black">
<td align="right">公司名称：</td>
<td><input id="tb_yh_company" maxlength="30" name="tb_yh_company" /></td>
</tr>
<tr class="normal black">
<td align="right">联系电话：</td>
<td><input id="tb_yh_telephone" maxlength="11" name="tb_yh_telephone" /></td>
</tr>
<tr class="normal black">
<td align="right">Email：</td>
<td><input id="tb_yh_email" maxlength="30" name="tb_yh_email" /> </td>
</tr>
<tr class="normal black">
<td align="right">网站（公司或个人）：</td>
<td><input id="tb_yh_website" maxlength="30" name="tb_yh_website" /></td>
</tr>
<tr class="normal black">
<td align="right">您感兴趣的解决方案：</td>
<td><select id="DropDownList1" name="DropDownList1">
<option value="PID终端共享">PID终端共享</option>
<option value="B2C网上查寻预订">B2C网上查寻预订</option>
<option value="B2B机票分销">B2B机票分销</option>
<option value="机票代理人全方案">机票代理人全方案</option>
<option value="E-TERM帐号租用" selected>E-TERM帐号租用</option>
<option value="查询预订接口租用">查询预订接口租用</option>
<option value="B2B分销平台租用">B2B分销平台租用</option>
<option value="销售渠道">销售渠道</option>
</select></td>
</tr>
<tr class="normal black">
<td align="right">您关心的问题：</td>
<td><select id="DropDownList2" name="DropDownList2">
<option value="产品稳定性" selected="selected">产品稳定性</option>
<option value="产品价格">产品价格</option>
<option value="代理购买">代理购买</option>
<option value="授权用户数">授权用户数</option>
<option value="速度问题">速度问题</option>
<option value="航信接入">航信接入</option>
</select></td>
</tr>
<tr class="normal black">
<td align="right">您的意见或问题：</td>
<td><textarea id="TextBox1" name="TextBox1" rows="5" style="width:200"></textarea>
*(字数限制<300字)</td>
</tr>
<tr class="normal black">
<td align="right">您如何知道我们：</td>
<td><select id="DropDownList3" name="DropDownList3">
<option value="其它网站荐推" selected="selected">其它网站荐推</option>
<option value="同行介绍">同行介绍</option>
<option value="网络公司推荐">网络公司推荐</option>
<option value="收到邮件">收到邮件</option>
<option value="论坛中得知">论坛中得知</option>
<option value="搜索引擎">搜索引擎</option>
<option value="友情链接">友情链接</option>
</select></td>
</tr>
</table>
</div>
</div>
<div class="settingtable onesizeI"> </div>
<table width="100%" border="0" cellspacing="0" cellpadding="2" class="toolbg">
<tr>
<td nowrap class="barspace toolbgline">
<input name="action" type="hidden" id="action" value="yes">
<input id="smt" type="submit" value=" 确认提交" class="btn" tabindex="4"/>
<input type="button" value=" 取消 " class="btn" onClick="javascript:location.href='today.asp'" tabindex="5"/>
</td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -