为一个“坑”，每个里面都可以自行去决定里面填充什么内容。最后把所有格里的标题和内容拼接在一起，就形成了最后完整的监测。然而在所有的监测系统中，都有一个问题，在于最终的URL中只能使用英文和数字，而如果想保留监测里保留中文的信息，就需要进行信息的编码与解码。很多人可能认为编码和解码需要用单独的编程软件进行编写。其实，在excel中也有公式能够满足我们的需求。如需进行信息的编码，只需使用“encodeurl”，就可把中文字转化为数字和英文的编码。而解码的公式并不在excel的自带函数中，需要在VB模块中添加对应函数，然后在单元格中输入”URLDECODE”,方可使用。

附：URL解码函数（VB）

FunctionURLDecode(ByValstrIn)

URLDecode=""

Dimsl:sl=1

Dimtl:tl=1

Dimkey:key="%"

Dimkl:kl=Len(key)

sl=InStr(sl,strIn,key,1)

DoWhilesl>0

If(tl=1Andsl<>1)Ortl<slThen

URLDecode=URLDecode&Mid(strIn,tl,sl-tl)

EndIf

Dimhh,hi,hl

Dima

SelectCaseUCase(Mid(strIn,sl+kl,1))

Case"U"'UnicodeURLEncode

a=Mid(strIn,sl+kl+1,4)

URLDecode=URLDecode&ChrW("&H"&a)

sl=sl+6

Case"E"'UTF-8URLEncode

hh=Mid(strIn,sl+kl,2)

a=Int("&H"&hh)'ascii码

IfAbs(a)<128Then

sl=sl+3

URLDecode=URLDecode&Chr(a)

Else

hi=Mid(strIn,sl+3+kl,2)

hl=Mid(strIn,sl+6+kl,2)

a=("&H"&hhAnd&HF)*2^12Or("&H"&hiAnd&H3F)*2^6Or("&H"&hlAnd&H3F)

Ifa<0Thena=a+65536

URLDecode=URLDecode&ChrW(a)

sl=sl+9

EndIf

CaseElse'AscURLEncode

hh=Mid(strIn,sl+kl,2)'高位

a=Int("&H"&hh)'ascii码

IfAbs(a)<128Then

sl=sl+3

Else

hi=Mid(strIn,sl+3+kl,2)'低位

a=Int("&H"&hh&hi)'非ascii码

sl=sl+6

EndIf

URLDecode=URLDecode&Chr(a)

EndSelect

tl=sl

sl=InStr(sl,strIn,key,1)

Loop

URLDecode=URLDecode&Mid(strIn,tl)

EndFunction