sendpage.asp

一个不错的论坛原代码

if  rs_topic.eof then
errornum=1
errormsg=errormsg&"<li>很抱歉，此帖已经不存在，可能已经被删除,如果有什么问题，请跟管理员联系</li>"
elseif rs_topic("t_lock")=2 and issupermaster=false and ismaster=false then
errornum=1
errormsg=errormsg&"<li>很抱歉，此帖已经移到回收站，只有管理员和总版主才可以查看</li>"
end if
end if

if errornum=1 then
call toptitle(l_title,cpbtitle)
call error(errormsg)
call login()
call bq()
response.end
end if
checklockubb=0
checklockubbreply=1
rcount=-1
if rs_topic("t_autourl")=1 then checkurl=1
if rs_topic("t_lockubb")=1 then checklockubb=1
t_buysend=rs_topic("t_buysend")
 l_lockuser=rslanmu("l_lockuser")
 '开始读取用户资料
sql_user= "select username,locktopic from user where username='"&rs_topic("t_username")&"'"
set rs_user=conn.Execute (sql_user)
if not rs_user.eof then
fyusername=rs_user("username")
fylocktopic=rs_user("locktopic")
end if
set rs_user=nothing
emailbody=emailbody&"<hr><span class=tdc>--- <B>作者</b>:"&fyusername&"<BR>--- <B>发布时间</B>:"&rs_topic("t_time")&"<p>--- <B>标题</B>:"&rs_topic("t_title")&"<p></span>"
      
emailbody=emailbody&"<span style=""table-layout:fixed;word-break:break-all"" class=tdc>"
      erroruser=0
       if l_lockuser<>"" then
      l_lockuser1=split(l_lockuser, "|")
      for i=0 to ubound(l_lockuser1)
      if fyusername=l_lockuser1(i) then
      erroruser=1
      exit for
      end if
      next
    end if
     if fylocktopic<>1 and erroruser<>1 then
    
emailbody=emailbody&""&ubbcode(rs_topic("t_content"))&"<BR>"
emailbody=emailbody&""&rs_topic("t_lastedit")&"<br><br>"
'如果发言被屏蔽则显示下面的信息
else
emailbody=emailbody&"<br><br><center>================================================<BR>"
emailbody=emailbody&"此用户发言已经被屏蔽<BR>"
emailbody=emailbody&"======================================================</center><br><br>"
end if
emailbody=emailbody&"</span><hr>"
 checkurl=0
  

sql = "select r_title,r_content,r_time,t_autourl,t_lastedit,t_lockubb,r_username from reply where t_id="&trim(t_id)&" order by r_time asc"
set rs_reply=conn.execute(sql)
rcount=0
do while not rs_reply.eof 
checklockubb=1
checkurlreply=0
if rs_reply("t_autourl")=1 then checkurlreply=1
checklockubbreply=0
checklocksign=0
if rs_reply("t_lockubb")=1 then checklockubbreply=1
sql_user= "select locktopic,username from user where username='"&rs_reply("r_username")&"'"
set rs_user=conn.Execute (sql_user)
if not rs_user.eof then
fyusername=rs_user("username")
fylocktopic=rs_user("locktopic")
else
fyusernam=""
end if

emailbody=emailbody&"<span class=tdc>--<B>作者</B>:"&fyusername&"<BR>--<B>发表时间</B>:"&rs_reply("r_time")&"<p>--<B>标题</B>:"&rs_reply("r_title")&"<p></span>"
emailbody=emailbody&"<span style=""table-layout:fixed;word-break:break-all"" class=tdc>"
     erroruser=0
        if l_lockuser<>"" then
      l_lockuser1=split(l_lockuser, "|")
      for i=0 to ubound(l_lockuser1)
      if fyusername=l_lockuser1(i) then
      erroruser=1
      exit for
      end if
      next
    end if
if fylocktopic<>1 and erroruser<>1 then
emailbody=emailbody&""&ubbcode(rs_reply("r_content"))&"<BR>"
emailbody=emailbody&""&rs_reply("t_lastedit")&"<br><br>"
'如果发言被屏蔽则显示下面的信息
else
emailbody=emailbody&"<br><br><center>================================================<BR>"
emailbody=emailbody&"此用户发言已经被屏蔽<BR>"
emailbody=emailbody&"======================================================</center><br><br>"
end if
 emailbody=emailbody&"</span><hr>"  
rs_reply.MoveNext 
rcount=rcount+1
loop 
rs_reply.close 
set rs_reply=nothing 
    set rs_topic=nothing
    set rslanmu=nothing
    set rs=nothing
    set rs_user=nothing
   emailbody=emailbody &""&vbCrlf&"本论坛地址："&l_urlf
   emailbody=emailbody & ""&vbCrlf&""&vbCrlf&"dxxo论坛制作(http://down.dxxo.com)"&vbCrlf&"程序制作：down.dxxo.com(飞越)"&vbCrlf&""&vbCrlf&""

%>
   
<!-- #include file="email.asp" -->
	<%if SendMail="OK" then
		sendmsg=sendmsg&"<li>您的信息已经发往您输入的邮箱</li>"
	else
		sendmsg=sendmsg&"<li>很抱歉，由于系统错误，邮件发送失败</li>"
	end if
	


 succmsg="<li>发送结果</li>"&sendmsg&"<Li><a href=list.asp?l_id="&l_id&">返回前论坛</a></li><li><a href=topic.asp?l_id="&l_id&"&t_id="&t_id&">返回前主题</a><li>3秒钟后将自动返回前主题</li><script language=javascript>setTimeout(""location.replace('topic.asp?l_id="&l_id&"&t_id="&t_id&"')"",3000)</script>"
call succ(succmsg)
end if
end sub

sub show()

cpbtitle="推荐主题;"&rs_topic("t_title")
call toptitle(l_title,cpbtitle)
call head(3,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)

%>
  <div align="center">
  <table border=1 borderColor=<%=tdc2%> cellPadding=2 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center>
  <form name="form1" method="POST" action="?action=do1&l_id=<%=l_id%>&t_id=<%=t_id%>">
    <tr align="center"> 
      <td colspan="2" <%=tColor%> class=tdc1 height=23>通过邮件发送本帖子给您的朋友（全部必填）</td>
    </tr>
    <tr> 
      <td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc height="26">您的姓名：</td>
      <td bgcolor=<%=tColor2%> class=tdc height="26"> 
        &nbsp;<input type="text" name="myusername"  class=bdtj3 size="20" value="<%=cpbusername%>">
      </td>
    </tr>
    <tr> 
      <td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc height="26">您朋友的姓名：</td>
      <td bgcolor=<%=tColor2%> class=tdc height="26"> 
        &nbsp;<input type="text" name="yourusername"  size="20" value=""  class=bdtj3>
      </td>
    </tr>
    <tr> 
      <td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc height="26">您朋友的email：</td>
      <td bgcolor=<%=tColor2%> class=tdc height="26"> 
        &nbsp;<input type="text" name="youremail"  size="25" class=bdtj3 value=""  >
      </td>
    </tr>
<input type="hidden" name="t_title"   value="<%=rs_topic("t_title")%>">
       <tr> 
      <td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc height="26">邮件内容：</td>
      <td bgcolor=<%=tColor2%> class=tdc height="26"> 
        &nbsp;<textarea rows="5" name="yourcontent" cols="50" class=bdtj3>您好！相信您对"<%=l_title%>"的这篇主题有兴趣，请前去看看！</textarea>
      </td>
    </tr>
        <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>　</td>
      <td bgcolor=<%=tColor2%> class=tdc height=25> 
        &nbsp;<input type="submit" name="Submit" value="提交" class=bdtj>
        <input type="reset" name="Submit2" value="重置" class=bdtj>(主题的url地址不需填写，系统会自动加上)        
      </td>
    </tr>
    </form>
    </table>
    </div>
<%
end sub
sub email
cpbtitle="打包邮递主题;"&rs_topic("t_title")
call toptitle(l_title,cpbtitle)
call head(3,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)%>

<div align="center">
  <table border=1 borderColor=<%=tdc2%> cellPadding=2 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center>
  <form name="form1" method="POST" action="?action=do2&l_id=<%=l_id%>&t_id=<%=t_id%>">
    <tr align="center"> 
      <td colspan="2" <%=tColor%> class=tdc1 height=23>打包邮递</td>
    </tr>
    <tr> 
    
      <td bgcolor=<%=tColor2%> class=tdc height="26" colspan=2 align=center> 
    <B>把本贴 <A href="topic.cgi?l_id=<%=l_id%>&t_id=<%=t_id%>"><%=rs_topic("t_title")%></A> 
打包邮递。</B><BR>请正确输入你要邮递的邮件地址！ 
      </td>

    <tr> 
      <td align="right" width="20%" bgcolor=<%=tColor2%> class=tdc height="26"><B>邮递的 Email 地址：</B></td>        
      <td bgcolor=<%=tColor2%> class=tdc height="26"> 
        &nbsp;<input type="text" name="youremail"  size="25" class=bdtj3 value=""  >
      </td>
   
        <tr> 
      <td width="20%" align="right" bgcolor=<%=tColor2%> class=tdc>　</td>
      <td bgcolor=<%=tColor2%> class=tdc height=25> 
        &nbsp;<input type="submit" name="Submit" value="提交" class=bdtj>
        <input type="reset" name="Submit2" value="重置" class=bdtj>        
      </td>
    </tr>
    </form>
    </table>
    </div>
<%
end sub
  set rs_topic=nothing
    set rs_lanmu=nothing%><!--#include file="bq.asp" -->