<![CDATA[星夜下。。。 - 夜空作品]]> http://www.ykjm.net/ zh-cn PBlog2 v2.4 星夜下。。。 http://www.ykjm.net/images/logos.gif http://www.ykjm.net/ 星夜下。。。 http://www.ykjm.net/article.asp?id=273 <![CDATA[JMail包含附件的一些使用记录]]> seekroad@163.com(夜空寂灭) Sat,01 Aug 2009 15:55:32 +0800 http://www.ykjm.net/default.asp?id=273
只有设置好还是挺简单的

记录如下：

有附件时：
oJMail.AddAttachment(Server.MapPath(Attachment))

一定不能有这个：oJMail.ContentType

无论是text格式还是html格式，都不要声明类型

直接使用oJMail.Body 或者 oJMail.HTMLBody 就好了，但不要同时使用，收到的邮件会有错误提示

没有附件时：

如果不声明格式（oJMail.ContentType = "text/html" 或 oJMail.ContentType = "text/plain" ）

邮件正文只能使用 oJMail.Body ，如果使用 oJMail.HTMLBody 会发不出去的

声明了格式后，无论使用oJMail.Body ，还是使用oJMail.HTMLBody 都会以声明的格式发送的
]]> http://www.ykjm.net/article.asp?id=271 <![CDATA[基于FusionCharts Free v2.1的调用封装 ]]> seekroad@163.com(夜空寂灭) Wed,29 Jul 2009 17:24:23 +0800 http://www.ykjm.net/default.asp?id=271 原 作 者：   夜空[DarkSky@SRS]
发布时间：   2009-07-29
版 本 号：   1.0
MD5验证：   2711DE909428DB11FFF9E49C56F3F548
SHA1验证：  309473613D5828409B5319AA296CF62EEE25C12D
下载地址：   下载文件 点击下载此文件



插件简介：
其实这个封装对其他人应该没什么用的，因为我只是根据自己的需要，只是封装了JavaScript方式的调用

这种针对性的封装，对其他人兼容性太差了

这个只是上传做个记录，以后想改进也方便一点


可以升级更新的地方太多了：

1、FusionCharts 的版本，可以升级到v3

2、增加Ajax调用、更新图表

等等……]]> http://www.ykjm.net/article.asp?id=253 <![CDATA[仿google搜索提示(SRSSearch)]]> seekroad@163.com(夜空寂灭) Wed,10 Jun 2009 22:55:10 +0800 http://www.ykjm.net/default.asp?id=253 插件名称：   仿google搜索提示(SRSSearch)
原 作 者：   夜空[DarkSky@SRS]
发布时间：   2009-06-10
版 本 号：   1.0
MD5验证：   2DCFDBE3E4A19A08ADF8B1F9C63126F4
SHA1验证：  F936F49D1214622560F643736EFD220A1EBD0CF6
下载地址：  点击下载点击下载此文件

这个主要是使用了Ajax，所以基本上可以适用于所有脚本语言的，自行修改搜索的页面就可以了

我已经把大部分函数都封装好了，调用之需要简单的几句就可以实现

例如：

XML/HTML代码
  1. <input type="text" size="35" id="SRSSearchTxtInput3" name="SRSSearchTxtInput3"> <input type="submit" value="搜 索" ><br><div id="SRSSearchMessageList3" class="SRSSearchMessageList" style="display:none"></div>  

 以上是搜索框的语句代码，其中输入框的 id 属性是必须有的，其次是搜索提示框（SRSSearchMessageList3）也是必须有的，位置的一自行决定，不过一般都是在输入框下方吧

好了，有了输入框和提示框，那么之需要添加：

JavaScript代码
  1. <script type="text/javascript" language="javascript">   
  2.     var SRSEvent = new SRSSearchConfig();   
  3.     SRSEvent.textInput='SRSSearchTxtInput3';   
  4.     SRSEvent.showDivID='SRSSearchMessageList3';   
  5.     //SRSEvent.isShowSearchNum=false;   
  6.     //SRSEvent.postUrl="search.asp";   
  7.     SRSSearch(SRSEvent);   
  8. </script>  

 就可以实现搜索提示了

javascript 代码中，postUrl 参数，可以直接修改 SRSSearch.js 文件，也可以每次调用都赋值临时改变。上面语句中，分别指定了输入框、提示框，注释掉的是 是否显示搜索结果个数、Ajax页面，这些的默认值都可以在 SRSSearch.js 文件中修改

好了，介绍就到这里结束

虽然我觉得已经没什么Bug了，不过如果发现的话，也请告诉我

一些扩展的想法：
在Ajax的返回数据中，增加一栏，实现显示数据和实际获取数据的分离，这样就比较像select标签的效果了。在一些输入人名但返回id的情况下比较实用

]]> http://www.ykjm.net/article.asp?id=228 <![CDATA[Blog自带相关日志修改记录]]> seekroad@163.com(夜空寂灭) Mon,02 Mar 2009 22:56:50 +0800 http://www.ykjm.net/default.asp?id=228
不够和wbc的相关日志对比一下就可以发现，这个系统自带的东东有Bug……

相关日志的总数错误、列表中的日志重复……

也可以说是同一个Bug吧。

不过还是比wbc的相关日志（我用的是非加强版的）好一点吧，支持静态化，所以就开始清除Bug的行动

主要修改了Getarticle.asp 文件，都给我改得差不多面目全非了……需要的直接覆盖好了，我就不详细列出修改什么地方了。

下载文件 点击下载此文件

把wbc的相关日志都搬过来了，参数需要直接修改文件（如果有耐心的可以加两个系统变量）]]> http://www.ykjm.net/article.asp?id=227 <![CDATA[SRS附件管理 V4.1 beta1 For PJ3]]> seekroad@163.com(夜空寂灭) Mon,02 Mar 2009 22:39:18 +0800 http://www.ykjm.net/default.asp?id=227 插件名称：   SRS附件管理 V4.1 beta1 For PJ3
原 作 者：   夜空[DarkSky@SRS]
发布时间：   2009-03-01
版 本 号：   4.1
适用版本：   pj3 （pj2应该也没问题的）
修改源码：   是
MD5 验证：   F9A9B505C5C6AC1F25A4B065AAAA711C
下载地址：   点击下载点击下载此文件
插件演示：

插件简介：
这次修改比较少，只是去掉一个加水印的Bug，和增加水印的定位。  

v4.1更新内容：
1、去掉加水印是多了一个边框的Bug；
2、增加固定水印位置定位功能，九宫格位置自由选择；
就这么点改动……因为我就只是发现这些问题而已……

安装方法参照上一个版本就可以了：SRS附件管理 V4.0 beta1 For PJ3

 适应静态话的修改方法：
只要再静态话页面添加上更新附件信息的JS函数就可以了

Template/static.htm
在 </head> 前添加：

XML/HTML代码
  1. <script language="javascript">  
  2. //SRS附件管理 v4.0 beta2 Kan 2009-03-01   
  3. var SRSAttachXMLHttp={p:[],g:function(){for(var i=0;i<this.p.length;i++){if(this.p[i].readyState==0||this.p[i].readyState==4){return this.p[i];}}this.p[this.p.length]=this.c();return this.p[this.p.length-1];},c:function(){if(window.XMLHttpRequest){var o=new XMLHttpRequest();}else{var m=['MSXML2.XMLHTTP.5.0','MSXML2.XMLHTTP.4.0','MSXML2.XMLHTTP.3.0','MSXML2.XMLHTTP','Microsoft.XMLHTTP'];for(var n=0;n<m.length;n++){try{var o=new ActiveXObject(m[n]);break;}catch(e){}}}if(o.readyState==null){o.readyState=0;o.addEventListener("load",function(){o.readyState=4;if(typeof o.onreadystatechange=="function"){o.onreadystatechange();}},false);}return o;},sendReq:function(mt,u,d,b){var o=this.g();with(o){try{if(u.indexOf("?")>0){u+="randnum="+Math.random();}else{u+="?randnum="+Math.random();}open(mt,u,true);setRequestHeader('Content-Type','application/x-www-form-urlencoded; charset=UTF-8');send(d);onreadystatechange=function(){if(o.readyState==4&&(o.status==200||o.status==304)){b(o.responseText);}}}catch(e){alert(e);}}}};   
  4. function getSRSAttach(id){   
  5. document.getElementById("SRSAttachCount"+id).innerHTML = '[<img src="Plugins/SRS_Attachment/srsaloading.gif" alt="下载文件" style="margin:0px 2px -4px 0px"/>附件信息Loading...]';   
  6. url="Plugins/SRS_Attachment/getSRSAttach.asp?id="+id;   
  7. SRSAttachXMLHttp.sendReq('GET',url,'',updateSRSAttMessage);   
  8. }function updateSRSAttMessage(str){   
  9. var SRSAttachArr=str.split("|");   
  10. document.getElementById("SRSAttachCount"+SRSAttachArr[0]).innerHTML=SRSAttachArr[1];}   
  11. </script>  

 

]]> http://www.ykjm.net/article.asp?id=188 <![CDATA[PJ3添加表情分页功能]]> seekroad@163.com(夜空寂灭) Tue,11 Nov 2008 00:45:09 +0800 http://www.ykjm.net/default.asp?id=188

先看一下效果图吧（概念图，请以实物为准）：



====================  华丽的分割线  ====================
具体修改如下：

1、common\ubbconfig.asp
修改1  找到函数Function UBBeditorCore(TextName)，将其内部添加（红色代码）：
复制内容到剪贴板程序代码程序代码
    UBBeditorCore = UBBeditorCore&"<script language=""javascript"" type=""text/javascript"">initUBB("""&TextName&""")</script>"&showSmilieJS
End Function


修改2  找到：
复制内容到剪贴板程序代码程序代码
Function showSmilie
...
End Function

修改为：
复制内容到剪贴板程序代码程序代码
Function showSmilie
'================= Kan 2008-11-10 添加表情分页功能 Start =================
    Dim SmilieItem, SmilieHtml
    if IsNull(Application(CookieName&"_blog_Smilies_SRS_fy")) or Application(CookieName&"_blog_Smilies_SRS_fy")="" then
        SmilieItem = getSRSSmilieCache
    else
        SmilieItem = Application(CookieName&"_blog_Smilies_SRS_fy")
    end if

    '这里负责输出页码
    SmilieHtml = "<tr><td><div id=""SmileMenu""><table border=""0"" cellpadding=""0"" cellspacing=""0""><tr>"
    Dim SmileMenuI
    For SmileMenuI = 0 To UBound(Split(SmilieItem, "||"))
        SmilieHtml = SmilieHtml & "<td><a id=""SmilePage" & SmileMenuI & """ title=""第" & (SmileMenuI + 1) & "页"" href=""javascript:ChangeSmile(" & SmileMenuI & ")"">  " & (SmileMenuI + 1) & "  </a></td>"
    Next
    SmilieHtml = SmilieHtml & "<td id=""SmileClose""><a title=""关闭表情选择"" href=""javascript:CloseSmileyPanel()"">  X  </a></td>"
    SmilieHtml = SmilieHtml & "</tr></table></div></td></tr><tr><td><div id=""SmileContent""></div></td></tr>"

    showSmilie = "<table cellspacing=""2"" cellpadding=""0"">" & SmilieHtml & "</table>"
'================= Kan 2008-11-10 添加表情分页功能 End =================
End Function

Function showSmilieJS
    Dim SmilieItem

    if IsNull(Application(CookieName&"_blog_Smilies_SRS_fy")) or Application(CookieName&"_blog_Smilies_SRS_fy")="" then
        SmilieItem = getSRSSmilieCache
    else
        SmilieItem = Application(CookieName&"_blog_Smilies_SRS_fy")
    end if

    '这里的JS用来控制当前显示的表情
    showSmilieJS = "<script language=""javascript"">" & _
    "var page, maxPage, content, lastPage; " & _
    "content = """&replace(SmilieItem, """", "\""")&""".split(""||""); " & _
    "lastPage = 0; " & _
    "function ChangeSmile(newPage){ " & _
    "    document.getElementById(""SmileContent"").innerHTML = ""<table>"" + content[newPage] + ""</table>""; " & _
    "    lastPage = newPage; " & _
    "} " & _
    "</script> "
End Function

Function getSRSSmilieCache()
    Dim Arr_Smilies, Arr_Smilie, SmilieItem, SmilieFYCache, SmilieCount
    SmilieFYCache = ""
    SmilieCount = 0

    Arr_Smilies = Application(CookieName&"_blog_Smilies")
    for each Arr_Smilie in Arr_Smilies
        SmilieItem = Split(Arr_Smilie, "|")
        SmilieCount = SmilieCount + 1
        If SmilieCount Mod 6 = 1 Then SmilieFYCache = SmilieFYCache + "<tr>"
        SmilieFYCache = SmilieFYCache + "<td><a href=""javascript:AddSmiley('"&SmilieItem(2)&"')"" class=""Smilie"" title="""&SmilieItem(2)&"""><img border=""0"" src=""images/smilies/"&SmilieItem(1)&""" alt=""""/></a></td>"
        if SmilieCount Mod 6 = 0 then SmilieFYCache=SmilieFYCache + "</tr>" '这里的6表示每行6个表情
        if SmilieCount Mod 30 = 0 then SmilieFYCache=SmilieFYCache + "||" '这里的30表示每页30个表情
    next

    Application(CookieName&"_blog_Smilies_SRS_fy") = SmilieFYCache
    getSRSSmilieCache = SmilieFYCache
End Function


2、common\cache.asp
找到并添加（红色部分）：
复制内容到剪贴板程序代码程序代码
        Application(CookieName&"_blog_Smilies") = Arr_Smilies
        Application(CookieName&"_blog_Smilies_SRS_fy") = ""


3、Common\UBBCode_IE.js 和 Common\UBBCode_Gecko.js
以上两个文件修改的地方一样。
找到function UBB_smiley() 和 function CloseSmileyPanel() 函数，删除代码：
复制内容到剪贴板程序代码程序代码
    document.body.removeEventListener("click",CloseSmileyPanel,true)
以免点击鼠标就关闭了表情选择面板

在function UBB_smiley() 函数中，添加代码：
复制内容到剪贴板程序代码程序代码
    ChangeSmile(lastPage);
点击时初始化表情分页。

如果不想记住上次打开的分页，即每次点击打开都是第一页的话，可以改为：
复制内容到剪贴板程序代码程序代码
    ChangeSmile(0);

修改后代码如下：
复制内容到剪贴板程序代码程序代码
function UBB_smiley(){
  var smileyPos=new getPos('A_smiley')
  smileyPanel=document.getElementById('UBBSmiliesPanel')
  smileyPanel.style.left=smileyPos.Left+"px"
  smileyPanel.style.top=smileyPos.Top+"px"
  smileyPanel.style.visibility ="visible"
//  document.body.attachEvent("onclick",CloseSmileyPanel)
  ChangeSmile(lastPage);
}

function CloseSmileyPanel(){
  smileyPanel=document.getElementById('UBBSmiliesPanel')
  smileyPanel.style.visibility ="hidden"
//  document.body.detachEvent("onclick",CloseSmileyPanel)
}

如果表情选择里面的表情看着太小了，这个可以去这里修改"skins/皮肤名/ubb/editor.css"，修改里面的Smile类的定义：
复制内容到剪贴板程序代码程序代码
.Smilie:link,.Smilie:visited{
border:1px solid #fff;
display:block;
padding:2px;
width:50px; /*这里设置单个表情宽度*/
height:50px;/*这里设置单个表情高度*/
}

另外对于页码菜单项，本来用ul, li做会好一点，无奈为了顺应IE6的毛病只能用table了。如果大家觉得页码菜单项的样式不好看可以为其添加一个CSS样式表，例如：
添加一个MyStyles.css文件：
复制内容到剪贴板程序代码程序代码
#SmileMenu a{
display:block;
text-align:center;
background:#0099FF;
color:#FFFFFF;
border:1px solid #DCDCDC;
border-right:none;
font: 9px Verdana;
}
#SmileMenu a:hover{background:#66CCFF;}
#SmileClose{border-right:1px solid #DCDCDC;}
#SmileClose a{background:#CC0000;}
#SmileClose a:hover{background:#FF0000;}

修改文件：header.asp  添加代码：
复制内容到剪贴板程序代码程序代码
<link rel="stylesheet" rev="stylesheet" href="MyStyles.css" type="text/css"  media="all" /><!--自定义样式表-->


如果有选择框挡住了选择表情面板（没有的话可以跳过这一步），可以分别在function UBB_smiley() 函数里添加
复制内容到剪贴板程序代码程序代码
try{
  document.getElementById("glowselect").style.display = 'none';
}catch(err){}

在function CloseSmileyPanel() 函数里添加
复制内容到剪贴板程序代码程序代码
try{
  document.getElementById("glowselect").style.display = '';
}catch(err){}

其中glowselect 是需要隐藏的选择框的ID。
使用try/catch 是因为兼容评论时的简化版工具面板。

修改后的源文件（适合未作任何修改的Blog直接覆盖）：
下载文件 SmilieEditFile For PJBlog3 v2.8.5.157
]]> http://www.ykjm.net/article.asp?id=187 <![CDATA[SRS附件管理_V4.0（水印插件版）]]> seekroad@163.com(夜空寂灭) Mon,10 Nov 2008 12:52:02 +0800 http://www.ykjm.net/default.asp?id=187
算了，我继续发～

想想还是做成插件在操作上方便一点，所以就弄成插件了

注意：这个版本是附件管理插件去掉防盗链和管理附件的功能（应该不能再叫附件管理吧……），不能和附件管理插件同时使用。

就这样，喜欢就下吧。

下载文件 点击下载此文件
]]> http://www.ykjm.net/article.asp?id=186 <![CDATA[SRS附件管理_V4.0（水印版）]]> seekroad@163.com(夜空寂灭) Mon,10 Nov 2008 11:19:30 +0800 http://www.ykjm.net/default.asp?id=186
我把附件上传部分独立弄出来吧，去掉防盗链功能，只去添加水印部分

水印的设置直接修改文件里的参数

直接替换原程序文件就可以了，不需要修改其他代码

不过我没测试过，所以还是备份一下吧

下载文件 点击下载此文件
]]> http://www.ykjm.net/article.asp?id=185 <![CDATA[SRS附件管理 V4.0 beta1 For PJ3]]> seekroad@163.com(夜空寂灭) Sun,09 Nov 2008 17:24:46 +0800 http://www.ykjm.net/default.asp?id=185 插件名称：   SRS附件管理 V4.0 beta1 For PJ3
原 作 者：   夜空[DarkSky@SRS]
发布时间：   2008-11-08
版 本 号：   4.0
适用版本：   pj3 （pj2应该也没问题的）
修改源码：   是
MD5 验证：　C40F28EAA97AA3596BA9522C181FC8C4
下载地址：    点击下载点击下载此文件

附上修改后的文件，如果之前没修改过源程序可以直接替换
点击下载SRS_Attachment_EditFile_For PJBlog3 v2.8.5.157.rar

插件演示：

插件简介：   
在上一个版本(3.0)还只是在原来的基础上修改，这次因为修复以前发现的问题及想增加的一些功能，所以全部代码重写了，所以名字也改为自己的


关于上传文件自定义命名的说明：
1、$d|字符数$：根据“字符数”生成指定长度的“数字字符串”。例如：$d|6$
   字符范围是："1234567890"
2、$s|字符数$：根据“字符数”生成指定长度的“字母字符串”。例如：$s|5$
   字符范围是："abcdefghijklmnopqrstuvwxyz"
3、$a|字符数$：根据“字符数”生成指定长度的“数字和字母的混合字符串”。例如：$a|8$
   字符范围是："abcdefghijklmnopqrstuvwxyz1234567890"
4、$date$：生成当前日期时间。
5、$fname$：上传文件原文件名。
自定义命名就是通过把这些标签自由组合为上传文件命名。

v4.0更新内容：
1、在PJ3下应用（静态也没问题）；
2、修复rss读取错误；
3、完成上传文件自定义命名功能；
4、增加文字水印的设置选项；
5、增加水印随机位置；
6、增加实时更新下载次数功能；
想不起来了……你们安装了自己看吧……

安装方法：
1.header.asp
找到

ASP/Visual Basic代码
  1. Dim BlogTitle  
添加代码（红色部分）为
 
ASP/Visual Basic代码
  1. response.cookies("SRS_Attachment_Down")= "SRS_Attachment"  
  2. Session("SRS_Attachment_Down")="SRS_Attachment"    
  3. Dim BlogTitle  

2.feed.asp
添加代码（红色部分）：

ASP/Visual Basic代码
  1. <!--#include file="common/ubbcode.asp" -->   
  2. <!--#include file="common/ModSet.asp" -->   
  3. <!--#include file="plugins.asp" -->  

找到

ASP/Visual Basic代码
  1. .Pattern = "<a (.*?)href=""(?!(http|https|ftp|mms|rstp)://)(.*?)"""  
  2. Str = .Replace(Str, "<a $1href=""" & SiteURL & "$3""")  
在后面添加：
ASP/Visual Basic代码
  1. 'SRS附件管理 4.0 增加 By Kan 2008-11-06   
  2. .Pattern = "onclick=""setTimeout\(function\(\)\{getSRSAttach(.*?)"""  
  3. Str = .Replace(Str, "")   
  4. .Pattern = "<label id=""SRSAttachCount(.*?)</label>"  
  5. Str = .Replace(Str, "")   
  6. .Pattern = "<script type=""text/javascript"">getSRSAttach(.*?)</script>"  
  7. Str = .Replace(Str, "")   

找到

ASP/Visual Basic代码
  1. Conn.Close   
  2. Set Conn = Nothing  
剪切到文件最后面
ASP/Visual Basic代码
  1. </channel>   
  2. </rss>   
  3. <%   
  4. Conn.Close   
  5. Set Conn = Nothing  
  6. %>  
就是这个代码造成了rss的读取错误，是在检查代码哪里出问题时无意中发现的……

3.ConContent.asp
在文件顶部添加导入文件（红色部分）
ASP/Visual Basic代码
  1. <!--#include file="common/ModSet.asp" -->   
  2. <!--#include file="plugins.asp" -->  
这个在初始化时需要用到

4.common/ubbcode.asp
找到
ASP/Visual Basic代码
  1. '-----------特殊标签----------------   
  2. re.Pattern = "\[down=(.[^\]]*)\](.[^\[]*)\[\/down]"  
  3. Set strMatchs = re.Execute(strContent)   
  4. For Each strMatch in strMatchs   
  5.     tmpStr1 = checkURL(strMatch.SubMatches(0))   
  6.     tmpStr2 = strMatch.SubMatches(1)   
  7.     strContent = Replace(strContent, strMatch.Value, "<img src=""images/download.gif"" alt=""下载文件"" style=""margin:0px 2px -4px 0px""/> <a href="""&tmpStr1""" target=""_blank"">"&tmpStr2"</a>", 1, -1, 0)   
  8. Next  
  9.   
  10. re.Pattern = "\[down\](.[^\[]*)\[\/down]"  
  11. Set strMatchs = re.Execute(strContent)   
  12. For Each strMatch in strMatchs   
  13.     tmpStr1 = checkURL(strMatch.SubMatches(0))   
  14.     strContent = Replace(strContent, strMatch.Value, "<img src=""images/download.gif"" alt=""下载文件"" style=""margin:0px 2px -4px 0px""/> <a href="""&tmpStr1""" target=""_blank"">下载此文件</a>", 1, -1, 0)   
  15. Next  
  16.   
  17. re.Pattern = "\[mDown=(.[^\]]*)\](.[^\[]*)\[\/mDown]"  
  18. Set strMatchs = re.Execute(strContent)   
  19. For Each strMatch in strMatchs   
  20.     tmpStr1 = checkURL(strMatch.SubMatches(0))   
  21.     tmpStr2 = strMatch.SubMatches(1)   
  22.     If Len(memName)>0 Then  
  23.         strContent = Replace(strContent, strMatch.Value, "<img src=""images/download.gif"" alt=""下载文件"" style=""margin:0px 2px -4px 0px""/> <a href="""&tmpStr1""" target=""_blank"">"&tmpStr2"</a>", 1, -1, 0)   
  24.     Else  
  25.         strContent = Replace(strContent, strMatch.Value, "<img src=""images/download.gif"" alt=""只允许会员下载"" style=""margin:0px 2px -4px 0px""/> 该文件只允许会员下载! <a href=""login.asp"">登录</a> | <a href=""register.asp"">注册</a>", 1, -1, 0)   
  26.     End If  
  27. Next  
  28.   
  29. re.Pattern = "\[mDown\](.[^\[]*)\[\/mDown]"  
  30. Set strMatchs = re.Execute(strContent)   
  31. For Each strMatch in strMatchs   
  32.     tmpStr1 = checkURL(strMatch.SubMatches(0))   
  33.     If Len(memName)>0 Then  
  34.         strContent = Replace(strContent, strMatch.Value, "<img src=""images/download.gif"" alt=""下载文件"" style=""margin:0px 2px -4px 0px""/> <a href="""&tmpStr1""" target=""_blank"">下载此文件</a>", 1, -1, 0)   
  35.     Else  
  36.         strContent = Replace(strContent, strMatch.Value, "<img src=""images/download.gif"" alt=""只允许会员下载"" style=""margin:0px 2px -4px 0px""/> 该文件只允许会员下载! <a href=""login.asp"">登录</a> | <a href=""register.asp"">注册</a>", 1, -1, 0)   
  37.     End If  
  38. Next  
替换为：
ASP/Visual Basic代码
  1. '-----------特殊标签----------------   
  2. re.Pattern = "\[down=(download\.asp\?id=)([0-9]*)\](.[^\[]*)\[\/down]"  
  3. Set strMatchs=re.Execute(strContent)   
  4. For Each strMatch in strMatchs   
  5.     tmpStr1=checkURL(strMatch.SubMatches(0))   
  6.     tmpStr2=strMatch.SubMatches(1)   
  7.     tmpStr3=strMatch.SubMatches(2)   
  8.     strContent=SRSAttachDownload(strContent,strMatch.Value,tmpStr1,tmpStr2,tmpStr3)   
  9. Next           
  10.   
  11. re.Pattern = "\[down\](download\.asp\?id=)([0-9]*)\[\/down\]"  
  12. Set strMatchs=re.Execute(strContent)   
  13. For Each strMatch in strMatchs   
  14.     tmpStr1=checkURL(strMatch.SubMatches(0))   
  15.     tmpStr2=strMatch.SubMatches(1)   
  16.     strContent=SRSAttachDownload(strContent,strMatch.Value,tmpStr1,tmpStr2,"")   
  17. Next  
  18.   
  19. re.Pattern = "\[mDown=(download\.asp\?id=)([0-9]*)\](.[^\[]*)\[\/mDown]"  
  20. Set strMatchs=re.Execute(strContent)   
  21. For Each strMatch in strMatchs   
  22.     tmpStr1=checkURL(strMatch.SubMatches(0))   
  23.     tmpStr2=strMatch.SubMatches(1)   
  24.     tmpStr3=strMatch.SubMatches(2)   
  25.     if len(memName)>0 then   
  26.         strContent=SRSAttachDownload(strContent,strMatch.Value,tmpStr1,tmpStr2,tmpStr3)   
  27.      else   
  28.         strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""只允许会员下载"" style=""margin:0px 2px -4px 0px""/> 该文件只允许会员下载! <a href=""login.asp"">登录</a> | <a href=""register.asp"">注册</a>",1,-1,0)   
  29.     end if   
  30. Next  
  31.   
  32. re.Pattern = "\[mDown\](download\.asp\?id=)([0-9]*)\[\/mDown]"  
  33. Set strMatchs=re.Execute(strContent)   
  34. For Each strMatch in strMatchs   
  35.     tmpStr1=checkURL(strMatch.SubMatches(0))   
  36.     if len(memName)>0 then   
  37.         strContent=SRSAttachDownload(strContent,strMatch.Value,tmpStr1,tmpStr2,"")   
  38.      else   
  39.         strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""只允许会员下载"" style=""margin:0px 2px -4px 0px""/> 该文件只允许会员下载! <a href=""login.asp"">登录</a> | <a href=""register.asp"">注册</a>",1,-1,0)   
  40.     end if   
  41. Next  

如果你的博客中用以前的方法添加的附件较多，你可以在上面的语句修改完之后，接着再加入

ASP/Visual Basic代码
  1. '=====================兼容以前的附件==================================   
  2.                 re.Pattern = "\[down=attachments\/(.[^\]]*)\](.[^\[]*)\[\/down]"  
  3.                 Set strMatchs=re.Execute(strContent)   
  4.                 For Each strMatch in strMatchs   
  5.                         tmpStr1=checkURL(strMatch.SubMatches(0))   
  6.                         tmpStr2=strMatch.SubMatches(1)   
  7.                         strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""下载文件"" style=""margin:0px 2px -4px 0px""/> <a href=""attachments/"&tmpStr1&""" target=""_blank"">"&tmpStr2&"</a>",1,-1,0)   
  8.                 Next                   
  9.                    
  10.                 re.Pattern = "\[down\]attachments\/(.[^\[]*)\[\/down]"  
  11.                 Set strMatchs=re.Execute(strContent)   
  12.                 For Each strMatch in strMatchs   
  13.                         tmpStr1=checkURL(strMatch.SubMatches(0))   
  14.                         strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""下载文件"" style=""margin:0px 2px -4px 0px""/> <a href=""attachments/"&tmpStr1&""" target=""_blank"">下载此文件</a>",1,-1,0)   
  15.                 Next  
  16.   
  17.                 re.Pattern = "\[mDown=attachments\/(.[^\]]*)\](.[^\[]*)\[\/mDown]"  
  18.                 Set strMatchs=re.Execute(strContent)   
  19.                 For Each strMatch in strMatchs   
  20.                         tmpStr1=checkURL(strMatch.SubMatches(0))   
  21.                         tmpStr2=strMatch.SubMatches(1)   
  22.                         if len(memName)>0 then   
  23.                                 strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""下载文件"" style=""margin:0px 2px -4px 0px""/> <a href=""attachments/"&tmpStr1&""" target=""_blank"">"&tmpStr2&"</a>",1,-1,0)   
  24.                          else   
  25.                                 strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""只允许会员下载"" style=""margin:0px 2px -4px 0px""/> 该文件只允许会员下载! <a href=""login.asp"">登录</a> | <a href=""register.asp"">注册</a>",1,-1,0)   
  26.                         end if   
  27.                 Next  
  28.   
  29.                 re.Pattern = "\[mDown\]attachments\/(.[^\[]*)\[\/mDown]"  
  30.                 Set strMatchs=re.Execute(strContent)   
  31.                 For Each strMatch in strMatchs   
  32.                         tmpStr1=checkURL(strMatch.SubMatches(0))   
  33.                         if len(memName)>0 then   
  34.                                 strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""下载文件"" style=""margin:0px 2px -4px 0px""/> <a href=""attachments/"&tmpStr1&""" target=""_blank"">下载此文件</a>",1,-1,0)   
  35.                          else   
  36.                                 strContent=replace(strContent,strMatch.Value,"<img src=""images/download.gif"" alt=""只允许会员下载"" style=""margin:0px 2px -4px 0px""/> 该文件只允许会员下载! <a href=""login.asp"">登录</a> | <a href=""register.asp"">注册</a>",1,-1,0)   
  37.                         end if   
  38.                 Next  
  39. '=====================兼容以前的附件==================================  

以上语句主要是对你博客中原来的附件地址的识别，以前添加的附件是没有防盗链的。注意上面的attachments是你博客附件文件所在的文件夹名称,如果你的博客附件的文件夹是其他的名称，做相应的替换即可

5.common/common.js
找到

JavaScript代码
  1. function addUploadItem(type,path,memberDown)  

修改为：

JavaScript代码
  1. function addUploadItem(type,path,memberDown,autoico,IsShowInfo,IsUpdateNow)  

然后，把这个函数最后部分

JavaScript代码
  1. default :   
  2. if (EditType=="UBBEditor"){   
  3. if (memberDown==1)   
  4.          {parent.document.forms[0].Message.value+='[mDown='+path+']点击下载此文件[/mDown]\n'}   
  5.  else  
  6.          {parent.document.forms[0].Message.value+='[down='+path+']点击下载此文件[/down]\n'}   
  7. }   
  8. else{oEditor.InsertHtml('<a href="'+path+'"><img border="0" src="../../images/download.gif" alt="" style="margin:0px 2px -4px 0px"/>点击下载此文件</a>')}   
  9. break;  
替换为：
JavaScript代码
  1. default :   
  2. if (EditType=="UBBEditor"){   
  3.                 if (memberDown==1){   
  4.                         parent.document.forms[0].Message.value+='[mDown='+path+']点击下载此文件[/mDown]\n'  
  5.                 }else{   
  6.                         parent.document.forms[0].Message.value+='[down='+path+']点击下载此文件[/down]\n'  
  7.                 }   
  8. }else{   
  9.                 //'========= Kan 2008-11-04 插件：附近管理 增加对FCK的支持 Start =========   
  10.                 var srs_att = path.split("=");   
  11.                 var srs_att_no = srs_att.length;   
  12.                 var srs_att_ico = "download.gif";   
  13.                 var srs_att_icotype = "|jpg|gif|bmp|png|zip|rar|swf|mdb|doc|xls|pdf|mbk|mp3|wmv|wma|";   
  14.                 if (autoico==1){   
  15.                         if ( srs_att_icotype.indexOf("|"+type+"|") > -1 ){   
  16.                                 srs_att_ico= type+".gif"  
  17.                         }else{   
  18.                                 srs_att_ico="unknow.gif"  
  19.                         }   
  20.                    srs_att_ico="file/"+srs_att_ico   
  21.                 }   
  22.                 var srs_att_InsertHtml = '<a href="'+path+'" target="_blank" title="点击下载此文件" '  
  23.                 if (IsUpdateNow==1){  
  24.                         srs_att_InsertHtml=srs_att_InsertHtml+'onclick="setTimeout(function(){getSRSAttach('+ srs_att[srs_att_no-1] + ')},3000);" '  
  25.                 }  
  26.                 srs_att_InsertHtml=srs_att_InsertHtml+'><img border="0" src="../../images/'+srs_att_ico+'" alt="点击下载" style="margin:0px 2px -4px 0px"/>点击下载此文件</a>'  
  27.                 if (IsShowInfo==1){  
  28.                         srs_att_InsertHtml=srs_att_InsertHtml+' <label id="SRSAttachCount'+srs_att[srs_att_no-1]+'">[附件信息Loading...]</label><script type="text/javascript">getSRSAttach('+srs_att[srs_att_no-1]+')</script>'  
  29.                 }  
  30.                 oEditor.InsertHtml(srs_att_InsertHtml)  
  31.         }  
  32.                 //'========= Kan 2008-03-24 插件：附近管理 增加对FCK的支持 End =========   
  33. break;  

好了，代码的修改到这里就完成了。

提醒一下，修改前先做好备份啊！

哦，还有，在压缩包中的SRSA_update.asp文件时数据库升级文件，用于由附件管理3.0升级到4.0的，如果以前没应用过附件管理插件，这个文件可以删除。
 

]]> http://www.ykjm.net/article.asp?id=180 <![CDATA[为Blog添加漂亮的“载入中”对话框 ]]> seekroad@163.com(夜空寂灭) Thu,23 Oct 2008 21:20:05 +0800 http://www.ykjm.net/default.asp?id=180
1、在网页<head> 标签中添加“载入中”对话框样式：
复制内容到剪贴板程序代码程序代码
/*Loading载入框样式*/
#loader{
position:absolute;
top:0px;
right:0px;
width:180px;
height:23px;
text-align:left;
border:1px solid #4296C5;
background:#E3F8F9;
filter:Alpha(Opacity=80);
z-index:10;
*position:absolute;
*top:e­xpression(offsetParent.scrollTop + 0 + "px");
}


2、在<body>标签下添加对话框代码：
复制内容到剪贴板程序代码程序代码
<body onload="initJS()" onkeydown="PressKey()">
<%'=========== DarkSky的Loading界面 Kan 2008-03-23 ==========%>
<div id="loader">
<img style="margin:3px 0px -3px 5px;" src="mods/images/page_loading.gif" />页面用力 o>﹏<o  加载中...<br>
</div>
<%'=========== DarkSky的Loading界面 Kan 2008-03-23 ==========%>


3、在</body>标签前添加代码：
复制内容到剪贴板程序代码程序代码
<script type="text/javascript">
document.getElementById("loader").style.display = "none"; //隐藏Loading
</script>
</body>


应该都看明白吧？就是在载入页面时显示，完成载入后隐藏对话框，这个不只在blog里，在其它网站程序上也是有效的哦～]]>