去掉文件名中有汉字的文件的程序怎么做？

[hi123]

去掉文件名中有汉字的文件的程序怎么做？

[zykj_2000]

转为UNICODE

[renniliao]

用len()函数取文件名的长度，再用lenB函数取文件名的长度。如果两者相同。则说明没有中文。
如果不相同，则说明有中文。

[jzywh]

URLEncode

[inanition]

下面這段程序可以判斷：
說明：filename就是你的文件名，flag是判斷結果，接下來你想幹嘛就幹嘛吧。
補充一下，我是在繁體2000下寫，不知道在簡體行不行。

<%
dim filename, i, flag
filename = Request.QueryString("file1")
if filename <> "" then
flag = false
for i=1 to len(filename)
if(ascb(midb(mid(filename,i,1),2,1))) > 0 then
flag = true
exit for
end if
next
if flag then
Response.Write "此文件名中有漢字" & "<br>"
else
Response.Write "此文件名中無漢字" & "<br>"
end if
end if
%>