Make ASP programs a lot of benefits, but one thing, the DLL must be registered to call in ASP. If it is your own server, it is okay, but if it is a virtual server, there is no way to use it.
How to register our DLL on the remote host? Use the shell on the server! ! !
ID = "AD_TOP" name = "ad_top" align = "left" marginwidth = "0" marginheight = "0" src = "http://adv.pconline.com.cn/adpuba/show?id=pc.rjzx. Kaifa.wenzhang.hzh. & media = html & pid = cs.pconline.rjzx.hzh. "Frameborder =" 0 "width =" 320 "scrolling =" no "height =" 280 "> Let us first pass its own DLL file through FTP Or http upload to the server, then make an ASP program, call wscript.shell to execute the regsvr32 command: set Oshell = CreateObject ("wscript.shell") Oshell.run "C: /winnt/system32/Regsvr32.exe / sd: / xxx.dll ", 0, false, of course, if the other party is safe, this code may not be used, but no matter what, learning is also good, :) Also remind those rental space Friends, do your servers limit the permissions using WScript.Shell? Still be careful
The full code is as follows, saved as .asp can be used:
<% Response.buffer = true%> <% server.scripttimeout = 500 dimfolderpath, frmfilepath
FRMFolderPath = Request.form ("frmfolderpath") frmfilepath = request.form ("frmdllpath") frmmethod = request.form ("frmmethod") btnreg = request.form ("btnreg")%>
regsvr32.asp </ title> <style type = "text / css"> .legend {font-family: veranda; font-size: 14px; font-weight: bold; color: blue } .Fs {font-family: Veranda; Font-size: 12px; border-width: 4px; border-color: green; margin-left: 2px; margin-right: 2px} TD {margin-left: 6px; margin Right: 6px; Padding-Left: 12px; Padding-Right: 12px} </ stop> </ head></p>
<p><Body> <form name = "regform" method = "post"> <table border = 0 cellspacing = 6 cellpadding = 6 marginwidth = 6> <tr> <td value = top> <fieldset id = fs1 name = fs1 class = FS> <legend class = legend> Regsvr functions </ legend> INSERT path to DLL Directory <br> <input type = text name = "frmfolderpath" value = "<% = frmfolderpath%>> <br> <input type = Submit name = btnfilelist value = "build file list"> <br> <% if Request.form ("btnfileList") <> "" "" "or btnreg <>" "THEN SET registerfiles = new clsregister registerfiles.echob (" <b> SELECT FILE </ B> ") Call registerfiles.init (frMfolderpath) registerfiles.echob (" <BR> <input type = Submit name = btnreg value = "& chr (34) _ &" reg / unreg "& chr (34 ) & ">") <> "" "" "BTNREG") <> "" "" frmfilepath, frmmethod) end if set registerfiles = not%> </ fieldset> </ td> </ tr > </ Table> </ form> </ body> </ html> <% class clsregisterPrivate M_OFS</p>
<p>Public property let offs (objofs) m_ofs = Objofs End Property</p>
<p>Public property Get OFS () set OFS = Server.createObject ("scripting.filesystemObject") End Property</p>
<p>Sub init (strroot) 'root to search (C:, D:, E :) Dim Odrive, orootdir if offs.folderexists (strroot) Then if len (strroot) <3 TEN' MUST BE A Drive Set ODRIVE = OFS.GETDRIVE (strroot) set orootdir = ODrive.Rootfolder else set ootdir = OFS.GETFOLDER (STRROOT) Endiffer ("& strroot &") NOT Found. ") Exit Sub end if set = ootdirecho (" <Select name = "& chr (34) &" frmdllpath "& chr (34) &"> ") Call getAllDlls (OROOTDIR) ECHOB (" </ select> ") BuildOptions End Sub</p>
<p>Sub getAllDlls (OparentFolder) 'lists all DLL and OCX files through FSO DIM Osubfolders, Ofile, Ofiles Set Osubfolders = OparentFolder.Subfolders Set OpFiles = OparentFolder.Files</p>
<p>For Each Ofile In Opfiles if Right (Lcase (Ofile.Name), 4) = ".dll", 4) = ".ocx" the echo ("<option value =" & chr (34) & Ofile.Path & Chr (34) & "> _ & Ofile.Name &" </ Option> ") End if Next</p>
<p>ON Error Resume Next for Each ofolder in Osubfolders' Itereate All Folders In Drive Set ofiles = Ofolder.Files for Each Ofile IN Ofiles if Right (Lcase (Ofile.Name), 4) = ".dll" or right (Lcase. Name), 4) = ".ocx" TEN Echo ("<option value =" & chr (34) & ipath & chr (34) & "> _ & iplile.name &" </ option> ") End if Next Call GetAllDlls (Ofolder) Next ON Error Goto 0 End Sub</p>
<p>Sub Register (strfilepath, regmethod) Dim the, strfile, oshell, exitcode set thefile = OFS.GETFILE (STRFILEPATH) STRFILE = thefile.path</p>
<p>Set Oshell = CreateObject ("wscript.shell") if regmethod = "reg" the 'register oshell.run "c: /winnt/system32/regsvr32.exe / s" & strfile, 0, false exitcode = oshell.run (" C: /winnt/system32/regsvr32.exe / s "& strfile, 0, false) ECHOB (" Regsvr32.exe exitcode = "& exitcode) else 'unregister oshell.run" C: /Winnt/System32/Regsvr32.exe / U / S "& STRFILE, 0, FALSE EXITCODE = Oshell.Run (" c: /winnt/system32/regsvr32.exe / u / s "& strfile, 0, false) echob (" regsvr32.exe exitcode = "& exitcode ) End IF</p>
<p>Cleanup Oshell End Sub</p>
<p>Sub BuildOptions ECHOB ("Register: <Input Type = Radio Name = frmmeth value = reg checked>") ECHOB ("Unregister: <input type = radio name = frmmethod value = unreg>) End Sub</p>
<p>Function Echo (STR) Echo = response.write (str & vbcrlf) end function</p>
<p>Function echob (str) echob = response.write (str & "<br>" & vbcrlf) end function</p>
<p>Sub Cleanup (OBJ) IF IsObject (obj) THEN SET OBJ = Nothing End If Sub</p>
<p>SUB Class_Terminate () Cleanup OFS End Sub End Class%></p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-19360.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="19360" 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.035</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 = 'IG5rNTbXpO0HvLVFyA7vIizgp6Ds9l_2FvYRwIxpz_2B2q7qMsinoKkgh9OL8V0a6spuDdVJrOSpMHfimBNMUeQM8Q_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>
