\u8fd9\u7bc7\u6587\u7ae0\u5206\u4eab\u5b9e\u73b0\u731c\u540e\u53f0\u7684hta\u5c0f\u7a0b\u5e8f\u7684\u591a\u79cd\u65b9\u6cd5<\/p>\n
<input><input><div><\/div>\r\n<script>\r\nfunction isExist(url)\r\ndic=\"c:dic.dic\"\r\nSet fso = CreateObject(\"Scripting.FileSystemObject\")\r\nset zidian=fso.OpenTextFile(dic,1,False)\r\nDo While zidian.AtEndOfStream <> true\r\npath=zidian.readline\r\nset xmlhttp = CreateObject(\"Microsoft.XMLHTTP\")\r\n xmlhttp.open \"GET\",http.value+path,false\r\n xmlhttp.send\r\n t.innerHTML = t.innerHTML&url&path&\"--------\"&xmlhttp.status&\"<br>\"\r\n loop\r\nEnd Function\r\n<\/script><\/pre>\n\u767b\u5f55\u540e\u590d\u5236 <\/p>\n
==================JS\u7248\u5199\u6cd5\uff1a<\/p>\n
\u5982\u679c\u6362js\uff0c\u8981\u5c06\u7b2c\u4e8c\u884c\u7684\u201conclick=vbs:isExist(http.value)\u201d\u91cc\u7684”vbs:”\u53bb\u6389<\/p>\n
<script>\r\nfunction isExist(url) \r\n{\r\nvar myObject = new Object();\r\nmyObject.lcx1 = \"\/admin\/index.asp\";\r\nmyObject.lcx2 = \"\/safety\";\r\nmyObject.lcx3 = \"\/safetyx\";\r\nfor (lcx in myObject)\r\n{\r\nxmlhttp = new ActiveXObject(\"Microsoft.XMLHTTP\")\r\nxmlhttp.open(\"GET\",http.value+myObject[lcx],false)\r\nxmlhttp.send()\r\nif(xmlhttp.status==200) \r\nt.innerHTML += url+myObject[lcx]+\"\u5b58\u5728<br>\";\r\nelse\r\nt.innerHTML+= url+myObject[lcx]+\"\u4e0d\u5b58\u5728<br>\";\r\n}\r\n}\r\n<\/script><\/pre>\n\u767b\u5f55\u540e\u590d\u5236 <\/p>\n
\u5b57\u5178\u653e\u5728\u9875\u9762\u91cc\u7684\u5199\u6cd5vbscript\u7248\uff1a<\/p>\n
<script>\r\nfunction isExist(url)\r\nDim d \r\n Set d = CreateObject(\"Scripting.Dictionary\")\r\n d.Add \"a\",\"\/admin\/index.asp\" \r\n d.Add \"b\", \"\/safety\"\r\n d.Add \"c\", \"\/safetyx\"\r\n a = d.Keys \r\n For i = 0 To d.Count -1 ' \u904d\u5386\u6570\u7ec4\u3002\r\n set xmlhttp = CreateObject(\"Microsoft.XMLHTTP\")\r\n xmlhttp.open \"GET\",http.value+d.Item(a(i)),false\r\n xmlhttp.send\r\n if xmlhttp.status=200 then\r\n t.innerHTML = t.innerHTML+url+d.Item(a(i))+\"\u5b58\u5728<br>\"\r\n else\r\n t.innerHTML = t.innerHTML+url+d.Item(a(i))+\"\u4e0d\u5b58\u5728<br>\"\r\n end if\r\n Next\r\n end function\r\n\r\n<\/script><\/pre>\n\u767b\u5f55\u540e\u590d\u5236 <\/p>\n
===============================================<\/p>\n
<input><input><div><\/div>\r\n<script>\r\nfunction isExist(url)\r\nset objFile = CreateObject(\"SAFRCFileDlg.FileOpen\")\r\nintRet = objFile.OpenFileOpenDlg\r\nif intret then \r\ndic= objFile.filename\r\nend if\r\nif dic<>\"\" then\r\nSet fso = CreateObject(\"Scripting.FileSystemObject\")\r\nset zidian=fso.OpenTextFile(dic,1,False)\r\nIf 2 = MsgBox( \"\u5b57\u5178\u4e3a\uff1a\" & objFile.filename & vbCrLf & \" \u60a8\u786e\u5b9a\u5417\uff1f\", 32 + 1, \"\u8bf7\u786e\u8ba4\" ) Then isExist(http.value)\r\nDo While zidian.AtEndOfStream <> true\r\npath=zidian.readline\r\nset xmlhttp = CreateObject(\"Microsoft.XMLHTTP\")\r\n xmlhttp.open \"GET\",http.value+path,false\r\n xmlhttp.send\r\n t.innerHTML = t.innerHTML&url&path&\"--------\"&\"<font color=red>\"&xmlhttp.status&\"<br>\"\r\n loop\r\nend if\r\nEnd function\r\n<\/script><\/pre>\n\u767b\u5f55\u540e\u590d\u5236 <\/p>\n
=========\u6700\u540e\u4e00\u4e2a\u6bd4\u8f83\u597d\u7528<\/p>\n
\u4ee5\u4e0a\u5c31\u662f\u5b9e\u73b0\u731c\u540e\u53f0\u7684HTA\u5c0f\u7a0b\u5e8f\u7684\u591a\u79cd\u65b9\u6cd5\u7684\u8be6\u7ec6\u5185\u5bb9\uff0c\u66f4\u591a\u8bf7\u5173\u6ce8\u7c73\u4e91\u5176\u5b83\u76f8\u5173\u6587\u7ae0\uff01<\/p>\n","protected":false},"excerpt":{"rendered":"
\u8fd9\u7bc7\u6587\u7ae0\u5206\u4eab\u5b9e\u73b0\u731c\u540e\u53f0\u7684hta\u5c0f\u7a0b\u5e8f\u7684\u591a\u79cd\u65b9\u6cd5 <input><input><div><\/div> <script> function isExist(url) dic=”c:dic.dic” Set fso = CreateObject(“Scripting.FileSystemObject”) set zidian=fso.OpenTextFile(dic,1,False) Do While zidian.AtEndOfStream <> true path=zidian.readline set xmlhttp = CreateObject(“Microsoft.XMLHTTP”) xmlhttp.open “GET”,http.value+path,false xmlhttp.send t.innerHTML = t.innerHTML&url&path&”——–“&xmlhttp.status&”<br>” loop End Function <\/script> \u767b\u5f55\u540e\u590d\u5236 ==================JS\u7248\u5199\u6cd5\uff1a \u5982\u679c\u6362js\uff0c\u8981\u5c06\u7b2c\u4e8c\u884c\u7684\u201conclick=vbs:isExist(http.value)\u201d\u91cc\u7684”vbs:”\u53bb\u6389 <script> function isExist(url) { var myObject = new Object(); myObject.lcx1 = “\/admin\/index.asp”; myObject.lcx2 = “\/safety”; myObject.lcx3 = “\/safetyx”; for (lcx […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[19],"tags":[],"class_list":["post-28523","post","type-post","status-publish","format-standard","hentry","category-19"],"_links":{"self":[{"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/posts\/28523","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/comments?post=28523"}],"version-history":[{"count":0,"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/posts\/28523\/revisions"}],"wp:attachment":[{"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/media?parent=28523"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/categories?post=28523"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/tags?post=28523"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}