使用MID函数截取就可以了

写个函数即可:

<%
function string(str) '提取函数
dim s,s1,s2,s3
s=str
s1=split(s,"/")
s2=s1(1)
s3=split(s2,".")
string=s3(0)
end function
'调用函数
dim str
str="UploadFiles/20071210143951132.doc"
Response.Write string(str)
%>

afilen1=TRIM(request("book_ad1"))
efilen1=INSTRREV(afilen1,"/")  取"/"的位置值
cfilen1=LEN(afilen1)  '' 计算字符串长
ffilen1=Right(afilen1,cfilen1-efilen1)  得出"/"以后的字符串
再计算出"."的位置值,Left(字符串,串长-点位值)