?? upload.asp
字號:
<%
Dim upl, NewFileName
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
%>
<head>
<STYLE>
<!--
.border { background-color: #D0D7AF; border-left: 1 solid #ECEFDE;
border-right: 1 solid #808000; border-top: 1 solid #EFF1E4;
border-bottom: 1 solid #808000 }
p, td, input, select { font-size: 9pt }
A:visited {TEXT-DECORATION: none;color:#000000}
A:active {TEXT-DECORATION: none;color:#ff0000}
A:hover {TEXT-DECORATION: underline;color:#ff0000}
A:link {TEXT-DECORATION: none;color:#000000}
.button01 { background-color: #D0D7AF; border: 1 solid #999966 }
-->
</STYLE>
</HEAD>
<BODY BGCOLOR="#EAEDDC" TOPMARGIN="0" LEFTMARGIN="0">
<TABLE BORDER="0" WIDTH="100%" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD WIDTH="100%" HEIGHT="25" CLASS="border">
<P ALIGN="center">文件添加成功。為了他人能夠瀏覽文件內(nèi)容，必須上傳相關(guān)格式文件！！！</TD>
</TR>
<TR>
<TD WIDTH="100%"><br><br><br>
<P ALIGN="center" style="margin: 12">
<%
If Len(upl.Form("File1")) > 0 Then
NewFileName = "/document/Uploads/" & upl.ExtractFileName(upl.Form("File1"))
set conn=server.createobject("adodb.connection")
provider="provider=microsoft.jet.oledb.4.0;"
DBPath ="data source=" & Server.MapPath("document.mdb")
conn.Open provider & DBPath
'connstr="driver={SQL server};server=bdxf2000;uid=sa;pwd=sql2000;database=documents"
'conn.open connstr
Set rs=Server.CreateObject("ADODB.Recordset")
spl="select top 1 * from document order by id desc"
rs.open spl,conn,3,2
nnnn=upl.extractfilename(upl.form("file1"))
rs("d_path")=nnnn
rs.update
If upl.SaveToWeb("File1", NewFileName) Then
Response.Write("文件上傳成功.")
Else
Response.Write("文件上傳出現(xiàn)錯誤")
End If
End If
%>
<br><br><br>
<P ALIGN="center"> </P>
<P ALIGN="center"> </P>
<P ALIGN="center"> </P>
<P ALIGN="center"> </TD>
</TR>
</TABLE>
<P ALIGN="center">【<A HREF="javascript:self.close()">關(guān)閉窗口</A>】</P>
</BODY>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -