<H2><SPAN>TAGS</SPAN>标签云</H2>
  <DIV>
  <UL>
  <#CACHE_INCLUDE_TAGS#>
  </UL>
  </DIV>”

 
Zblog默认的TAG列表用的是<LI>排列的，一旦很多Tags列表就很长很长,影响了页面的美观,并且也不方便用户浏览整个网页,因此我们借鉴WordPress的做法:TagCloud,让他们紧密排列起来.其实很简单,就是把li样式给去掉。
修改步骤：
1,打开FUNCTION目录下的c_system_base.asp文件,找到以下代码:

  Function BlogReBuild_Tags()

上面一行是生成TAG的函数
然后紧跟下来找到如下代码, 这是是生成TAG列表的

Set objRS=objConn.Execute(“SELECT * FROM [blog_Tag] ORDER BY [tag_Count] DESC,[tag_ID] ASC”)
If (Not objRS.bof) And (Not objRS.eof) Then
  Do While Not objRS.eof
   If j=i Then Exit Do
   strTag=strTag & “<li><a href=”””& Tags(objRS(“tag_ID”)).Url & “””>”+Tags(objRS(“tag_ID”)).Name + ” <span class=””tag-count””>(” & Tags(objRS(“tag_ID”)).Count & “)</span>” +”</a></li>”
   objRS.MoveNext
   j=j+1
  Loop
End If
objRS.Close
Set objRS=Nothing

注意了:上面中间一行红色的就是我们现在要修改的内容..(如果各位博客不懂ASP,其它的代码不要动..)

2.首先删掉两边的<li>和</li>标签..这样TAG就横行排列了..这样做的目的是让那些不熟悉CSS的朋友方便修改.代码变成如下..
strTag=strTag & “<a href=”””& Tags(objRS(“tag_ID”)).Url & “””>”+Tags(objRS(“tag_ID”)).Name + ” <span class=””tag-count””>(” & Tags(objRS(“tag_ID”)).Count & “)</span>” +”</a>”
 

然后进行文件重建操作，就会有如下的效果了。

解决方法：
首先停止 IIS 服务，之后打开 C:\Windows\System32\Inetsrv 中的 metabase.XML, 并修改 AspMaxRequestEntityAllowed 为你需要的值(例如 1073741824, 1GB)。
启动IIS服务。

注意: 在编辑文件前请停止 IIS 服务, 否则无法保存修改后的文件，在计算机的服务里找到IIs的服务。右键点击出现停止，点停止就ok了.

如何停止IIS服务:
第一种：在IIS管理器的界面上有个红色的方块，点一下就是了。或者在cmd命令行下打iisreset可以重起IIS；
第二种：开始–>管理工具–>Internet 信息服务–>网站–>默认网站–>右健”停止”
完成!
第三种：有时，您想要完全停止微软IIS服务来重新加载WebSphere，下面的内容摘自于微软IIS 4.0 发布注意事项：
“在以前的IIS版本通过在命令行键入net stop w3svc来停止整个Web服务，这将会中止计算机上所有的Web服务和关闭Inetinfo.exe进程，对于多Web站点结构的结果则是仍然有另一个 服务，Iisadmin，正在运行，即使W3SVC已经关闭。通过控制面版来启动和停止服务也是同样的结果，如果真的想停止Inetinfo.exe进程 和确认所有扩展的部分都正确地停止，应用使用net stop iisadmin命令而不是net stop w3svc。键入net start w3svc 或net start msftpsvc命令都会自动启动Iisadmin。”
为了避免”Are you sure?”提示，请使用 “net stop iisadmin /y”命令.

RegExp 对象的属性
◎ Global属性：Global属性设置或返回一个 Boolean 值，该值指明在整个搜索字符串时模式是全部匹配还是只匹配第一个。
语法：object.Global [= True | False ]
object 参数总是 RegExp 对象。如果搜索应用于整个字符串，Global 属性的值为 True，否则其值为 False。默认的设置为 True。
Global 属性的用法（改变赋予 Global 属性的值并观察其效果）：
Function RegExpTest(patrn, strng)
Dim regEx ‘ 建立变量。
Set regEx = New RegExp ‘ 建立规范表达式。
regEx.Pattern = patrn ‘ 设置模式。
regEx.IgnoreCase = True ‘ 设置是否区分字母的大小写。
regEx.Global = True ‘ 设置全程性质。
RegExpTest = regEx.Execute(strng) ‘ 执行搜索。
End Function
MsgBox(RegExpTest(“is.”, “IS1 is2 IS3 is4″))

◎ IgnoreCase属性：IgnoreCase属性设置或返回一个Boolean值，指明模式搜索是否区分大小写。
语法：object.IgnoreCase [= True | False ]
object 参数总是一个 RegExp 对象。如果搜索是区分大小写的，则 IgnoreCase 属性为 False；否则为 True。缺省值为 True。
用法:（改变赋予 IgnoreCase 属性的值以观察其效果)：
Function RegExpTest(patrn, strng)
Dim regEx ‘ 建立变量。
Set regEx = New RegExp ‘ 建立正则表达式。
regEx.Pattern = patrn ‘ 设置模式。
regEx.IgnoreCase = True ‘ 设置是否区分大小写。
RegExpTest = regEx.Execute(strng) ‘ 执行搜索。
End Function
MsgBox(RegExpTest(“is.”, “IS1 is2 IS3 is4″))

◎ Pattern属性：Pattern属性设置或返回被搜索的正则表达式模式。
语法：object.Pattern [= “searchstring”]
Pattern 属性的语法包含以下几个部分：
语法说明：
object 必需的。总是一个 RegExp 对象变量。
searchstring 可选的。被搜索的正则字符串表达式。它可能包含设置部分表格中的各种正则表达式字符。
设置：
在书写正则表达式的模式时使用了特殊的字符和序列。下面描述了可以使用的字符和序列，并给出了实例。
\ 将下一个字符标记为特殊字符或字面值。例如”n”与字符”n”匹配。”\n”与换行符匹配。序列”\\”与”\”匹配对面，”\(“与”(“匹配。
^ 匹配输入的开始位置。
$ 匹配输入的结尾。
* 匹配前一个字符零次或几次。例如，”zo*”可以匹配”z”、”zoo”。
+ 匹配前一个字符一次或多次。例如，”zo+”可以匹配”zoo”,但不匹配”z”。
? 匹配前一个字符零次或一次。例如，”a?ve?”可以匹配”never”中的”ve”。
. 匹配换行符以外的任何字符。
(pattern) 与模式匹配并记住匹配。匹配的子字符串可以从作为结果的 Matches 集合中使用 Item [0]…[n]取得。如果要匹配括号字符(和 )，可使用”\(” 或 “\)”。
x|y 匹配 x 或 y。例如 “z|food” 可匹配 “z” 或 “food”。”(z|f)ood” 匹配 “zoo” 或 “food”。
{n} n 为非负的整数。匹配恰好n次。例如，”o{2}” 不能与 “Bob 中的 “o” 匹配，但是可以与”foooood”中的前两个o匹配。
{n,} n 为非负的整数。匹配至少n次。例如，”o{2,}”不匹配”Bob”中的”o”，但是匹配”foooood”中所有的o。”o{1,}”等价于”o+”。”o{0,}”等价于”o*”。
{n,m} m 和 n 为非负的整数。匹配至少 n 次，至多 m 次。例如，”o{1,3}” 匹配 “fooooood”中前三个o。”o{0,1}”等价于”o?”。
[xyz] 一个字符集。与括号中字符的其中之一匹配。例如，”[abc]” 匹配”plain”中的”a”。
[^xyz] 一个否定的字符集。匹配不在此括号中的任何字符。例如，”[^abc]” 可以匹配”plain”中的”p”.
[a-z] 表示某个范围内的字符。与指定区间内的任何字符匹配。例如，”[a-z]”匹配”a”与”z”之间的任何一个小写字母字符。
[^m-z] 否定的字符区间。与不在指定区间内的字符匹配。例如，”[m-z]”与不在”m”到”z”之间的任何字符匹配。
\b 与单词的边界匹配，即单词与空格之间的位置。例如，”er\b” 与”never”中的”er”匹配，但是不匹配”verb”中的”er”。
\B 与非单词边界匹配。”ea*r\B”与”never early”中的”ear”匹配。
\d 与一个数字字符匹配。等价于[0-9]。
\D 与非数字的字符匹配。等价于[^0-9]。
\f 与分页符匹配。
\n 与换行符字符匹配。
\r 与回车字符匹配。
\s 与任何白字符匹配，包括空格、制表符、分页符等。等价于”[ \f\n\r\t\v]”。
\S 与任何非空白的字符匹配。等价于”[^ \f\n\r\t\v]”。
\t 与制表符匹配。
\v 与垂直制表符匹配。
\w 与任何单词字符匹配，包括下划线。等价于”[A-Za-z0-9_]”。
\W 与任何非单词字符匹配。等价于”[^A-Za-z0-9_]”。
\num 匹配 num个，其中 num 为一个正整数。引用回到记住的匹配。例如，”(.)\1″匹配两个连续的相同的字符。
\n 匹配 n，其中n 是一个八进制换码值。八进制换码值必须是 1, 2 或 3 个数字长。例如，”\11″ 和 “\011″ 都与一个制表符匹配。”\0011″等价于”\001″ 与 “1”。八进制换码值不得超过 256。否则，只有前两个字符被视为表达式的一部分。允许在正则表达式中使用ASCII码。
\xn 匹配n，其中n是一个十六进制的换码值。十六进制换码值必须恰好为两个数字长。例如，”\x41″匹配”A”。”\x041″等价于”\x04″ 和 “1”。允许在正则表达式中使用 ASCII 码。
用法：
Function RegExpTest(patrn, strng)
Dim regEx ‘ 建立变量。
Set regEx = New RegExp ‘ 建立正则表达式。
regEx.Pattern = patrn ‘ 设置模式。
regEx.IgnoreCase = True ‘ 设置是否区分大小写。
RegExpTest = regEx.Execute(strng) ‘ 执行搜索。
End Function
MsgBox(RegExpTest(“is.”, “IS1 is2 IS3 is4″))

RegExp对象的方法
◎ Execute方法:Execute方法对指定的字符串执行正则表达式搜索。
语法:object.Execute(string)
语法部分描述:
object 必需的。总是一个 RegExp 对象的名称。
string 必需的。要在其上执行正则表达式的文本字符串。
说明:
正则表达式搜索的设计模式是通过 RegExp 对象的 Pattern 来设置的。
Execute 方法返回一个 Matches 集合，其中包含了在 string 中找到的每一个匹配的 Match 对象。如果未找到匹配，Execute 将返回空的 Matches 集合。
用法：
Function RegExpTest(patrn, strng)
Dim regEx ‘ 建立变量。
Set regEx = New RegExp ‘ 建立正则表达式。
regEx.Pattern = patrn ‘ 设置模式。
regEx.IgnoreCase = False ‘ 设置区分大小写。
regEx.Global = True ‘ 搜索全部匹配。
RegExpTest = regEx.Execute(strng) ‘ 执行搜索。
End Function
MsgBox(RegExpTest(“is.”, “IS1 is2 IS3 is4″))

◎ Replace方法:Replace方法替换在正则表达式查找中找到的文本。
语法:object.Replace(string1, string2)
语法部分描述:
object 必需的。总是一个 RegExp 对象的名称。
string1 必需的。string1 是将要进行文本替换的字符串。
string2 必需的。 string2 是替换文本字符串。
说明:
被替换的文本的实际模式是通过 RegExp 对象的 Pattern 属性设置的。
Replace 方法返回 string1 的副本，其中的 RegExp.Pattern 文本已经被替换为 string2。如果没有找到匹配的文本，将返回原来的 string1 的副本。
用法：
Function ReplaceTest(patrn, replStr)
Dim regEx, str1 ‘ 建立变量。
str1 = “The quick brown fox jumped over the lazy dog.”
Set regEx = New RegExp ‘ 建立正则表达式。
regEx.Pattern = patrn ‘ 设置模式。
regEx.IgnoreCase = True ‘ 设置是否区分大小写。
ReplaceTest = regEx.Replace(str1, replStr) ‘ 作替换。
End Function
MsgBox(ReplaceTest(“fox”, “cat”)) ‘ 将 ‘fox’ 替换为 ‘cat’。

另外，Replace 方法在模式中替换 subexpressions 。 下面对以前示例中函数的调用，替换了原字符串中的所有字对：
MsgBox(ReplaceText(“(\S+)(\s+)(\S+)”, “$3$2$1″)) ‘ Swap pairs of words.

◎ Test方法:Test方法对指定的字符串执行一个正则表达式搜索，并返回一个 Boolean 值指示是否找到匹配的模式。
语法:object.Test(string)
语法部分描述:
object 必需的。总是一个 RegExp 对象的名称。
string 必需的。要执行正则表达式搜索的文本字符串。
说明:
正则表达式搜索的实际模式是通过RegExp对象的Pattern属性来设置的。RegExp.Global属性对Test方法没有影响。如果找到了匹配的模式，Test方法返回True；否则返回False。
用法：
Function RegExpTest(patrn, strng)
Dim regEx, retVal ‘ 建立变量。
Set regEx = New RegExp ‘ 建立正则表达式。
regEx.Pattern = patrn ‘ 设置模式。
regEx.IgnoreCase = False ‘ 设置是否区分大小写。
retVal = regEx.Test(strng) ‘ 执行搜索测试。
If retVal Then
RegExpTest = “找到一个或多个匹配。”
Else
RegExpTest = “未找到匹配。”
End If
End Function
MsgBox(RegExpTest(“is.”, “IS1 is2 IS3 is4″))

?InStr InStr(string1,string2[, compare]) 返回string1字符串在string2字符串中第一次出现的位置

?Split Split(string1,delimiter[, count[, start]]) 将字符串根据delimiter拆分成一维数组，其中delimiter用于标识子字符串界限。如果省略，使用空格(“”)作为分隔符。
count 返回的子字符串数目，-1 指示返回所有子字符串。
start为 1 执行文本比较；如果为 0 或者省略执行二进制比较。
?Replace Replace(expression, find, replacewith[, compare[, count[, start]]]) 返回字符串，其中指定数目的某子字符串(find)被替换为另一个子字符串(replacewith)
——————————————————————————–
[示例：]

1、Len函数示例：
下面的示例利用 Len 函数返回字符串中的字符数目：
Dim MyString
MyString = Len(“VBSCRIPT”) ‘MyString 包含 8。
2、Trim、Ltrim、Rtrim函数示例：
下面的示例利用 LTrim, RTrim, 和 Trim 函数分别用来除去字符串开始的空格、尾部空格、 开始和尾部空格：
Dim MyVar
MyVar = LTrim(”  vbscript “)  ‘MyVar 包含 “vbscript “。
MyVar = RTrim(”  vbscript “)  ‘MyVar 包含 ”  vbscript”。
MyVar = Trim(”  vbscript “)   ‘MyVar 包含”vbscript”。
3、Mid函数示例：
下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符：
Dim MyVar
MyVar = Mid(“VB脚本is fun!”, 4, 6) ‘MyVar 包含 “Script”。
4、Left函数示例：
下面的示例利用Left 函数返回MyString 的左边三个字母：
Dim MyString, LeftString
MyString = “VBSCript”
LeftString = Left(MyString, 3) ‘LeftString 包含 “VBS
5、Right函数示例：
下面的示例利用 Right 函数从字符串右边返回指定数目的字符：
Dim AnyString, MyStr
AnyString = “Hello World”      ‘定义字符串。
MyStr = Right(AnyString, 1)    ‘返回 “d”。
MyStr = Right(AnyString, 6)    ‘ 返回 ” World”。
MyStr = Right(AnyString, 20)   ‘ 返回 “Hello World”。
6、LCase函数示例：
下面的示例利用 LCase 函数把大写字母转换为小写字母：
Dim MyString
Dim LCaseString
MyString = “VBSCript”
LCaseString = LCase(MyString) ‘ LCaseString 包含 “vbscript”。
7、 UCase函数示例：
下面的示例利用 UCase 函数返回字符串的大写形式：
Dim MyWord
MyWord = UCase(“Hello World”)    ‘ 返回”HELLO WORLD”。
8、StrComp函数示例：
下面的示例利用 StrComp 函数返回字符串比较的结果。如果第三个参数为 1 执行文本比较；如果第三个参数为 0 或者省略执行二进制比较。
Dim MyStr1, MyStr2, MyComp
MyStr1 = “ABCD”: MyStr2 = “abcd”       ‘定义变量。
MyComp = StrComp(MyStr1, MyStr2, 1)    ‘ 返回 0。
MyComp = StrComp(MyStr1, MyStr2, 0)    ‘ 返回 -1。
MyComp = StrComp(MyStr2, MyStr1)       ‘ 返回 1。
9、InStr示例：
下面的示例利用 InStr 搜索字符串：
Dim SearchString, SearchChar, MyPos
SearchString =”XXpXXpXXPXXP”???
SearchChar = “P”??
MyPos = Instr(SearchString, SearchChar)???’返回 9.
注意：返回的不是一个字符串在另一个字符串中第一次出现的字符位置，而是字节位置。
10、Split函数示例：
Dim MyString, MyArray, Msg
MyString = “VBScriptXisXfun!”
MyArray = Split(MyString, “x”,-1,1)
‘ MyArray(0) contains “VBScript”.
‘ MyArray(1) contains “is”.
‘ MyArray(2) contains “fun!”.
Response.Write(MyArray(0))
11、Replace函数示例：
Replace(“ABCD”, “BC”, “12”)   ‘得到A12D

Function InArray(elem, arr)
If IsArray(arr) then
dim i
For i = 0 to UBound(arr)
If arr(i) = elem Then
InArray = i
Exit Function
End If
Next
End if
InArray = -1
End Function

案列：
str=”11,22,33,44,55,66″
str2=”11,33″
aaa=split(str,”,”)
bbb=split(str2,”,”)
for i=0 to ubound(aaa)
if inarray(aaa(i),bbb)<>-1 then
response.Write(aaa(i)&”<br/>”)
else
response.Write(aaa(i))
end if
next

//**********************************************************asp正则替换

Function huxiang(apos,apat,ares)
Set FSO = CreateObject(“Scripting.FileSystemObject”)
ss=server.MapPath(apos)
Set objFile = FSO.OpenTextFile(ss)
strContent = objFile.Readall

objFile.Close
Set objRegEx = CreateObject(“VBScript.RegExp”)
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = apat
objNewText = objRegEx.Replace(strContent,ares)
Set objTextFile = FSO.CreateTextFile(ss)
objTextFile.Write objNewText
objTextFile.Close
Set FSO = Nothing
End Function
案列
function huidiqu()

apos=”cangku/about/about_238.htm”
apat=”list\/\?(\d{1,3})\_(\d{1,3})\.html”
ares=”cangku/list/list_$1_$2.htm”

huxiang apos,apat,ares

end function
//***********************************************************获取网页一套
sub doindex()
Curl=site&”index.asp”
read=getHTTPPage(Curl)
if read<>”” then
  content=read
  call makeindex()
end if
end sub

sub makeindex()
  Set Fso = Server.CreateObject(“Scripting.FileSystemObject”)
  Filen=Server.MapPath(“cangku/index.htm”)
  Set Site_Config=FSO.CreateTextFile(Filen,true, False)
  Site_Config.Write content
  Site_Config.Close
  Set Fso = Nothing
 
end sub

Function getHTTPPage(url)
  dim http
  set http=Server.createobject(“Microsoft.XMLHTTP”)
  Http.open “GET”,url,false
  Http.send()
  if Http.readystate<>4 then
    exit function
  end if
  getHTTPPage=bytesToBSTR(Http.responseBody,”GB2312″)
  set http=nothing
  if err.number<>0 then err.Clear
End function
Function  BytesToBstr(body,Cset)
        if lenb(body)=0  then
           BytesToBstr=””
           exit  function
        end if
        dim mystream
        set mystream=server.createobject(“adodb.stream”)
        mystream.type=2
        mystream.mode=3
        mystream.open
        mystream.writetext body
        mystream.position=0
        mystream.charset=Cset
        mystream.position=2
        bstr=mystream.readtext()
        mystream.close
        set mystream=nothing
        BytesToBstr=bstr
End Function

//*********************************************************文件与文件夹操作请参考fso.asp类