inccontent.asp

来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 123 行

   <script language="javascript">
	function formCheck() {
	  if (document.frmUsers.title.value=="") {
	    alert("请输入主题");
	    document.frmUsers.title.focus();
	    return false;
	  }
	  if (document.frmUsers.name.value=="") {
	    alert("请输入姓名");
	    document.frmUsers.name.focus();
	    return false;
	  }
	  if (document.frmUsers.Email.value=="") {
	    alert("请输入Email");
	    document.frmUsers.Email.focus();
	    return false;
	  }
	  var email = document.frmUsers.Email.value
	  var is_error = false
	  var pn_0 = email.indexOf("@")
	  var pn_1 = email.indexOf(".",pn_0)
	  var pn_2 = email.length
	  if (pn_0<1 || pn_1<pn_0+2 || pn_1+2>pn_2) is_error=true
	  if (is_error) {
	    alert("请输入正确的Email地址")
	    document.frmUsers.Email.focus()
	    return false;
	  }
	  if (document.frmUsers.content.value=="") {
	    alert("请输入留言");
	    document.frmUsers.content.focus();
	    return false;
	  }
	   return true;
	   }
</script>	
    <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0 ID="Table17">
         <TBODY>
          <TR> 
       <TD width="69%" height="389" valign="top"> <div align="left">
       <%'//////////////////////////显示内容////////////////////////////////%>
		<TABLE cellSpacing=10 cellPadding=4 width="99%" align=center border=0 ID="Table18">
                                  <TBODY>
                                    <TR> 
                                      <TD width="34%" valign=top > 
                                <%
If Request("submit")<>"" then
	dim name,title,company_name,tel,email,content,IP
	name = ModifyInput(Request("name"))
	title = ModifyInput(Request("title"))
	company_name = ModifyInput(Request("company_name"))
	tel = ModifyInput(Request("tel"))
	email = ModifyInput(Request("email"))
	content = ModifyInput(Request("content"))
	IP = Request.ServerVariables("REMOTE_ADDR")
	Dim rs,StrSQL
	Set rs = Server.CreateObject("Adodb.Recordset") 
	StrSQL = "Select * From Feedback where ID=0"
	rs.CursorLocation=3
	rs.Open StrSQL,conn,1,3
	rs.AddNew 
		rs("name") = name
		rs("title") = title
		rs("company_name") = Company_Name
		rs("tel") = tel
		rs("email") = email
		rs("Content") = Content
		rs("IP") = IP
	rs.Update 
	rs.Close 
Dim SMTPServer,fromWhoName,replyTo,fromWho,toWho,CcWho,BccWho,pathAttachment,Importance,Body,BodyFormat
SMTPServer = CONST_SYSTEM_SMTPSERVER
fromWho = email                         '   
replyTo = email
fromWhoName = name
toWho = CONST_SYSTEM_WEBMASTEREMAIL
CcWho = ""
BccWho = ""
BodyFormat = ""
pathAttachment=""
Importance = 1
Subject = title
Body = Content
Dim ErrMsg 
ErrMsg = AdvSendMail(SMTPServer, fromWho, fromWhoName, toWho, CcWho, BccWho, replyTo, Importance, Subject, Body, BodyFormat, pathAttachment, "Jmail")
IF ErrMsg = true then	
	Call MsgBack("谢谢您的关注,我们会尽快答复！",4)
Else
	Call MsgBack("数据库操作错误！",4)
End IF
	Set rs = Nothing
End if

%>
<form action=default.asp name="frmUsers" method="post" ID="Form1" onsubmit="return formCheck()">
<table ID="Table1" width="525">
	<tr><td colspan=2 width="307"><SPAN 
style="LINE-HEIGHT: 18pt">感谢您对本公司的关注，有任何意见、建议，欢迎向我们提出，我们将在最快的时间内与您联系！</SPAN></td><td width="220" rowspan="6" valign=top>
      <img src="/images/1324.gif" align="left"></td>
      <td rowspan="6" valign="top" align=left width="58">
      　</td></tr>
	<tr><td width="81">主题：</td><td width="11"><input type=text name="title" ID="Text1" size="20">&nbsp;<font color="gray">*</font> </td></tr>
	<tr><td width="81">姓名：</td><td width="11"><input type=text name="name" ID="Text2" size="20">&nbsp;<font color="gray">*</font></td></tr>
	<tr><td width="81">Email：</td><td width="11"><input type=text name="Email" ID="Text4" size="20">&nbsp;<font color="gray">*</font></td></tr>
	<tr><td width="81">联系电话：</td><td width="11"><input type=text name="tel" ID="Text3" size="20"></td></tr>
	<tr><td width="81">单位名称：</td><td width="11">
      <input type=text name="company_name" ID="Text5" size="20"></td></tr>
	<tr><td width="81">留言：</td><td colspan="2" width="372"><textarea cols="50" rows="8" name="content" ID="Textarea1"></textarea>&nbsp;<font color="gray">*</font></td>
      <td width="58"></td></tr>
	<tr><td colspan=3 width="454"><input type=submit name="submit" value="提交" ID="Submit1">&nbsp;&nbsp;&nbsp;&nbsp;<input type=reset name="reset" value="取消" ID="Submit2"></td>
      <td width="58"></td></tr>
</table>
</form>            
                                      </TD>
          </TR>
            </TBODY>
         </TABLE>
            <%'//////////////////////////END////////////////////////////////%>                    
             <br>
              </div></TD>
		</TR>
        </TBODY>
  </TABLE>