구성 요소없이 이미지를 업로드하는 파일의 적용

먼저, 사진은 페이지에서 찾을 수 있습니다. 양식 페이지 index.asp 및 업로드 선택 페이지 upload.asp, upload.asp를 INDEX.asp에 iframe으로 포함합니다.

둘째, 선택한 이미지는 특정 폴더에 업로드해야합니다. 폴더 uploadimg을 만듭니다

마지막으로 업로드 된 사진은 어떻게 인용해야합니까? 분명히 UBB는 즉시 표시됩니다. upload.asp posinting 객체 upfile.asp는 UBB 태그에 쓰는 기능이 있습니다.

이미지 업로드는 Daoxiang Laonong의 구성 요소없이 업로드됩니다. 따라서 upload.inc 파일이 필수적입니다.

1. upload.inc (다음 텍스트 상자에 모든 코드를 복사)

매 strdiv, mformname, mformvalue, mfilename, mfilesize, mfilepath, idivlen, mstr version = ""if request.totalBytes <1 그러면 서브 세트를 종료하면 sub set form = createObject ( "scripting.dictionary") set file = createObject ( "scripting.dictionary") set upfile_5xs _stream ") Upfile_5xsoft_stream.mode = 3 upfile_5xsoft_stream.type = 1 upfile_5xsoft_stream.open upfile_5xsoft_stream.write request.binaryread (request.totalbytes) vbenter = chr (10) idivlen = instring (1, vbenter)+1 strdiv = substring (1, idivlen) iformstart = idivlen iformend = instring (iformstart, strdiv) -1 whine ifortstart <iformend istart = instring (iformstart, "name =" "") iend = instring (istart+6, "" ") mformname = 서브 트링 (istart+6, iend-istart-istart-6). ifilenamestart = instring (iend+1, "filename =" "" ") ifileNamestart> 0 및 ifilenamestart <ifilenamestart <iformend <ifilenamestart <" "" "" "" "" ") mfilename = 기부 (ifilenamestart+10, ifilenameend-ifilenamestart-10). istart = instring (ifilenameend+1, vbenter & vbenter) iend = instring (istart+4, vbenter & strdiv) if iend> istart 다음 mfileSize = iend-istart-4 else mfileSize = 0 종료를 설정하면 = new fileInfo thefile.filename (mfilename)을 설정하는 경우. thefile.filepath = getfilepath (mfilename) thefile.fileSize = mfileSize thefile.filestart = istart+4 thefile.FormName = formName file.add mformname, elsetart = instring (iend+1, vbenter & vbenter) iend = Instring (istart+4, vbenter+4, vbenter). iend> istart 다음 mformValue = substring (istart+4, iend-istart-4) else mformValue = ""end If form.add mformname, mformvalue end if iformend+idivlen iformend = Instring (iformstart, strdiv) -1 wendend subprivate functionstring (thestart) upfile_5xsoft_stream.position = thestart-1 stemp = "" "i = 1 to thelen의 경우"upfile_5xsoft_stream.eos를 종료 한 다음 c = ascb (upfile_5xsoft_stream.read (1)) c> 127 인 경우 upfile_5xsoft_stream.eos가 exit. SEMP = stemp & chr (ascw (chrb (chrb (uscb (upfile_5xsoft_stream.read.read)) & chrb (c))) i = i+1 else semp = semp = semp & chr (c) 다음 하위 문자열이라면 종료 = stemptent fravate function instring (thestart, varstr) dim i, j, bt, thelen, string = 0 string = the bt (to bt). i = thestart to upfile_5xsoft_stream.size-thelen i> upfile_5xsoft_stream.size 인 경우 i = thestart to i = thestart to upfile_5xsoft_stream.size-thelen for i = lenb (str). upfile_5xsoft_stream.eos instring = 0 ascb (upfile_5xsoft_stream.read (1)) <> ascb (midb (str, j, 1)) <> instring = 0 다음 경우 종료에 대한 종료 된 경우 instring = 0 nextend sub classmation form. set file = nothing upfile_5xsoft_stream.close set upfile_5xsoft_stream = nothingend sub private function getFilePath (fullPath) ""그런 다음 getFilePath = left (fullPath, instrev (fullPath, "/")) if getFilePath = ""getFilePath = "" mid (fullpath, instrev (fullpath, "/") + 1) else getfilename = ""끝 If End If End If End If End function tobyte (str) dim i, icode, c, ilow, ihigh tobyte = "" "to len (str) c = mid (str, i, 1) iCode = asc (c) if icode <0 icode + 65535 if icode + 65535 if icode + 6535. 왼쪽 (ASC (C)), 2) ihigh = 오른쪽 (hex (asc (c)), 2) Tobyte = Tobyte & chrb ( "& h"& ilow) & chrb ( "& h"& ihigh) else tobyte = tobyte & chrb (Ascb (cb), filename, filename, filename, filename, filename, filename, filename, filename, filename, filename, filename, filen name, filen name, filenne class_initialize filename = ""filepath = ""fillepath = "Filesize = 0 filestart = 0 formname = 0 formname =" "End sub public function saveas (fullpath) dim dr, errorchar, i a saveas = 1 if trim (fullPath) =" "또는 filestart = 0 또는 filename =" "그런 다음 filestart = 0 또는 오른쪽에 종료 된 경우 exit 함수 (filename = 0 또는 filename = 0 또는 filename = 0). dr = createobject ( "adodb.stream") Dr.Mode = 3 Dr.Type = 1 Dr.Open upfile_5xsoft_stream.position = filestart-1 upfile_5xsoft_stream.copyto dr, 파일 크기 Dr.Savetofile FullPath, 2 Dr.Close Set DR = NOTE SAVEAS = 0 엔드 기능 </script> </div> </div> </section> <section class="section_box py_30 border_bottom"> <div class="w12_box"> <div class="title_template arrow_link"> <span class="title">관련 기사</span> </div> <ul class="cate_list_template"> <li> <a href="/ko/wz/12663.html"> <div class="text">ASP 최적화, ASP 캐싱 기술</div> <span class="time">2010-05-24</span> </a> </li> <li> <a href="/ko/wz/6261.html"> <div class="text">Scott Mitchell의 ASP.NET 2.0 데이터 자습서 애플리케이션 노트</div> <span class="time">2009-07-01</span> </a> </li> <li> <a href="/ko/wz/5690.html"> <div class="text">ASP.NET 및 MySQL 데이터베이스에 대한 간결한 그래픽 입문 튜토리얼</div> <span class="time">2009-06-30</span> </a> </li> <li> <a href="/ko/wz/5418.html"> <div class="text">ASP 일반 기능 라이브러리</div> <span class="time">2009-06-26</span> </a> </li> <li> <a href="/ko/wz/5263.html"> <div class="text">ASP 가짜 리퍼러</div> <span class="time">2009-06-25</span> </a> </li> <li> <a href="/ko/wz/5135.html"> <div class="text">ASP 트랜잭션 처리</div> <span class="time">2009-06-24</span> </a> </li> <li> <a href="/ko/wz/5134.html"> <div class="text">Asp: 쿠키 애플리케이션 가이드, 자세한 코드 및 튜토리얼</div> <span class="time">2009-06-24</span> </a> </li> <li> <a href="/ko/wz/5048.html"> <div class="text">ASP는 asp.net의 DataGrid를 모방합니다.</div> <span class="time">2009-06-24</span> </a> </li> <li> <a href="/ko/wz/4933.html"> <div class="text">ASP 소스 코드 해독</div> <span class="time">2009-06-23</span> </a> </li> <li> <a href="/ko/wz/80.html"> <div class="text">ASP 강의 4: ASP 내장 구성 요소</div> <span class="time">2009-05-30</span> </a> </li> <li> <a href="/ko/wz/79.html"> <div class="text">ASP 강의 5: ASP 구성 요소(2)</div> <span class="time">2009-05-30</span> </a> </li> <li> <a href="/ko/wz/76.html"> <div class="text">ASP 강의 8: ASP와 데이터베이스 (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>