[插件]顯示文件下載次數[只適合安裝了防盜鏈用戶]

作者:wbc 日期:2006-04-14

字體大小: 小中大

只適合安裝了我的防盜鏈的用戶
附件下載: 下載文件

點擊下載此文件
1.打開conn.asp 在頂部( <% 之前)添加

< !--#include file="wbc_conn.asp" -->

2.打開common/ubbcode.asp 找到（221行左右）

代碼類型：ASP [複製]

re.Pattern = "\[down=(.[^\]]*)\](.[^\[]*)\[\/down]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
	tmpStr1=checkURL(strMatch.SubMatches(0))
	tmpStr2=strMatch.SubMatches(1)
	strContent=replace(strContent,strMatch.Value," "&tmpStr2&"",1,-1,0)
Next
re.Pattern = "\[down\](.[^\[]*)\[\/down]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
	tmpStr1=checkURL(strMatch.SubMatches(0))
	strContent=replace(strContent,strMatch.Value,"下載此文件",1,-1,0)
Next

替換成

代碼類型：ASP [複製]

re.Pattern = "\[down=(.[^\]]*)\](.[^\[]*)\[\/down]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
	tmpStr1=checkURL(strMatch.SubMatches(0))
	tmpStr2=strMatch.SubMatches(1)
	wbc_addDLinfo tmpStr1,1
	strContent=replace(strContent,strMatch.Value," "&tmpStr2&"[共下載<script src=""wbc_getDLinfo.asp?f="&tmpStr1&""" type=""text/javascript""></script>次]",1,-1,0)
Next
re.Pattern = "\[down\](.[^\[]*)\[\/down]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
	tmpStr1=checkURL(strMatch.SubMatches(0))
	strContent=replace(strContent,strMatch.Value," 下載此文件[共下載<script src=""wbc_getDLinfo.asp?f="&tmpStr1&""" type=""text/javascript""></script>次]",1,-1,0)
Next

3.打開防盜鏈的數據庫（方法1）新加表 wbc_DLinfo (加三欄： id自動編號,filename備註,DL數字) （方法2）直接把在我這down的附件目錄blogDB目錄的數據庫打開，將wbc_DLinfo表拖入你原本的防盜鏈的數據庫裏面即可。
4.打開下載附件裏面的wbc_conn.asp 更改數據庫地址。
5.去後臺，重新輸出所有文章。OK。

[本日志由 wbc 于 2008-04-28 01:15 PM 编辑]