UC知道急~~~谁能帮我解释一下supfile.asp文件代码。谢谢了、
来源：百度知道 编辑：UC知道 时间：2024/05/04 08:42:24
因为我是初学，看不懂。谁能给我讲讲啊~悬赏50~只有这么多了~
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%OPTION EXPLICIT%>
<!--#include FILE="inc/upload.inc"-->
<html>
<head>
<title>图片上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF">
<%
dim upload,file,formName,formPath,iCount,sname,fsobj,fsobjd
set upload=new upload_cwj
if upload.form("filepath")="" then
call MsgBox("请输入要上传至的目录!","Back","None")
set upload=nothing
response.end
else
'以年月为目录名存放图片
formPath=upload.form("filepath")&year(now)&month(now)&"/"
'如果目录不存在就建立
set fsobjd=server.creat
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%OPTION EXPLICIT%>
<!--#include FILE="inc/upload.inc"-->
<html>
<head>
<title>图片上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF">
<%
dim upload,file,formName,formPath,iCount,sname,fsobj,fsobjd
set upload=new upload_cwj
if upload.form("filepath")="" then
call MsgBox("请输入要上传至的目录!","Back","None")
set upload=nothing
response.end
else
'以年月为目录名存放图片
formPath=upload.form("filepath")&year(now)&month(now)&"/"
'如果目录不存在就建立
set fsobjd=server.creat
很简单 一个上传程序 代码没问题 是无组件上传
文件里面已经有的标注 很清楚
给你说下关键部分
thename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&right(file.filename,4) 把东西改成年月日格式
spp=file.filename spp=文件名
file.filename=thename 上传后文件名变成年月日
file.SaveAs Server.mappath(formPath&file.FileName) 保存文件
paths=server.mappath("../")&"\bookimages\"&year(now)&month(now)&"\"&spp
set fsobj=server.CreateObject("scripting.filesystemobject")
估计你基础太差 建议多看书 还有 你的程序是无忧无组件上传