文件上传问题

lei4546 2003-12-16 05:44:40
文件上传要服务器的一个目录,并且把目录放到数据库里!
给我点代码研究研究哈^_^
...全文
31 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
oldmht 2003-12-16
  • 打赏
  • 举报
回复
<!-- #include file=db/conn.asp -->
<%
function subStr(mainStr,startStr,endStr)
dim iStart,iEnd
iStart=instr(mainStr,startStr)
if iStart<>0 then
iEnd=instr(iStart+1,mainStr,endStr)
subStr=mid(mainStr,iStart+len(startStr)+5,iEnd-iStart-len(startStr)-7)
end if
end function

dim filePath
dim fileName
dim imageData
dim imageSize
dim imageFile,imageFile2
dim imageStart


set imageFile = CreateObject("ADODB.Stream")
set imageFile2 = CreateObject("ADODB.Stream")
Set stm = CreateObject("ADODB.Stream")


imageSize=Request.TotalBytes
imageData=Request.BinaryRead(imageSize)

bnCRLF=chrB(13) & chrB(10)
Divider = LeftB(imageData, InStrB(imageData, bnCRLf) - 1)
dataStart=INSTRB(imageData,bnCRLF & bnCRLF)+4
dataLen=INSTRB(DataStart+1,imageData,Divider)-DataStart-2


dim rndStr,fileTime
fileTime=now
filePath=session("webRoot")&"\images_upload\"

rndStr=""
randomize
for i=1 to 4
rndStr=rndStr&""&int(rnd*9)
next

fileName=year(fileTime)&month(fileTime)&day(fileTime)&hour(fileTime)&minute(fileTiem)&rndStr

imageFile.mode=3
imageFile.type=1
imageFile.open
imageFile2.mode=3
imageFile2.type=1
imageFile2.open


imageFile.write imageData

imageFile.position=dataStart-1
imageFile.CopyTo imageFile2,dataLen


dim formStr
stm.Charset = "gb2312"
stm.mode=3
stm.type=1
stm.Open
imageFile.position=dataStart+dataLen
imageFile.CopyTo stm,1000
imageFile.close
stm.Position = 0
stm.type=2
formStr=stm.ReadText
stm.close


dim picFileName,picTitle,fileSize,oldFileName,id,oldFileSize

picFileName=right(subStr(formStr,"picFileName2","--------"),4)
picTitle=trim(subStr(formStr,"picTitle","--------"))
if picTitle="" then picTitle="未命名"
id=cint("0"&subStr(formStr,"id2","--------"))
if dataLen<>0 then

fileSize=int(dataLen/4096)*4
if (dataLen mod 4096)<>0 then fileSize=fileSize+4
if fileSize=12 or fileSize=20 then fileSize=fileSize+4

if fileSize>session("sellerSpaceSize") then
%>
<script>
alert('您的空间已经不够上传此文件,请与管理员联系')
history.back()
</script>
<%
response.End()
else

session("sellerSpaceSize")=cint(session("sellerSpaceSize"))-fileSize
conn.execute "update sellers set spaceSize="&session("sellerSpaceSize")&" where id="&session("sellerId")



dim eName(5),nameCheck
nameCheck=0
eName(1)=".gif"
eName(2)=".jpg"
eName(3)=".jpge"
eName(4)=".png"
eName(5)=".bmp"

for i=1 to 5
if picFileName = eName(i) then
nameCheck=1
end if
next

if nameCheck<>1 then picFileName=".jpg"

fileName=fileName+picFileName
imageFile2.SaveToFile filePath&fileName,2

rs.open "pro_pics",conn,1,3
rs.addnew
rs("parentId")=session("sellerId")
rs("productId")=id
rs("title")=picTitle
rs("picFileName")=fileName
rs("picFileSize")=fileSize
rs.update
rs.close
conn.close

end if

end if
imageFile2.close
%>
<script>
history.back()
</script>
DeltaCat 2003-12-16
  • 打赏
  • 举报
回复
http://www.5013.net/file/sjcatstudio.rar

28,409

社区成员

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

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