Upload.asp
<%
DIM UPFILE_5XSOFT_STREAM
Class Upload_5xsoft
DIM FORM, FILE, VERSION
Private Sub Class_Initialize dim iStart, iFileNameStart, iFileNameEnd, iEnd, vbEnter, iFormStart, iFormEnd, theFiledim strDiv, mFormName, mFormvalue, mFileName, mFileSize, mFilePath, iDivLen, mStrVersion = "" if Request.TotalBytes <1 then Exit Subset Form = CreateObject ( "Scripting.Dictionary") set File = CreateObject ( "Scripting.Dictionary") set upfile_5xSoft_Stream = CreateObject ( "Adodb.Stream") upfile_5xSoft_Stream.mode = 3upfile_5xSoft_Stream.type = 1upfile_5xSoft_Stream.openupfile_5xSoft_Stream.write Request.BinaryRead (Request.TotalBytes)
vbEnter = Chr (13) & Chr (10) iDivLen = inString (1, vbEnter) 1strDiv = subString (1, iDivLen) iFormStart = iDivLeniFormEnd = inString (iformStart, strDiv) -1while iFormStart 0 and iFileNameStart iStart thenmFileSize = iEnd-iStart-4elsemFileSize = 0end ifset theFile = new FileInfotheFile.FileName = getFileName (mFileName) theFile.FilePath = getFilePath (mFileName) theFile.FileSize = mFileSizetheFile.FileStart = iStart 4theFile.FormName = FormNamefile. add mFormName, theFileelseiStart = inString (iEnd 1, vbEnter & vbEnter) iEnd = inString (iStart 4, vbEnter & strDiv) if iEnd> iStart thenmFormvalue = subString (iStart 4, iEnd-iStart-4) elsemFormvalue = "" end IFORM.ADD MFORMNAME, MFORMVALUEEND IF
IFORMStart = iformend idivlenifornd = Instring (iformstart, strdiv) -1wendend Sub
Private Function subString (theStart, theLen) dim i, c, stempupfile_5xSoft_Stream.Position = theStart-1stemp = "" for i = 1 to theLenif upfile_5xSoft_Stream.EOS then Exit forc = ascB (upfile_5xSoft_Stream.Read (1)) If c> 127 Thenif upfile_5xSoft_Stream.EOS then Exit forstemp = stemp & Chr (AscW (ChrB (AscB (upfile_5xSoft_Stream.Read (1))) & ChrB (c))) i = i 1elsestemp = stemp & Chr (c) End IfNextsubString = stempEnd functionPrivate Function inString (theStart, varStr ) dim i, j, bt, theLen, strInString = 0Str = toByte (varStr) theLen = LenB (Str) for i = theStart to upfile_5xSoft_Stream.Size-theLenif i> upfile_5xSoft_Stream.size then exit Functionupfile_5xSoft_Stream.Position = i-1if AscB ( upfile_5xSoft_Stream.Read (1)) = AscB (midB (Str, 1)) thenInString = ifor j = 2 to theLenif upfile_5xSoft_Stream.EOS then inString = 0Exit forend ifif AscB (upfile_5xSoft_Stream.Read (1)) <> AscB (MidB (Str , J, 1)) THENINSTRING = 0EXIT Forend ifnextif Instring <> 0 THEN EXIT FUNCTIONEND IFNEXTEND FUNCTION
Private sub coplass_terminate form.removeallfile.removeallset form = NothingSet file = Nothingupfile_5xsoft_stream.closset upfile_5xsoft_stream = Nothingend Sub
Private function getfilepath (Fullpath) if Fullpath <> "" "THENGETFILEPATH = Left (Fullpath, INSTRREV (Fullpath," / ")) ElsegetFilePath =" "end ifend function
Private function getFilename (Fullpath) if Fullpath <> "" "" "" "" ElsegetFileName = "" "=" = "" endpath, instro
Private function Tobyte (STR) DIM I, ICODE, C, ILOW, IHIGHTOBYTE = "" for i = 1 to Len (STR) C = MID (Str, I, 1) ICODE = ASC (C) IF ICODE <0 THEN iCODE = ICODE 65535IF ICODE> 255 TENILOW = Left (HEX (ASC (C)), 2) ihigh = Right (HEX (ASC (C)), 2) Tobyte = Tobyte & Chrb ("& H" & ilow) & chrb (" & H "& iHigh) ElsetoByte = toByte & chrB (AscB (c)) End IfNextEnd functionEnd ClassClass FileInfodim FormName, FileName, FilePath, FileSize, FileStartPrivate Sub Class_Initialize FileName =" "FilePath =" "FileSize = 0FileStart = 0FormName =" "End Sub
Public function SaveAs (FullPath) dim dr, ErrorChar, iSaveAs = 1if trim (fullpath) = "" or FileSize = 0 or FileStart = 0 or FileName = "" then exit functionif FileStart = 0 or right (fullpath, 1) = "/ "then exit functionset dr = CreateObject (" Adodb.Stream ") dr.Mode = 3dr.Type = 1dr.Openupfile_5xSoft_Stream.position = FileStart-1upfile_5xSoft_Stream.copyto dr, FileSizedr.SaveToFile FullPath, 2dr.Closeset dr = nothing SaveAs = 0end functionEnd Class%>
Pre.asp
<% response.buffer = true%>
<% Set upload = new upload_5xsoft
Set file1 = UPLOAD.FILE ("file1") spath1 = "Position Save /"
If File1.Filesize> 0 Then sfilename = "file name" sfilename1 = sfilename & right (file1.filename, 4) file1.saveas server.mappath (spath1 & sfilename1) end if%>
Index.asp
No title document </ title> </ head></p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-87754.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="87754" 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.040</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 = 'aiFHDtQOZFKV_2FovdLSzAwzjPH586iftTfSzJg0vE_2BYFiDUvWPvC_2B_2BuJScy0FRwyy7b2phdJktOhnvijv5Wl_2FNw_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>
