28,390
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
qdubit 2003-10-18
- 打赏
- 举报
关注！
qlwqz 2003-10-18
- 打赏
- 举报
从我的代码上拷一点给你，
<form name = "Layer" METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload_file.asp">
选择你要上传的文件:<input type="file" name="uploadfile" size = "40">
<input type="submit" name="sub" value="提交" onClick="return datacheck();">
</form>
<%@ language = vbscript%>
<%option explicit%>
<!-- #include file = "adovbs.inc" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim conn
set conn=Server.CreateObject("ADODB.Connection")
conn.connectionstring="driver={Microsoft Access Driver (*.mdb)};"&"DBQ="&Server.MapPath("fh&wqz.mdb")
%>
<title >上传后台</title>
<%
function changetime(a)
if len(a) = 1 then
changetime = "0" + a
else
changetime = a
end if
end function
Function Bytes2bStr(vin)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
With BytesStream
.Type = adTypeText
.Open
.WriteText vin
.Position = 0
.Charset = "GB2312"
.Position = 2
.StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing
Bytes2bStr = StringReturn
End Function
%>
</head>
<body>
<%
dim upload
set upload = server.createobject("Persits.Upload")
upload.Setmaxsize 30000000,true
on error resume next
upload.save '把文件写到缓存中
if err.number = 8 then
response.write "你的文件太大了,不能超过2m"
response.end
else
dim file
set file = upload.files("uploadfile")
if strcomp(file.ext,".zip")=0 or strcomp(file.ext,".rar")=0 then
'----------------------上传文件------------------------------------------------
dim filename,path
filename = file.filename
'------------------构造文件名部分
path = server.mappath("..")
path = path&"upload\"&cstr(upload.form("LayerOne"))&"\"&cstr(upload.form("LayerTwo"))
'path = ""
'path = "upload\"&cstr(upload.form("LayerOne"))&"\"&cstr(upload.form("LayerTwo"))
upload.createdirectory path,true
'-------------------应该把这条记录加到哪个表里-------------------------------
dim sql
dim rs ,TypeTwo,temptable
set rs = server.createobject("adodb.recordset")
TypeTwo = upload.form("LayerTwo")
sql = "select Table from LayerTwo where TypeTwo like '"&TypeTwo&"'"
conn.open
rs.open sql,conn,1,3
if rs("Table") = "1" then
temptable = "StudentFileInfor"
elseif rs("Table") = "2" then
temptable = "TeachFileInfor"
else
temptable = "PersonalDocument"
end if
rs.close
sql = "select FileId from " + temptable
sql = sql + " where FileId Like "+"'"+TypeTwo+"%"+"'"
rs.open sql,conn,1,3
'-------------------确定fileid---------------------------------
dim temp,newfileid,a
newfileid = 0
if rs.eof then
newfileid = TypeTwo&"1"
else
do while not rs.eof
a = rs("FileId")
temp = cint(mid(rs("FileId"),5,len(rs("FileId"))-4))+1
rs.movenext
if rs.eof then
newfileid = TypeTwo&temp
elseif temp <> cint(mid(rs("FileId"),5,len(rs("FileId"))-4)) then
newfileid = TypeTwo&temp
end if
loop
end if
rs.close
conn.close
'---------------------------往表中增加记录---------------------------------------
conn.mode = admodereadwrite
conn.open
rs.open temptable,conn,,,adcmdtable
rs.addnew
rs("FileId") = cstr(newfileid)
rs("Title") = trim(cstr(upload.form("title")))
rs("Uploader") = trim(session("id"))
if upload.form("writer")="" then
rs("Writer") = trim(session("id"))
else
rs("Writer") = trim(upload.form("writer"))
end if
rs("FileName") = filename
rs("UploadDate") = date()
rs("Subject") = trim(upload.form("subject"))
rs("Grade") = trim(upload.form("grade"))
rs("QueryInfor") = trim(upload.form("queryinfor"))
rs("ContentInShort") = trim(upload.form("contentinshort"))
rs("ConserveAdress") = path
filename =cstr(year(now())) + changetime(cstr(month(now()))) + changetime(cstr(day(now))) + changetime(cstr(hour(now))) + changetime(cstr(minute(now))) + changetime(cstr(second(now))) +newfileid+file.ext' filename
rs("ConserveName") = filename
if (rs.Supports(adupdate)) then
rs.Update
file.saveas path&"\"&filename
response.write " <center>你已经成功的将文件上传!</center><br>"
response.write "<br><center><a href = 'rightframe1.asp'>返回</a></center><br>"
else
response.write("往文件表中加入信息时有错误.")
end if
rs.close
conn.close
set rs = nothing
set conn = nothing
else
response.write "文件格式不对,只支持.rar和.zip格式的文件"
end if
end if
%>
</body>
</html>
下载：：
<%@ language = vbscript%>
<%option explicit%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>下载的后台</title>
<!-- 上面的页面通过request.querystring("filepath")把文件的地址传过来-->
</head>
<body>
<%
response.Expires = 0
dim upload
set upload = server.createobject("persits.upload")
dim path
path = request.querystring("filepath")
path = path + "\" + request.querystring("filename")
Upload.SendBinary Path, True, "application/octet-binary", True
set upload=nothing
response.write "你已经成功的下载了文件"
%>
</body>
</html>
<form name = "Layer" METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload_file.asp">
选择你要上传的文件:<input type="file" name="uploadfile" size = "40">
<input type="submit" name="sub" value="提交" onClick="return datacheck();">
</form>
<%@ language = vbscript%>
<%option explicit%>
<!-- #include file = "adovbs.inc" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim conn
set conn=Server.CreateObject("ADODB.Connection")
conn.connectionstring="driver={Microsoft Access Driver (*.mdb)};"&"DBQ="&Server.MapPath("fh&wqz.mdb")
%>
<title >上传后台</title>
<%
function changetime(a)
if len(a) = 1 then
changetime = "0" + a
else
changetime = a
end if
end function
Function Bytes2bStr(vin)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
With BytesStream
.Type = adTypeText
.Open
.WriteText vin
.Position = 0
.Charset = "GB2312"
.Position = 2
.StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing
Bytes2bStr = StringReturn
End Function
%>
</head>
<body>
<%
dim upload
set upload = server.createobject("Persits.Upload")
upload.Setmaxsize 30000000,true
on error resume next
upload.save '把文件写到缓存中
if err.number = 8 then
response.write "你的文件太大了,不能超过2m"
response.end
else
dim file
set file = upload.files("uploadfile")
if strcomp(file.ext,".zip")=0 or strcomp(file.ext,".rar")=0 then
'----------------------上传文件------------------------------------------------
dim filename,path
filename = file.filename
'------------------构造文件名部分
path = server.mappath("..")
path = path&"upload\"&cstr(upload.form("LayerOne"))&"\"&cstr(upload.form("LayerTwo"))
'path = ""
'path = "upload\"&cstr(upload.form("LayerOne"))&"\"&cstr(upload.form("LayerTwo"))
upload.createdirectory path,true
'-------------------应该把这条记录加到哪个表里-------------------------------
dim sql
dim rs ,TypeTwo,temptable
set rs = server.createobject("adodb.recordset")
TypeTwo = upload.form("LayerTwo")
sql = "select Table from LayerTwo where TypeTwo like '"&TypeTwo&"'"
conn.open
rs.open sql,conn,1,3
if rs("Table") = "1" then
temptable = "StudentFileInfor"
elseif rs("Table") = "2" then
temptable = "TeachFileInfor"
else
temptable = "PersonalDocument"
end if
rs.close
sql = "select FileId from " + temptable
sql = sql + " where FileId Like "+"'"+TypeTwo+"%"+"'"
rs.open sql,conn,1,3
'-------------------确定fileid---------------------------------
dim temp,newfileid,a
newfileid = 0
if rs.eof then
newfileid = TypeTwo&"1"
else
do while not rs.eof
a = rs("FileId")
temp = cint(mid(rs("FileId"),5,len(rs("FileId"))-4))+1
rs.movenext
if rs.eof then
newfileid = TypeTwo&temp
elseif temp <> cint(mid(rs("FileId"),5,len(rs("FileId"))-4)) then
newfileid = TypeTwo&temp
end if
loop
end if
rs.close
conn.close
'---------------------------往表中增加记录---------------------------------------
conn.mode = admodereadwrite
conn.open
rs.open temptable,conn,,,adcmdtable
rs.addnew
rs("FileId") = cstr(newfileid)
rs("Title") = trim(cstr(upload.form("title")))
rs("Uploader") = trim(session("id"))
if upload.form("writer")="" then
rs("Writer") = trim(session("id"))
else
rs("Writer") = trim(upload.form("writer"))
end if
rs("FileName") = filename
rs("UploadDate") = date()
rs("Subject") = trim(upload.form("subject"))
rs("Grade") = trim(upload.form("grade"))
rs("QueryInfor") = trim(upload.form("queryinfor"))
rs("ContentInShort") = trim(upload.form("contentinshort"))
rs("ConserveAdress") = path
filename =cstr(year(now())) + changetime(cstr(month(now()))) + changetime(cstr(day(now))) + changetime(cstr(hour(now))) + changetime(cstr(minute(now))) + changetime(cstr(second(now))) +newfileid+file.ext' filename
rs("ConserveName") = filename
if (rs.Supports(adupdate)) then
rs.Update
file.saveas path&"\"&filename
response.write " <center>你已经成功的将文件上传!</center><br>"
response.write "<br><center><a href = 'rightframe1.asp'>返回</a></center><br>"
else
response.write("往文件表中加入信息时有错误.")
end if
rs.close
conn.close
set rs = nothing
set conn = nothing
else
response.write "文件格式不对,只支持.rar和.zip格式的文件"
end if
end if
%>
</body>
</html>
下载：：
<%@ language = vbscript%>
<%option explicit%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>下载的后台</title>
<!-- 上面的页面通过request.querystring("filepath")把文件的地址传过来-->
</head>
<body>
<%
response.Expires = 0
dim upload
set upload = server.createobject("persits.upload")
dim path
path = request.querystring("filepath")
path = path + "\" + request.querystring("filename")
Upload.SendBinary Path, True, "application/octet-binary", True
set upload=nothing
response.write "你已经成功的下载了文件"
%>
</body>
</html>
