有没有远程为服务器注册控件的方法???在线等。。。

ht1980 2003-09-17 09:47:43
rt
...全文
31 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
xxrl 2003-09-17
  • 打赏
  • 举报
回复
<%
Dim strPageName
strPageName = "Reg.asp"
If Request.Form("SUBMIT") = "" Then
Response.write "<CENTER><FORM ACTION=""" & strPageName & """ METHOD=POST>"
Response.write "<INPUT TYPE=TEXT NAME=FILEPATH SIZE=120>Full Path/Filename "
Response.write "to DLL to be registered/un registerd<BR>"
Response.write "<INPUT TYPE=CHECKBOX NAME=ACTIONTYPE CHECKED>Check to "
Response.write "Register; Uncheck to Unregister<BR>"
Response.write "<INPUT TYPE=SUBMIT NAME=SUBMIT VALUE=SUBMIT></CENTER>"
Response.write "</FORM>"
Else
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
strPath = objFileSystem.GetSpecialFolder(1) & "\REGSVR32.EXE /s "
Set objWshShell = CreateObject("WScript.Shell")
strRun = "CMD /C " & strPath & " /u "
If Request.Form("ACTIONTYPE")="on" Then strRun = "CMD /C " & strPath
strReturn = objWshShell.Run(strRun & Request.Form("FILEPATH"), 1, True)
Set objFileSystem = Nothing
Set objWshShell = Nothing
End If
%>

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧