Function GetArchURL(FileName)
GetArchURL=""
if Trim(FileName)="" then Exit Function
FileName=Right(FileName,Len(FileName)-InStrRev(FileName,"\"))
FileMainName=Left(FileName,InStrRev(FileName,".")-1)
FileExteName=Right(FileName,Len(FileName)-InStrRev(FileName,"."))
FileMainName=Server.URLEncode(FileMainName)
GetArchURL="/"&gFilePubPath&"/"&FileMainName&"."&FileExteName
End Function
<%
Function getCurlchr(path)
//show Chinese path and filename,and show in url.
//Author: Walksing@963.net
ctmp=path
ctmp=replace(server.urlencode(ctmp),"+","%20")
ctmp=replace(ctmp,"%2F" ,"/")
ctmp=replace(ctmp,"%3A",":")
ctmp=replace(ctmp,"%2E",".")
getCurlchr=ctmp
End function
%>