asp file类型 如何获取文件名

<input name="ImgUrl" type="text" id="ImgUrl" size="50" maxlength="255">

<input name="FileName" type="FILE" class="tx1" size="30">

<input type="button" name="Submit" value="上传" onClick="ImgUrlvalue=/[^\\]+\\w+$/exec(FileNamevalue)[0]">

sub view_file（bkfolder）

Set fso = ServerCreateObject("ScriptingFileSystemObject")

If fsoFolderExists(bkfolder) Then

Set objFolder = fsoGetFolder(bkfolder)

For Each objFile in objFolderfiles

responsewrite objFilename

Next

Set objFolder = Nothing

end if

Set fso = Nothing

end sub

显示目录中的文件列表

sub del_file(Dbpath)

Set Fso=servercreateobject("scriptingfilesystemobject")

if fsofileexists(dbpath) then

fsodeletefile dbpath,true

responsewrite " *** 作成功<br>"

Else

responsewrite "找不到文件"

End if

end sub

删除文件

具体实现你要的功能自己组织

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

判断当前网页的文件名是否是xxx,如果是跳转到xxx1,如果不是结束

解析:

Url = requestservervariables("url")取得网页地址

strUrl = split(url,"/")

for i=1 to ubound(strurl)

WebName = strurl(i)

next

if WebName= "xxx" then

responseredirect("xxx1")

end if

这是我的笨方法,你试试

tempClsLocalName

这个是原始文件名，tempClsFileName这个是转换后的新文件名，

这两个变量，只能在updateasp中取到，

上传完成返回时，触发了

challs_flash_onComplete

函数，里面有文件名，你自己取就行了。

我刚改写了一个函数uploadfile（filety,savepath）

第一个参数是允许的后缀名第二个参数是保存地址

能够自动防止重名，返回值是新文件名。把新文件名写到数据库就行啦。

<%

'该文件没有使用到gobalasp测试中

'文件上传函数

function upload(filety,savepath)

'start upload

'

if filety="" or savepath=""then

filety= "jpg,gif,bmp,png"'允许的文件类型

savepath=servermappath("/")&"\cache\" '路径

end if

'1获取从文件上传表单提交过来的数据

If requesttotalbytes>0 Then

formsize=requesttotalbytes ' 取二进制流字节长度

formdata=requestbinaryread(formsize) ' 读取二进制流内容

bncrlf=chrB(13)&chrB(10)

datastart=instrb(formdata,bncrlf&bncrlf)+3 ' 取二进制流文件开始位置 (两个回车换行符)

divider=leftB(formdata,instrb(formdata,bncrlf)-1) ' 定义取二进制流 Field 分隔标记 (内容为二进制)

dataend=instrb(datastart,formdata,divider)-datastart ' 取二进制流文件部分结束位置

'2将获取的信息以二进制流文件存放 --- stm

Set strm=createObject("adodbstream")

with strm

type=1 ' 二进制模式

mode=3 ' 指定打开模式为读写

open

write formdata '写入二进制流内容

position=0 '将游标指向数据首部

type=2 ' 以文本模式读取

CharSet = "gb2312" '设置中文编码

formhead=ReadText(datastart- 1) '读取表单头部内容

End with

'21获取上传的文件名称filename

fullname=fRegExpSgl(formhead,true,true,true,"[\s\S]filename\=""()""[\s\S]","$1")

fname=Split(fullname,"\")

filename=fname(UBound(fname)) ' 获取到文件名

'判断文件类型是否安全

filety=split(filety,",")'转化成数组

for i=0 to ubound(filety)

if lcase(right(filename,3))=lcase(filety(i)) then 'right

exit for

else

end if

next

'end 判断文件类型

Set fso = ServerCreateObject("ScriptingFileSystemObject")

If fsoFileExists(savepath&filename) Then

For i=1 To 999

Fxname=Split(filename,"")

Fn=Left(filename,InstrRev(filename,"")-1)

Fnx=fxname(UBound(fxname))

If Not fsoFileExists(SavePath&Fn&"("&i&")"&Fnx) Then

filename=Fn&"("&i&")"&Fnx

Exit For

End If

Next

End If

'3从stm二进制流文件中获取有效信息 及 保存文件

Set formstrm=createOBject("adodbstream")

with formstrm

type=1 ' 二进制模式

mode=3

open

strmposition = datastart ' 指定 stm 对象的起始位置, 以变量 bStart 的值为起始位置

strmcopyTo formstrm,dataend ' 拷贝 stm 二进制流至 fromStm 对象, 长度为 bEnd 变量的长度

saveTofile (savepath&filename),2 ' 保存文件, 如果存在相同名称, 则覆盖

close

end with

Set strm=Nothing

Set formstrm=Nothing

'dele the old photo and write the position to the user table faceurl

'findout the old photo

upload=filename

'responseEnd 这个导致下面的所有的将输出不了

End If

'end upload

end function

function fRegExpSgl(str,glb,igc,mtl,pt,rpt)

dim re

set re=new RegExp

reglobal=glb

reignoreCase=igc

remultiline=mtl

repattern=pt

fRegExpSgl=rereplace(str,rpt)

set re=nothing

end function

%>

以上就是关于asp file类型 如何获取文件名全部的内容，包括:asp file类型 如何获取文件名、asp 如何获取本地文件名和后缀名、asp文件名提取等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！