Say in ASP + Access files in image format files

xiaoxiao2021-03-06 40

Designed a product web page, the background is Access

, Field name ID, Model, Photo, Price

I want to ask the master, how to store the image format file in Access, what is the field type?

How to display image files in the database in the web page

<% = WebName%> </ Title> <meta http-equiv = "content-type" content = "text / html; charSet = GB2312"> <link rel = "stylesheet" href = "main.css" type = "text / css"> <style type = "text / css"> <! - .tx1 {height: 20px; width: 30px; font-size: 9pt; border: 1px solid; border-color: black Black # 000000; Color: # 0000FF} -> </ style> <script language = "javascript"> <! - VAR BGC_ON = New Array ("# 74d738", "# ff9c17", "# 3278ab", "# 486177", "# 078c00", "# 007eca") VAR BGC_OFF = New Array ("# 4CAD12", "FFB859", "5FD0", "577590", "08A700", "009FFF") Function Turnon (Obj1, ID) { Obj1.style.background = bgc_on [id]; } Function Turnoff (Obj1, ID) { Obj1.style.background = BGC_OFF [ID]; } // -> </ script> <Script language = javaScript> Function check_input () { IF (frm.pic.value == "") {Alert ("Please select the picture you want to upload"); Return False; } IF (frm.type.value == ") {Alert ("Please select the image type"; Return False; } IF (frm.thettlext.value == "") {alert ("Please enter a photo description"); Return False; } Return True; } </ Script> </ hEAD> <body bgcolor = "# 555555" Text = "# 000000" Leftmargin = "0" TopMargin = "0"> <table width = 755 cellpadding = 0 cellspacing = 0 border = 0 bgcolor = # ffffff align = "center"> <tr> <TD Height = 100> <img src = "img / Top.gif" align = "top"> </ TABLE> <! - # include file = "inc / mulu.asp" -> <table width = 755 cellpadding = 0 cellspacing = 0 border = 0 bgcolor = # ffffff align = "center" bordercolor = # 000000> <tr> <TD Height = 400 width = 180 bgcolor = # D1E9D5 style = "Border-Right: 1px # 0e801e solid"> <Table Width = 100% Height = 100% Cellpadding = 0 Cellspacing = 0 border = 0 align = "center" bordercolor = # 000000> <tr> <td height = 30 align = "center" class = l15> Welcome: <% = username%> management center <tr> <td height = 23 align = "center" class = l15 bgcolor = # 4cad12 style = "border-top: 0px # 0e801e solid; border-bottom: 1px # 0e801e solid;"> Management Center <tr> <TD Height = 20 Class = L13> <! - # include file = "inc / centermulu.asp" -> <TR> <TD Height = 5> <TR> <TD> </ TABLE> <TD> <% SET RS = Server.createObject ("AdoDb.Recordset") SQL = "SELECT * from photo where author = '" & username & "'" RS.Open SQL, CONN, 1, 1 %> <Table cellpadding = 0 cellspacing = 0 border = 0 width = 100% height = 100%> <TR> <TD Height = 3> <TR> <TD Height = 3 BGCOLOR = # fffffffFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBGROUND = IMG / BJ3.GIF> <TR> <TD Height = 20 Valign = "Bottom" BGColor = # eeeeee> Current position: 98243 class - management center - Add News <Tr> <TD Height = 3 BGColor = # eeeeee style = "Border-bottom: 1px # CCCCCC SOLID "> <tr> <td height = 20 valign = "bottom"> <% = username%>: You upload <% = rs.recordcount%> Zhang Photo <a href="adminphoto.asp"> More uploaded previously uploaded photos </A> <TR> <TD BGCOLOR = # ffffff value = top> <Table cellpadding = 0 cellspacing = 0 border = 0 width = 95% Height = 100% align = "center"> <form action = addphoto.asp method = post name = fm onsubmit = "Return Check_input ()" ENCTYPE = "Multipart / Form-Data"> <TR> <TD Height = 20 COLSPAN = 2> <TR> <TD Height = 25 Width = 15% Align = "Right" Class = L13> Select photo: <TD> <input name = "type =" class = "tx1" style = "width: 300 "> refuses porn, photo map, etc. <TR> <TD Height = 25 Width = 20% Align = "Right" Class = L13> Photo Category: <TD> <Select Name = "Type"> <option selected value = ""> Select type </ option> <option value = "class photo"> Class photo </ option> <Option value = "Personal Photo"> Personal Photo </ Option> <option value = "师 photos"> 师 photo </ option> <option value = "Valentine photos"> Valentine's photo </ option> <Option value = "Friends Photos"> Friends Photos </ Option> <option value = "Other Photos"> Other photos </ option> </ select> <Tr> <TD Height = 25 Width = 20% Align = "Right" Class = L13> Photo Description: <TD> <textarea name = "THETEXT" cols = "46" rows = "7" style = "border: 1px Double RGB (88, 88, 88); font: 9pt "> </ textarea> Up to 20 characters <TR> <TD Height = 5 COLSPAN = 2> <TR> <TD Height = 25 COLSPAN = 2 Align = "Center"> <Input Type = "Submit" Name = "Submit" Value = "提" style = "border: 1px double rgb (88, 88, 88); font: 9pt"> <input type = "reset" name = "reset" value = "rewrites" style = "border: 1px double RGB (88, 88, 88); font: 9pt"> <Tr> <TD COLSPAN = 2> </ tr> </ form> </ TABLE> </ TABLE> </ TABLE> <! - # include file = "inc / footer.asp" -> </ body> </ html> Fupload.inc <Script runat = server language = vbscript> 'Limiting upload image size DIM UPLOADSIZELIMIT '*************************************************************************************** ********************* Function gameupload () Dim Result Set result = Nothing If Request.servervariables ("Request_Method") = "post" The 'Request Method Must Be "Post" DIM CT, POSB, Boundary, Length, Pose CT = Request.SerVariables ("http_content_type") 'Reads Content-Type Header IF Lcase (Left (CT, 19)) = "Multipart / Form-Data" Then 'Content-Type Header Must Be "Multipart / Form-Data" 'This is upload. 'Get the boundary and length from content-type header POSB = INSTR (LCase (CT), "Boundary =") 'FINDS Boundary IF POSB> 0 THEN Boundary = MID (CT, POSB 9) 'Separetes Boundary Length = clng ("http_content_length")) 'Get Content-Length Header IF "" & Uploadsizelimit <> "" "" " UPLOADSIZELIMIT = CLNG (Uploadsizelimit) IF Length> Uploadsizelimit Then 'on Error ResMe next' Clears the Input Buffer 'Response.addheader "Connection", "Close" 'on Error Goto 0 Request.binaryRead (Length) Err.raise 2, "Getupload", "Upload Size" & FormatNumber (Length, 0) & "B Exceeds Limit of" & FormatNumber (Uploadsizelimit, 0) & "B" EXIT FUNCTION END IF END IF If Length> 0 and boundary <> "" "" Are The Required Informations ABOUT UPLOAD? Boundary = "-" & boundary Dim head, binary Binary = Request.binaryRead (Length) 'Reads Binary Data from Clom Clom Clom Clom Clom Clom 'Retrieves the Upload Fields from Binary Data SET Result = SeparateFields (Binary, Boundary) Binary = Empty 'Clear Variables Else Err.raise 10, "Getupload", "Zero Length Request." END IF Else Err.raise 11, "Getupload", "No File Sent." END IF Else Err.raise 1, "Getupload", "Bad Request Method." END IF Set getupload = result END FUNCTION Function Separatefields (binary, boundary) Dim Posopenboundary, Poscloseboundary, Posndofheader, IslastBoundary DIM Fields Boundary = StringTobinary (Boundary) Posopenboundary = INSTRB (Binary, Boundary) PosCloseboundary = INSTRB (Posopenboundary Lenb (Boundary), Binary, Boundary, 0) Set Fields = CreateObject ("scripting.dictionary") Do While (Posopenboundary> 0 and Poscloseboundary> 0 and not islastboundary) 'Header and File / Source Field Data Dim HeaderContent, FieldContent 'Header Fields DIM Content_Disposition, FormfieldName, SourceFileName, Content_Type 'Helping Variables Dim Field, TwoCharsafterendBoundary 'Get End of HEADER Posndofheader = INSTRB (Posopenboundary Len (Boundary), Binary, StringTobinary (VBCRLF VBCRLF)) 'Separates Field HEADER HeaderContent = MIDB (Binary, Posopenboundary Lenb (Boundary) 2, PosopenBoundary - Lenb (Boundary) - 2) 'Separates Field Content FieldContent = MIDB (Binary, (Posndofheader 4), Poscloseboundary - (Posndofheader 4) - 2) 'Separates Header Fields from Header GetHeadfields BinaryTostring (HeaderContent), Content_Disposition, FormfieldName, SourceFileName, Content_Type 'Create ONE Field and Assign Parameters SET FIELD = CREATEUPLOADFIELD () Field.name = formfieldname Field.contentdisPosition = Content_DisPosition Field.FilePath = SourceFileName FIELD.FILENAME = GetFileName (SourceFileName) FIELD.CONTENTTYPE = Content_Type Field.Value = FieldContent Field.Length = lenb (fieldcontent) Fields.add FormfieldName, Field 'Is this Ending Boundary? TwocharsafterendBoundary = binarytostring (MIDB (Binary, Poscloseboundary lenb (boundary), 2)) 'Binary.mid (PosCloseboundary Len (Boundary), 2) .string IslastBoundary = twocharsafterendboundary = "-" IF not islastboundary the 'this is not ending boundary - go to next form field.posopenboundary = Poscloseboundary PosCloseboundary = INSTRB (Posopenboundary lenb (boundary), binary, boundary END IF Loop Set SeparateFields = Fields END FUNCTION '******************************** UTILITIES ************** ******************* Function BinaryToString (STR) STRTO = "" For i = 1 to lenb (STR) IF ASCB (MIDB (STR, I, 1)> 127 THEN STRTO = STRTO & CHR (ASCB (MIDB (STR, I, 1)) * 256 ASCB (MIDB (STR, I 1, 1)))) i = i 1 Else STRTO = STRTO & CHR (ASCB (MIDB (STR, I, 1))))) END IF NEXT BinaryToString = STRTO END FUNCTION Function StringTobinary (String) DIM I, B For i = 1 to len (string) B = B & ChRB (ASC (MID (String, I, 1)))) NEXT StringTobinary = B END FUNCTION 'Separates Header Fields from Upload HEADER Function Getheadfields (Byval Head, Content_Disposition, Name, FileName, Content_Type) Content_disposition = LTRIM (Separatefield (Head, "Content-Disposition:", ";") Name = (Separatefield (Head, "Name =", ";")) 'Ltrim If Left (Name, 1) = "" "" "" "" "" "", 2, len (name) - 2) FileName = (Separatefield (Head, "FileName =", ";")) 'Ltrim IF Left (FileName, 1) = "" "" "" "", 2, Len (filename) - 2) Content_type = LTRIM (Separatefield (Head, "Content-Type:", ";")) END FUNCTION 'Separets One Filed Between SSTART and SEND Function Separatefield (from, byval sstart, byval send) Dim Posb, Pose, Sfrom sfrom = lcase (from) POSB = INSTR (SFROM, SSTART) IF POSB> 0 ThenPOSB = POSB LEN (SSTART) Pose = INSTR (POSB, SFROM, SEND) IF pose = 0 Then Pose = INSTR (POSB, SFROM, VBCRLF) If Pose = 0 Then Pose = LEN (SFROM) 1 SeparateField = MID (from, POSB, POSE - POSB) Else SeparateField = EMPTY END IF END FUNCTION 'Separetes File Name from The Full Path Of File Function GetFileName (Fullpath) DIM POS, POSF POSF = 0 For POS = LEN (FULLPATH) TO 1 Step -1 Select Case Mid (Fullpath, POS, 1) Case "/", "/": POSF = POS 1: POS = 0 End SELECT NEXT IF POSF = 0 THEN POSF = 1 GetFileName = MID (Fullpath, POSF) END FUNCTION </ Script> <Script runat = server language = jscript> // The function creates field Object. Function createuploadfield () {return new uf_init ()} Function uf_init () { this.name = NULL this.contentdisPosition = NULL this.FileName = NULL this.filepath = NULL this.contentType = NULL THIS.VALUE = NULL this.Length = NULL } </ Script> Addphoto.asp <! - # include file = "conn.asp" -> <! - # include file = "inc / domin.asp" -> <! - # include file = "fupload.inc" -> <% If Request.servervariables ("Request_Method") = "post" then DIM Fields UPLOADSIZELIMIT = 100000 Set Fields = getupload () DIM Field For Each Field in Fields.Items Select Case Field.name Case "thetext" sss = binarytostring (Field.Value) Case "Type" fff = binarytostring (field.value) Case "Submit" Submit = binarytostring (field.value) Case "PIC" FILENAME = Field.FileName FILECONTENTTYPE = Field.ContentType FileValue = Field.ValueEnd SELECT NEXT '--------------- IF filename <> "" and filecontettype <> "image / gif" and FileContentType <> "image / pjpeg" THEN %> <center> The uploaded photo should be a GIF or JPG file! <Input Type = "Button" Value = "Reset" οnclick = "history.go (-1); Return True; "> </ center> <% Else '-------------- 'Start input '----------- Response.write SSS Response.write " " Response.write fff SET RS = Server.createObject ("AdoDb.Recordset") SQL = "SELECT * from Tb Where Theid is Null" RS.Open SQL, CONN, 3, 3 rs.addnew RS ("Author) = UserName RS ("ThetExt") = SSS RS ("Types") = fff RS ("HITS") = 1 RS ("posttime") = now () RS ("photo"). Appendchunk FileValue Rs.Update Rs.close %> <center> Size = 3> Enter personal basic files successfully! <form method = "post" Action = "Personinf.asp"> <input type = "submit" value = "Back"> </ form> </ center> <% END IF END IF %> Showpic.asp <! - # include file = "conn.asp" -> <% ID = Request ("id") SET RS = Server.createObject ("AdoDb.Recordset") SQL = "SELECT * from Tb Where theid =" & id RS.Open SQL, CONN, 1, 3 Response.contentType = "image / gif" Response.binarywrite RS ("photo") %></div><div class="text-center mt-3 text-grey"> 转载请注明原文地址:https://www.9cbs.com/read-77289.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div>New Post(0) </div><div></div></div></div><ul class="postlist list-unstyled"> </ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="77289" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved </div><div class="col text-right">Processed: 0.034, SQL: 9</div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script> var debug = DEBUG = 0; var url_rewrite_on = 1; var url_path = './'; var forumarr = {"1":"Tech"}; var fid = 1; var uid = 0; var gid = 0; xn.options.water_image_url = 'view/img/water-small.png'; </script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"></a></body></html><script> var forum_url = 'list-1.html'; var safe_token = 'oIQ8v0AZTjy32VlmihXKUGbGWusOusKBdwL7DlDIKQeMT3Gejsk0TmSQ_2B8Qv7qKC0hSEK_2Bw2k_2FqtAnpcwNR3gA_3D_3D'; var body = $('body'); body.on('submit', '#form', function() { var jthis = $(this); var jsubmit = jthis.find('#submit'); jthis.reset(); jsubmit.button('loading'); var postdata = jthis.serializeObject(); $.xpost(jthis.attr('action'), postdata, function(code, message) { if(code == 0) { location.reload(); } else { $.alert(message); jsubmit.button('reset'); } }); return false; }); function resize_image() { var jmessagelist = $('div.message'); var first_width = jmessagelist.width(); jmessagelist.each(function() { var jdiv = $(this); var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width(); var jmessage_width = Math.min(jdiv.width(), maxwidth); jdiv.find('img, embed, iframe, video').each(function() { var jimg = $(this); var img_width = this.org_width; var img_height = this.org_height; if(!img_width) { var img_width = jimg.attr('width'); var img_height = jimg.attr('height'); this.org_width = img_width; this.org_height = img_height; } if(img_width > jmessage_width) { if(this.tagName == 'IMG') { jimg.width(jmessage_width); jimg.css('height', 'auto'); jimg.css('cursor', 'pointer'); jimg.on('click', function() { }); } else { jimg.width(jmessage_width); var height = (img_height / img_width) * jimg.width(); jimg.height(height); } } }); }); } function resize_table() { $('div.message').each(function() { var jdiv = $(this); jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>'); }); } $(function() { resize_image(); resize_table(); $(window).on('resize', resize_image); }); var jmessage = $('#message'); jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); }); jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); }); $('#nav li[data-active="fid-1"]').addClass('active'); </script>