blog最近修改的文件

昨晚在研究新皮肤的修改时候顺手去掉了文章内页的GGAD,

结果在上传文件时FTP不可用,

直接导致今天一整天无法正常打开 blog。

直到今天下午,

才终于恢复了正常的FTP连接,

重新上传了关键文件,

现在的这个风格其实有很多地方是需要改进的,

比如说标题的日期对齐方式,

登陆及发表日志时候的导航条都应该添加些,

文章内页背景色以及有连接的标题颜色等等,

这些都应该做进一步的修改。

不过可惜我是个CSS盲,

也懒得仔细研究代码,

这件工作在进行了十分钟后被我自动抛弃,

原计划[d]修改下实现日志标题小日历的相关文件[/d],

不过又担心FTP突然出错而暂时搁置。

相关修改方法先列出以备使用,方法来自大头

需要修改的文件:

class/cls_default.asp //实现日志标题小日历以及日志其他信息链接布局修改

common/function.asp //实现日志标题小日历

引用自
=================================附录========================================

class/cls_default.asp 文件的修改:

查找从

“ ' ———————– 输出普通模式——————–

function OutNomal(webLogArr,PageCount,getCate,CanRead) ”

“ set getTag=nothing

end function”

替换为

' ———————– 输出普通模式——————–

'———————— 加强输出普通模式,带标题小日历,信息格式修改Start 20070210———-

function OutNomal(webLogArr,PageCount,getCate,CanRead)

    if getCate.cate_Secret then

     if not stat_ShowHiddenCate and not stat_Admin then exit function

    end if

    dim getTag

    set getTag=new tag

    %>

    <div class=&#34;Content&#34;>

    <div class=&#34;Content-top&#34;><div class=&#34;ContentLeft&#34;></div><div class=&#34;ContentRight&#34;></div>

    <%If webLogArr(9,PageCount)=True Then%>

     <div class=&#34;BttnE&#34; onclick=&#34;TopicShow(this,&#39;log_<%=webLogArr(0,PageCount)%>&#39;)&#34;></div>

    <%end if%>

     <DIV style=&#34;margin:0px 2px -4px 0px;&#34; alt=&#34;&#34; class=&#34;CateIconSP&#34;><div class=&#34;DateYM&#34;><%=DateToStr(webLogArr(4,PageCount),&#34;Y-m&#34;)%></div><div class=&#34;DateDay&#34;><%=DateToStr(webLogArr(4,PageCount),&#34;d2&#34;)%></div></DIV><h1 class=&#34;ContentTitle&#34;><img src=&#34;<%=getCate.cate_icon%>&#34; style=&#34;margin:0px 2px -4px 0px;&#34; alt=&#34;&#34; class=&#34;CateIcon&#34;/>

    <%If CanRead Then%>

      <a class=&#34;titleA&#34; href=&#34;article.asp?id=<%=webLogArr(0,PageCount)%>&#34;><%=HtmlEncode(webLogArr(3,PageCount))%></a>

    <%Else%>

      <a class=&#34;titleA&#34; href=&#34;article.asp?id=<%=webLogArr(0,PageCount)%>&#34;>[隐藏日志]</a>

    <%end If

    if webLogArr(5,PageCount)=false o&#114; getCate.cate_Secret then %>

      <img src=&#34;images/icon_lock.gif&#34; style=&#34;margin:0px 0px -3px 2px;&#34; alt=&#34;&#34; />

    <%end if%>

    </h1>

    <h2 class=&#34;ContentAuthor&#34;><img src=&#34;images/User.gif&#34; style=&#34;margin:0px 2px -4px 0px; border:0px&#34;/><%=webLogArr(2,PageCount)%>

    <a href=&#34;article.asp?id=<%=webLogArr(0,PageCount)%>#comm_top&#34;><img src=&#34;images/look.gif&#34; style=&#34;margin:0px 2px -3px 0px; border:0px&#34;/><%=webLogArr(8,PageCount)%></a>

    <%if webLogArr(13,PageCount)=true then%>

       禁止评论

    <%Else%>

       <a href=&#34;article.asp?id=<%=webLogArr(0,PageCount)%>#comm_top&#34;><img src=&#34;images/comment.gif&#34; style=&#34;margin:0px 2px -4px 0px; border:0px&#34;/><%=webLogArr(6,PageCount)%></a>

    <%end If%>

    <img src=&#34;images/folder.gif&#34; style=&#34;margin:0px 2px -3px 0px;&#34;/><a href=&#34;default.asp?cateID=<%=webLogArr(1,PageCount)%>&#34; title=&#34;<%=getCate.cate_Intro%>&#34;><%=getCate.cate_Name%></a>     

    <%if len(webLogArr(15,PageCount))>0 then%>

    <img src=&#34;images/tags.gif&#34; style=&#34;margin:0px 2px -3px 0px;&#34;/><%=getTag.filterHTML(webLogArr(15,PageCount))%>

        <%end if

        if stat_EditAll o&#114; (stat_Edit and webLogArr(2,PageCount)=memName) then%>

           | <a href=&#34;blogedit.asp?id=<%=webLogArr(0,PageCount)%>&#34;><img src=&#34;images/icon_edit.gif&#34; alt=&#34;&#34; border=&#34;0&#34; style=&#34;margin-bottom:-2px&#34;/></a>

        <%end if%>

        <%if stat_DelAll o&#114; (stat_Del and webLogArr(2,PageCount)=memName) then%>

           | <a href=&#34;blogedit.asp?action=del&amp;id=<%=webLogArr(0,PageCount)%>&#34; onclick=&#34;if (!window.confirm(&#39;是否要删除该日志&#39;)) return false&#34;><img src=&#34;images/icon_del.gif&#34; alt=&#34;&#34; border=&#34;0&#34; style=&#34;margin-bottom:-2px&#34;/></a>

        <%end if%></h2></div>

     <div id=&#34;log_<%=webLogArr(0,PageCount)%>&#34;<%if webLogArr(9,PageCount)=true then %> style=&#34;display:none&#34;<%end if%>>

    <%

    if CanRead then

      if webLogArr(12,PageCount)=1 then%>

          <div class=&#34;Content-body&#34;><div class=&#34;Content-Text&#34;><%=UnCheckStr(UBBCode(webLogArr(10,PageCount),mid(webLogArr(14,PageCount),1,1),mid(webLogArr(14,PageCount)

,2,1),mid(webLogArr(14,PageCount),3,1),mid(webLogArr(14,PageCount),4,1),mid(webLogArr(14,PageCount),5,1)))%></div>

          <%if webLogArr(10,PageCount)<>HtmlEncode(webLogArr(11,PageCount)) then%>

            <p><img src=&#34;images/fulltext.gif&#34; style=&#34;margin:0px 2px -3px 0px;&#34;/><a href=&#34;article.asp?id=<%=webLogArr(0,PageCount)%>&#34; class=&#34;more&#34;>查看更多…</a></p>

          <%end if%>

      <%else%>

          <div class=&#34;Content-body&#34;><%=UnCheckStr(webLogArr(10,PageCount))%>

          <%if webLogArr(10,PageCount)<>webLogArr(11,PageCount) then%>

            <p><img src=&#34;images/fulltext.gif&#34; style=&#34;margin:0px 2px -3px 0px;&#34;/><a href=&#34;default.asp?id=<%=webLogArr(0,PageCount)%>&#34; class=&#34;more&#34;>查看更多…</a></p>

          <%end if

      end if

    Else%>

      <div class=&#34;Content-body&#34;>该日志是隐藏日志,只有管理员或发布者可以查看!

    <%end if%>

              

    </div><div class=&#34;Content-bottom&#34;>

    <div class=&#34;ContentBm&#34;><div class=&#34;ContentBLeft&#34;></div><div class=&#34;ContentBRight&#34;></div>

    <%if webLogArr(13,PageCount)=true then%>

       禁止评论

    <%Else%>

       <a href=&#34;article.asp?id=<%=webLogArr(0,PageCount)%>#comm_top&#34; >发表评论</a>

    <%end If%>

       </div>        

       </div>

      </div></div>

<%

set getTag=nothing

end function

&#39;———————— 加强输出普通模式,带标题小日历,信息格式修改End ———-

引用自
common/function.asp 文件的修改:

查找从

“Case Else

    If Len(DateHour)<2 Then DateHour=&#34;0&#34;&amp;DateHour”

在其上方添加

    Case &#34;Y-m&#34;

    DateToStr=Right(Year(DateTime),2)&amp;&#34;-&#34;&amp;DateMonth

    Case &#34;d2&#34;

    If Len(DateDay)<2 Then DateDay=&#34;0&#34;&amp;DateDay  

    DateToStr=DateDay

另外收藏个首页直接登陆的代码,需要修改:library.asp里查找 退出系统</a>&#34;

引用自
else

userPanel=userPanel&amp;&#34;<form name=&#34;&#34;checkUser&#34;&#34; action=&#34;&#34;login.asp&#34;&#34; method=&#34;&#34;post&#34;&#34; style=&#34;&#34;margin:1px;&#34;&#34;><input name=&#34;&#34;action&#34;&#34; type=&#34;&#34;hidden&#34;&#34; value=&#34;&#34;login&#34;&#34;/><label>用户:<input name=&#34;&#34;username&#34;&#34; type=&#34;&#34;text&#34;&#34; size=&#34;&#34;12&#34;&#34; class=&#34;&#34;userpass&#34;&#34; maxlength=&#34;&#34;24&#34;&#34;/></label><br/><label>密码:<input name=&#34;&#34;password&#34;&#34; type=&#34;&#34;password&#34;&#34; size=&#34;&#34;12&#34;&#34; class=&#34;&#34;userpass&#34;&#34;/></label><br/><label>验证:<input name=&#34;&#34;validate&#34;&#34; type=&#34;&#34;text&#34;&#34; size=&#34;&#34;4&#34;&#34; class=&#34;&#34;userpass&#34;&#34; maxlength=&#34;&#34;4&#34;&#34;/> &#34;&amp;getcode()&amp;&#34;</label><br/><label>记住登陆: <sel&#101;ct name=&#34;&#34;KeepLogin&#34;&#34; id=&#34;&#34;KeepLogin&#34;&#34; class=&#34;&#34;userpass&#34;&#34;><option value=&#34;&#34;1&#34;&#34; sel&#101;cted=&#34;&#34;sel&#101;cted&#34;&#34;>一天</option><option value=&#34;&#34;30&#34;&#34; >一個月</option><option value=&#34;&#34;365&#34;&#34;>一年</option><option value=&#34;&#34;0&#34;&#34;>不用記住</option></sel&#101;ct></label><br/><input type=&#34;&#34;submit&#34;&#34; value=&#34;&#34;登录&#34;&#34; class=&#34;&#34;userbutton&#34;&#34;/><input type=&#34;&#34;button&#34;&#34; value=&#34;&#34;会员注册&#34;&#34; class=&#34;&#34;userbutton&#34;&#34; onclick=&#34;&#34;location.href=&#39;register.asp&#39;&#34;&#34;/></form>&#34;

end if

end function

修改验证码点击刷新,

修改:打开common/function.asp

找到:

引用自

&#39;*************************************

&#39;获得注册码

&#39;*************************************

Function getcode()

getcode= &#34;<img src=&#34;&#34;common/getcode.asp&#34;&#34; alt=&#34;&#34;&#34;&#34; style=&#34;&#34;margin-right:40px;&#34;&#34;/>&#34;

End Function

改为:

引用自
&#39;*************************************

&#39;获得注册码

&#39;*************************************

Function getcode()

getcode= &#34;<img src=&#34;&#34;common/getcode.asp&#34;&#34; onclick=&#34;&#34;this.src=&#39;common/getcode.asp?dumy=&#39; + Math.random()&#34;&#34; alt=&#34;&#34;点击可刷新此验证码&#34;&#34; style=&#34;&#34;margin-right:40px;&#34;&#34;/>&#34;

End Function

==================

增加UBB删除线功能:方法来自Mr.W&#39;s Blog

这个以前是依靠直接使用HTML代码来实现的,现在修改成使用UBB代码实现.

下面的符号[]需要自行替换成[]

相应的替换修改请自行对照自身代码.

commonUBBCode_Gecko.js

添加函数

引用自
function UBB_del&#101;teline()

{

if (EditMethod==&#34;normal&#34;)

{

var PopText

if (PopText=window.prompt(del&#101;teline_normal,&#34;&#34;))

{

AddText(&#34;[d]&#34;+PopText+&#34;[/d]&#34;)

}

}

if (EditMethod==&#34;expert&#34;)

{

AddText(&#34;[d][/d]&#34;)

}

}

commonUBBCode_IE.js

添加函数

引用自
function UBB_del&#101;teline()

{

var UBBSel&#101;ctrange=document.sel&#101;ction.cr&#101;ateRange()

if (Sel&#101;ctAllow &amp;&amp; UBBSel&#101;ctrange.text!=&#34;&#34;)

{

UBBSel&#101;ctrange.text=&#34;[d]&#34;+UBBSel&#101;ctrange.text+&#34;[/d]&#34;

return

}

if (EditMethod==&#34;normal&#34;)

{

var PopText

if (PopText=window.prompt(del&#101;teline_normal,&#34;&#34;))

{

AddText(&#34;[d]&#34;+PopText+&#34;[/d]&#34;)

}

}

if (EditMethod==&#34;expert&#34;)

{

AddText(&#34;[d][/d]&#34;)

}

}

commonUBBCode_help.js

引用自

var underline_normal = &#34;请输入要加下划线的文字。
使用标签:[u][/u]&#34;;

var del&#101;teline_normal = &#34;请输入要设置成有删除线的文字。
使用标签:[d][/d]&#34;;

commonUBBconfig.asp

引用自

UBB_Tools_default=UBB_Tools_default&amp;&#34;bold,italic,underline,del&#101;teline,justifyleft,justifycenter,justifyright&#34;

commonubbcode.asp

引用自

&#39;———–字体格式—————-

re.Pattern=&#34;([^
]*?)
&#34;

strContent=re.Replace(strContent,&#34;<u>$1</u>&#34;)

re.Pattern=&#34;[d]([^
]*?)[/d]&#34;

strContent=re.Replace(strContent,&#34;<span style=&#34;&#34;text-decoration: line-through;&#34;&#34;>$1</span>&#34;)

===============

163相册的引用方法:

新建一163.asp文件,内容如下:

程序代码

引用自

<%

Dim url, body, myCache

url = Request.QueryString(&#34;url&#34;)

Set myCache = new cache

myCache.name = &#34;picindex&#34;&amp;url

If myCache.valid Then

body = myCache.value

Else

body = GetWebData(url)

myCache.add body,dateadd(&#34;d&#34;,1,now)

End If

If Err.Number = 0 Then

Response.CharSet = &#34;UTF-8&#34;

Response.ContentType = &#34;application/octet-stream&#34;

Response.BinaryWrite body

Response.Flush

Else

Wscript.Echo Err.Description

End if

&#39;取得数据

Public Function GetWebData(ByVal strUrl)

Dim curlpath

curlpath = Mid(strUrl,1,Instr(8,strUrl,&#34;/&#34;))

Dim Retrieval

Set Retrieval = Server.Cr&#101;ateObject(&#34;Microsoft.XMLHTTP&#34;)

With Retrieval

.Open &#34;Get&#34;, strUrl, False,&#34;&#34;,&#34;&#34;

.setRequestHeader &#34;Referer&#34;, curlpath

.Send

GetWebData =.ResponseBody

End With

Set Retrieval = Nothing

End Function

&#39;cache类

class Cache

private obj &#39;cache内容

private expireTime &#39;过期时间

private expireTimeName &#39;过期时间application名

private cacheName &#39;cache内容application名

private path &#39;url

private sub class_initialize()

path=request.servervariables(&#34;url&#34;)

path=left(path,instrRev(path,&#34;/&#34;))

end sub

private sub class_terminate()

end sub

public property get blEmpty

&#39;是否为空

if isempty(obj) then

blEmpty=true

else

blEmpty=false

end if

end property

public property get valid

&#39;是否可用(过期)

if isempty(obj) o&#114; not isDate(expireTime) then

valid=false

elseif CDate(expireTime)<now then

valid=false

else

valid=true

end if

end property

public property let name(str)

&#39;设置cache名

cacheName=str &amp; path

obj=application(cacheName)

expireTimeName=str &amp; &#34;expires&#34; &amp; path

expireTime=application(expireTimeName)

end property

public property let expires(tm)

&#39;重设置过期时间

expireTime=tm

application.lock

application(expireTimeName)=expireTime

application.unlock

end property

public sub add(var,expire)

&#39;赋值

if isempty(var) o&#114; not isDate(expire) then

exit sub

end if

obj=var

expireTime=expire

application.lock

application(cacheName)=obj

application(expireTimeName)=expireTime

application.unlock

end sub

public property get value

&#39;取值

if isempty(obj) o&#114; not isDate(expireTime) then

value=null

elseif CDate(expireTime)<now then

value=null

else

value=obj

end if

end property

public sub makeEmpty()

&#39;释放application

application.lock

application(cacheName)=empty

application(expireTimeName)=empty

application.unlock

obj=empty

expireTime=empty

end sub

public function equal(var2)

&#39;比较

if typename(obj)<>typename(var2) then

equal=false

elseif typename(obj)=&#34;Object&#34; then

if obj is var2 then

equal=true

else

equal=false

end if

elseif typename(obj)=&#34;Variant()&#34; then

if join(obj,&#34;^&#34;)=join(var2,&#34;^&#34;) then

equal=true

else

equal=false

end if

else

if obj=var2 then

equal=true

else

equal=false

end if

end if

end function

end class

%>

将该文件上传到服务器空间,以后在要链接的图片地址前加上 你的网址 /163.asp?url= 图片地址 ,即可正常显示图片了!