<!-- #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")
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