"
  ObT(12,0) = "SmtpMail.SmtpMail.1"
   ObT(12,2) = "SmtpMail发信组件"
  ObT(13,0) = "Microsoft.XMLHTTP"
   ObT(13,2) = "数据传输组件"
  
  For i=0 To 13
   Set T=Server.CreateObject(ObT(i,0))
   If -2147221005 <> Err Then
   IsObj=True
   Else
   IsObj=false
   Err.Clear
   End If
   Set T=Nothing
   ObT(i,1)=IsObj
  Next
  
  
  Function RePath(S)
   RePath=Replace(S,"\","\\")
  End Function
  
  Function RRePath(S)
   RRePath=Replace(S,"\\","\")
  End Function
  
  If FolderPath<>"" then
   Session("FolderPath")=RRePath(FolderPath)
  End If
  
  If Session("FolderPath")="" Then
   FolderPath=RootPath
   Session("FolderPath")=FolderPath
  End if
  
  Function MainForm()
   SI="<form name=""hideform"" method=""post"" action="""&URL&""" target=""FileFrame"">"
   SI=SI&"<input type=""hidden"" name=""Action"">"
   SI=SI&"<input type=""hidden"" name=""FName"">"
   SI=SI&"</form>"
   SI=SI&"<table width='100%' height='100%' border='0' cellpadding='0' cellspacing='0' bgcolor='menu'>"
   SI=SI&am

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

在google里搜索更多ASP站长助手源代码

	Web www.51ec.org

上一篇信息学院： 在ASP中结合对象和组件

下一篇信息学院： 解析ASP的Application和Session对象