简介：这是一套面向视频站点搭建者的ASP源码程序，即ADN视频收藏专家ACC版，适合希望快速部署影视资源站、需要采集与静态化功能的站长或开发者使用。压缩包共414个文件，以89个asp动态页面、70个js脚本、185个gif界面素材为主，另含html模板、css样式、mdb与sql数据库文件及少量swf、xml配置，整体约876KB，结构紧凑便于上传部署。程序支持根目录与二级目录两种安装方式，提供SQL版参数配置，并附带模拟静态页面重写规则，已集成百度影音播放器，同时修正了上传服务器错误500的问题。资源还包含采集导入、VIP会员、数据管理、HTML生成等核心模块，可帮助读者快速理解影视站点的目录组织与功能划分。目前已有5103人学习下载，适合具备一定ASP基础、想研究或二次开发视频站源码的读者参考。

1. 从一份 2011 年的 ASP 电影站源码说起：它到底能跑出什么

如果你手里正好有一份标注着「78电影网源码 1.1 20111224」的压缩包，解压后看到一堆.asp文件和conn.asp、inc目录，第一反应大概是：这玩意儿还能跑吗？能。它是一套典型的 ASP + Access 架构的影视聚合站，核心逻辑是采集远程资源、本地入库、前台按分类和播放源渲染列表与详情页。适合两类人：一是想拿它当 ASP 练手项目、理解早期 Web 开发「请求—查询—渲染」全链路的新手；二是需要一套轻量影视站骨架做二次开发的老手。它不依赖复杂框架，IIS 配好就能跑，改起来也直接——所有逻辑都摊在文件里，没有黑盒。

2. 环境与部署：把 1.1 版本在本地 IIS 上跑起来

2.1 运行环境清单与 IIS 配置要点

这套源码的年代决定了它只认 Windows + IIS 的组合。常见做法是找一台 Windows 7 或 Windows Server 2008 的机器，开启 IIS 6 兼容模式，因为 1.1 版本里大量用了Request.ServerVariables和Server.CreateObject，在 IIS 7 以上的集成模式下需要额外配置处理程序映射。具体清单如下：

配置 IIS 时，在「应用程序池」里把托管管道模式设为「经典」，否则<!--#include file="conn.asp"-->这类 SSI 包含会直接报 500。另外，ASP 配置节点下要把「启用父路径」打开，因为源码里大量用了../inc/这种相对包含。

2.2 数据库连接与站点根路径修正

解压后第一件事不是急着开浏览器，而是改conn.asp。这个文件是整个站点的数据库入口，通常长这样：

<% ' conn.asp - 数据库连接与公共常量定义 Dim Conn, ConnStr, DbPath DbPath = Server.MapPath("data/#db.mdb") ' 注意 # 号在 URL 中需转义 ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbPath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConnStr ' 站点根路径，用于生成静态页和图片地址 Const SiteRoot = "/" %>

逻辑说明：Server.MapPath把虚拟路径转成物理路径，#在 Access 文件名里是合法字符，但在 URL 里会被当成锚点，所以后台生成链接时要用Server.URLEncode处理。参数SiteRoot决定前台所有 CSS、JS 和图片的引用前缀，如果你把站点放在二级目录（比如/movie/），这里必须改成/movie/，否则页面样式全丢。改完conn.asp后，用浏览器访问http://localhost/index.asp，能看到首页列表就说明数据库通了。

2.3 后台入口与初始管理员

后台入口一般是/admin/login.asp，默认账号密码在源码说明里通常写的是admin/admin888或类似组合。登录后第一件事是进「系统设置」把站点名称、域名、采集接口地址改掉。这里有个血泪经验：1.1 版本的采集功能默认指向一个已经失效的远程接口，如果你不换掉，点「一键采集」会卡死几十秒然后超时。常见做法是先在后台把采集开关关掉，等前台跑通后再去改inc/collect.asp里的接口地址。

3. 目录结构与核心模块：一个请求从进入到返回的完整链路

3.1 根目录文件职责划分

解压后的目录大致是这样：

/ 站点根 ├── index.asp 首页，聚合推荐和最新更新 ├── list.asp 分类列表页，接收 typeid 参数 ├── detail.asp 影片详情页，接收 id 参数 ├── play.asp 播放页，根据播放源生成 iframe ├── search.asp 搜索入口，拼接 SQL LIKE 查询 ├── conn.asp 数据库连接与全局常量 ├── /admin/ 后台管理目录 │ ├── login.asp 登录 │ ├── movie.asp 影片增删改查 │ └── collect.asp 采集管理 ├── /inc/ 公共包含文件 │ ├── function.asp 公共函数库 │ └── collect.asp 采集核心逻辑 ├── /data/ Access 数据库与缓存 ├── /images/ 静态资源 └── /js/ 前端脚本

这个结构是典型的「扁平前台 + 集中后台 + 公共包含」模式。前台每个入口文件只做三件事：接收参数、查数据库、渲染 HTML。没有路由层，没有 MVC，所有逻辑直来直去。对新手来说这是好事——你顺着index.asp从头读到尾，就能理解一个请求是怎么被处理的。

3.2 首页数据聚合与列表渲染

index.asp是理解整个站点的钥匙。它通常先包含conn.asp和function.asp，然后依次查询「推荐影片」「最新更新」「热门排行」三组数据：

<!--#include file="conn.asp"--> <!--#include file="inc/function.asp"--> <% ' 查询最新 10 部影片 Dim RsNew, SqlNew SqlNew = "SELECT TOP 10 id, title, pic, addtime FROM movie ORDER BY id DESC" Set RsNew = Conn.Execute(SqlNew) %> <ul class="list"> <% Do While Not RsNew.EOF %> <li> <a href="detail.asp?id=<%=RsNew("id")%>"> <img src="<%=RsNew("pic")%>" alt="<%=RsNew("title")%>"> <span><%=RsNew("title")%></span> </a> </li> <% RsNew.MoveNext : Loop %> </ul> <% RsNew.Close : Set RsNew = Nothing %>

逻辑说明：TOP 10是 Access 的分页写法，ORDER BY id DESC保证最新入库的排前面。Do While Not RsNew.EOF是 ASP 里最经典的记录集遍历方式，每循环一次MoveNext一次。参数pic存的是影片封面地址，可能是远程采集来的 URL，也可能是本地/images/下的相对路径。这里有个容易翻车的点：如果pic字段为空，<img src="">会触发浏览器对当前页面的二次请求，拖慢加载。常见做法是在function.asp里写一个GetPic()函数，空值时返回一张默认占位图。

3.3 详情页与播放源解析

detail.asp比首页复杂一层，它要根据 URL 里的id查出影片信息，再解析播放源。1.1 版本的播放源通常存在一个playurl字段里，格式是源名称$地址$$源名称$地址，用$和$$做分隔：

<% Dim RsDetail, SqlDetail, PlayArr, i SqlDetail = "SELECT * FROM movie WHERE id=" & CLng(Request.QueryString("id")) Set RsDetail = Conn.Execute(SqlDetail) If RsDetail.EOF Then Response.Write "影片不存在" Response.End End If ' 解析播放源 PlayArr = Split(RsDetail("playurl"), "$$") For i = 0 To UBound(PlayArr) Dim OneSource, SourceInfo SourceInfo = Split(PlayArr(i), "$") If UBound(SourceInfo) >= 1 Then Response.Write "<a href='play.asp?id=" & RsDetail("id") & "&sid=" & i & "'>" & SourceInfo(0) & "</a>" End If Next %>

逻辑说明：CLng把id强制转成长整型，防止 SQL 注入——这是这套源码里为数不多的安全处理，但只做了这一处，其他参数基本裸奔。Split按$$拆出多个播放源，再按$拆出源名称和地址。参数sid是播放源在数组里的下标，play.asp拿到后会重新查一遍数据库，按sid定位到具体地址，再输出一个<iframe>或<script>播放器代码。注意：如果playurl字段里混入了单引号或百分号，Split不会报错，但生成的链接会断，所以采集入库时最好在function.asp里做一次Replace清洗。

4. 采集与入库：远程资源怎么变成本地数据

4.1 采集接口调用与 XML 解析

采集是这套源码的核心卖点。inc/collect.asp里通常用MSXML2.ServerXMLHTTP发请求，拿回 XML 或 JSON 格式的资源列表，然后循环入库：

<% ' 采集远程资源并入库 Dim Http, Url, XmlDoc, NodeList, i Url = "http://example.com/api/list.asp?page=1" ' 实际使用时替换为可用接口 Set Http = Server.CreateObject("MSXML2.ServerXMLHTTP") Http.Open "GET", Url, False Http.Send If Http.Status = 200 Then Set XmlDoc = Server.CreateObject("MSXML2.DOMDocument") XmlDoc.LoadXml Http.ResponseText Set NodeList = XmlDoc.SelectNodes("//video") For i = 0 To NodeList.Length - 1 Dim Title, Pic, PlayUrl Title = NodeList(i).SelectSingleNode("title").Text Pic = NodeList(i).SelectSingleNode("pic").Text PlayUrl = NodeList(i).SelectSingleNode("playurl").Text ' 入库前先查重 Dim RsCheck Set RsCheck = Conn.Execute("SELECT id FROM movie WHERE title='" & Replace(Title, "'", "''") & "'") If RsCheck.EOF Then Conn.Execute("INSERT INTO movie (title, pic, playurl, addtime) VALUES ('" & Replace(Title, "'", "''") & "', '" & Pic & "', '" & PlayUrl & "', Now())") End If RsCheck.Close Next End If Set Http = Nothing %>

逻辑说明：ServerXMLHTTP是同步请求，False表示等响应回来才继续。LoadXml把响应文本解析成 DOM，SelectNodes("//video")按节点名取列表。查重那一步很关键——1.1 版本没有唯一索引，重复采集会灌入大量重复数据，所以入库前必须手动SELECT一次。参数Replace(Title, "'", "''")是 Access 里转义单引号的标准写法，少了这一步，标题里带单引号的影片直接导致 SQL 报错。注意：如果远程接口返回的是 JSON 而不是 XML，LoadXml会解析失败，你需要换成ScriptControl或手写字符串切割，这是 1.1 版本的一个硬伤。

4.2 入库后的字段映射与图片本地化

采集进来的pic字段通常是远程图片地址。如果直接在前台引用，一旦对方服务器挂了或者做了防盗链，你的页面就全是裂图。常见做法是在入库后加一步「图片本地化」：用ServerXMLHTTP把图片二进制流拉下来，存到/images/下，再把pic字段改成相对路径。这一步在 1.1 版本里没有内置，需要自己写。我一般会在inc/function.asp里加一个SaveRemotePic()函数，接收远程 URL 和本地文件名，返回本地路径。注意：Access 数据库单表超过 2GB 会直接崩，所以图片本地化时不要往数据库里存二进制，只存路径。

5. 避坑与排查：这套老源码最容易翻车的几个地方

5.1 中文乱码：从数据库到页面的编码链路

现象：前台页面标题显示成「????」或「锟斤拷」。原因：Access 数据库默认用 GB2312 存储，而 IIS 默认输出 UTF-8，中间没有做编码转换。解决：在conn.asp顶部加<%@ CodePage = 936 %>和Response.Charset = "GB2312"，同时确保所有.asp文件本身用 ANSI 编码保存，不要用 UTF-8。如果已经存成 UTF-8，用记事本另存为 ANSI 即可。

5.2 采集超时：远程接口不可达时的卡死

现象：点「一键采集」后浏览器转圈几十秒，最后报「脚本超时」。原因：ServerXMLHTTP默认超时时间很长，且 1.1 版本没有设置setTimeouts。解决：在Open之前加Http.setTimeouts 5000, 5000, 10000, 10000，分别对应解析、连接、发送、接收四个阶段的毫秒数。另外把采集逻辑放到独立页面，用Server.ScriptTimeout = 300单独放宽超时，不要影响前台。

5.3 SQL 注入：参数没过滤导致的拖库风险

现象：在detail.asp?id=1'后面加单引号，页面报 500 错误。原因：id参数直接拼进 SQL，没有过滤。解决：所有接收数字型参数的地方统一用CLng()或Cdbl()强转，字符串型参数用Replace(str, "'", "''")转义。1.1 版本只在详情页做了CLng，列表页和搜索页都是裸拼，这是二次开发时必须补的第一课。

5.4 权限不足：后台写入失败但前台正常

现象：前台能看，后台登录后点「保存」报「操作必须使用一个可更新的查询」。原因：IIS_IUSRS 对data/#db.mdb没有写权限，或者 Access 文件被其他进程占用。解决：右键data目录，安全选项卡里给IIS_IUSRS完全控制权限；如果还不行，检查是否有残留的ldb锁文件，删掉后重启 IIS。

5.5 播放器不显示：iframe 被浏览器拦截

现象：play.asp页面空白，控制台报「Mixed Content」或「X-Frame-Options」。原因：采集来的播放地址是 HTTP 的，而你的站点跑在 HTTPS 下，或者对方设置了禁止 iframe 嵌入。解决：把站点降回 HTTP 测试，或者把播放地址换成支持 HTTPS 的源。如果对方禁止嵌入，只能改成跳转链接，不要硬嵌。

6. 二次开发：从改模板到换数据库的渐进式改造

这套源码最值钱的地方不是它现在的功能，而是它的结构足够简单，你可以按自己的节奏替换任何一层。我一般建议分三步走，不要一上来就大改。

第一步，换皮。前台所有 HTML 都混在.asp文件里，你可以直接把index.asp、list.asp、detail.asp里的<table>布局换成<div>+ CSS，保留<% %>里的查询逻辑不动。这一步风险最低，改完立刻能看到效果。注意：改的时候不要动Do While循环里的变量名，否则记录集遍历会断。

第二步，换数据库。Access 的 2GB 上限和并发性能是硬伤。你可以把conn.asp里的连接字符串换成 SQL Server 或 MySQL 的 OLEDB 驱动，然后把TOP 10改成LIMIT 10（MySQL）或SELECT TOP 10（SQL Server）。字段类型基本兼容，但Now()函数在 MySQL 里要改成NOW()，CLng要改成CAST。这一步建议先在本地用一个小表测试，确认增删改查都通了再全量迁移。

第三步，加缓存。1.1 版本每次请求都查数据库，并发一上来就卡。常见做法是在function.asp里加一个简单的文件缓存：把查询结果序列化成字符串，存到/data/cache/下，设置 5 分钟过期。读取时先看缓存文件是否存在且未过期，是则直接输出，否则查库并写缓存。这一步能把首页的数据库查询次数从 3 次降到 0 次，效果立竿见影。

验证方法很简单：改完任何一层后，用ab或JMeter压一下首页，看 QPS 和响应时间的变化。我自己的习惯是每次改完conn.asp或function.asp，都强制走一遍「首页 → 列表 → 详情 → 播放 → 后台登录 → 采集」这条完整链路，确认没有断点。从那以后我每次动公共文件都强制走一遍全链路，再也没出现过「前台正常后台崩」的玄学问题。希望帮到你。

本文还有配套的精品资源，点击获取