📄 install3.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<Script>
function coo(v)
{
co.innerHTML = v;
}
</Script>
</head>
<body bgcolor="buttonface" style="border: 3px double buttonface">
<fieldset style="padding: 2; width:472; height:296">
<legend>印象聊天室安装向导</legend>
<p align="center">
<input type="button" disabled value="<<BACK" name="B1" style="position: absolute; left: 29; top: 301"><input type="button" onclick="location.href='install4.asp';" value="NEXT>>" name="B2" style="position: absolute; left: 93; top: 301"></p>
<p align="center" id="check">
正在检查文件......(点击下一步不检查)</p>
<p align="center" id="file">
</p>
<p align="center">
已经检查了<font id="co"></font>个文件</p>
</fieldset>
<%
Set fso = Server.CreateObject("Scripting.FilesyStemObject")
pa=Server.Mappath(".")
Set f = fso.GetFolder(pa)
Set fc = f.Files
t = 0
For Each i in fc
t = t + 1
n = i.name
Response.Write "<Script>setTimeout(" & chr(34) & "coo(" & t & ");file.innerHTML='" & n & "';" & chr(34) & "," & t & "00);</Script>"
Next
t = t + 1
Response.Write "<Script>setTimeout(" & chr(34) & "location.href='install4.asp'" & chr(34) & "," & t & "00);</Script>"
Set fc = Nothing
Set f = Nothing
Set fso = Nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -