📄 web.asp

📁 WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.
💻 ASP
字号:
<!--#include file="../main.asp" -->
<!--#include file="../Person.asp" -->
<%
if request("action")="add" then
mail=request("mail")
title=request("title")
book=request.Form("book")
StrQs=Split(mail,",") '获得字符串数组，并赋值。
For j=LBound(StrQs) to UBound(StrQs) '利用函数取得数组上限和下限。
'　发送验证邮件
Set JMail = Server.CreateObject("JMail.Message") 
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"

' 发送者信息（可用变量方式赋值）
JMail.From = ""&citymaildns&"" ' 发送者地址
JMail.FromName = ""&cityname&"" ' 发送者姓名
JMail.Subject = title ' 邮件主题

' 身份验证
JMail.MailServerUserName = ""&citymaillog&"" ' 身份验证的用户名
JMail.MailServerPassword = ""&citymailpass&"" ' 身份验证的密码

JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

JMail.AddRecipient(StrQs(j))

JMail.HTMLBody =book

' 邮件主体（文本部分）
JMail.Body = "你好"

on error resume next
JMail.Send(""&citymailsmtp&"")

' 关闭并清除对象
JMail.Close()
Set JMail = Nothing

next
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>个人中心 - <%=citytitle%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content=follow,index name=robots>
<LINK href="<%=cityurl%>images/style.css" 
type=text/css rel=stylesheet>
<LINK href="<%=cityurl%>images/msg.css" type=text/css 
rel=stylesheet>
<STYLE>#flashcontent P {
	COLOR: #000
}
#foot {
	DISPLAY: block; MARGIN: 0px auto; WIDTH: 720px
}
</STYLE>

<META content="MSHTML 6.00.3790.0" name=GENERATOR></HEAD>
<BODY>
<DIV id=append_parent></DIV>
<DIV id=wrap>
<!--#include file="../top.asp" -->

<DIV class=main>
<!--#include file="right.asp" -->
<DIV class=main-box-4>
<DIV class=box-top>
<DIV></DIV></DIV>
<DIV class=nav>我的位置：<A href="<%=cityurl%>">首页</A> &raquo; <A 
href="<%=cityurl%>person">个人中心</A> &raquo; <STRONG>邀请我的好友</STRONG></DIV>
<DIV class=box>
<TABLE class=title cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD class=title-l></TD>
    <TD>邀请方式一</TD>
    <TD class=title-r></TD></TR></TBODY></TABLE>
<TABLE width="91%" cellSpacing=0>
  <TBODY>
  <TR>
    <TD align=right width=150></TD> 
      <P>将下面的链接地址通过 MSN 或者 QQ 发送给您的朋友，当他们通过这个链接进入网站并注册后，将自动加入到您的朋友圈中。
<STRONG><%=cityurl%>register.asp?user=<%=request.Cookies("Userid")%></STRONG>

<input onClick="copy2Board()" type="button" value="点本按钮复制下地址，传给QQ/MSN上的好友" name="yaoqing" />
                    <script language="JavaScript" type="text/javascript">	function copy2Board(){	 var clipBoardContent="";  clipBoardContent+="加入我的人际网络吧";	 clipBoardContent+="\n";  clipBoardContent+="<%=cityurl%>register.asp?user=<%=request.Cookies("Userid")%>";	window.clipboardData.setData("Text",clipBoardContent);	 alert("复制成功，已经把该网址复制到剪贴板，可以打开QQ或者MSN的对话框，然后使用（Ctrl+V或鼠标右键）粘贴功能给你的好友");}</script></TD>
</TR>

</TBODY></TABLE>
<br>  
	  
<TABLE class=title cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD class=title-l></TD>
    <TD>邀请方式二</TD>
    <TD class=title-r></TD></TR></TBODY></TABLE>
输入朋友的邮件地址并按下“发送邀请邮件”按钮，您的朋友就会收到一封邀请邮件。当他们通过邮件提供的链接地址或提示内容注册成功后，将自动加入到您的朋友圈中。<br>
<FORM id="form4" name="sendmail" action="web.asp?action=add" method="post">
<TABLE  cellSpacing=0 cellPadding=2 width="82%" align=center 
border=0>
  <TBODY>
  <TR>
    <TH scope=col colSpan=4>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<STRONG>朋友的邮件地址</STRONG></TH></TR>
  <TR>
    <TD align=right width="22%">1&nbsp;</TD>
    <TD width="21%"><INPUT name=mail id="mail" size=30></TD>
    <TD align=right width="9%">2&nbsp;</TD>
    <TD width="48%"><INPUT name=mail id="mail" size=30></TD></TR>
  <TR>
    <TD align=right>3&nbsp;</TD>
    <TD><INPUT name=mail id="mail" size=30></TD>
    <TD align=right>4&nbsp;</TD>
    <TD><INPUT name=mail id="mail" size=30></TD></TR>
  <TR>
    <TD align=right>5&nbsp;</TD>
    <TD><INPUT name=mail id="mail" size=30></TD>
    <TD align=right>6&nbsp;</TD>
    <TD><INPUT name=mail id="mail" size=30></TD></TR>
  <TR>
    <TD align=right>7&nbsp;</TD>
    <TD><INPUT name=mail id="mail" size=30></TD>
    <TD align=right>8&nbsp;</TD>
    <TD><INPUT name=mail id="mail" size=30></TD></TR></TBODY></TABLE>
<TABLE class=operate cellSpacing=0 cellPadding=2 width="96%" align=center 
border=0>
  <TBODY>
  <TR>
    <TH scope=col colSpan=2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<STRONG>邀请信</STRONG></TH></TR>
  <TR>
    <TD align=right width="22%">标题&nbsp;</TD>
    <TD width="78%"><INPUT maxLength=100 size=40 value=邀请您加入我的人际网络(<%=request.Cookies("username")%>) 
      name=title> (不要超过20个汉字) </TD></TR>
  <TR vAlign=top>
    <TD align=right>内容&nbsp;</TD>
    <TD><TEXTAREA name=book cols=80 rows=10 id="book">
您好！
我在<%=cityname%>(<%=cityurl%>)上搭建了我的人际关系网络，已经有不少朋友进来了，希望你也可以加入进来。
这是一种新的网络模式，是基于朋友关系搭建的人际网络，
通过原来熟悉的朋友更方便可靠的认识朋友的朋友。
同时提供严格的隐私保护，可以自由设置不同的隐私等级。
还可以建立圈子，行业圈，同事圈，球友圈等各类圈子与1G的大相册，
帮我们搭建一个诚信、私密、安全并不断扩展的社交圈。
我在那里叫'<%=request.Cookies("username")%>'。
</TEXTAREA> </TD></TR>
  <TR>
    <TD align=right>&nbsp;</TD>
    <TD><INPUT class=button type=submit value=发送邀请邮件 border=0 name=submit> 
  </TD></TR></TBODY></TABLE></FORM>

 
<BR>
</DIV>
<DIV class=box-bot>
<DIV></DIV></DIV></DIV></DIV>
<DIV id=bot><!--#include file="../bottom.asp" --></DIV>
<DIV id=wrap-bot>
<DIV></DIV></DIV></DIV>
</BODY></HTML>
⌨️ 快捷键说明

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