- 博客(1)
- 收藏
- 关注
原创 常用搜索引擎关键字转换!
Public Function GetSearchKeyword(RefererUrl) 搜索关键词 on error resume next Dim re Set re = New RegExp re.IgnoreCase = True re.Global = True Dim a,b,j re.Pattern = "(" _ & "google.+?q=([^&]*)"
2004-07-25 17:12:00 1193
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人