分享110个ASP源码，有一款适合你

<!-- #include file="inc/config.asp" -->
<!-- #include file="inc/data_base_open.asp" -->
<!-- #include file="inc/char_sql_url.asp" -->
<!-- #include file="inc/char_sql_form.asp" -->
<!-- #include file="inc/char_global.asp" -->
<!-- #include file="inc/too_fast.asp" -->
<!-- #include file="inc/asptemplate.asp" -->
<%
class_id = int(Request.QueryString("class_id"))
set t = New ASPTemplate
t.SetTemplatesDir(template_use)
t.SetTemplateFile "index.html"
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
user_stay = "论坛首页"
  t.UpdateBlock "bbs_list"
  t.UpdateBlock "class_list"
  ''''''''''论坛分类''''''''''
  sql = "select top 100 class_id,class_name from " & data_table_name & "class"
  If class_id <> 0 Then
  sql = sql & " where class_id=" & class_id
  End If
  sql = sql & " order by class_order,class_id"
  rs.Open sql,Conn,1,1,1
  do while not rs.eof
    class_id = rs("class_id")
    class_name = rs("class_name")
    ''''''''''论坛''''''''''
    sql = "select top 100 bbs_id,bbs_name,bbs_master,bbs_master_2,bbs_intro,bbs_type from " & data_table_name & "config where class_id=" & class_id & " order by bbs_order,bbs_id"
    rs1.Open sql,Conn,1,1,1
    do while not rs1.eof
      bbs_id = rs1("bbs_id")
      bbs_name = rs1("bbs_name")
      bbs_master = rs1("bbs_master")
      bbs_master_2 = rs1("bbs_master_2")
      bbs_intro = rs1("bbs_intro")
      bbs_type = rs1("bbs_type")
      '主题数
      sql = "select count(topic_id) as bbs_total_topic from  " & data_table_name & "topic_info where bbs_id=" & bbs_id & " and topic_del<>'del'"
      rs2.open sql,conn,1,1,1
      bbs_total_topic = rs2("bbs_total_topic")
      rs2.close
      '回复数
      sql = "select count(topic_id) as bbs_total_reply from  " & data_table_name & "reply_info where bbs_id=" & bbs_id & " and reply_del<>'del'"
      rs2.open sql,conn,1,1,1
      bbs_total_reply = rs2("bbs_total_reply")
      rs2.close
      '今日主题数
      sql = "select count(topic_id) as bbs_today_topic from  " & data_table_name & "topic_info where bbs_id=" & bbs_id & " and topic_del<>'del' and datediff('d',topic_time,'" & time_now & "')<1"
      rs2.open sql,conn,1,1,1
      bbs_today_topic = rs2("bbs_today_topic")
      rs2.close
      '今日回复数
      sql = "select count(topic_id) as bbs_today_reply from  " & data_table_name & "reply_info where bbs_id=" & bbs_id & " and reply_del<>'del' and datediff('d',reply_time,'" & time_now & "')<1"
      rs2.open sql,conn,1,1,1
      bbs_today_reply = rs2("bbs_today_reply")
      rs2.close
      '最后主题
      sql = "select top 1 topic_id,topic_time,topic_user_name from  " & data_table_name & "topic_info where bbs_id=" & bbs_id & " and topic_del<>'del' order by topic_lasttime desc, topic_id desc"
      rs2.open sql,conn,1,1,1
        If Not rs2.eof Then
          last_topic_time = rs2("topic_time")
          last_topic_user_name = rs2("topic_user_name")
          last_topic_id = rs2("topic_id")
        Else
          last_topic_time = Empty
          last_topic_user_name = Empty
          last_topic_id = 0
        End If
      rs2.close
      '最后回复
      sql = "select top 1 topic_id,reply_id,reply_time,reply_user_name from  " & data_table_name & "reply_info where bbs_id=" & bbs_id & " and reply_del<>'del' order by reply_id desc"
      rs2.open sql,conn,1,1,1
        If Not rs2.eof Then
          last_reply_time = rs2("reply_time")
          last_reply_user_name = rs2("reply_user_name")
          last_reply_topic_id = rs2("topic_id")
          last_reply_id = rs2("reply_id")
        Else
          last_reply_time = Empty
          last_reply_user_name = Empty
          last_reply_topic_id = 0
          last_reply_id = 0
        End If
      rs2.close
        If last_topic_time > last_reply_time then
          last_time = last_topic_time
          last_user = last_topic_user_name
          last_topic = last_topic_id
        Else
          last_time = last_reply_time
          last_user = last_reply_user_name
          last_topic = last_reply_topic_id
          last_reply = last_reply_id
        End If
      last_page = bbs_total_topic \ page_topic
        If last_page <= 0 Then
          last_page = 1
        End If
        ''''''''''版副''''''''''
        if bbs_master_2 <> empty then
        master_test = split(bbs_master_2, "|")
          for i = 0 to ubound(master_test)
            if i > 2 then
            master_list = master_list & "<FONT COLOR=""#666666"">More...</FONT>"
            exit for
            else
            master_list = master_list & "<a href=""user_show.asp?user_name=" & Trim(master_test(i)) & """>" & Trim(master_test(i)) & "</a>&nbsp;&nbsp;"
            end if
          next
        end If
      bbs_master_str = "<A HREF=""user_show.asp?user_name=" & bbs_master & """>" & bbs_master & "</A>"
      bbs_master_2_str = master_list
      master_list = Empty
      If bbs_type = "lock" Then
      bbs_icon = "forum_read_locked.gif"
      Else
      bbs_icon = "forum_read.gif"
      End If
    t.SetVariable "bbs_icon", bbs_icon
    t.SetVariable "bbs_id", bbs_id
    t.SetVariable "bbs_name", bbs_name
    t.SetVariable "bbs_intro", bbs_intro
    t.SetVariable "bbs_master", bbs_master_str
    t.SetVariable "bbs_master_2", bbs_master_2_str
    t.SetVariable "bbs_today_posts", bbs_today_topic + bbs_today_reply
    t.SetVariable "bbs_total_topic", bbs_total_topic
    t.SetVariable "bbs_total_posts", bbs_total_topic + bbs_total_reply
    t.SetVariable "last_user", last_user
    t.SetVariable "last_topic", last_topic
    t.SetVariable "last_page", last_page
    t.SetVariable "last_reply", last_reply
    t.SetVariable "last_time", last_time
    t.ParseBlock "bbs_list"
    rs1.movenext
    loop
    rs1.close
  t.SetVariable "class_id", class_id
  t.SetVariable "class_name", class_name
  t.ParseBlock "class_list"
  rs.movenext
  Loop
  rs.close
  %>
  <!-- #include file="inc/line.asp" -->
  <%
  '最新用户
  sql = "select top 1 user_name from " & data_table_name & "user_info where user_stat<>'lock' or user_stat<>'wait' order by user_id desc"
  rs.Open sql,Conn,1,1,1
  If Not rs.eof Then
  newest_user = rs("user_name")
  End If
  rs.close
  ''''''''''在线注册人数''''''''''
  sql = "Select count(session_id) as reg_online from " & data_table_name & "user_online where len(user_name)<>0"
  rs.Open sql,Conn,1,1,1
  reg_online = rs("reg_online")
  rs.close
  sql = "Select user_name,user_class from " & data_table_name & "user_online where len(user_name)<>0"
  rs.Open sql,Conn,1,1,1
    do while not rs.eof
      select case rs("user_class")
        case class_manage
        font_class = "font_class_sys"
        case class_manage - 1
        font_class = "font_class_master"
        case class_manage - 2
        font_class = "font_class_master_2"
        case class_manage - 2
        font_class = "font_class_vip"
        case else
        font_class = empty
      end Select
    online_list_reg = online_list_reg & "<A HREF=""user_show.asp?user_name=" & rs("user_name") & """ class=""" & font_class & """>" & rs("user_name") & "</A>&nbsp;&nbsp;"
    rs.movenext
    loop
  rs.close
  '主题总数
  sql = "select count(topic_id) as total_topic from " & data_table_name & "topic_info where topic_del<>'del'"
  rs.Open sql,Conn,1,1,1
  total_topic = rs("total_topic")
  rs.close
  '回复总数
  sql = "select count(reply_id) as total_reply from " & data_table_name & "reply_info where reply_del<>'del'"
  rs.Open sql,Conn,1,1,1
  total_reply = rs("total_reply")
  rs.close
  '今日主题
  sql = "select count(topic_id) as today_topic from " & data_table_name & "topic_info where topic_del<>'del' and datediff('d',topic_time,'" & time_now & "')<1"
  rs.Open sql,Conn,1,1,1
  today_topic = rs("today_topic")
  rs.close
  '今日回复
  sql = "select count(reply_id) as today_reply from " & data_table_name & "reply_info where reply_del<>'del' and datediff('d',reply_time,'" & time_now & "')<1"
  rs.Open sql,Conn,1,1,1
  today_reply = rs("today_reply")
  rs.close
  '用户总数
  sql = "select count(user_id) as total_user from " & data_table_name & "user_info"
  rs.Open sql,Conn,1,1,1
  total_user = rs("total_user")
  rs.close
    if baigo_user_name = empty Then
    t.SetVariableFile "fast_login", "fast_login.html"
    Else
    t.SetVariable "fast_login", ""    
    end If
  t.SetVariable "currently_time", Now()
  t.SetVariable "newest_user", newest_user
  t.SetVariable "total_online", total_online
  t.SetVariable "reg_online", reg_online
  t.SetVariable "guest_online", total_online - reg_online
  t.SetVariable "online_most", online_most
  t.SetVariable "online_most_time", online_most_time
  t.SetVariable "online_list_reg", online_list_reg
  t.SetVariable "today_posts", today_topic + today_reply
  t.SetVariable "total_topic", total_topic
  t.SetVariable "total_posts", total_topic + total_reply
  t.SetVariable "total_user", total_user
  %>
  <!-- #include file="inc/page_global.asp" -->
  <%
  t.Parse
  Set t = Nothing
set rs1 = nothing
set rs2 = Nothing
Call data_close
%>