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

链接：https://pan.baidu.com/s/130lk3tQ6j-x8YfV_afqllQ?pwd=nxrb 
提取码：nxrb

下面是文件的名字，我放了一些图片，文章里不是所有的图主要是放不下...，大家下载后可以看到。

植物大战僵尸网页版
魔力宝贝游戏发布网
LFMessS 岭峰网行业专用留言系统
Adobe Creative Cloud 2020
360安全网址导航
LFMessS 岭峰网行业专用留言系统主题包
alexa查询系统
秋天网站快速部署系统
考核评分在线考评系统
eWebEditor
高等学校后勤网站管理系统
521yy歪歪在线词语查询小偷系统
百度搜狐网易新闻采集系统
金满仓WEB进销存
名典设备报修管理系统
Z-Blog 博客系统
简易用户登录及管理系统
嘟嘟行业搜索引擎系统 垂直搜索
SXW Flash整站系统
快捷旅店管理系统
918天蓝型企业展示系统
琵易图文发布系统(PEweb)
查备案网站备案信息查询系统
蓝色风格企业网站系统
ICP 备案查询系统
中国美文网管理系统
沧州世佳网络企业网站管理系统
证券第一网资讯系统
二级域名转向系统
图片浏览系统
广优邮件发送系统
随缘网络邮件订阅系统
大型库存管理系统/OA办公管理系统
star 企业产品发布系统 1.0
护卫神主机管理系统
财务收支统计系统
汇成美容美发会员卡收银管理系统
网瑞科技企业网站管理系统
i电子商务自助收录网站链接系统
2012心理学网社区论坛系统
Net112企业建站系统
网联企业网站管理系统
918 办公家具红灰系列企业网站系统
小区宽带缴费记录查询系统
B2C 服装行业网上商城系统
新翔电业操作站绩效考核系统
李凯工作室ALEXA 查询系统
网上报名系统
某学校专用OA办公系统
FYPost枫叶贴吧留言管理系统
eimsBlog 博客系统
喜木天气预报查询系统
河工学生学籍管理系统
在线客服系统
免费IDC睿虎工单系统
在押人员信息管理系统
草根三剑客之bbs 单文件版论坛系统
25175 英语等级证书查询系统
baigo BBS 论坛系统
天缘企业网站管理系统
JCP3(晋唐内容发布系统)
博客系统 Z-Blog
25175 户籍管理系统
芮擎报修系统
博购客户管理系统
一个人记账管理系统
推广宝功能强大的分类信息系统
大方电子员工外出记录管理系统
网人 信息发布系统(WRMPS)
Hishop 网店管理系统
网上报名系统
ISchool学校教材在线征订系统
凡诺企业网站管理系统商业版
余志国 企业外贸网站系统
站长天下网站备案号快速查询系统
随缘网络邮件订阅系统
广优邮件发送系统
25175学生作业提交管理系统
7384迷你广告信息发布系统
918行业导航绿色系统
天影在线家庭财务记账管理系统
开心网赚大全整站系统
中国大闸蟹产地直销联盟分销商城系统
奥智手机数码商城购物系统
12样(12yang)网团购系统
深度企业网站管理系统
市长信箱(网上开设办事)系统
科海网络企业网站管理系统
长春阳光妇科医院在线预约系统
查备案网站备案信息查询系统
证券第一网资讯系统
71code蓝色全能型企业网站系统
不见不散邮件系统
Seo外链优化系统  1.0
五金行业企业网站管理系统
fs-company 企业网站系统
食物营养成分查询系统
良精OA办公系统
楹栋DNSpod域名解析系统
阿赛文件上传系统
无忧影视视频管理系统
整站系统 随风工作室
汽车美容加盟总部管理系统
未知数网络技术标自动生成系统
Gogo 人才网系统
飞乐网免费电影小偷系统
企业建站系统eims_ew
追梦阳光口碑点评系统
青辣椒考研 在线订单系统
余志国搜索引擎蜘蛛来访记录系统
先锋快速建站系统免费版
风铃企业网站管理系统
九酷网络个人主页空间管理系统
简易友情链接管理系统
尘月 企业网站系统
某企业内部专用的大型库存管理系统/OA办公管理系统
某学校专用OA办公系统

<!-- #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
%>

BZWB网络办公系统(免费版)

植物大战僵尸网页版

魔力宝贝游戏发布网

LFMessS 岭峰网行业专用留言系统

LFMessS 岭峰网行业专用留言系统主题包

alexa查询系统

秋天网站快速部署系统

考核评分在线考评系统

eWebEditor

高等学校后勤网站管理系统

521yy歪歪在线词语查询小偷系统

链接：https://pan.baidu.com/s/130lk3tQ6j-x8YfV_afqllQ?pwd=nxrb 
提取码：nxrb