url_name="http://expand.video.iqiyi.com/api/album/list.xml?apiKey=4b1e78e9d6cf4759951f0792b89c551a&categoryId=2&keyWord="&server.URLEncode(URLEncode(titleArr(0),65001) )
Public Function URLEncode(ByVal str, ByVal codePage)
Dim preCodePage
preCodePage = Session.CodePage
Session.CodePage = codePage
URLEncode = Server.URLEncode(str)
Session.CodePage = preCodePage
End Function