index.asp

一个不错的论坛原代码

           response.write("  此为认证版块")
          elseif  rs_topic.eof then
          response.write("  暂无记录")
          else%>
            <img border="0" src="image/lasticon.gif">主题：<a href=topic.asp?l_id=<%=rs_lanmu("l_id")%>&t_id=<%=rs_topic("t_id")%> title="主题：<%=HTMLEncode(rs_topic("t_lasttitle"))%>&#13;&#10;发起人：<%=rs_topic("t_username")%>&#13;&#10;发起时间：<%=rs_topic("t_time")%>&#13;&#10;共有回复：<%=rs_topic("t_replynum")%>&#13;&#10;浏览次数：<%=rs_topic("t_count")%>"><%=left(HTMLEncode(rs_topic("t_lasttitle")),8)%>...</a><br>
             &nbsp;&nbsp;作者：<a href=viewuser.asp?username=<%=rs_topic("t_lastusername")%> target=_blank><%=rs_topic("t_lastusername")%></a><br>
            &nbsp;&nbsp;时间：<%=rs_topic("t_lasttime")%>
            <% end if%>
            </td>
          <td width="12%" align="center" >
         
       <%if not isnull(l_banzhu) and l_banzhu<>"" then
		l_banzhu1=split(l_banzhu,",")
		if ubound(l_banzhu1)>2 then
		i=3
		else
		i=ubound(l_banzhu1)
		end if
    for i=0 to (i-1)
        response.write("<a href=""viewuser.asp?username="&l_banzhu1(i)&""" title=""查看版主“"&l_banzhu1(i)&"”的资料"">"&l_banzhu1(i)&"</a><br>")  
      next
        if i=3 then response.write("More...")
        else
        response.write("就等你了")
        end if
        %>
          　</td>
        </tr>
          </tbody>
     <%
      set rs_topic=nothing
         rs_lanmu.MoveNext 
        Loop
     set rs_lanmu=nothing
       rs_fenlei.MoveNext 
        Loop
        set rs_fenlei=nothing 
          
        '-----------中间讨论区，主题结束 ------------
        '---------开始调用link.asp的文件------------- 
  %>
  </table>
  <%=top1%>
 <BR>
  <!--#include file="link.asp" -->
  <BR>
  <table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=0 width=<%=tdc3%> style="border-collapse: collapse" align=center> 
<tr><td <%=tColor%> class="tdc1" height="22">&nbsp;>>== 个人状态</td></tr>
<tbody>
<tr>
<td bgcolor=<%=tColor2%> class="tdc">

<table width=98% align=center>
<tbody>
<tr  bgcolor=<%=tColor2%> class=tdc>
<% if cpbusername="" then%>
<td width="100%" colspan="4" bgcolor=<%=tColor2%> class=tdc>
您没有登陆或者注册，您只有登陆以后才可以看您的短信并且参加主题讨论 
</td>
  <%else
  dim sslpm,rspm,sql_fen1,rs_fen1,rs_grade
  '读取短信息
  sqlpm = "select count(q_receive) as tpm from pm where q_receive='"&cpbusername&"'and q_read=0"
set rspm=conn.execute(sqlpm)
countpm=rspm("tpm")
set rspm=nothing
sql_fen1 = "select g_title from grade where g_num="&u_grade&""
set rs_fen1 =conn.Execute (sql_fen1)
rs_grade=rs_fen1("g_title")
set rs_fen1=nothing
 %>
 <td width="25%">
    <a href="pm.asp">您的收件箱有<%=countpm%>封新邮件</a>
    <%'有新短消息就读出声音文件
    if countpm>0 then response.write("<bgsound src=""image/mail.wav"" loop=""1""><img src=image/newmsg.gif><script>if (confirm(""您有新的短消息，是否打开收件箱查看？"")) window.open(""pm.asp"");</script>")%>
    </td>
    <td width="25%">发表文章：<%=fycpbsend%></td>
    <td width="25%">被删文章：<%=u_deltopic1%></td>
    <td width="25%">精华文章：<%=u_toptopic1%></td>
    </tr>
    <TR bgcolor=<%=tColor2%> class=tdc><td width="25%">
    您的经验：<%=fycpbfen%></td><td width="25%">您的财产：<%=fycpbmoney%></td>
    <td width="25%">您的魅力：<%=fycpbbeauty%></td>
    <td width="25%">您的等级：<%=rs_grade%></td>
    <%end if%>
    <td width="20%" rowspan="3" valign=middle>
    <a href=http://down.dxxo.com target=_blank title="-----------    ※※※※※    -----------&#13;&#10;论坛由 down.dxxo.com 制作&#13;&#10;感谢您采用我们的论坛，让我们做的更好！&#13;&#10;-----------    ※※※※※    -----------"><img src=image/logo.gif border=0 valign=middle></a>
    </td>
    </tr>
    <tr bgcolor=<%=tColor2%> class=tdc><td width="25%">您的IP：<%=o_ip%></td>
    <td width="25%">操作系统： <%=system(Request.ServerVariables("HTTP_USER_AGENT"))%></td>
    <td width="25%">浏览器：<%=browser(Request.ServerVariables("HTTP_USER_AGENT"))%></td>
    <td width="25%">　
    </td>
    </tr>
    <tbody>
    </table>
</td>
</tr>
<tbody>
</table>
 <BR>
 <%'统计
 dim sqltongji,strsql1,sqltongji1,o_namenum,guest,sqlonline2,rsonline2
 sqltongji="update total set tongji1=tongji1+1"
 '如果总访问量为0的话，就将改写统计的开始时间
 if tongji1=0 then sqltongji=sqltongji&", h_tjstart='"&nowtime&"'"
 '如果日期不是今天的话，就更新为今天
 if int(fday)<>int(h_tjtoday) then
 strsql1 = "update user set u_todaysend=0"'更新当天发帖
 conn.execute(strsql1) 
sqltongji=sqltongji&", h_tjnowday=1, h_posttoday=0,h_replytoday=0,h_regtoday=0,h_tjpreday="&h_tjnowday&",h_tjtoday='"&fday&"'"
else
sqltongji=sqltongji&", h_tjnowday=h_tjnowday+1"
end if
 '如果日期不是今月的话，就更新为今月
if int(fmonth)<>int(h_tjmonth) then
sqltongji=sqltongji&", h_tjnowmonth=1, h_tjpremonth="&h_tjnowmonth&",h_tjmonth='"&fmonth&"'"
else
sqltongji=sqltongji&", h_tjnowmonth=h_tjnowmonth+1"
end if
 '如果ip不相同的话，就更新为当前ip并且将ip访问量加1
 if o_ip<>tongjiip then sqltongji=sqltongji&", tongji=tongji+1, tongjiip='"&o_ip&"'"
conn.execute(sqltongji)
sqltongji1="select tongji,tongji1 from total"
set rstongji1=conn.execute(sqltongji1)
tongji=rstongji1("tongji")
tongji1=rstongji1("tongji1")
set rstongji1=nothing

sqlonline="select count(o_username) as o_namenum from online where o_username<>'客人'"
set rsonline = conn.Execute (sqlonline)
o_namenum=rsonline("o_namenum")
sqlonline="select count(o_username) as o_namenum from online"
set rsonline = conn.Execute (sqlonline)
o_total=rsonline("o_namenum")
set rsonline=nothing
guest=o_total-o_namenum
 if o_total> o_num then
sqlonline1 = "update total set o_num = "&o_total&",o_time='" &nowtime&"'"
conn.Execute (sqlonline1)
sqlonline2="select o_num,o_time from total"
set rsonline2=conn.Execute (sqlonline2)
o_num=rsonline2("o_num")
o_time=rsonline2("o_time")
set rsonline2=nothing
end if
%>
<table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=0 width=<%=tdc3%> style="border-collapse: collapse" align=center>
<Tbody>
<tr>
<td <%=tColor%> class="tdc1" height="22">&nbsp;>>== 在线人数统计---目前论坛上总共有<%=o_total%>人在线   <a href=fyonline.asp target=_blank>[在线列表]</a>
<%if request("viewuser")="on" or  (h_viewonline=1 and request("viewuser")<>"off") then%>
<a href=?viewuser=off>[关闭详细列表]</a>
<%else%>
<a href=?viewuser=on>[查看详细列表]</a>
<%end if%> 
     </td>
     </tr>
     </tbody>
      <tbody>
<tr>
<td bgcolor=<%=tColor2%> class="tdc" >
其中会员 <%=o_namenum %> 人， 客人 <%=guest %> 人 |  最高记录
在 <%=o_time%> 共有 <%=o_num%> 人同时在线 | 论坛共被访问 <%=tongji%> 次，共被点击 <%=tongji1%> 次<br>
名单图例：<img src=image/icon0.gif> 论坛管理员 | <img src=image/icon.gif> 论坛总版主 | <img src=image/icon1.gif> 论坛版主 | <img src=image/icon2.gif> 认证会员 | <img src=image/icon3.gif> 普通会员 | <img src=image/icon4.gif> 客人
或者隐身会员</td></tr>
<%if request("viewuser")="on" or  (h_viewonline=1 and request("viewuser")<>"off") then%>
<tr><td bgcolor=<%=tColor2%> class="tdc" ><table border=0 width=100%>
<%dim i_online
sqlonline="select o_username,o_hidden from online"
set rsonline = conn.Execute (sqlonline)
if rsonline.eof or rsonline.bof then
 Response.Write "无此用户"
else
 response.write("<tbody><tr class=tdc>")
i_online=0
  do while not rsonline.Eof
  response.write("<td width=""16%"">")
    if rsonline("o_username") = "客人"  then
     Response.Write "&nbsp;<img src=image/icon4.gif>" & rsonline("o_username") &""
     elseif rsonline("o_hidden")=1 and issupermaster=false then
     Response.Write "&nbsp;<img src=image/icon4.gif> 隐身会员"
    else
    sql="select grade from user where username='"&rsonline("o_username")&"'"
    set rs=conn.execute(sql)
    if not rs.eof then
    u_grade=rs("grade")
    if u_grade="0" then
      response.write("<img src=image/icon0.gif>")
       elseif u_grade="1" then
       response.write("<img src=image/icon.gif>")
      elseif u_grade="2" then
       response.write("<img src=image/icon1.gif>")
        elseif u_grade="3" then
       response.write("<img src=image/icon2.gif>")
         else
       response.write("<img src=image/icon3.gif>")
       end if
        end if
    set rs=nothing
    if cpbusername=rsonline("o_username") then
     Response.Write "<a href='viewuser.asp?username=" & rsonline("o_username") & "' target=_blank><b>"& rsonline("o_username") & "</b></a>"
     else
     Response.Write "<a href='viewuser.asp?username=" & rsonline("o_username") & "' target=_blank>"& rsonline("o_username") & "</a>"
    end if
    end if
    response.write("</td>")
 if i_online=5 then
   response.write("</tr></tbody><tbody><tr class=tdc>")
  i_online=0
  else
  i_online=i_online+1
  end if
  rsonline.movenext
  loop
end if
%>
</tr>
 </tbody></table>
</td></tr>
 </tbody>
 <%end if
 '更新online表
sqlonline = "update online set o_lanmu =0 ,o_topic=0 where o_ip = '" & o_ip & "'"
conn.Execute (sqlonline)
%>
</table>
<table border=0 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=0 width=<%=tdc3%> align=center>
<tbody>
   <tr>
    <td class=tdc  align="left" height="21">
    所有时间均为
     <%=h_servertext%> 
    当前时间:
    <%response.write(nowtime)
%>
    </td> 
    <td class=tdc  align="right">
    <a href="?action=edittime">标记所有论坛为已读</a> 
    <a href="?action=clearcookies">删除本论坛所设cookies</a>
    </td>
  </tr>
  </tbody>
</table>
<p>
<table border=0 width=<%=tdc3%> cellpadding="0" cellspacing="1"  class=tb2 >
<tbody>
   <tr>
    <td class=tdc  align="center" >
    <img src=image/forumold.gif align="absmiddle" alt=无新贴的论坛>&nbsp;无新贴的论坛 
    <img src=image/forumnew.gif align="absmiddle" alt=有新贴的论坛>&nbsp;有新贴的论坛 
    <img src=image/forumlock.gif align="absmiddle" alt=只读论坛>&nbsp;只读论坛
    </td> 
  </tr>
  </tbody>
</table>
<!--#include file="bq.asp" -->