分享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 ASPTemplatet.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 Thensql = sql & " where class_id=" & class_idEnd Ifsql = sql & " order by class_order,class_id"rs.Open sql,Conn,1,1,1do while not rs.eofclass_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,1do while not rs1.eofbbs_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,1bbs_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,1bbs_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,1bbs_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,1bbs_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,1If Not rs2.eof Thenlast_topic_time = rs2("topic_time")last_topic_user_name = rs2("topic_user_name")last_topic_id = rs2("topic_id")Elselast_topic_time = Emptylast_topic_user_name = Emptylast_topic_id = 0End Ifrs2.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,1If Not rs2.eof Thenlast_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")Elselast_reply_time = Emptylast_reply_user_name = Emptylast_reply_topic_id = 0last_reply_id = 0End Ifrs2.closeIf last_topic_time > last_reply_time thenlast_time = last_topic_timelast_user = last_topic_user_namelast_topic = last_topic_idElselast_time = last_reply_timelast_user = last_reply_user_namelast_topic = last_reply_topic_idlast_reply = last_reply_idEnd Iflast_page = bbs_total_topic \ page_topicIf last_page <= 0 Thenlast_page = 1End If''''''''''版副''''''''''if bbs_master_2 <> empty thenmaster_test = split(bbs_master_2, "|")for i = 0 to ubound(master_test)if i > 2 thenmaster_list = master_list & "<FONT COLOR=""#666666"">More...</FONT>"exit forelsemaster_list = master_list & "<a href=""user_show.asp?user_name=" & Trim(master_test(i)) & """>" & Trim(master_test(i)) & "</a>&nbsp;&nbsp;"end ifnextend Ifbbs_master_str = "<A HREF=""user_show.asp?user_name=" & bbs_master & """>" & bbs_master & "</A>"bbs_master_2_str = master_listmaster_list = EmptyIf bbs_type = "lock" Thenbbs_icon = "forum_read_locked.gif"Elsebbs_icon = "forum_read.gif"End Ift.SetVariable "bbs_icon", bbs_icont.SetVariable "bbs_id", bbs_idt.SetVariable "bbs_name", bbs_namet.SetVariable "bbs_intro", bbs_introt.SetVariable "bbs_master", bbs_master_strt.SetVariable "bbs_master_2", bbs_master_2_strt.SetVariable "bbs_today_posts", bbs_today_topic + bbs_today_replyt.SetVariable "bbs_total_topic", bbs_total_topict.SetVariable "bbs_total_posts", bbs_total_topic + bbs_total_replyt.SetVariable "last_user", last_usert.SetVariable "last_topic", last_topict.SetVariable "last_page", last_paget.SetVariable "last_reply", last_replyt.SetVariable "last_time", last_timet.ParseBlock "bbs_list"rs1.movenextlooprs1.closet.SetVariable "class_id", class_idt.SetVariable "class_name", class_namet.ParseBlock "class_list"rs.movenextLooprs.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,1If Not rs.eof Thennewest_user = rs("user_name")End Ifrs.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,1reg_online = rs("reg_online")rs.closesql = "Select user_name,user_class from " & data_table_name & "user_online where len(user_name)<>0"rs.Open sql,Conn,1,1,1do while not rs.eofselect case rs("user_class")case class_managefont_class = "font_class_sys"case class_manage - 1font_class = "font_class_master"case class_manage - 2font_class = "font_class_master_2"case class_manage - 2font_class = "font_class_vip"case elsefont_class = emptyend Selectonline_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.movenextlooprs.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,1total_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,1total_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,1today_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,1today_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,1total_user = rs("total_user")rs.closeif baigo_user_name = empty Thent.SetVariableFile "fast_login", "fast_login.html"Elset.SetVariable "fast_login", ""		end Ift.SetVariable "currently_time", Now()t.SetVariable "newest_user", newest_usert.SetVariable "total_online", total_onlinet.SetVariable "reg_online", reg_onlinet.SetVariable "guest_online", total_online - reg_onlinet.SetVariable "online_most", online_mostt.SetVariable "online_most_time", online_most_timet.SetVariable "online_list_reg", online_list_regt.SetVariable "today_posts", today_topic + today_replyt.SetVariable "total_topic", total_topict.SetVariable "total_posts", total_topic + total_replyt.SetVariable "total_user", total_user%><!-- #include file="inc/page_global.asp" --><%t.ParseSet t = Nothingset rs1 = nothing
set rs2 = NothingCall data_close
%>

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