台灣最大的程式設計社群網站
線上人數
1748
 
會員總數:356321
討論主題:191750
免費程式:2735
歡迎您免費加入會員
首頁 >> 程式下載 >> 程式資料檢視
程式資料
名稱 丁書記上傳程式(繁化無錯版)
類別 檔案管理 使用者介面 網頁系統
程式語言 ASP 開發狀態 100% - 成熟
語系 其他 難易度 難度三(適合一般程度)
原創者 灌水公司  原創者網址  
提供者 東東 執行網址  
版權 開放源碼 評分
(共有 12 人投票,總分 53)
我要評分 : 不好<- 1 2 3 4 5 -> 很好   這個程式不能有問題歐! 加入我的收藏夾!
說明
朅朅
  朅朅              ╭灨
◆████◆            曭F東繁體化-修改-美化-完提供給網友下載使用-        
  █☉☉█              鷦lom14@yahoo.com.tw  http://java.b6.to  你要的java
  █████████◣★                                東東  carey       
  █••███████  ╰灨
  ◥██◤██████
     ▼   ▊ ▊  ▊ ▉

丁書記上傳程序Ver1.2

klom已經把簡體問題全部修正...現在已經沒問題了..祝大家使用愉快!!!

*****************
修改了部分程序,增加了後台管理,具體功能如下:

1.增加了限制文件上傳類型功能,具體設置請登陸後台
2.增加了限制文件上傳大小功能,具體設置請登陸後台
3.可以使用FSO在刪除數據庫記錄的同時從服務器上刪除文件
4.可以編輯某文件的數據記錄,包括文件名,文件大小,文件類型,文件路徑等
5.可以實時反饋文件存在與否
管理登入由Admin_Login.asp登入
帳號密碼為admin
登入後可以修改上傳文件的大小限制
附註:
1.後台管理帳戶及密碼以明碼保存於數據庫CONFIG表中的AdminName和AdminPass兩個字段(此舉是為方便初學者),有能力者可以自行修改,或選擇加密
2.本程序需要FileSystemObject支持,如果您的服務器不支持FileSystemObject,很遺憾,您不能使用這個程序

後續版本正在緊張開發中。在後續版本中,將加入批量上傳、進度顯示等功能

                        
                        灌水公司榮譽出品(2003-8-22)
                        本版本數據庫、代碼、文檔由starlove與CEO編寫整理。
              &nbs
預覽畫面
目前尚無任何預覽畫面
檔案列表
檔名 : 20040411235328659A.zip  下載數:799
檔案大小:237955 Bytes  上傳時間:2004-04-11 23:53
下載此檔案
--
丁書記上傳程式(繁化無錯版)
網友回應  
如要發送訊息請先登入.
ADODB.Stream (0x800A0BBC) Vincent [2009-10-01 11:25]
錯誤類型:
我的出現在這個 請問要怎麼辦?
ADODB.Stream (0x800A0BBC)
寫入檔案失敗。
Config.asp, line 111



為何將檔案放置到server上面會出錯 Joshua [2008-07-23 21:22]
目前在自己電腦上測試上傳OK,但是將它放置到server上面去,修改上傳檔案大小為20MB,可是還是只能上傳200K左右的檔案容量,一超過就會出現下面問題:
-------------------------------------------------
網站無法顯示該網頁
HTTP 500
最有可能的原因:
網站維護中。
該網站發生程式設計錯誤。

您可以嘗試的方式:
重新整理畫面。

回到上一頁。

其他資訊

此錯誤 (HTTP 500 內部伺服器發生錯誤) 表示您瀏覽的網站發生伺服器錯誤,導致網頁無法顯示。

如需有關 HTTP 錯誤的其他資訊,請參閱 [說明]。

---------------------------------------------------------------------
請問有辦法解決嗎?

HELP~如何更改上傳大小啊(上傳的極限卻只有200K左右)  [2006-03-21 11:51]
附件
INDEX.ASP
<!------------ 插入控制碼區段開始 ------------>
<script language="JavaScript1.2">

function move(x) {
if (document.all) {
object1.style.pixelLeft += x;
object1.style.visibility = "visible"}
else if (document.layers) {
document.object1.left += x;
document.object1.visibility = "show"}};

function makeStatic() {
if (document.all) {object1.style.pixelTop=document.body.scrollTop+20} //指定選單的上緣位置
else {eval(document.object1.top=eval(window.pageYOffset+20));}
setTimeout("makeStatic()",0);}
</script>

<style>
<!--

.hl {
Background-Color : yellow;
Cursor:hand;
}
.n {
Cursor:hand;
}
-->
</style>
<!------------ 插入控制碼區段結束 ------------>
<title>☆☆☆☆★人狗情未了★☆☆☆☆</title>
</head>

<body>


<LAYER visibility="hide" top="20" name="object1" bgcolor="black" left="0" onmouseover="move(132)" onmouseout="move(-132)"> <script
language="JavaScript1.2">

function positionmenu(){
move(-132)
}

if (document.all) {document.write('<DIV ID="object1" style="visibility:hidden;cursor:hand; Position : Absolute ;Left : 0px ;Top : 20px ;Z-Index : 20" onmouseover="move(132)" onmouseout="move(-132)">')}
</script> </p>

<table border="0" cellpadding="0" cellspacing="1" width="150" bgcolor="#000000">
<tr>
<td bgcolor="#0099FF"><font size="4" face="Arial"><b>Menu</b></font></td>
<script language="JavaScript1.2">
document.write('<td align="center" rowspan="100" width="16" bgcolor="#FF6666"><span style="font-size:13px"><p align="center"><font face="Arial Black">S<br>I<br>D<br>E<br>M<br>E<br>N<BR>U</font></p></span></TD>')
</script>

</tr>
<script language="JavaScript1.2">
<!--
if (document.all||document.layers) {
makeStatic();}

var text=new Array();
var thelink=new Array();

//configure thelinks below. Extend as desired

text[0]="最新消息";
text[1]="狗狗資料";
text[2]="狗狗照片";
text[3]="狗狗內容";
text[4]="養狗秘技";
text[5]="留言版";
text[6]="好站連結";

thelink[0]="http://210.60.143.89/b64/index.asp";
thelink[1]="http://210.60.143.89/b64/inf.htm";
thelink[2]="http://210.60.143.89/b64/photo.htm";
thelink[3]="http://210.60.143.89/b64/co.htm";
thelink[4]="http://210.60.143.89/b64/be.htm";
thelink[5]="http://210.60.143.89/b64/gb/index.asp";
thelink[6]="http://210.60.143.89/b64/link.htm";


//注意上下兩者排列順序的值須相同

//enter target of above links
//Valid values are '', 'new', or '_blank' (where 'framename' is the name of the frame you wish the links to target)
var linktarget=''

///DO NOT EDIT BELOW THIS LINE////////////////

function navigateie(which){
if (linktarget=='')
window.location=thelink[which]
else if (linktarget=='new')
window.open(thelink[which])
else{
temp_var=eval("window.parent."+linktarget)
temp_var.location=thelink[which]
}
}

for (i=0;i<=text.length-1;i++)
if (document.all) {document.write('<TR><TD height=20 bgcolor=white onclick="navigateie('+i+')" onmouseover="className=\'hl\'" onmouseout="className=\'n\'"><FONT SIZE=2 FACE=ARIAL> '+text[i]+'</FONT></TD></TR>')}
else {document.write('<TR><TD bgcolor="white"><ILAYER><LAYER HEIGHT="18" onmouseover="this.bgColor=\'yellow\'" onmouseout="this.bgColor=\'white\'" width=131><FONT SIZE=2 FACE=ARIAL> <A HREF="'+thelink[i]+'" target="'+linktarget+'" id="nounderline">'+text[i]+'</A></FONT></LAYER></ILAYER></TD></TR>')}

//-->
</script>

<tr>
<td bgcolor="#0099FF"></td>
</tr>
</table>
<script language="JavaScript1.2">
if (document.all) {document.write('</DIV>')}
window.onload=positionmenu
</script>
</LAYER>
<!------------ 插入控制碼區段結束 ------------>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<!--#include file="Config.asp"-->
<%
session("Admin") = ""
%>
<html>
<head>
<META http-equiv="Content-Type" content="text/html; charset=big5">
<title></title>
<link href="upstyle.css" rel="stylesheet" type="text/css">
<script src="Images/up.Js"></script>
<style type="text/css">
<!--
.style1 {color: #009999}
.style2 {color: #000000}
-->
</style>
</head>

<body background="../images/mainbg.gif" leftmargin="0" topmargin="0">
<div align="center">
<center>
<table width="771" border="0" cellpadding="0" cellspacing="0" bgcolor="#EDFAEE" style="border-collapse: collapse" bordercolor="#111111" height="32">
<tr>
<td height="7" width="771"> </td>
</tr>
<tr>
<td height="23" bgcolor="#FF9900" class="text" width="771">
當前位置::::德霖技術學院-子2C ::: 同學檔案上交分享區 </td>
</tr>
<tr>
<td height="2" bgcolor="#cccccc" width="771"></td>
</tr>
</table>
</center>
</div>
<table width="771" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="771"> </td>
</tr>
<tr>
<td height="1" bgcolor="#CCCCCC" width="771"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#0153A3">
<tr>
<td height="25"> <%
set frst = Server.CreateObject("adodb.recordset")
sql = "select * from info order by uploadtime desc"
frst.open sql,myconn,1,1
fcount = frst.recordcount
if fcount > 0 then
''顯示參數
dim tbbgcolor
''分頁參數
dim maxperpage,pages,page
maxperpage = 5
frst.pagesize = maxperpage
pages = frst.pagecount
''頁面參數設置
page = Request.QueryString("page")
if not isnumeric(page) then page = 1 else page = cint(page)
if page < 1 then page = 1
if page > pages then page = pages
frst.absolutepage = page
''顯示內容
'Set Isize=Server.CreateObject("WinImg.ImgSize")
for i = 1 to maxperpage
if frst.eof then exit for
if i mod 2 = 0 then tbbgcolor = "" else tbbgcolor = "#0066cc"
fid = frst("id").Value
ftitle = frst("fileTitle").Value
fdesc = frst("fileDesc").Value
ftype = frst("fileType").Value
fpath = frst("filePath").Value
fsize = frst("filesize").Value
fhits = frst("hits").Value
fuploadtime = frst("uploadTime").Value
'FileNameStr=Server.Mappath(fpath)
'Isize.GetImgSize Cstr(FileNameStr)
%>
<div align="center">
<center>
<table width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor="#EDFAEE" style="border-collapse: collapse" bordercolor="#111111">
<tr class="text">
<td width="150" bgcolor="#98C9A8"><div align="right">
<font color="#111111">文件名稱:</font></div></td>
<td bgcolor="#98C9A8"><a href="<%=fpath%>" target="_NEWwIN"><%=ftitle%><font color="#111111">( 文件大小:<%=fsize%> bytes)</font></a><font color="#111111">
</font> </td>
<td align="right" bgcolor="#98C9A8"></td>
</tr>
<tr class="text">
<td width="150" bgcolor="#98C9A8"><div align="right">
<font color="#111111">文件類型:</font></div></td>
<td colspan="2" bgcolor="#98C9A8"><%=ftype%></td>
</tr>
<tr class="text">
<td width="150" bgcolor="#98C9A8"><div align="right">
<font color="#111111">上傳日期:</font></div></td>
<td colspan="2" bgcolor="#98C9A8"><%=fuploadtime%></td>
</tr>
<tr class="text">
<td width="150" bgcolor="#98C9A8"><div align="right">
<font color="#111111">說明:</font></div></td>
<td colspan="2" bgcolor="#98C9A8"><%=fdesc%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="1"></td>
<td height="1" colspan="2"></td>
</tr>
</table>
</center>
</div>
<%
frst.movenext
next
else
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr class="text">
<td bgcolor="#EDFAEE"><font color="#111111">還沒有上傳的內容!</font></td>
</tr>
</table>
<%
end if
frst.close
set frst = nothing
myconn.close
set myconn = nothing
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr class="text">
<td align="center">
<%
If Page > 1 Then Response.Write ("<a href='?page=1'>首頁</a><a href='?page="& Page - 1 &"'>上一頁</a>")
If page < pages Then Response.Write (" <a href='?page="& Page + 1 &"'>下一頁</a> <a href='?page="& Pages &"'>末頁</a>")
%></td>
</tr>
</table></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#003366">
<tr>
<td height="25">
<div align="center">
<center>
<table width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor="#EDFAEE" style="border-collapse: collapse" bordercolor="#111111"><form action="SaveUpload.asp" method="post" enctype="multipart/form-data" name="form1">
<tr bgcolor="#006699" class="text">
<td width="33%" height="25" bgcolor="#FFFFFF"> <div align="left">
<font color="#111111"><strong>上傳內容</strong> </font>
</div></td>
<td bgcolor="#FFFFFF"><%
Response.Write " 允許上傳的文件類型:<br> "
Set Fs = Server.CreateObject("Scripting.FileSystemObject")
For Each str In OKAr
If Fs.FileExists(Server.MapPath("Images\"& Str &".gif")) Then
Response.Write "<img src='Images/" & str & ".gif' alt='" & str & "文件'> "
Else
Response.Write "<img src='Images/X.gif' alt='" & str & "文件'> "
End If
Next
Set Fs = Nothing
Response.Write "<br> 允許上傳的文件最大:"&OKsize / 1024&"KB"
%></td>
</tr>
<tr class="text">
<td width="33%" bgcolor="#FFFFFF"><div align="right">
<font color="#111111"><strong>文件名稱:</strong></font></div></td>
<td bgcolor="#FFFFFF"><font color="#111111"><input name="filetitle" type="text" class="TextBoxT" size="25">
<select name="filetype" class="TextBoxT" id="filetype">
<option value="學校作業">學校作業</option>
<option value="程式檔案">程式檔案</option>
<option value="文章分享">文章分享</option>
<option value="各種照片">各種照片</option>
<option value="其他檔案">其他檔案</option>

</select> </font> </td>
</tr>
<tr class="text">
<td valign="top" bgcolor="#FFFFFF"><div align="right">
<font color="#111111"><strong>上傳的文件:</strong></font></div></td>
<td bgcolor="#FFFFFF"><font color="#111111"><input name="filedata" type="file" class="TextBoxT" id="filedata" size="27"></font></td>
</tr>
<tr class="text">
<td valign="top" bgcolor="#FFFFFF"> <div align="right">
<font color="#111111"><strong>文件說明:</strong><br>
</font>
</div></td>
<td bgcolor="#FFFFFF"><font color="#111111"><textarea name="filedesc" cols="36" rows="4" class="TextBoxT" id="filedesc"></textarea></font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF"><input type="submit" name="Submit" value="上傳內容"></td>
</tr></form>
</table>
</center>
</div>
</td>
</tr>
</table>
<div align="center">
<center>
<table width="778" border="0" cellpadding="0" cellspacing="0" bgcolor="#EDFAEE" style="border-collapse: collapse" bordercolor="#111111" height="23">
<tr>
<td height="23">
<p align="center"><font size="2"><span class="style1">:<span class="style2">德霖技術學院-子2C
</span></span><a href="Admin_Login.asp"><font color="#111111">檔案管理</font></a></font></td>
</tr>
</table>
</center>
</div>
</body>
</html>
saveUpload.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<!--#include file="Config.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"你要上傳的文件大小超出程序限制,請<a href=index.asp>返回</a>修改重試"
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&"<br>"
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 & "文件名稱:空<br>"
else
Msg = Msg & "文件名稱:"&ftitle&"<br>"
end if
ftype = myrequest("fileType")
Msg = Msg & "文件類型:"&ftype&"<br>"
filedata = myrequest("filedata")
filesize = lenb(filedata)
if filesize = 0 then
Msg = Msg & "上傳文件:沒有<br>"
else
filename = GetFileName("filedata")
''限制加入的類型 *.asp
file_ctype = GetContentType("filedata")
Msg = Msg & "上傳文件:"&filename&" "
Msg = Msg & "數據流:"&file_ctype&" "
Msg = Msg & "文件長度:"&filesize&"<br>"
end if
filedesc = myrequest("fileDesc")
Msg = Msg & "文件說明:"&filedesc&"<br><br>"

FileTypeName = GetFileTypeName(FileName)
If IsvalidFile(FileTypeName)=False Then
Msg = "文件類型非法,不允許上傳"&FileTypeName&"文件!"
Exit Sub
End If

if ftitle<>"" and fileSize > 0 and UploadSize=True then
''保存數據到數據庫
dim basepath,sql
basepath = "./boy/"
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 & "文件已經上傳<br>"
else
Msg = Msg & "上傳失敗! "&ErrorMsg&"<br>"
end if
myconn.close()
set myconn = nothing

End Sub
''文件上傳已經寫入數據完畢,提示信息出口為變量msg
SaveData
%>
<html><head>
<META http-equiv="Content-Type" content="text/html; charset=big5">
<title>☆☆☆☆★人狗情未了★☆☆☆☆</title>
<meta http-equiv="refresh" content="10;URL=Index.asp">
<link href="upstyle.css" rel="stylesheet" type="text/css">
</head>

<body background="../images/mainbg.gif" leftmargin="0" topmargin="0">
<div align="center">
<center>
<table width="778" border="0" cellpadding="0" cellspacing="0" bgcolor="#EDFAEE" style="border-collapse: collapse" bordercolor="#111111" height="1">
<tr>
<td height="1"> </td>
</tr>
<tr class="text">
<td height="23" bgcolor="#FF9900">當前位置::::德霖技術學院-子2C ::: 同學檔案上交分享區 >>> 保存數據</td>
</tr>
<tr>
<td height="2" bgcolor="#cccccc"></td>
</tr>
</table>
</center>
</div>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img border="0" src="../pic/WALL42.jpg" width="776" height="158"></td>
</tr>
<tr>
<td height="1" bgcolor="#CCCCCC"></td>
</tr>
</table>
<div align="center">
<center>
<table width="778" border="0" cellpadding="0" cellspacing="0" bgcolor="#EDFAEE" style="border-collapse: collapse" bordercolor="#111111" height="132">
<tr>
<td height="132">
<table width="98%" border="0" cellspacing="0" cellpadding="3" bgcolor="#EDFAEE" style="border-collapse: collapse" bordercolor="#111111">
<tr class="text">
<td bgcolor="#FFFFFF"><font color="#111111"><strong>提示訊息: 上傳成功~</strong></font></td>
</tr>
<tr class="text">
<td bgcolor="#FFFFFF"> <%=msg%><font color="#111111"> </font> </td>
</tr>
<tr class="text">
<td bgcolor="#FFFFFF"><div align="center"><font color="#111111">本頁將在10秒後返回 如果您的瀏覽器沒有反應,請</font><a href=Index.asp><font color="#111111">點擊此處返回</font></a></div></td>
</tr>
</table></td>
</tr>
</table>
</center>
</div>
</body>
</html>
Config.asp
<%
''Option Explicit
Server.ScriptTimeout = 999 '要上傳較大的文件就要開啟此項

Dim myconn,connstr
connstr = "Provider=Microsoft.Jet.Oledb.4.0;data source="&Server.MapPath("Upload.mdb")
set myconn = Server.CreateObject("adodb.connection")
myconn.open connstr

Dim OKAr
Dim OKsize
Set rs = myconn.execute("select * from Config")
'***************設置允許上傳的文件類型********************

OKAr = split(rs(0),",")

'***********************************

'***************設置允許上傳的文件大小********************

OKsize = Clng(rs(1))

'***********************************

Function Bytes2bStr(vin)
if lenb(vin) =0 then
Bytes2bStr = ""
exit function
end if
''二進制轉換為字符串
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
BytesStream.Type = 2
BytesStream.Open
BytesStream.WriteText vin
BytesStream.Position = 0
BytesStream.Charset = "big5"
BytesStream.Position = 2
StringReturn = BytesStream.ReadText
BytesStream.close
Set BytesStream = Nothing
Bytes2bStr = StringReturn
End Function

Function Myrequest(fldname)
''取表單數據
''支持對同名表單域的讀取
dim i
dim fldHead
dim tmpvalue
for i = 0 to loopcnt-1
fldHead = fldInfo(i,0)
if instr(lcase(fldHead),lcase(fldname))>0 then
''表單在數組中
''判斷該表單域內容
tmpvalue = FldInfo(i,1)
if instr(fldHead,"filename=""")<1 then
Tmpvalue = Bytes2bStr(tmpvalue)
if myrequest <> "" then
myrequest = myrequest & "," &tmpvalue
else
MyRequest = tmpvalue
end if
else
myrequest = tmpvalue
end if
end if
next
end function
function GetFileName(fldName)
''都取原上傳文件文件名
dim i
dim fldHead
dim fnpos
for i = 0 to loopcnt-1
fldHead = lcase(fldInfo(i,0))
if instr(fldHead,lcase(fldName)) > 0 then
fnpos = instr(fldHead,"filename=""")
if fnpos < 1 then exit for
fldHead = mid(fldHead,fnpos+10)
''表單內容
GetFileName = mid(fldHead,1,instr(fldHead,"""")-1)
GetfileName = mid(GetFileName,instrRev(GetFileName,"\")+1)
end if
next
end function
function GetContentType(fldName)
''讀取上傳文件的類型
''限定讀取文件域的內容
dim i
dim fldHead,cpos
for i = 0 to loopcnt - 1
fldHead = lcase(fldInfo(i,0))
if instr(fldHead,lcase(fldName)) > 0 and instr(fldHead,"filename=""") >0 then
''讀取contentType
cpos = instr(fldHead,"content-type: ")
GetContentType = mid(fldHead,cpos+14)
end if
next
end function
Sub SaveToFile(fd,path,fname)
''保存文件''參數說明:''fd:byte()類型數據,文件內容''path:保存路徑後面必須帶"/"''fname:文件名
dim Fstream
Set FStream = Server.CreateObject("adodb.stream")
fstream.mode = 3
fstream.type = 1
fstream.open
fstream.position = 0
fstream.Write fd
fstream.savetofile Server.Mappath(path&fname),2
fstream.close
set fstream = nothing
end sub

Function GetFileTypeName(Fldname)
If instr(Fldname,".") > 0 Then
GetFileTypeName = right(Fldname,3)
Else
Response.Write "文件名非法,請修改後再上傳"
Response.End()
End If
End Function

Function IsvalidFile(TypeName) '限制上傳文件類型
IsvalidFile = False
Dim GName
For Each GName in OKAr
If TypeName = GName Then
IsvalidFile = True
Exit For
End If
Next
End Function

Sub CheckLogin()
If Session("Admin") <> "OK" Then
Logined = False
Response.Write ("未通過身份驗證,請<a href=Index.asp>返回</a>")
Response.Redirect ("Index.asp")
Response.End()
End If
End Sub

%>

檔名重複怎辦 hyde [2005-11-21 11:00]
當我傳了兩個檔名一樣的檔案 文件會被覆蓋ㄟ 麻煩回應一下該怎辦吧