给视频点播文件加把锁

数码时尚

马坤

　　目前，由于版权的缘故在线视频点播网站比视频下载网站更加流行。那么在一个VOD(视频点播)系统中，设计者就会想方设法防止在线观看影片的用户去下载影片。下面，就以ASP为例，介绍一种对视频文件名加密的方法防止用户通过查看源文件下载影片。

　　1.原理

　　编写一个加密函数，将文件名转换为ASCII码表示。例如，字符“a”的ASCII码是113，所以表示为“& # 113;”。

　　函数如下：

　　Function EncryptStr(Sstr)

　　Dim stmp, i '声明变量stmp， i

　　stmp = ""

　　For i = 1 To Len(Trim(Sstr))

　　stmp = stmp & "&#" & Asc(Mid(Sstr, i, 1)) & ";"

　　Next

　　'stmp为转换后的ASCII码

　　EncryptStr = stmp

　　End Function

　　'参数Sstr为真实文件名，返回值为加密的ASCII码。

　　2.实践

　　视频点播的文件名应存储在数据库表中，则数据库代码如下：

　　＜%

　　dim conn,rs,sql,Connstr,DBPath

　　set conn=Server.CreateObject("ADODB.Connection")

　　DBPath = Server.MapPath("movie.mdb") 'movie.mdb为ACCESS表，设其中的文件名字段为'src'

　　Connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& DBPath

　　conn.open Connstr

　　set rs=Server.CreateObject("ADODB.RecordSet")

　　sql="select * from flashdb"

　　rs.open sql,conn,3,2

　　%＞

　　在使用到数据集'src'字段时，用＜%= EncryptStr(rs("src")) %＞表示。