Anwendung von Dateien, die Bilder ohne Komponenten hochladen

Zunächst finden Sie das Bild auf der Seite. Entwerfen Sie den Formular Page Index.asp und Upload -Auswahlseite Upload.asp, Upload.asp ist im Index.asp als Iframe enthalten.

Zweitens sollte das ausgewählte Bild in einen bestimmten Ordner hochgeladen werden. Erstellen Sie einen Ordner Uploadimg

Wie sollten die hochgeladenen Bilder schließlich zitiert werden? Offensichtlich wird UBB sofort angezeigt. Das upload.asp -Zeigeobjekt oben file.asp hat die Funktion des Schreibens auf UBB -Tags.

Das Bild -Upload wird ohne Komponenten von Daoxiang Laonong hochgeladen. Daher ist die Upload.inc -Datei unerlässlich.

1. Upload.inc (kopieren Sie alle Codes im folgenden Textfeld)

<Script runat = server Language = vbscript> dim upFile_5xsoft_streamClass upload_5xsoft Dim Form, Datei, Version private sub class_initialize dim itart, ifilenamestart, ifilenameend, iend, vBenter, itorMstart, iFormend, TheFile Dim Strdiv, MFormName, MFormValue, Mfilename, MfileSize, Mfilepath, Idivlen, MStr -Version = "Wenn request.totalBytes <1 dann sub set Form = createObject (" scripting.Dictionary ") set File = createObject (" scripting.dictionary ") SetingFile_5xsoT_Stram (" actrictary ") Set Upfile_5xsoft_stream (" adodeam ") Set Up file_5xsoft_stream (" crectripting.dictionary ") Set Up file_5xsoft_stream (" crectripting.dictionary ") setzte updafile_5xsoft_stream (" crectripting. upFile_5xsoft_stream.mode = 3 upFile_5xsoft_stream.type = 1 upFile_5xsoft_stream.open upFile_5xsoft_stream.write Request.BinaryRead (Request.TotalBytes) vBenter = Chr (13) & chrt (10) Idivlen = Instring (1, 1, 1, 1, 1, 1, 1, 1, 1, 13), & chr (10) Idivlen = Instring (1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 13) +1) & chrt (10) idivlen = Instring (1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 13), & Chr. strDiv=subString(1,iDivLen) iFormStart=iDivLen iFormEnd=inString(iFormStart,strDiv)-1 while iFormStart < iFormEnd iStart=inString(iFormStart,"name=""") iEnd=inString(iStart+6,"""") mFormName=subString(iStart+6,iEnd-iStart-6) ifilenamestart = instring (iend+1, "Filename =" "") if ifilenamestart> 0 und ifilenamestart <iformend, dann ifileNameend = instring (ifilenamestart+10, "" "") mFilename = Substring (ifilenamestart+10, ifilenameend-ifilename-10Sestart-100Start-100Start-100Start-100Start-10)--10-Zun.-10-Zun.-10-Ifilenamestart-10), IFILename-Ifilenamestart-100Start-100Start-10), 10, 10, Ifilenameend-ifilename-100Start-100Start-100Start-100Start-10)) istart = instring (ifileNameend+1, vBenter & vBenter) iend = instring (istart+4, vBenter & strdiv) Wenn iStart dann mFileSize = iend-itart-4 sonst mFileSize = 0 Ende, wenn die file = new FileInfile.File.FileName = GetFileSame = GetFileNAMENAMENAMENAMENAMENAMENAMENAMENAME (MFILENNAME) (mfilename theFile.FileName theFile.filepath = getFilepath (mFileName) theFile.FileSize = mFileSize theFile.Filestart = iStart+4 thefile iEnd>iStart then mFormValue=subString(iStart+4,iEnd-iStart-4) else mFormValue="" end if form.Add mFormName,mFormValue end if iFormStart=iformEnd+iDivLen iFormEnd=inString(iformStart,strDiv)-1 wendEnd SubPrivate Function subString(theStart,theLen) dim i,c,stemp upFile_5xsoft_stream.position = thestart-1 stemp = "" für i = 1 to thelen if upFile_5xsoft_stream.eos, dann beenden semp=stemp&Chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))&ChrB(c)))) i=i+1 else semp=stemp&Chr(c) End If Next subString=stempEnd functionPrivate Function inString(theStart,varStr) dim i,j,bt,theLen,str InString=0 Str=toByte(varStr) thelen = lenb (str) für i = thestart bis upFile_5xsoft_stream.size-thelen if i> upFile_5xsoft_stream.size, beenden Sie die Funktion upFile_5xsoft_stream.position = i-1, wenn ASCB (UPFILE_5XSOFT_STREAM.SREAM.REAM. 1) = ISCB (MIDB (MIDB (STRIFE)). thelen if upFile_5xsoft_stream.eos dann instring = 0 beenden Sie für das Ende, wenn ASCB (upFile_5xsoft_stream.read (1)) <> ASCB (MIDB (STR, J, 1)) Dann Instring = 0 Exit für End -Wenn -Anleitungen <> 0, dann funktionieren Sie Funktionen. upfile_5xSoft_Stream.close set upfile_5xSoft_Stream=nothingEnd Sub Private function GetFilePath(FullPath) If FullPath <> "" Then GetFilePath = left(FullPath,InStrRev(FullPath, "/")) Else GetFilePath = "" End If End function Private function GetFileName(FullPath) If FullPath <> "" Then GetFileName = mid(FullPath,InStrRev(FullPath, "/")+1) Else GetFileName = "" End If End function Private function toByte(Str) dim i,iCode,c,iLow,iHigh toByte="" For i=1 To Len(Str) c=mid(Str,i,1) iCode =Asc(c) If iCode<0 Then iCode = iCode + 65535 If iCode>255 Then iLow = Left(Hex(Asc(c)),2) iHigh =Right(Hex(Asc(c)),2) toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh) Else toByte = toByte & chrB(AscB(c)) End If Next End functionEnd ClassClass FileInfo dim FormName,FileName,FilePath,FileSize,FileStart Private Sub Class_initialize fileName = "" filepath = "" ideSize = 0 filestart = 0 Formname = "" Ende sub public function Saveas (FullPath) Dim Dr. dr = createObject ("adodb.stream") Dr.Mode = 3 Dr.Type = 1 Dr. OPFILE_5XSOFT_STREAM.Position = filestart-1 upFile_5xsoft_stream.copyto Dr. </div> </div> </section> <section class="section_box py_30 border_bottom"> <div class="w12_box"> <div class="title_template arrow_link"> <span class="title">Ähnliche Artikel</span> </div> <ul class="cate_list_template"> <li> <a href="/de/wz/12663.html"> <div class="text">ASP-Optimierung, ASP-Caching-Technologie</div> <span class="time">2010-05-24</span> </a> </li> <li> <a href="/de/wz/6261.html"> <div class="text">Anwendungshinweise zum ASP.NET 2.0-Daten-Tutorial von Scott Mitchell</div> <span class="time">2009-07-01</span> </a> </li> <li> <a href="/de/wz/5690.html"> <div class="text">Ein prägnantes grafisches Einführungs-Tutorial für ASP.NET- und MySQL-Datenbanken</div> <span class="time">2009-06-30</span> </a> </li> <li> <a href="/de/wz/5418.html"> <div class="text">Allgemeine ASP-Funktionsbibliothek</div> <span class="time">2009-06-26</span> </a> </li> <li> <a href="/de/wz/5263.html"> <div class="text">ASP gefälschter REFERER</div> <span class="time">2009-06-25</span> </a> </li> <li> <a href="/de/wz/5135.html"> <div class="text">ASP-Transaktionsverarbeitung</div> <span class="time">2009-06-24</span> </a> </li> <li> <a href="/de/wz/5134.html"> <div class="text">Asp: Anleitung zur Cookie-Anwendung, detaillierter Code und Tutorials</div> <span class="time">2009-06-24</span> </a> </li> <li> <a href="/de/wz/5048.html"> <div class="text">ASP imitiert das DataGrid von asp.net</div> <span class="time">2009-06-24</span> </a> </li> <li> <a href="/de/wz/4933.html"> <div class="text">ASP-Quellcode entschlüsseln</div> <span class="time">2009-06-23</span> </a> </li> <li> <a href="/de/wz/80.html"> <div class="text">ASP-Vorlesung 4: Integrierte ASP-Komponenten</div> <span class="time">2009-05-30</span> </a> </li> <li> <a href="/de/wz/79.html"> <div class="text">ASP-Vorlesung 5: ASP-Komponenten (2)</div> <span class="time">2009-05-30</span> </a> </li> <li> <a href="/de/wz/76.html"> <div class="text">ASP-Vorlesung 8: ASP und Datenbank (3)</div> <span class="time">2009-05-30</span> </a> </li> </ul> </div> </section> <footer class="footer_template"> <div class="w12_box"> <div class="clearfix"> <div class="l_item"> <img src="https://images.downcodes.com/newdown/images/down-logo-foot.png" alt=""> <div class="f_icon"> <a href="https://www.facebook.com/" title="facebook"></a> <a href="https://telegram.org/" title="telegram"></a> <a href="https://www.tiktok.com/" title="tiktok"></a> <a href="https://www.youtube.com/" title="youtube"></a> </div> </div> <div class="r_item"> <dl> <dt>Products & Services</dt> <dd><a href="javascript:;">Install APK</a></dd> <dd><a href="javascript:;">APK signature verification</a></dd> <dd><a href="javascript:;">APK Download Service</a></dd> </dl> <dl> <dt>Company</dt> <dd><a href="javascript:;">Developer Console</a></dd> <dd><a href="javascript:;">Submit APK</a></dd> <dd><a href="javascript:;">Monetization of traffic through downcodes</a></dd> </dl> <dl> <dt>Legal</dt> <dd><a href="javascript:;">About us</a></dd> <dd><a href="javascript:;">Contact Us</a></dd> <dd><a href="javascript:;">Cooperation</a></dd> </dl> </div> </div> <p>downcodes@gmail.com</p> </div> </footer> <!-- Matomo --> <script> var _paq = window._paq = window._paq || []; /* tracker methods like "setCustomDimension" should be called before "trackPageView" */ _paq.push(['trackPageView']); _paq.push(['enableLinkTracking']); (function() { var u="//tongji.zhangwan.net/"; _paq.push(['setTrackerUrl', u+'matomo.php']); _paq.push(['setSiteId', '3']); var d=document, g=d.createElement('script'), s=d.getElementsByTagName('script')[0]; g.async=true; g.src=u+'matomo.js'; s.parentNode.insertBefore(g,s); })(); </script> <!-- End Matomo Code --> <!-- Google tag (gtag.js) --> <script async src="https://www.googletagmanager.com/gtag/js?id=G-5D64MDP2H8"></script> <script> window.dataLayer = window.dataLayer || []; function gtag(){dataLayer.push(arguments);} gtag('js', new Date()); gtag('config', 'G-5D64MDP2H8'); </script> </body> <script src="/newdown/js/jquery.js" type="text/javascript" charset="utf-8"></script> <script src="/newdown/js/lazy.js" type="text/javascript" charset="utf-8"></script> <script src="/newdown/js/index.js" type="text/javascript" charset="utf-8"></script> </html>