?? cz-upfileok.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="CZ-UPFILEConfig.asp"-->
<%
''主程序開始部分
dim formsize,formdata,Msg
formsize = Request.TotalBytes
formdata = Request.BinaryRead(formsize)
UploadSize=True
If formsize = 0 or Formsize > OKsize Then
UploadSize=False
Response.Write"<font size=2>你要上傳的文件大小超出程序限制,請<a href=index.asp>返回</a>修改重試</font>"
Response.End
End If
dim sinfo_Stream
Set Sinfo_Stream = Server.CreateObject("adodb.stream")
Sinfo_Stream.Type = 1 ''2進制流
Sinfo_Stream.Mode = 3 ''讀寫模式
Sinfo_Stream.Open
Sinfo_Stream.Write formdata ''保存二進制內容到流對象
''分離數據變量
dim VbEnter
dim spStr,lenOfspStr,bpos
dim loopcnt,exitflag,ppoint,npoint
''保存數據變量
dim FldData,fldHeadStr,infldpos
dim databpos,datalen
dim FldInfo(15,1)
''fldInfo(0)表單頭內容
''fldInfo(1)表單數據
VbEnter = chrb(13)&chrb(10)''讀取第一個VbEnter位置
bpos = Instrb(formdata,VbEnter)
SpStr = midb(formdata,1,bpos+1) ''包含了一個0d0a
LenOfspStr = lenb(Spstr)
ppoint = LenOfspStr+1 ''位置指針,指向每一個表單域內容的開始位置
formdata = midb(formdata,ppoint)
loopcnt = 0 ''表單元素
do
bpos = instrb(formdata,spStr) ''分割位置
npoint = (ppoint+bpos+lenofspstr-1) ''指向下一表單開始位置
if bpos < 1 then
fldData = midb(formdata,1,instrb(formdata,leftb(spStr,lenOfspstr-2))-1)
bpos = lenb(fldData)+1
exitflag = true
else
FldData = leftb(formdata,bpos-1)
formdata = midb(formdata,bpos+LenOfspstr)
end if
infldpos = instrb(fldData,vbEnter&vbEnter)
fldHeadStr = bytes2bstr(midb(fldData,1,infldpos-1))
fldInfo(loopcnt,0) = fldHeadStr ''表單頭
''Response.Write fldHeadStr&""
databpos = (ppoint+infldpos-1+4)
Sinfo_Stream.Position = databpos-1
datalen = (bpos-infldpos-6)
if datalen = 0 then
fldInfo(loopcnt,1) = ""
else
fldInfo(loopcnt,1) = Sinfo_Stream.Read(datalen)
end if
ppoint = npoint
loopcnt = loopcnt + 1
loop until exitflag = true
Sinfo_Stream.close
Set Sinfo_Stream = Nothing
''以上程序數據處理過程
''寫入數據庫并處理文件上傳開始
Sub SaveData()
ftitle = MyRequest("filetitle")
Msg = ""
if ftitle = "" then
Msg = Msg & "<tr><td colspan=2 bgcolor=ffffff>文件名稱：空; </td></tr>"
else
Msg = Msg & "<tr><td bgcolor=ffffff width=200>文件名稱："&ftitle&"; </td>"
end if
ftype = myrequest("fileType")
Msg = Msg & "<td bgcolor=ffffff>文件類型："&ftype&"</td></tr>"
filedata = myrequest("filedata")
filesize = lenb(filedata)
if filesize = 0 then
Msg = Msg & "上傳文件：沒有"
else
filename = GetFileName("filedata")
''限制加入的類型 *.asp
file_ctype = GetContentType("filedata")
Msg = Msg & "<tr><td bgcolor=ffffff width=200>上傳文件："&filename&" </td>"
Msg = Msg & "<td bgcolor=ffffff>數據流："&file_ctype&" </br></td></tr>"
Msg = Msg & "<tr><td colspan=2 bgcolor=ffffff>文件長度："&filesize&" 字節 </td></tr>"
end if
filedesc = myrequest("fileDesc")
Msg = Msg & "<tr><td colspan=2 bgcolor='ffffff'>文件說明："&filedesc&"</td><tr>"
FileTypeName = GetFileTypeName(FileName)
If IsvalidFile(FileTypeName)=False Then
Msg = "<font size=2>文件類型非法，不允許上傳"&FileTypeName&"文件！</font>"
Exit Sub
End If
if ftitle<>"" and fileSize > 0 and UploadSize=True then
''保存數據到數據庫
dim basepath,sql
basepath = "upfile/"
sql = "insert into info (filetitle,filedesc,filetype,filecontenttype,filepath,filesize) values ('"
sql = sql & ftitle &"','"&filedesc&"','"&ftype&"','"&file_ctype&"','"&basepath&filename&"',"&filesize&")"
myconn.Execute(sql)
Call SavetoFile(filedata,basepath,filename)
Msg = Msg & "<tr><td colspan=2 bgcolor=ffffff background=../images/pics/tile_sub.gif height=25><center><a href='cz-upfileindex.asp'><img src=../images/pics/back.gif border=0></a></td></tr>"
else
Msg = Msg & "<font size=2>＜×對不起！處理數據失敗.文件上傳失敗！×＞ "&ErrorMsg&"</font>"
end if
myconn.close()
set myconn = nothing
End Sub
''文件上傳已經寫入數據完畢，提示信息出口為變量msg
SaveData
%>
<html>
<head>
<title>index</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<br>
<br>
<table width="400" height="200" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="336699" id="Table_01">
<tr>
<td height="25" background="../images/pics/tile_sub.gif" colspan="2"><div align="center"><font color="#FFFFFF"><strong>文 件 上 傳 成 功 </strong> </font> </div></td>
</tr>
<tr>
<td> <font color="#333333"><%=msg%></font></td>
</tr>
</table>
<meta http-equiv="refresh" content="8;URL=cz-upfileindex.asp">
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -