A transmission class

<% @ Language = "vbscript" CODEPAGE = "936"%> <% Option Explicit

Class BoxInfoImg 'Transfer Class How to Use' Image Upload and Upload Information Get Class

'Usage:' DIM IMGUP'SET IMGUP = New BoxInfoImg

'Attribute:' imgup.width 'wide' imgup.height 'high' image 'image' image 'IMGUP.IMGTYPE' type 'IMGUP.IMGNAME' file name 'image name: "&' imgup.filename" File Name "& 'Imgup.extName' Extension" 'Imgup.diskPath' Save Position "'Imgup.xupath' Virtual Path" 'Imgup.Newurl' Save URL "'IMGUP.SAVEMODE' Save URL"

'Method:' imgup.saveimg (fullpath) 'Save Image file

Dim AdosDim Width, Height, Imgsize, Imgtype, Imgname, FilenaMedim PRENAME, EXTNAMEDIM Savepath, Savename, Savemodedim Diskpath, XuPath, Newurldim TextStrdim i

Private sub class_initializset adoS = server.createObject ("adodb.stream") ads.type = 1 ads.mode = 3 ADOS.Open GetImageSizeEnd Sub

Private sub class_terminateados.closset adoS = nothingend sub

Public function getImagesize ()

DIM RET (3), BFLAG, FDATA, FSIZE

FDATA = getWebData (getStrurl) 'gets XMLHTTP data fsize = clng (leNB (fdata))' acquired data size

If fsize = 0 THEN EXIT FUNCTION R_WRITE "No Control Data Save", 0nd IF

ADOS.WRITE FDATA ADOS.PSITION = 0

Savename = isavenamesavepath = isavepathavemode = isavemode

'Write text object read image long width and type

ADOS.PSITION = 0 'Reset Data Start Position Bflag = Ados.Read (3)

If isnull (bflag) dam, = 0HEight = 0imgsize = 0imgtype = "unknow" RET (0) = imgType: Ret (1) = width: Ret (2) = height: RET (3) = "" getimagesize = retexit functionend IF

'Take a file type and long width Select Case Hex (binval (bflag)) Case "4E5089": ads.read (15) RET (0) = "PNG" RET (1) = binval2 (ADOS.READ (2)) ADOS .read (2) RET (2) = binval2 (ads.read (2)) Case "464947": ads.read (3) RET (0) = "gif" Ret (1) = binval (adoS.read (2) )) RET (2) = binval (ads.read (2)) Case "FFD8FF": DIM P1DO DO: P1 = BINVAL (ADOS.READ (1)): loop while p1 = 255 and not ads.eosif p1> 191 And P1 <196 THEN EXIT DO ELSE ADOS.READ (binval2) - 2) DO: P1 = binval (ads.read (1)): loop while p1 <255 and not ads.EOSLOOP While Trueados .Read (3) RET (0) = "jpg" RET (2) = binval2 (ads.read (2)) RET (1) = binval2 (adoS.read (2)) Case Else: if ife (bin2str (bflag ), 2) = "bm" THENADOS.READ (15) RET (0) = "bmp" RET (1) = binval (adoS.read (4)) RET (2) = binval (4)) elseret (0) = "" end ifend select'dim tempStrdim nameStrdim defaultNamedim lntempStr = split (GetStrUrl, "/") nameStr = tempStr (ubound (tempStr)) if nameStr = "" thenr_write "wrong URL, enter accessible URL ", 0EXIT functionEND IFILENAME = Split (NameStr,"? ") (0) ln = INSTRREV (FileName,". ") IF ln> 0 Then PRENAME = Left (filename, INSTRREV (FileName,". ") - 1) Elseprena ME = filenamend if'r_write filename, 1'R_Write Instrrev (FileName, "."), 1'R_Write FileName, 0exTName = Right (FileName, Len (FileName) - SELECT CASE RET (0 Case "PNG", "JPG", "BMP", "GIF", "****" width = RET (1) Height = RET (2) imgsize = fsizeImgType = RET (0) IMGNAME = PRENAME & "." & ret (0) Case elsewidth = 0HEight = 0imgsize = fsizeimgname = "unknow" imgtype = ". unknow" End SELECT

if SaveMode = "1" thendefaultName = imgNameif SaveName = "" then SaveName = defaultNameelseif lcase (right (SaveName, 4)) <> "." & imgType thenSaveName = SaveName & "." & imgTypeend ifend ifelsedefaultName = filenameend ifif SaveName = "" then SaveName = DefaultNameSavePath = Replace (SavePath, "//", "/") IF Right (SavePath, 1) <> "/" THEN SAVEPATH = SavePath & "/" if SavePath = "" "DiskPath = Server . mappath (SavePath & Savename) xupath = replace (Replace ("/"), ""), "/", "/") newURL = "http: //" & request.serverVariables ("server_name") & XuPathGetImagesize = Retend Function

Public function SaveImg (FullPath) SaveImg = falseif SaveMode = "1" thenif trim (fullpath) = "" or _width = 0 or _ height = 0 or _imgSize = 0 or _imgType = ". Unknow" then exit function end ifend ifADOS.Position = 0if savemode = "2" THENADOS.TYPE = 2ADOS.CHARSET = "GB2312" ADOS.SAVETOFILE FULLPATH, 2TEXTSTSTSTR = ads.readtext () Elseados.savetofile Fullpath, 2nd ifsaveimg = trueEnd Function

Private function bin2str (bin) DIM I, STR, CLOWFOR I = 1 to lenb (bin) CLOW = MIDB (BIN, I, 1) IF ASCB (CLOW) <128 TENSTR = STR & CHR (ASCB (CLOW) ELSEI = I 1IF I <= lenb (bin) THEN STR = Str & CHR (ASCW (MIDB (BIN, I, 1) & CLOW) end ifnext bin2str = streven function

Private function Num2Str (NUM, BASE, LENS) DIM RET: RET = "" While (NUM Mod Base) & Retnum = (Num - Num MOD BASE) / BASEWENDNUM2STR = Right (String (Lens, "0") & number Function str2num (str, base) DIM RET: RET = 0for i = 1 to Len (STR) RET = RET * BASE CINT (MID (STR, I, 1) NextStr2Num = Retend Function

Private function binval (bin) Dim Ret: Ret = 0for i = lenb (bin) to 1 step -1ret = RET * 256 ASCB (MIDB (BIN, I, 1)) Nextbinval = Retend Function

Private function binval2 (bin) DIM RET: RET = 0for i = 1 to lenb (bin) RET = RET * 256 ASCB (MIDB (BIN, I, 1)) Nextbinval2 = Retend Function

Private Function GetWebData (byval StrUrl) if StrUrl = "" then r_write "invalid", 1exit functionend ifdim tempStrtempStr = split (GetStrUrl, "/") if tempStr (ubound (tempStr)) = "" or inStr (StrUrl, "/" ) = 0 thenR_Write "does not specify a valid URL", 0exit functionend ifdim RetrievalSet Retrieval = Server.CreateObject ( "Microsoft.XMLHTTP") With Retrieval.Open "Get", strUrl, False, "", "" .SendGetWebData = .ResponseBodyEnd WITHSET RETRIEVAL = NOTHINGEND FUNCTION

End class%> <% Sub SaveupLoad (geturl, savepath, savename, mode) DIM Chkinfo

If geturl = "" The central tform () r_write "
Transfer File Bar is not filled!", 0nd IF

Set imgup = new boxinfoimg

if Mode = "1" and Imgup.Imgname = "unknow" theENCALL TFORM () set imgup = nothingr_write "
Transfer File Bar Not fill in the valid image URL!", 0nd if

Chkinfo = "" DIM I, Teststr, Showstr 'Limited SELECT CASE IMGUP.IMGTYPECASE "PNG", "JPG", "BMP", "GIF" if imgup.width = 0 or imgup.Height = 0 or imgup.imgsize = 0 THEN CHKINFO = "

" "Transfer image data does not exist, make sure that your URL is correct" End ifcase else chkinfo = "

invalid transmission format, allowing image data format" "PNG", "JPG", "BMP" "," "GIF" "End Select'r_Write SavePath, 1 'R_Write Mode, 1' R_Write Imgup.Imgname, 1'R_Write Imgup.FileName, 1'R_Write "Savename =" & Savename, 1

If Mode = "1" "and chkinfo <>" "Check after the upload image data is passed, save TForm () r_write chkinfo, 0lServer.Scripttimeout = 5000Imgup.saveImgup.diskpath end if '-------- ------ r_write " === Processing Results part of the information ===
", 1R_Write "wide:" & IMGUP.WIDTH & "PIX", 1R_Write "High:" & IMGUP. Height & "PIX", 1R_Write "Size:" & FormatNumber (Imgup.imgsize / 1024, 2, -1) & "KB", 1R_Write "format:" & imgup.imgtype, 1r_write "image file name:" & imgup.imgname, 1R_write " File Name: "& Imgup.FileName, 1R_Write" extension: "& imgup.extname, 1R_Write" save location: "& imgup.diskpath, 1r_write" virtual path: "& imgup.xupath, 1r_write" After saving URL: "& imgup.newurl, 1call TForm () set imgup = nothing r_write "----------------------
Transmission is complete, 0nd Sub

Sub TForm ()%>

Get URL:
Save Path:
Save File Name: > Web image > Text file > binary data Run this code ", 1R_Write" " & server.htmlencode Imgup.TextStr) & "</ textarea>", 1ELSE R_WRITE "<img src =" "" & imgup.xupath & "?" & timer () & "" width = "& IMGUP.WIDTH &" Height = "& IMGUP.HEIGHT &" Alt = "& imgup.imgname &"> ", 1END ifend if%> </ form> <hr size = 1> <br> If saved as an image, do not add the presentation name, automatic identification, if the added extension is not coming back Automatic plus <br> Save File Path Saves the current path <BR> Save file name to freeways using automatic identification of file name <br> Save as other anywhere, for ASP HTML, etc. HTML <% End Subsub R_Write (Str, Num) DIM ISTR: ISTR = STRDIM Inum: Inum = NumResponse.write Str & "<br>" if inum = 0 THEN Response.Endend Sub</p> <p>'================= Call process execute ========================%> <! DocType HTML PUBLIC "- // W3C // DTD HTML 4.0 Transitional // En"> <html> <head> <title> new document </ title> <meta name = "generator" content = "editplus"> <meta name = "Author" content = "v37"> <meta name = "keywords" content = "> <meta name =" description "content ="> <script language = "javascript"> <! - / * function runcode ) {Var code = event.srcelement.parentelement.children [0] .value; var newwin = *********** ('', ',' '); newwin.opener = null newwin. Document.write (code); newwin.document.close ();} function setsmiley (what) {document.postform.comment.value = " what; document.postform.comment.focus ();} * / function Runcode (NUM) // Run code html {// var code = event.srcelement.parentelement.children [0] .value; if (num == 1) {var code = window.form2.code.innertext;} Num == 0) {var code = window.form2.content.innertext;} var newwin = ********** ('', ',' '); newwin.opener = null newwin. Document.write (code); newwin.document.close ();} // -> </ script> </ head> <body> <% DIM IMGU P 'Transport Object DIM GetStrull' To acquire Image or web URLDIM IsaveName 'To save the name DIM IsavePath' To save the virtual path DIM ISAVEMODE 'Save mode 1 is an image 0 is any file isavePath = trim (Request.form (" SavePath ")) isavename = trim (Request.form (" Savename ")) getStrURL =</p></div><div class="text-center mt-3 text-grey"> 转载请注明原文地址:https://www.9cbs.com/read-124817.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"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></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><b>New Post</b>(<span class="posts">0</span>) </div><div></div></div></div><ul class="postlist list-unstyled"> </ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="124817" 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: <b>0.060</b>, SQL: <b>9</b></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);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script> var forum_url = 'list-1.html'; var safe_token = 'ZW2gzO1anIaiOBfPpYzLH4_2Bev2ygqFNTqHgT9d7i6kVacofYAEl9ptgt5O4pI6u0cZesQU9UiDV2MY_2FnmLdOOA_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>