sendfriend.asp

全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 系统概述： 软件名称：全球商务网站系统 当前版本：V1.0 最新版本：V1.1 运行环境：WINNT+（IIS）

<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/safe.asp"-->
<%
if session("id")="" then 
response.Redirect("../login/login1.asp")
response.end
end if
if Chkrequest(request("vipinfo_id")) then
vipinfo_id=request("vipinfo_id")
else
Response.Redirect ("../login/chklogin.asp?login=4")
end if

set rs=conn.execute("select name,email from corporation where id="&session("id")&"")
if rs.eof or rs.bof then
response.write""
else
myname=rs("name")
myemail=rs("email")
end if
rs.close
set conn=nothing
conn.close
set conn=nothing
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="head1.asp"-->
<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.myName.value) =="") 
{ 
alert("请输入您的姓名"); 
document.Form1.myName.focus(); 
return (false); 
} 
if (trim(document.Form1.myEmail.value) =="")
{
alert("请输入您的Email地址");
document.Form1.myEmail.focus();
document.Form1.myEmail.select();
return false;
}
var str1 = document.Form1.myEmail.value
if(str1.indexOf("@") == -1 || str1.indexOf(".") == -1){ 
alert("您的Email格式不正确,请重新填写！"); 
document.Form1.myEmail.focus();
document.Form1.myEmail.select();
return false; 
} 
if (trim(document.Form1.ToEmail1.value) =="")
{
alert("请输入您的朋友的Email地址");
document.Form1.ToEmail1.focus();
document.Form1.ToEmail1.select();
return false;
}
var str1 = document.Form1.ToEmail1.value
if(str1.indexOf("@") == -1 || str1.indexOf(".") == -1){ 
alert("您的朋友的Email地址,请重新填写！"); 
document.Form1.ToEmail1.focus();
document.Form1.ToEmail1.select();
return false; 
} 
if (trim(document.Form1.content.value) =="") 
{ 
alert("请输入内容！"); 
document.Form1.content.focus(); 
return (false); 
} 

}
</SCRIPT>

<Br><Br>

<FORM name="Form1" action="sendfriend_ok.asp" method=post onsubmit="return Form1_onsubmit();">
 <TABLE cellSpacing=0 cellPadding=0 width=550 border=0 align="center">
  <TBODY> 
  <TR>
          <TD>
            <TABLE cellSpacing=0 cellPadding=0 width=450 border=0>
              
              <TR>
                <TD width=20 bgColor=#CC3300><IMG 
                  src="../images/arrowhead.gif"></TD>
                <TD width=160 bgColor=#CC3300><B><FONT 
                  color=#ffffcc><NOBR>把这条信息推荐给您的朋友 </NOBR></FONT></B></TD>
                <TD width=20><IMG 
                src="../images/round.gif"></TD></table></TD></TR></TABLE>
  <TABLE cellSpacing=0 cellPadding=1 width=550 bgColor=#CC3300 border=0 align="center">
    <TBODY> 
    <TR vAlign=top>
    <TD>
      <TABLE cellSpacing=0 cellPadding=5 width="100%" bgColor=#ffffef 
        border=0><TBODY>
        <TR>
          <TD>&nbsp;</TD></TR>
        <TR vAlign=top>
          <TD align=right><B>您的姓名：</B></TD>
          <TD><INPUT maxLength=80 size=30 value="<%=myname%>" name="myName"><FONT 
            color=red>*</FONT></TD></TR>
        <TR vAlign=top>
          <TD align=right><B>您的Email地址： </B></TD>
          <TD><INPUT maxLength=80 size=30 value="<%=myemail%>" 
            name=myEmail><FONT color=red>*</FONT></TD></TR>
        <TR vAlign=top>
          <TD align=right><B>您的朋友的Email地址： </B></TD>
          <TD align=left>&nbsp; </TD></TR>
        <TR>
          <TD align=right><B>1 : </B></TD>
          <TD align=left><INPUT maxLength=80 size=30 name=ToEmail1><FONT 
            color=red>*</FONT></TD></TR>
        <TR vAlign=top>
          <TD align=right><B>2 : </B></TD>
          <TD><INPUT maxLength=80 size=30 name=ToEmail2></TD></TR>
        <TR vAlign=top>
          <TD align=right><B>3 : </B></TD>
          <TD><INPUT maxLength=80 size=30 name=ToEmail3></TD></TR>
        <TR vAlign=top>
          <TD align=right><B>4 : </B></TD>
          <TD><INPUT maxLength=80 size=30 name=ToEmail4></TD></TR>
        <TR vAlign=top>
          <TD align=right><B>5 : </B></TD>
          <TD><INPUT maxLength=80 size=30 name=ToEmail5></TD></TR>
        <TR vAlign=top>
          <TD align=right><B>6 : </B></TD>
          <TD><INPUT maxLength=80 size=30 name=ToEmail6></TD></TR>
        <TR vAlign=top>
          <TD align=right><B>7 : </B></TD>
          <TD><INPUT maxLength=80 size=30 name=ToEmail7></TD></TR>
        <TR vAlign=top>
          <TD align=right><B>8 : </B></TD>
          <TD><INPUT maxLength=80 size=30 name=ToEmail8></TD></TR>
        <TR vAlign=top>
          <TD align=right><B>内容： </B></TD>
          <TD><TEXTAREA name=content rows=10 cols=30>老朋友你好，我在<%=webname%>[<%=weburl%>]上发现一则商业信息，也许你会感兴趣，有时间去看一下？

详细信息请查看:
<%=WebUrl%>vipinfo/info.asp?vipinfo_id=<%=vipinfo_id%></TEXTAREA> 
            <FONT color=red>*</FONT> </TD></TR>
        <TR>
          <TD>&nbsp;</TD>
          <TD><B><INPUT type=submit value=发送邮件 name=Send> </B></TD></TR>
        <TR>
          <TD>&nbsp;</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</form>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" id="AutoNumber2" style="border-collapse: collapse">
  <tr>
    <td width="100%" style="line-height: 150%">　</td>
</tr>
</table>
<!--#include file="../inc/end.asp"-->