Recommended: How to use ASP to display GIF images of ACCESS database Write: 1: Read the gif image file into memory (a variable strTemp). 2: Write to the database. The following is the quoted content: Dim binTmp() As Byte Dim conn As ADODB.Conn
| The following is the quoted content: <% Response.Buffer = True Server.ScriptTimeOut=9999999 On Error Resume Next %> <!--#include file=conn.asp--> <!--#include file=function.asp--> <!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd> <html xmlns=http://www.w3.org/1999/xhtml> <head> <meta http-equiv=Content-Type content=text/html; charset=gb2312 /> <meta http-equiv=Content-Language content=zh-cn /> <meta content=all name=robots /> <style type=text/css> <!-- body,input {font-size:12px;} --> </style> <title>ASP file upload</title> </head> <body id=body> <% checkuser() ExtName = xls 'Allow extension SavePath = upload 'SavePath If Right(SavePath,1)<>/ Then SavePath=SavePath&/ 'Add (/) after the directory CheckAndCreateFolder(SavePath) UpLoadAll_a = Request.TotalBytes 'Get all the contents of the client If(UpLoadAll_a>0) Then Set UploadStream_c = Server.CreateObject(ADODB.Stream) UploadStream_c.Type = 1 UploadStream_c.Open UploadStream_c.Write Request.BinaryRead(UpLoadAll_a) UploadStream_c.Position = 0 FormDataAll_d = UploadStream_c.Read CrLf_e = chrB(13)&chrB(10) FormStart_f = InStrB(FormDataAll_d,CrLf_e) FormEnd_g = InStrB(FormStart_f 1,FormDataAll_d,CrLf_e) Set FormStream_h = Server.Createobject(ADODB.Stream) FormStream_h.Type = 1 FormStream_h.Open UploadStream_c.Position = FormStart_f 1 UploadStream_c.CopyTo FormStream_h,FormEnd_g-FormStart_f-3 FormStream_h.Position = 0 FormStream_h.Type = 2 FormStream_h.CharSet = GB2312 FormStreamText_i = FormStream_h.Readtext FormStream_h.Close FileName_j = Mid(FormStreamText_i,InstrRev(FormStreamText_i,) 1,FormEnd_g) If(CheckFileExt(FileName_j,ExtName)) Then SaveFile = Server.MapPath(SavePath & FileName_j) If Err Then Response.Write file upload: <span style=color:red;>The file upload error!</span> <a href= & Request.ServerVariables(URL) &>Re-upload the file</a><br /> Err.Clear Else SaveFile = CheckFileExists(SaveFile) SaveFileName = Mid(SaveFile,InstrRev(SaveFile,) 1) session(file)=SaveFileName k=Instrb(FormDataAll_d,CrLf_e&CrLf_e) 4 l=Instrb(k 1,FormDataAll_d,leftB(FormDataAll_d,FormStart_f-1))-k-2 FormStream_h.Type=1 FormStream_h.Open UploadStream_c.Position=k-1 UploadStream_c.CopyTo FormStream_h,l FormStream_h.SaveToFile SaveFile,2 SaveFileName = Mid(SaveFile,InstrRev(SaveFile,) 1) Dim Conn1, Driver1, DBPath1, Rs1, Sql1 ' Create Connection object Set Conn1 = Server.CreateObject(ADODB.Connection) Driver1 = Driver={Microsoft Excel Driver (*.xls)}; DBPath1 = DBQ= & Server.MapPath(upload/&SaveFileName) 'Call Open method to open the database Conn1.Open Driver1 & DBPath1 Sql1=Select * From [Sheet1$] Set Rs1=Conn1.Execute(Sql1) IF Rs1.Eof And Rs1.Bof Then Response.write The data you need is not found!! Else Do While Not Rs1.EOF 'Insert into the database OpenDataBase select * from abc if len(rs1(0))=7 then ctime=left(rs1(0),4) else ctime=left(rs1(0),5) end if rs.addnew rs(time)=ctime rs.update CloseDataBase() Rs1.MoveNext Loop End IF Rs1.Close Set Rs1=nothing Conn1.Close Set Conn1=Nothing 'End in the database Response.write file upload: <span style=color:red;> & SaveFileName & </span>The file upload was successful! <a href='choise.asp''>Continue to upload the file</a><br /> End If Else Response.write file upload: <span style=color:red;>File format is incorrect!</span> <a href= & Request.ServerVariables(URL) &>Re-upload file</a><br /> End If Else %> <script language=Javascript> <!-- function ValidInput() { if(document.upform.upfile.value==) { alert (Please select upload file!) document.upform.upfile.focus() return false } return true } // --> </script> <form action='<%= Request.ServerVariables(URL) %>' method='post' name=upform onsubmit=return ValidInput() enctype=multipart/form-data> File upload: <input type='file' name='upfile' size=40> <input type='submit' value=upload> </form> <% End if Set FormStream_h = Nothing UploadStream.Close Set UploadStream = Nothing %> </body> </html> |
Share: Interpret the code of asp anti-SQL injection The following is the referenced content: dim sql_injdata,SQL_inj,SQL_Get,SQL_Data,Sql_Post SQL_injdata = '|and|exec|insert|select|delete|update|