📄 tousu.asp
字号:
<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="common.asp" -->
<%
set HyClubRs=nothing
set HyClubRs=server.CreateObject("adodb.recordset")
sql = "select Hy.HyName from hy left join hyClub on hy.ID=HyClub.HyID"
HyClubRs.Open sql,conn
%>
<script>
function viewa(url){
var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=100,width=575,height=240');
}
</script>
<html><head><title><%=WebName%>·在线留言</title>
<meta content="zh-cn" http-equiv="Content-Language">
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
<link href="include/e1.css" rel="stylesheet">
<meta content="Microsoft FrontPage 5.0" name="GENERATOR"></head>
<body bgColor="#7BD7FF" leftMargin="0" topMargin="0" marginwidth="0" marginheight="0">
<center>
<table width="770" height="428" border="0" align="center" cellPadding="0" cellSpacing="0" bordercolor="#00B2FF" style="border-collapse: collapse">
<tbody>
<tr>
<td vAlign="top" height="401" width="769">
<table border="0" cellPadding="0" cellSpacing="0" width="769">
<tbody>
<tr>
<td align="right" width="38">
</td>
<br><br><br><br>
<td height="25" width="679"><b>投诉专卖店</b></td>
</tr></tbody></table>
<div align="center">
<center>
</center>
</div>
<center>
<table border="0" cellSpacing="1" width="670" style="border-collapse: collapse" bordercolor="#00B2FF" background="image/bg1.gif" height="192">
<tbody>
<tr>
<td align="middle" height="169" width="666">
<table border="0" cellPadding="0" cellSpacing="0" height="160" width="100%" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" style="border-collapse: collapse" bordercolor="#00B1FF" bgcolor="#FFFFFF">
<tbody>
<tr vAlign="top">
<td colSpan="5" height="160">
<div align="center">
<center>
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#00B2FF">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#00B2FF">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#9CE1FE" style="border-collapse: collapse">
<tr>
<td>
<div align="center">
<center>
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#9CE1FE" height="52">
<tr>
<td height="35" bgcolor="00B1FF">
<div align="center"><strong><font color="#FF0000" size="3">建议及投诉</font></strong></div></td>
</tr>
<tr>
<td height="56" valign="top">
<table width="100%" border="1" cellpadding="0" cellspacing="1" bgcolor="00B1FF" style="border-collapse: collapse" bordercolor="#00B1FF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF">
<form language="javascript" name="GbAdd" method="post" action="tousu.asp?add" onsubmit="return GbAdd_onsubmit()">
<tr>
<td width="120" height="30" align="right">姓名：</td>
<td width="640" height="30">
<input name="U_Name" type="text" maxlength="20" size="20" readonly value="<%=GetNameByNumber(session("HyNumber"))%>">
<font color="#FF0000">*</font> 请写上您的姓名。</td>
</tr>
<tr>
<td width="120" height="30" align="right">投诉对象：</td>
<td height="30">
<input name="duixiang" type="text" id="duixiang" size="20" maxlength="20">
<font color="#FF0000">*</font> 请写上投诉专卖店的名字。</td>
</tr>
<input type="hidden" name="U_email" value="管理员">
<tr>
<td width="120" height="30" align="right">电话：</td>
<td height="30">
<input name="tel2" type="text" maxlength="20" size="20">
（请填好您的联系电话。）</td>
</tr>
<tr>
<td width="120" height="30" align="right">关于：</td>
<td height="30"> <select name="guanyu"> <option selected>==请选择==</option>
<option value="表扬">表扬</option>
<option value="投诉">投诉</option>
</select></td>
</tr>
<tr>
<td width="120" align="right">内容：</td>
<td><textarea name="Content" cols="68" rows="8"></textarea>
<font color="#FF0000">*</font></td>
</tr>
<tr align="center">
<td height="30" colspan="2"> <input type="submit" name="Submit" value="提 交" class="b02">
<input type="reset" name="reset" value="重 写" class="b02"> </td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td bgColor="#F2F2F2" height="1"></td>
</tr>
</table></center>
</div>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</center>
</div>
</td></tr></tbody></table></td></tr>
</tbody></table>
</center>
</td>
<script language="javascript" id="QzeNet">
<!--
function GbAdd_onsubmit()
{
if(document.GbAdd.U_Name.value.length<1)
{
alert("您必须输入您的姓名!");
document.GbAdd.U_Name.focus();
return false;
}
if(document.GbAdd.duixiang.value.length<1)
{
alert("您必须输入对象的网名!");
document.GbAdd.duixiang.focus();
return false;
}
if(document.GbAdd.Content.value.length<1)
{
alert("您必须输入您的留言内容!");
document.GbAdd.U_Name.focus();
return false;
}
}
//-->
</script>
<% Dim Uname,tel1,Uemail,where1,Utitle,Ucontent
Uname = Trim(request.form("U_Name"))
tel1 = Trim(request.form("tel2"))
duixiang= Trim(request.form("duixiang"))
Uemail = Trim(request.form("U_email"))
Utitle = request.form("Title")
guanyu=request.Form("guanyu")
Ucontent = request.form("Content")
Utitle="投诉信誉用户；对象是："&duixiang&"关于："&guanyu
function htmlencode(str)
htmlencode=server.htmlencode(str)
htmlencode=replace(replace(htmlencode,chr(13),"<br>"),"'","’")
end function
set rs=server.createobject("adodb.recordset")
sqltext="select * from GuestBook"
rs.open sqltext,conn,3,3
if request.querystring="add" then
'添加一条留言到数据库
rs.addnew
rs("UserName")=Uname
rs("tel")=tel1
rs("UserEmail")=Uemail
rs("Title")=Utitle
rs("Content")=htmlencode(Ucontent)
rs("AddTime")=cstr(now())
rs.update
rs.close
conn.close
response.write "<script>alert(""投诉信息已经提交，公司将会在24小时内给予回应!"");location.href=""custom_right.asp"";</script>"
End if
%>
<td bgColor="#ff8400" width="2" rowspan="2" height="428"></td></tr>
<tr>
<td width="769" background="../image/bt1.gif"> </td>
</tr>
</tbody></table></body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -