📄 200532114599.htm
字号:
<TR>
<td width="624" bgcolor="#CCCCCC">当前位置:<a href=../../index.htm>首页</a>--><a href=../../artical/69/1.htm>程序设计</a>--><a href=../../artical/80/1.htm>ASP专区</a>-->显示文章内容</td><td width="176" bgcolor="#CCCCCC"><span id="liveclock"></span></td>
</TR></TBODY></TABLE>
<table width="800" height="406" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="166" height="200" valign="top" scope="col"><table width="100%" height="163" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="119" valign="top" scope="col"><table width="180" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="../../search.asp" method="post" name="searchLeftForm">
<tr bgcolor="CAF6F4" align="center">
<td height="25" bgcolor="#CC9900"><font color="#cc0000"><b>□
站 内 搜 索 □</b></font></td>
</tr>
<tr align="center">
<td style="line-height:150%" height=60> 请输入查询的字符串:<br>
<input name="search" type="text" class="button1" id="search" style="width:150">
<select name="seaguan" size="1" class="button1" id="seaguan" style="width:150">
<option value="">==> 综合查询 <==</option>
<option value="title">标题</option>
<option value="断剑">作者</option>
<option value="artical">内容</option>
<%call getNewsBoardTree()%>
</select>
</td>
</tr>
<tr align="center">
<td>
<input type="SUBMIT" name="Action" value=" 查 询 " class="button2">
<input type="RESET" name="Clear" value=" 重 写 " class="button2">
</td>
</tr>
<tr align="center">
<td height="10"></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td height="20"><table width="181" height="20" cellpadding="0" cellspacing="0">
<tr><td width="181" height="20" align="center" bgcolor="#CC9900">分类最新文章</td>
</tr>
<tr><td><a href=2005414529.htm target=_blank>使用正则表达式实现模式图片新</a></td></tr><tr><td><a href=200541450.htm target=_blank>asp常用数据库连接方法和技</a></td></tr><tr><td><a href=2005414428.htm target=_blank>使用简单的方法进行批量删除数</a></td></tr><tr><td><a href=2005414315.htm target=_blank>asp提高首页性能的一个技巧</a></td></tr><tr><td><a href=2005414230.htm target=_blank>ASP防注入之解决方案--加</a></td></tr><tr><td><a href=2005414158.htm target=_blank>使用ASP加密算法加密你的数</a></td></tr><tr><td><a href=2005414120.htm target=_blank>常用ASP自定义函数集</a></td></tr><tr><td><a href=2005414035.htm target=_blank>使用ASP生成HTML文件</a></td></tr><tr><td><a href=20054135956.htm target=_blank>在Flash中使用ASP技术</a></td></tr><tr><td><a href=200533011127.htm target=_blank>在asp中多个虚拟目录 se</a></td></tr>
</table></td>
</tr>
<tr>
<td height="20"><table width="181" height="20" cellpadding="0" cellspacing="0">
<tr><td width="181" height="20" align="center" bgcolor="#CC9900">分类热门文章</td>
</tr>
<tr><td><a href=200532713295.htm target=_blank>断剑新闻系统商业版!</a></td></tr><tr><td><a href=200532115451.htm target=_blank>有关sql注入</a></td></tr><tr><td><a href=200532115410.htm target=_blank>ASP、JSP、PHP 三种</a></td></tr><tr><td><a href=200532014532.htm target=_blank>[原创]关于断剑新闻系统1.</a></td></tr><tr><td><a href=2005320135030.htm target=_blank>[本站原创]用VS.NET封</a></td></tr><tr><td><a href=200532115337.htm target=_blank>改进性能和样式的 24个 A</a></td></tr><tr><td><a href=200532818925.htm target=_blank>初学asp的朋友 asp20</a></td></tr><tr><td><a href=2005414529.htm target=_blank>使用正则表达式实现模式图片新</a></td></tr><tr><td><a href=200532115122.htm target=_blank>用asp自动解析网页中的图片</a></td></tr><tr><td><a href=20053281846.htm target=_blank>DataGrid动态添加模板</a></td></tr>
</table></td>
</tr>
</table></td>
<td width="628" valign="top" scope="col"><table width="100%" border="0" align="center" cellspacing="0" cellpadding="5" bordercolordark="#FFFFFF" bordercolorlight="#000000" style="word-break:break-all;">
<tr>
<td width="100%">
</td>
</tr>
<tr>
<td width="100%">
<div align="center">
<p class="style7"><SPAN class=style1>ASP学习:远程注册自己的组件</SPAN></p>
<hr size="1" color="#0a778b" width="100%">
发布时间：2005-3-21 被阅览数：<SCRIPT src="../../counter.asp?id=376"></SCRIPT> 次 作者：断剑
</div>
</td>
</tr>
<tr>
<td width="100%"><p class="style6">把asp程序作成dll很多好处，但是有一点，该dll必须注册才能在asp中调用。如果是自己的服务器那还好，但如果是租用的虚拟服务器，就没办法使用了。 <BR>怎样在远程主机上注册我们的dll呢？在服务器端使用Shell！！！ <BR><BR>让我们先将自己的dll文件通过ftp或http上传到服务器上，然后作一个asp程序，调用WScript.Shell来 执行regsvr32命令： <BR>Set oShell = CreateObject ("WScript.Shell") <BR>oShell.Run "c:\WINNT\system32\regsvr32.exe /s d:\xxx.dll", 0, False <BR>当然如果对方的服务器安全搞的很好的话，这个代码也许就不能用了，但不管怎么样，学习一下 也是好的，：） <BR>在这里也要提醒那些出租空间的朋友，你的服务器是否限制了使用WScript.Shell的权限？还是小心为妙 <BR><BR>完整代码如下，保存为.asp即可使用： <BR><% Response.Buffer = True %> <BR><% Server.ScriptTimeout = 500 <BR>Dim frmFolderPath, frmFilePath <BR><BR>frmFolderPath = Request.Form("frmFolderPath") <BR>frmFilePath = Request.Form("frmDllPath") <BR>frmMethod = Request.Form("frmMethod") <BR>btnREG = Request.Form("btnREG") <BR>%> <BR><BR><HTML> <BR><HEAD> <BR><TITLE>Regsvr32.asp</TITLE> <BR><STYLE TYPE="TEXT/CSS"> <BR>.Legend {FONT-FAMILY: veranda; FONT-SIZE: 14px; FONT-WEIGHT: bold; COLOR: blue} <BR>.FS {FONT-FAMILY: veranda; FONT-SIZE: 12px; BORDER-WIDTH: 4px; BORDER-COLOR: green; <BR>MARGIN-LEFT:2px; MARGIN-RIGHT:2px} <BR>TD {MARGIN-LEFT:6px; MARGIN-RIGHT:6px; PADDING-LEFT:12px; PADDING-RIGHT:12px} <BR></STYLE> <BR></HEAD> <BR><BR><BODY> <BR><FORM NAME="regForm" METHOD="POST"> <BR><TABLE BORDER=0 CELLSPACING=6 CELLPADDING=6 MARGINWIDTH=6> <BR><TR> <BR><TD VALIGN=TOP> <BR><FIELDSET ID=FS1 NAME=FS1 CLASS=FS> <BR><LEGEND CLASS=Legend>Regsvr Functions</LEGEND> <BR>Insert Path to DLL Directory<BR> <BR><INPUT TYPE=TEXT NAME="frmFolderPath" VALUE="<%=frmFolderPath%>"><BR> <BR><INPUT TYPE=SUBMIT NAME=btnFileList VALUE="Build File List"><BR> <BR><% <BR>IF Request.Form("btnFileList") <> "" OR btnREG <> "" Then <BR>Set RegisterFiles = New clsRegister <BR>RegisterFiles.EchoB("<B>Select File</B>") <BR>Call RegisterFiles.init(frmFolderPath) <BR>RegisterFiles.EchoB("<BR><INPUT TYPE=SUBMIT NAME=btnREG VALUE=" & Chr(34) _ <BR>& "REG/UNREG" & Chr(34) & ">") <BR>IF Request.Form("btnREG") <> "" Then <BR>Call RegisterFiles.Register(frmFilePath, frmMethod) <BR>End IF <BR>Set RegisterFiles = Nothing <BR>End IF <BR>%> <BR></FIELDSET> <BR></TD> <BR></TR> <BR></TABLE> <BR></FORM> <BR></BODY> <BR></HTML> <BR><% <BR>Class clsRegister <BR><BR>Private m_oFS <BR><BR>Public Property Let oFS(objOFS) <BR>m_oFS = objOFS <BR>End Property <BR><BR>Public Property Get oFS() <BR>Set oFS = Server.CreateObject("Scripting.FileSystemObject") <BR>End Property <BR><BR>Sub init(strRoot) 'Root to Search (c:, d:, e:) <BR>Dim oDrive, oRootDir <BR>IF oFS.FolderExists(strRoot) Then <BR>IF Len(strRoot) < 3 Then 'Must Be a Drive <BR>Set oDrive = oFS.GetDrive(strRoot) <BR>Set oRootDir = oDrive.RootFolder <BR>Else <BR>Set oRootDir = oFS.GetFolder(strRoot) <BR>End IF <BR>Else <BR>EchoB("<B>Folder ( " & strRoot & " ) Not Found.") <BR>Exit Sub <BR>End IF <BR>setRoot = oRootDir <BR><BR>Echo("<SELECT NAME=" & Chr(34) & "frmDllPath" & Chr(34) & ">") <BR>Call getAllDlls(oRootDir) <BR>EchoB("</SELECT>") <BR>BuildOptions <BR>End Sub <BR><BR>Sub getAllDlls(oParentFolder) '通过fso列举所有的dll和ocx文件 <BR>Dim oSubFolders, oFile, oFiles <BR>Set oSubFolders = oParentFolder.SubFolders <BR>Set opFiles = oParentFolder.Files <BR><BR>For Each oFile in opFiles <BR>IF Right(lCase(oFile.Name), 4) = ".dll" OR Right(lCase(oFile.Name), 4) = ".ocx" Then <BR>Echo("<OPTION VALUE=" & Chr(34) & oFile.Path & Chr(34) & ">" _ <BR>& oFile.Name & "</Option>") <BR>End IF <BR>Next <BR><BR>On Error Resume Next <BR>For Each oFolder In oSubFolders 'Iterate All Folders in Drive <BR>Set oFiles = oFolder.Files <BR>For Each oFile in oFiles <BR>IF Right(lCase(oFile.Name), 4) = ".dll" OR Right(lCase(oFile.Name), 4) = ".ocx" Then <BR>Echo("<OPTION VALUE=" & Chr(34) & oFile.Path & Chr(34) & ">" _ <BR>& oFile.Name & "</Option>") <BR>End IF <BR>Next <BR>Call getAllDlls(oFolder) <BR>Next <BR>On Error GoTo 0 <BR>End Sub <BR><BR>Sub Register(strFilePath, regMethod) <BR>Dim theFile, strFile, oShell, exitcode <BR>Set theFile = oFS.GetFile(strFilePath) <BR>strFile = theFile.Path <BR><BR>Set oShell = CreateObject ("WScript.Shell") <BR><BR>IF regMethod = "REG" Then 'Register <BR>oShell.Run "c:\WINNT\system32\regsvr32.exe /s " & strFile, 0, False <BR>exitcode = oShell.Run("c:\WINNT\system32\regsvr32.exe /s " & strFile, 0, False) <BR>EchoB("regsvr32.exe exitcode = " & exitcode) <BR>Else 'unRegister <BR>oShell.Run "c:\WINNT\system32\regsvr32.exe /u/s " & strFile, 0, False <BR>exitcode = oShell.Run("c:\WINNT\system32\regsvr32.exe /u/s " & strFile, 0, False) <BR>EchoB("regsvr32.exe exitcode = " & exitcode) <BR>End IF <BR><BR>Cleanup oShell <BR>End Sub <BR><BR>Sub BuildOptions <BR>EchoB("Register: <INPUT TYPE=RADIO NAME=frmMethod VALUE=REG CHECKED>") <BR>EchoB("unRegister: <INPUT TYPE=RADIO NAME=frmMethod VALUE=UNREG>") <BR>End Sub <BR><BR>Function Echo(str) <BR>Echo = Response.Write(str & vbCrLf) <BR>End Function <BR><BR>Function EchoB(str) <BR>EchoB = Response.Write(str & "<BR>" & vbCrLf) <BR>End Function <BR><BR>Sub Cleanup(obj) <BR>If isObject(obj) Then <BR>Set obj = Nothing <BR>End IF <BR>End Sub <BR><BR>Sub Class_Terminate() <BR>Cleanup oFS <BR>End Sub <BR>End Class <BR>%> <BR></p>
<p><img src="http://www.koyee.com/images/dgg.gif" height="70" width="587"> </p></td>
</tr>
<tr>
<td width="628" bordercolor="0" class="font1"><p>
<hr size="1" color="#0a778b" width="100%">
<table><tr><td width="269" align="center">上一篇: <a href=../80/200532114572.htm title=保存图片到SQL 2000 Server数据库>保存图片到SQL 2000 Server数据库</a> </td>
<td width="285" align="center">下一篇: <a href=../90/200542823048.htm title=gew>gew</a></td>
</tr></table>
<hr size="1" color="#0a778b" width="100%">
<div align="right"> <a href="javascript:window.print()"><img src="../../images/printer.gif" width="16" height="14" border="0" align="absmiddle">打印本页</a> | <a href="javascript:window.close()"><img src="../../images/close.gif" width="14" height="14" border="0" align="absmiddle">关闭窗口</a> </div>
<p></p></td>
</tr>
</table></td>
</tr>
</table>
<TABLE height=62 cellSpacing=0 cellPadding=0 width="800"
align=center background=../../images/webtop_bg.gif
border=0>
<TBODY>
<TR>
<TD><div align="center" class="style4">Copyright @ 2004-2008 http://www.koyee.com 可以网络在线版权所有<br>
公司地址:江西南昌 电话:13879173467 邮编:330029<br>
email:chenxueyan9999@163.com</div></TD>
</TR></TBODY></TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -