欢迎来到天天文库
浏览记录
ID:24226140
大小:60.50 KB
页数:4页
时间:2018-11-13
《远程注册自己的组件》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、远程注册自己的组件>>教育资源库把asp程序作成dll很多好处,但是有一点,该dll必须注册才能在asp中调用。如果是自己的服务器那还好,但如果是租用的虚拟服务器,就没办法使用了。怎样在远程主机上注册我们的dll呢?在服务器端使用Shell!!!让我们先将自己的dll文件通过ftp或http上传到服务器上,然后作一个asp程序,调用ethod=Request.Form(frmMethod)btnREG=Request.Form(btnREG)%><HTML><HEAD><TITLE>Regsvr32.asp<
2、;/TITLE><STYLETYPE=TEXT/CSS>.Legend{FONT-FAMILY:veranda;FONT-SIZE:14px;FONT-ILY:veranda;FONT-SIZE:12px;BORDER-ARGIN-LEFT:2px;MARGIN-RIGHT:2px}TD{MARGIN-LEFT:6px;MARGIN-RIGHT:6px;PADDING-LEFT:12px;PADDING-RIGHT:12px}</STYLE></HEAD><BODY><FORMNAME=regF
3、ormMETHOD=POST><TABLEBORDER=0CELLSPACING=6CELLPADDING=6MARGINE=FS1CLASS=FS><LEGENDCLASS=Legend>RegsvrFunctions</LEGEND>InsertPathtoDLLDirectory<BR><INPUTTYPE=TEXTNAME=frmFolderPathVALUE=<%=frmFolderPath%>><BR><INPUTTYPE=SUBMITNAME=b
4、tnFileListVALUE=BuildFileList><BR><%IFRequest.Form(btnFileList)<>ORbtnREG<>ThenSetRegisterFiles=NeFolderPath)RegisterFiles.EchoB(<BR><INPUTTYPE=SUBMITNAME=btnREGVALUE=Chr(34)_REG/UNREG&quo123下一页>>>>这篇文章来自..,。t;Chr(34)>)IFRequest.Form(btnREG)<
5、;>ThenCallRegisterFiles.Register(frmFilePath,frmMethod)EndIFSetRegisterFiles=NothingEndIF%></FIELDSET></TD></TR></TABLE></FORM></BODY></HTML><%ClassclsRegisterPrivatem_oFSPublicPropertyLetoFS(objOFS)m_oFS=objOFSEndPropertyPublicP
6、ropertyGetoFS()SetoFS=Server.CreateObject(Scripting.FileSystemObject)EndPropertySubinit(strRoot)'RoottoSearch(c:,d:,e:)DimoDrive,oRootDirIFoFS.FolderExists(strRoot)ThenIFLen(strRoot)<3Then'MustBeaDriveSetoDrive=oFS.GetDrive(strRoot)SetoRootDir=oDrive.RootFolderElseSetoRootDir=
7、oFS.GetFolder(strRoot)EndIFElseEchoB(<B>Folder(strRoot)NotFound.)ExitSubEndIFsetRoot=oRootDirEcho(<SELECTNAME=Chr(34)frmDllPathChr(34)>)CallgetAllDlls(oRootDir)EchoB(</SELECT>)BuildOptionsEndSubSubgetAllDlls(oParentFolder)'通过fso列举所有的dll和ocx文件DimoSubFolders,oFile
8、,oFilesSetoSubFolders=oParentFolder.SubF
此文档下载收益归作者所有