各位大虾请帮帮忙，不是我不给分数，而是我实在没有分数可给。请谅解！！！

短短的 2003-10-12 08:44:49
在上传文件的处理页面中，如何获取文件的后缀名。
...全文
44 19 打赏 收藏 转发到动态 举报
写回复
用AI写文章
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
短短的 2003-10-16
  • 打赏
  • 举报
 回复
可以了，谢谢avonqin(李文) ( )
短短的 2003-10-16
  • 打赏
  • 举报
 回复
没有跳掉aaa.asp
if fileExt=".gif" then
这句有问题。
avonqin 2003-10-16
  • 打赏
  • 举报
 回复
如你的这个程序，不是gif图片不能上传吧，但可以把数据写进数据库里
试试：
if fileExt=".gif" then
response.redirect "aaa.asp"

测试一下
短短的 2003-10-16
  • 打赏
  • 举报
 回复
不管我上传的是否gif文件都可以上传，郁闷。
短短的 2003-10-16
  • 打赏
  • 举报
 回复
我想要写成这样

<!--#include FILE="../tpsc/upload.inc"-->
<%dim upload,file,formName,formPath,iCount,title,syfl,nr,tpdz,tx,xgwz
set upload=new upload_F ''建立上传对象
'--------将日期转化成文件名--------
function MakedownName()
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = int(fname) + int((10-1+1)*Rnd + 1)
MakedownName=fname
end function
formPath="upfile/"
iCount=0
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
fileExt=lcase(right(file.filename,4))
if fileExt=".gif" then
newname=MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName, ".")+1)
file.SaveAs Server.mappath(formPath&newname) ''保存文件
iCount=iCount+1
else
end if
rs("用户名")=session("usename")
rs("标题")=upload.form("title")
rs("主题类型")=upload.form("syfl")
rs("时间")=now()
rs("内容")=upload.form("nr")
rs("相关地址")=upload.form("xgwz")
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip = Request.ServerVariables("REMOTE_ADDR")
end if
rs("发起人ip")=userip
rs("图片地址")=upload.form("tpdz")
rs("头像")=upload.form("tx")
rs.update
rs.close
set rs=nothing
Response.Redirect("main.asp")
end if
next
rs("用户名")=session("usename")
rs("标题")=upload.form("title")
rs("主题类型")=upload.form("syfl")
rs("时间")=now()
rs("内容")=upload.form("nr")
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip = Request.ServerVariables("REMOTE_ADDR")
end if
rs("发起人ip")=userip
rs("上传地址")="upfile/"&newname
rs("图片地址")=upload.form("tpdz")
rs("头像")=upload.form("tx")
rs("相关地址")=upload.form("xgwz")
rs.update
rs.close
Set rs=nothing
Conn.Close
Set Conn=nothing
set file=nothing
set upload=nothing ''删除此对象
Response.Redirect("main.asp")

%>
</html>
avonqin 2003-10-16
  • 打赏
  • 举报
 回复
mid(file.FileName,InStrRev(file.FileName, ".")+1)获得文件后缀，你的方法是对的，不知你的问题是？
weiwei6 2003-10-16
  • 打赏
  • 举报
 回复
gethz($str)
{
$str=strrchr($str,".");
return $str;
}
短短的 2003-10-16
  • 打赏
  • 举报
 回复
各位高手帮帮忙。
短短的 2003-10-15
  • 打赏
  • 举报
 回复
<form action="tpcl.asp" method="post" enctype="multipart/form-data" name="form1">



处理的。

<%
set rs=server.createobject("ADODB.recordset")
sql="select * from 主题表"
rs.Open sql,conn,1,3
rs.addnew
nowtime=now()
sj=cstr(year(nowtime))+"-"+right("0"+cstr(month(nowtime)),2)+"-"+right("0"+cstr(day(nowtime)),2)
%>
<!--#include FILE="../tpsc/upload.inc"-->
<%dim upload,file,formName,formPath,iCount,title,syfl,nr,tpdz,tx,xgwz
set upload=new upload_F ''建立上传对象
'--------将日期转化成文件名--------
function MakedownName()
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = int(fname) + int((10-1+1)*Rnd + 1)
MakedownName=fname
end function
formPath="upfile/"
iCount=0
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
newname=MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName, ".")+1)
file.SaveAs Server.mappath(formPath&newname) ''保存文件
iCount=iCount+1
else
rs("用户名")=session("usename")
rs("标题")=upload.form("title")
rs("主题类型")=upload.form("syfl")
rs("时间")=now()
rs("内容")=upload.form("nr")
rs("相关地址")=upload.form("xgwz")
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip = Request.ServerVariables("REMOTE_ADDR")
end if
rs("发起人ip")=userip
rs("图片地址")=upload.form("tpdz")
rs("头像")=upload.form("tx")
rs.update
rs.close
set rs=nothing
Response.Redirect("main.asp")
end if
next
rs("用户名")=session("usename")
rs("标题")=upload.form("title")
rs("主题类型")=upload.form("syfl")
rs("时间")=now()
rs("内容")=upload.form("nr")
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip = Request.ServerVariables("REMOTE_ADDR")
end if
rs("发起人ip")=userip
rs("上传地址")="upfile/"&newname
rs("图片地址")=upload.form("tpdz")
rs("头像")=upload.form("tx")
rs("相关地址")=upload.form("xgwz")
rs.update
rs.close
Set rs=nothing
Conn.Close
Set Conn=nothing
set file=nothing
set upload=nothing ''删除此对象
Response.Redirect("main.asp")

%>
</html>
avonqin 2003-10-14
  • 打赏
  • 举报
 回复
把你的上传表单，和接收页面代码全部帖出来看看！！！
gmlxf 2003-10-14
  • 打赏
  • 举报
 回复
你用的上传类中应该有说明的。
短短的 2003-10-14
  • 打赏
  • 举报
 回复
还是不行。
我把源代码贴出来大家看看问题出在哪里
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
fileExt=lcase(right(file.filename,4))
if fileext=".gif" then
newname=MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName, ".")+1)

file.SaveAs Server.mappath(formPath&newname) ''保存文件
iCount=iCount+1
end if
avonqin 2003-10-13
  • 打赏
  • 举报
 回复
你用组件上传？还是用其他？
短短的 2003-10-13
  • 打赏
  • 举报
 回复
请高手帮帮忙。
avonqin 2003-10-13
  • 打赏
  • 举报
 回复
if fileext="gif" then
==> if fileExt=".gif" then

不行把你的表单代码给我们看看呀
短短的 2003-10-13
  • 打赏
  • 举报
 回复
fileExt=lcase(right(file.filename,4))
if fileext="gif" then
Response.Write("gif")
else
Response.Write("错误")
end if
我这样写可以么？
为什么在我服务器上运行没有反映？
avonqin 2003-10-13
  • 打赏
  • 举报
 回复
set file=upload.file("file1")
fileExt=lcase(right(file.filename,4)) '取得文件的后缀名
短短的 2003-10-13
  • 打赏
  • 举报
 回复
就是无组建上传。
yangyanggood 2003-10-13
  • 打赏
  • 举报
 回复
关注，帮楼主顶一下！UP
程序员的十个层次（不得不看）
中国的程序员水平比西方程序员水平差，还是中国有许多优秀的程序员达到或超过了西方程序员同等水平呢？要解决这个问题，必须先知道程序员有多少种技术层级，每个层级需要什么样的技术水平，然后再比较中国和西方在各个技术层级的人数，就可以知道到底有没有差距，差距有多大。
各位大虾,帮帮忙.求spring3.0的中文文档
各位大虾.有spring3.0的中文文档的发给小弟一份.邮箱:shixiaofei00203@126.com小弟先谢谢了!
计算机开机白屏怎么处理,电脑开机白屏怎么办，请各位大虾帮帮忙
把该显示器连接到另一台主机上使用，如果故障消失，则可能是显卡的故障。如果故障依旧，则可能是显示器本身的故障或者显示器电缆线接口的故障。重点检查显示器电缆线接口金属针是否折断或弯曲，如果不行，干脆给显示器更换一条新的电缆线再试。1、电源线或数据线的问题。2、显示器显象管的问题(建议送修) 。3、显卡或显卡驱动有问题(换一条试试或升级显卡驱动试试)。显卡常见故障诊断如下(1)显卡接触不良故障：显卡接触...
vb里面怎么调用类模块啊?各位大虾帮帮忙啊
小弟最近刚学了一点VB,在类模块上碰到一些小问题望大虾多多指点 
C++程序，发生崩溃，错误代码为0xc000000d，各位大虾来帮帮忙
系统错误日志如下： 错误 2011/10/15 20:22:47 Application Error 1000 (100) "故障发生的应用程序名称: WirelessLanClient.exe、版本: 1.0.0.1、时间戳: 0x4e0d7192 故障发生的模块名称: MSVCR80.dll、版本: 8.0.50727.4927、时间戳: 0x4a2752ff 异常代码: 0xc0000
ASP

28,406

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章