📄 fk.asp

📁 网上商场帐户管理方面　　　 1.实现了购物车和收藏夹的功能。　　　 2.实现了历史订单查询以及即时订单跟踪。　　　 3.实现了个人资料修改,查询以及送货人信息修改和查询。　
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<html>
<head>
<title><%=webname%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<!--#include file="webtop5.asp" -->

<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="356" valign="top" bgcolor="#F2F8FF">
	<%dim action
action=request.QueryString("action")%>
	<%select case action
	case ""
	%>
      <div align="center"><font color="#FF0000">尊敬的客户，请在这里将您们的宝贵建议反馈给我们，我们会及时回复，谢谢！</font> 
        <table width="80%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF"><form name="fkinfo" method="post" action="fk.asp?action=save">
          <tr bgcolor="#F2F8FF"> 
            <td width="15%" style="padding-left:10px">类　型：</td>
            <td height="22" style="padding-left:10px"><select name="fkleixing" id="fkleixing">
                  <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>
                <font color="#FF0000">&nbsp;* 请选择您的反馈类型</font></td>
          </tr>
          <tr bgcolor="#F2F8FF"> 
            <td style="padding-left:10px">主　题：</td>
            <td height="22" style="padding-left:10px"><input name="fksubject" type="text" id="fksubject" size="28"></td>
          </tr>
          <tr bgcolor="#F2F8FF"> 
            <td style="padding-left:10px">姓　名：</td>
            <td height="22" style="padding-left:10px"><input name="fkusername" type="text" id="fkusername" size="12"></td>
          </tr>
          <tr bgcolor="#F2F8FF"> 
            <td style="padding-left:10px">E-mail：</td>
            <td height="22" style="padding-left:10px"><input name="fkemail" type="text" id="fkemail" size="28"></td>
          </tr>
          <tr bgcolor="#F2F8FF"> 
            <td style="padding-left:10px">来　自：</td>
            <td height="22" style="padding-left:10px"><input name="fklaizi" type="text" id="fklaizi" size="28">
                如：湖北省武汉市</td>
          </tr>
          <tr bgcolor="#F2F8FF"> 
            <td style="padding-left:10px">电　话：</td>
            <td height="22" style="padding-left:10px"><input name="fktel" type="text" id="fktel" size="20"></td>
          </tr>
          <tr bgcolor="#F2F8FF"> 
            <td valign="top" style="padding-left:10px">反馈信息：<br></td>
              <td style="padding-left:10px">[请注意适当使用<font color="#FF0000">Enter</font>键来换行]<br>
                <textarea name="fkcontent" cols="52" rows="8" id="fkcontent"></textarea></td>
          </tr>
          <tr bgcolor="#F2F8FF"> 
            <td height="28" colspan="2" style="padding-left:10px"><input type="submit" name="Submit3" value="提交信息"  onclick="return checkfk();"></td>
          </tr> </form>
        </table>
      </div>
	  <%
	  case "save"
	  if session("fkfk")=minute(now) then
	  response.write "<script language=javascript>alert('对不起，您不可以重复提交信息，请稍后再试！');window.location.reload('index.asp')</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 shop_fk",conn,1,3
rs.addnew
rs("fksubject")=trim(request("fksubject"))
rs("fkleixing")=request("fkleixing")
rs("fkcontent")=htmlencode2(trim(request("fkcontent")))
rs("fkusername")=trim(request("fkusername"))
rs("fkemail")=trim(request("fkemail"))
rs("fktel")=trim(request("fktel"))
rs("fklaizi")=trim(request("fklaizi"))
rs("fkdate")=now
rs("fkip")=Request.ServerVariables("remote_addr")
rs.update
rs.close
set rs=nothing
session("fkfk")=minute(now)
response.write "<br><br><center>您的信息反馈已成功提交，感谢您的参与！<br><br><a href=index.asp>返回首页</a></center>"
end select%>
	  </td>
  </tr>
</table>
<!--#include file="service.asp"-->

</body>
</html>
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}

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

}
//-->
</script>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -