📄 savefile.asp
字号:
<%@ language=vbscript %>
<!--#INCLUDE FILE="fupload.inc"-->
<script RUNAT="SERVER" LANGUAGE="VBSCRIPT">
Server.ScriptTimeout = 200
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Dim Fields
on error resume next
Set Fields = GetUpload()
If Err = 0 Then 'Upload was OK
Response.Write DBSaveUpload(Fields)
Else
Response.Write Err.Description
End If
On Error GoTo 0
Fields = Empty
End If
function DBSaveUpload(Fields)
dim Conn, RS
Set Conn = GetConnection
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "Upload", Conn, 2, 2
RS.AddNew
RS("UploadDT") = Now()
RS("RemoteIP") = Request.ServerVariables("REMOTE_ADDR")
RS("ContentType") = Fields("DBFile").ContentType
RS("SouceFileName") = Fields("DBFile").FileName
RS("Description") = BinaryToString(Fields("Description").Value)
RS("Title") = BinaryToString(Fields("Title").Value)
RS("Data").AppendChunk Fields("DBFile").Value
RS.Update
RS.Close
Conn.Close
DBSaveUpload = "文件已经成功上载!"
end function
function GetConnection()
dim Conn, AuthConnectionString
Set Conn = Server.CreateObject("ADODB.Connection")
AuthConnectionString = "DBQ=" & Server.MapPath("upload.mdb") & ";" & _
"Driver={Microsoft Access Driver (*.mdb)}; DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;UID=;"
Conn.open AuthConnectionString
set GetConnection = Conn
end function
function CreateUploadTable(Conn)
dim SQL
SQL = SQL & "CREATE TABLE Upload ("
SQL = SQL & " UploadID COUNTER ,"
SQL = SQL & " UploadDT datetime NULL ,"
SQL = SQL & " RemoteIP char (15) NULL ,"
SQL = SQL & " ContentType char (64) NULL ,"
SQL = SQL & " SouceFileName varchar (255) NULL ,"
SQL = SQL & " Title varchar (255) NULL ,"
SQL = SQL & " Description text NULL ,"
SQL = SQL & " Data image NULL "
SQL = SQL & ")"
Conn.Execute SQL
end function
</script>
<html>
<head>
<title>save image</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
</body>
</html>
<script language=javascript>
<!--
for(i=0;i<10000;i++);
window.location.href="default.asp";
//-->
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -