📄 feedbackadd.asp
字号:
<!--#include file="SiteInfo.asp"-->
<%
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
'★ ★
'☆ 万博中小企业网站管理系统(NWEB) ☆
'★ ★
'☆ 版权所有 Nweb.cn ☆
'★ ★
'☆ 程序制作 万博工作室 ☆
'★ Add:四川省彭州市西大街228号/611930 ★
'☆ Tel:028-88079088 Fax:83708850 ☆
'★ E-m:duolaimi-123@163.com ★
'☆ Q Q:59309100 ☆
'★ ★
'☆ 相关网址 [产品介绍]http://www.Nweb.cn ☆
'★ [支持论坛]http://www.Nweb.cn/bbs ★
'☆ ☆
'★ 演示网址 http://www.Nweb.cn ★
'☆ ☆
'★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
%>
<%
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ")
changechr=replace(replace(replace(replace(changechr,"[img]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>")
changechr=replace(replace(replace(replace(changechr,"[/img]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>")
end function
'============================
Addyes=trim(request.QueryString("myation"))
if session("My_Login")="My_Login_Succeed" and session("Uname")<>"" then
set rsU=Server.CreateObject("Adodb.Recordset")
sql = "select * from UserInfo where Uname='"&session("Uname")&"'"
rsU.open sql,conn,1,1
if not rsu.eof then
Uid=rsU("id")
if rsU("Uname1")="" then
Uname=rsU("Uname")
else
Uname=rsU("Uname1")
end if
Ucom=rsU("Ucom")
Uadd=rsU("Uadd")
Utel=rsU("Utel")
Umtel=rsU("Umtel")
Ufax=rsU("Ufax")
Ucode=rsU("Ucode")
Uemail=rsU("Uemail")
rsU.close
set rsU=nothing
end if
end if
if Addyes="addok" then
if request("VCodes")="" or (not IsNumeric(request("VCodes"))) then
response.write "<script language=javascript> alert('提示:\n\n非法的验证码，正确验证码应该是由4位数字组成!');history.back(-1);</script>"
response.end
else
if (int(session("VCodes"))<>int(request("VCodes"))) then
response.write "<script language=javascript> alert('提示:\n\n验证码错误，请重新输入黄色区域内的数字!');history.back(-1);</script>"
response.end
end if
end if
title=trim(request.Form("title"))
if title="" then
response.write "<script language=javascript> alert('提示:\n\n留言标题不能为空!');history.back(-1);</script>"
response.end
end if
comtont=trim(request.Form("comtont"))
comtont=trim(changechr(comtont))
linkman=trim(request.Form("linkman"))
company=trim(request.Form("company"))
address=trim(request.Form("address"))
tel=trim(request.Form("tel"))
mobiletel=trim(request.Form("mobiletel"))
fax=trim(request.Form("fax"))
code=trim(request.Form("code"))
email=trim(request.Form("email"))
SS=trim(request.Form("SS"))
'===============================
set rsw=Server.CreateObject("Adodb.Recordset")
sql="select * from Feedback where (id is null)"
rsw.open sql,conn,1,3
rsw.addnew
rsw("title")=title
rsw("comtont")=comtont
rsw("company")=company
rsw("address")=address
rsw("linkman")=linkman
if Uid<>0 then
rsw("Uid")=Uid
else
rsw("Uid")=0
end if
rsw("tel")=tel
rsw("mobiletel")=mobiletel
rsw("fax")=fax
rsw("code")=code
rsw("email")=email
rsw("SS")=SS
rsw.update
rsw.close
set rsw=nothing
response.write "<script language=javascript> alert('留言成功，非常感谢点击确定查看!');location.replace('FeedbackList.asp');</script>"
end if
%>
<HTML>
<HEAD>
<TITLE>首页-留言反馈|<%=SiteName%></TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME="copyright" CONTENT="Copyright 2004-2005 - NWEB.CN-STUDIO-多来米">
<META NAME="Author" CONTENT="万博网络技术工作室,www.Nweb.cn">
<META NAME="Robots" CONTENT="all">
<META NAME="Keywords" CONTENT="<%=Keywords%>">
<META NAME="Description" CONTENT="<%=Description%>">
<link href="Images/CSS.css" type=text/css rel=stylesheet>
</HEAD>
<SCRIPT language=javaScript>
function CheckIfEnglish(String)
{
var Letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890_-";
var i;
var c;
for( i = 0; i < String.length; i ++ )
{
c = String.charAt( i );
if (Letters.indexOf( c ) < 0)
return false;
}
return true;
}
function CheckReg()
{
if (document.regForm.title.value == ""||document.regForm.title.value.length < 5 || document.regForm.title.value.length > 60){
alert ("提示：\n\n标题必须在5字以上，请重新输入！");
document.regForm.title.focus();
return false;
}
if (document.regForm.comtont.value == ""||document.regForm.comtont.value.length < 10 || document.regForm.comtont.value.length > 400){
alert ("提示：\n\n反馈内容必须在10字以上！");
document.regForm.comtont.focus();
return false;
}
if (document.regForm.linkman.value.length < 2 || document.regForm.linkman.value.length > 16){
alert ("提示：\n\n联系人姓名必须在2-16字之间！");
document.regForm.linkman.focus();
return false;
}
if(document.regForm.email.value.length!=0)
{
if (document.regForm.email.value.charAt(0)=="." ||
document.regForm.email.value.charAt(0)=="@"||
document.regForm.email.value.indexOf('@', 0) == -1 ||
document.regForm.email.value.indexOf('.', 0) == -1 ||
document.regForm.email.value.lastIndexOf("@")==document.regForm.email.value.length-1 ||
document.regForm.email.value.lastIndexOf(".")==document.regForm.email.value.length-1)
{
alert("Email地址格式不正确！");
document.regForm.email.focus();
return false;
}
}
else
{
alert("Email不能为空！");
document.regForm.email.focus();
return false;
}
}
</SCRIPT>
<BODY >
<!--#include file="Top.asp" -->
<table width="868" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="190" height="96" valign="top" bgcolor="#F2F2F2" ><!--#include file="LeftNav.asp" -->
<!--#include file="FeedbackLeft.asp" --></td>
<td width="5"></td>
<td width="673" valign="top" class="Index-Center"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<!--DWLayoutTable-->
<tr>
<td height="180" colspan="2" bgcolor="#FFFFFF"><img src="Images/Banner_01.jpg" alt="万博中小企业网站系统" width="499" height="180"></td>
<td width="172" align="right" bgcolor="#FFFFFF"><img src="Images/Banner_02.jpg" alt="万博中小企业网站系统" width="171" height="180"></td>
</tr>
<tr>
<td width="93" height="5" bgcolor="#FFFFFF"></td>
<td width="408" bgcolor="#FFFFFF"></td>
<td bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#F2F2F2"><strong><font color="#1c529b"><img src="Images/Arrow-locality.gif" width="14" height="12" align="absmiddle"> 当前位置：</font></strong></td>
<td colspan="2" bgcolor="#F2F2F2" class="locality"><a href="index.asp">首 页</a> >> <a href="FeedbackList.asp">留言反馈</a> >> 填写留言</td>
</tr>
<tr>
<td height="5" align="center" bgcolor="#FFFFFF"></td>
<td colspan="2" align="center" bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td height="12"> </td>
<td></td>
<td></td>
</tr>
<tr>
<td width="20" height="30"> </td>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="regForm" method="post" onSubmit="return CheckReg()" action="FeedbackAdd.asp?myation=addok" >
<tr>
<td colspan="2" class="News-05"><p class="HOME_about"><strong>尊敬的客户：</strong> <br>
<br>
如果您对我们的产品或服务有任何意见和建议请及时告诉我们，我们将尽快给您满意的答复。<br>
1.仅用10秒钟注册一个会员号，以后每次留言时只要登录再不用重复填写你的联系信息了，并且通过会员管理可集中查看只属于您的留言。<br>
2.同时留言列表中将显示注册会员的不同身份。（<span class="feedback">非注册会员也可直接留言</span>）</p>
</td>
</tr>
<tr valign="top">
<td height="38" colspan="2" class="News-05"><hr size="1" color="#999999"></td>
</tr>
<tr>
<td width="18%" align="right" class="News-05"> 内容主题：</td>
<td class="News-05"><input name="title" type="text" class="myput" id="title" size="60">
* </td>
</tr>
<tr>
<td align="right" class="News-05"> 反馈内容： </td>
<td class="News-05"><textarea name="comtont" cols="59" rows="8" wrap="VIRTUAL" class="myput" id="comtont"></textarea>
*</td>
</tr>
<tr>
<td align="right" class="News-05"> 联 系 人： </td>
<td class="News-05"><input name="linkman" type="text" class="myput" id="linkman" value="<%=Uname%>" size="40">*
<% if Sm<>"" or sm="my_system2008" or Su<>"" then
response.write "<font color='#ff6600'>您是注册会员</font>"
end if %>
</td>
</tr>
<tr>
<td align="right" class="News-05"> 单位名称： </td>
<td class="News-05"><input name="company" type="text" class="myput" id="company" value="<%=Ucom%>" size="40"></td>
</tr>
<tr>
<td align="right" class="News-05"> 通迅地址： </td>
<td class="News-05"><input name="address" type="text" class="myput" id="address" value="<%=Uadd%>" size="40"></td>
</tr>
<tr>
<td width="18%" align="right" class="News-05"> 电话： </td>
<td class="News-05"><input name="tel" type="text" class="myput" id="tel" value="<%=Utel%>"></td>
</tr>
<tr>
<td align="right" class="News-05"> 手机： </td>
<td class="News-05"><input name="mobiletel" type="text" class="myput" id="mobiletel" value="<%=Umtel%>"></td>
</tr>
<tr>
<td align="right" class="News-05"> 传真： </td>
<td class="News-05"><input name="fax" type="text" class="myput" id="fax" value="<%=Ufax%>"></td>
</tr>
<tr>
<td align="right" class="News-05"> 传真： </td>
<td class="News-05"><input name="code" type="text" class="myput" id="code" value="<%=Ucode%>"></td>
</tr>
<tr>
<td align="right" class="News-05"> E-mail： </td>
<td class="News-05"><input name="email" type="text" class="myput" id="email" value="<%=Uemail%>">
*</td>
</tr>
<tr>
<td height="22" align="right" class="News-05">悄悄话：</td>
<td class="News-05"><% if session("My_Login")="My_Login_Succeed" and session("Uname")<>"" then %>
<input type="radio" name="SS" value="1">是
<input name="SS" type="radio" value="0" checked>否
<% else %>
<input name="SS" type="hidden" value="0" checked>
<% response.write "<font color='#ff6600'>非注册会员不可设</font>"
end if%></td>
</tr>
<tr>
<td align="right" class="News-05">验证码：</td>
<td class="News-05"><input name="VCodes" id="VCodes" size=4 class="myput" maxlength=4>
<img src="VCodes.asp" align="absmiddle"></td>
</tr>
<tr>
<td align="right" class="News-05"> </td>
<td class="News-05"><br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置"></td>
</tr>
</form>
</table></td>
<td width="20"></td>
</tr>
<tr>
<td height="30"> </td>
<td></td>
<td></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="Bot.asp" -->
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -