mess.asp

时代购物系统 4.0功能升级说明 <1>完善了3.0的VIP

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<title><%=webname%>--意见反馈</title>
<!--#include file="include/header.asp"--> <%dim action
action=request.QueryString("action")%> 
<table width="760" border="0" cellspacing="1" cellpadding="0" align="center" BGCOLOR=<%=bgclr1%>> 
<tr><td BGCOLOR=<%=bgclr3%>>
<TABLE BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0"> 
<TR> <TD HEIGHT="356" VALIGN="top"> <%select case action
	case ""
	%> <BR><DIV ALIGN="center"><FONT COLOR="#FF0000">尊敬的客户，请在这里将您们的宝贵建议反馈给我们，我们会及时回复，谢谢 
！</FONT> <BR> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" BORDERCOLOR="74AC65" ALIGN="center"> 
<TR> <TD> <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"> <TR> 
<TD WIDTH="9" ROWSPAN="2"></TD><TD CLASS="12v"> <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" CLASS="12v"> 
<TR> <TD CLASS="12v" > <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" STYLE="border-collapse: collapse" ID="AutoNumber3" HEIGHT="0" WIDTH="100%"> 
<TR> <TD> <TABLE WIDTH="100%" BORDER="0" ALIGN="center" CELLPADDING="1" CELLSPACING="1"> 
<FORM NAME="messinfo" METHOD="post" ACTION="mess.asp?action=save"> <TR> <TD WIDTH="16%" STYLE="padding-left:10px">类　型：</TD><TD width="84%" HEIGHT="22" STYLE="padding-left:10px"> 
<SELECT NAME="messtype" ID="messtype"> <OPTION VALUE="1">简单的留言</OPTION> <OPTION VALUE="2">对网站的意见</OPTION> 
<OPTION VALUE="3">对公司的建议</OPTION> <OPTION VALUE="4">具有合作意向</OPTION> <OPTION VALUE="5">产品投诉</OPTION> 
<OPTION VALUE="6">服务投诉</OPTION> </SELECT> </TD></TR> <TR> <TD STYLE="padding-left:10px">主　题：</TD><TD HEIGHT="22" STYLE="padding-left:10px"> 
<INPUT NAME="messsubject" TYPE="text" ID="messsubject" SIZE="28"> </TD></TR> <TR> 
<TD STYLE="padding-left:10px">姓　名：</TD><TD HEIGHT="22" STYLE="padding-left:10px"> 
<INPUT NAME="messusername" TYPE="text" ID="messusername" SIZE="12"> </TD></TR> <TR> 
<TD STYLE="padding-left:10px">E-mail：</TD><TD HEIGHT="22" STYLE="padding-left:10px"> 
<INPUT NAME="messemail" TYPE="text" ID="messemail" SIZE="28"> </TD></TR> <TR> <TD STYLE="padding-left:10px">来　自：</TD><TD HEIGHT="22" STYLE="padding-left:10px"> 
<INPUT NAME="messfrom" TYPE="text" ID="messfrom" SIZE="28">
                                              如：中国上海</TD>
                                          </TR> <TR> 
<TD STYLE="padding-left:10px">电　话：</TD><TD HEIGHT="22" STYLE="padding-left:10px"> 
<INPUT NAME="messtel" TYPE="text" ID="messtel" SIZE="20"> </TD></TR> <TR> <TD VALIGN="top" nowrap STYLE="padding-left:10px">反馈信息：<BR> 
</TD><TD STYLE="padding-left:10px">[请注意适当使用<FONT COLOR="#FF0000">Enter</FONT>键来换行]<BR> 
<TEXTAREA NAME="messcontent" COLS="52" ROWS="8" wrap="VIRTUAL" ID="messcontent"></TEXTAREA> </TD></TR> 
<TR> <TD HEIGHT="28" COLSPAN="2" STYLE="padding-left:10px"> <DIV ALIGN="center"> 
<INPUT TYPE="submit" NAME="Submit3"STYLE="height:20; font:9pt; BORDER-BOTTOM: #cccccc 1px groove; BORDER-RIGHT: #cccccc 1px groove; BACKGROUND-COLOR: #eeeeee" VALUE="提交信息"  ONCLICK="return checkmess();"> 
</DIV></TD></TR> </FORM></TABLE></TD></TR> </TABLE></TD></TR> </TABLE></TD><TD CLASS="12v" WIDTH="9" ROWSPAN="2"></TD></TR> 
</TABLE></TD></TR> </TABLE><BR> </DIV><%
	  case "save"
	  if session("messmess")=minute(now) then
	  response.write "<script language=javascript>alert('对不起，您不可以重复提交信息，请稍后再试！');history.go(-1);</script>"
	  response.End
	  end if
	  function HTMLEncode2(fString)
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	HTMLEncode2 = fString
    end function
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from mess",conn,1,3
rs.addnew
rs("messsubject")=trim(request.form("messsubject"))
rs("messtype")=request.form("messtype")
rs("messcontent")=htmlencode2(trim(request.form("messcontent")))
rs("messusername")=trim(request.form("messusername"))
rs("messemail")=trim(request.form("messemail"))
rs("messtel")=trim(request.form("messtel"))
rs("messfrom")=trim(request.form("messfrom"))
rs("messdtm")=now
rs("messip")=Request.ServerVariables("remote_addr")
rs.update
rs.close
set rs=nothing
session("messmess")=minute(now)
response.write "<br><br><center>您的信息反馈已成功提交，感谢您的参与！<br><br><a href=index.asp>返回首 页</a></center>"
end select%> </TD></TR> </TABLE></td></tr> </table>
<!--#include file="include/footer.asp"--> 
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}

function checkmess()
{
   if(checkspace(document.messinfo.messsubject.value)) {
	document.messinfo.messsubject.focus();
    alert("您没有填写主题！");
	return false;
  }
   if(checkspace(document.messinfo.messusername.value)) {
	document.messinfo.messusername.focus();
    alert("请填写您的姓名！");
	return false;
  }
   if(checkspace(document.messinfo.messfrom.value)) {
	document.messinfo.messfrom.focus();
    alert("请填写您来自哪里！");
	return false;
  }
     if(checkspace(document.messinfo.messcontent.value)) {
	document.messinfo.messcontent.focus();
    alert("请填写反馈信息内容！");
	return false;
  }
  
  if(document.messinfo.messemail.value.length!=0)
  {
    if (document.messinfo.messemail.value.charAt(0)=="." ||        
         document.messinfo.messemail.value.charAt(0)=="@"||       
         document.messinfo.messemail.value.indexOf('@', 0) == -1 || 
         document.messinfo.messemail.value.indexOf('.', 0) == -1 || 
         document.messinfo.messemail.value.lastIndexOf("@")==document.messinfo.messemail.value.length-1 || 
         document.messinfo.messemail.value.lastIndexOf(".")==document.messinfo.messemail.value.length-1)
     {
      alert("Email地址格式不正确！");
      document.messinfo.messemail.focus();
      return false;
      }
   }
 else
  {
   alert("Email不能为空！");
   document.messinfo.messemail.focus();
   return false;
   }

}
//-->
</script>