toldmyfriend.asp

实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统

<!--#include file="../head.asp"-->
  <!--#include file="../checkrole.asp"-->
 <%
      call checkuser("sh") 
	  
  Response.Buffer = true
  Response.ExpiresAbsolute=now()-1
  Response.Expires=0
  Response.CacheControl="no-cache"

if Not ChkPost then 
		response.write "<script language='javascript'>"
		response.write"parent.location.href='"&HOPE_InstallDir&"login/login1.asp';</SCRIPT>"
		response.end
end if
%>

<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR><TD  style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(i../mages/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff" 
    vAlign=top align=middle>
      <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
        <TBODY>
        <TR>
              <TD width="8%"><IMG height=32 src="../images/myfriend.gif" 
            border=0></TD>
              <TD width="92%" background="../images/info_bg.gif">&nbsp;</TD>
        </TR></TBODY></TABLE>

<TABLE class=content_border cellSpacing=0 cellPadding=0 width=100% 
border=0>
        <TBODY>
        <TR>
          <TD align=middle><BR>
            <SCRIPT language=javascript>
//-->
function trim(inputString) {
	   
              if (typeof inputString != "string") { return inputString; }
              var retValue = inputString;
              var ch = retValue.substring(0, 1);
              while (ch == " ") { 
	          //检查字符串开始部分的空格
                  retValue = retValue.substring(1, retValue.length);
                  ch = retValue.substring(0, 1);
              }
              ch = retValue.substring(retValue.length-1, retValue.length);
              while (ch == " ") {
                 //检查字符串结束部分的空格
                 retValue = retValue.substring(0, retValue.length-1);
                 ch = retValue.substring(retValue.length-1, retValue.length);
              }
              while (retValue.indexOf("  ") != -1) { 
	         //将文字中间多个相连的空格变为一个空格
                 retValue = retValue.substring(0, retValue.indexOf("  ")) + retValue.substring(retValue.indexOf("  ")+1, retValue.length); 
              }
              return retValue;
           } 

//--> 


function Form1_onsubmit()
 {
if (trim(document.Form1.email.value) =="")
{
alert("请输入对方email地址！");
document.Form1.email.focus();
document.Form1.email.select();
return false;
}
var str1 = document.Form1.email.value
if(str1.indexOf("@") == -1 || str1.indexOf(".") == -1){ 
alert("E-mail格式不正确,请重新填写！"); 
document.Form1.email.focus();
document.Form1.email.select();
return false; 
} 
if (trim(document.Form1.myname.value) =="") 
{ 
alert("请输入您的昵称！"); 
document.Form1.myname.focus(); 
return (false); 
} 

}
</SCRIPT>
            <BR>
            <TABLE class=fbg1 width=100%>
              <TBODY>
              <TR>
              <TD width=523>邀请非会员朋友加入“我的商业伙伴”</TD></TR></TBODY></TABLE>
<FORM name="Form1" action="toldmyfriend_ok.asp" method=post onSubmit="return Form1_onsubmit();">
            <TABLE cellSpacing=6 cellPadding=3 width="95%" border=0>
              <TBODY>
              <TR>
                <TD style="VERTICAL-ALIGN: top; PADDING-TOP: 8px" align=right 
                width="25%"><B>对方email地址：</B></TD>
                <TD><INPUT size=55 name=email>
                          <BR><FONT 
                  color=#666666>（如果要发送给多人，请用逗号将邮件地址分开）</FONT></TD></TR>
              <TR>
                <TD align=right><B>我的昵称：</B></TD>
                <TD><INPUT size=30 name=myname></TD></TR>
              <TR align=middle>
                <TD align=middle colSpan=2><INPUT type=submit value="提   交" name=post> 
      </TD></TR></TBODY></TABLE></FORM><BR><BR><BR><BR></TD></TR></TBODY></TABLE>
</TABLE>