ASP做的acdsee
来源:互联网 发布:江西先锋软件学校 编辑:程序博客网 时间:2024/04/28 03:43
我的acdsee,两个文件
acdsee.htm
<html>
<head>
<META name=VI60_defaultClientScript content=VBScript>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>浏览器防acdsee看图程序</title>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub Submit_onclick
window.open "acdsee.asp",null,"fullscreen=yes"
window.opener=null
window.close
End Sub
-->
</SCRIPT>
</head>
<body>
浏览器防acdsee看图程序,载入根据图片多少,每500张,需要1分钟或者更长时间,请稍等.....<br>
<input type="button" name="Submit" value="是,我想看">
</body>
</html>
acdsee.asp文件
<body bgcolor="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="top" nowrap id=mytd>
<select id=select1 name=select1>
<%
Dim FSO,picname,mycount
mycount=0
Set FSO = server.CreateObject("Scripting.FileSystemObject")
'这句换成自己的文件夹路径
DoDir FSO.GetFolder("c:")
Sub DoDir(Folder)
On Error Resume Next
Dim File,SubFolder
For Each File In Folder.Files
'WScript.StdOut.WriteLine File.Path
if lcase(right(File.Path,4))=".jpg" or lcase(right(File.Path,4))="jpeg" then
mycount=mycount+1
%>
<option value="<%=File.Path%>"><%=trim(File.Name)%></option>
<%
picname=File.Path
end if
Next
For Each SubFolder in Folder.SubFolders
DoDir SubFolder
Next
End Sub
-->
%></select>
<br>
<input type="button" name="Submit1" value="上一个" onclick="vbs:prevpic">
<br>
<input type="button" name="Submit2" value="下一个" onclick="vbs:nextpic">
<br>
<input type="button" name="Submit3" value="随机播放幻灯片" onclick="vbs:showme">
<br>
<input type="button" name="Submit32" value="关闭窗口" onClick="vbs:shutdown">
<br>
<font color="#FFFFFF">共<%=mycount%>张</font><br>
</td>
<td width="100%" align="center" valign="top" ><img src="<%=picname%>" id="mypic" onmouseout="vbs:mytd.style.display='block'" onmouseover="vbs:mytd.style.display='none'"></td>
</tr>
</table>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
dim flag
flag=0
Sub select1_onchange
showpic
End Sub
sub prevpic()
if select1.selectedIndex=0 then
select1.selectedIndex=select1.options.length-1
showpic
else
select1.selectedIndex=select1.selectedIndex-1
showpic
end if
end sub
sub nextpic()
if select1.selectedIndex=select1.options.length-1 then
select1.selectedIndex=0
showpic
else
select1.selectedIndex=select1.selectedIndex+1
showpic
end if
end sub
sub slidshow()
if Submit3.value=" 停 止 " then
window.setTimeout "rndpic","3000"
window.setTimeout "slidshow","3000"
end if
end sub
sub showpic()
dim beisx,beisy,beis
mypic.src=trim(select1.value)
end sub
sub rndpic()
dim Mypicid
randomize
Mypicid=int(rnd * select1.options.length)
select1.selectedIndex=Mypicid
showpic
end sub
sub showme()
flag=flag+1
if flag mod 2 =0 then
Submit3.value="随机播放幻灯片"
else
Submit3.value=" 停 止 "
slidshow
end if
end sub
sub shutdown()
window.opener=null
window.close
end sub
-->
</SCRIPT>
- ASP做的acdsee
- ACDSee
- 简单在于的acdsee 2012
- acdsee 看不到缩略图不能批量查看的解决方法!哈哈!
- 关于仿AcdSee软件的源代码以及解说
- 仿ACDSee批量重命名,实现简单的带模板重命名
- ACDSEE中,把两张图片放在一起的步骤
- acdsee 15中文版的许可证密钥+激活方法
- XP图片查看器的替代软件-超简版ACDSee
- ACDSee 3.1
- 还是Acdsee
- 做asp
- 用asp做access的远程接口
- 利用 JSP的思想来做ASP
- [ASP]其实做小偷是很容易的
- 用asp来做免费邮箱的访问
- Asp与JavaScript做的级联菜单
- C#做的ASP.NET登錄篇
- 动态增删表
- js的isdate函数
- xml文档存储过程
- UTF-8与偷GOOGLE数据
- GIF图像格式(一)——基础算法(上)
- ASP做的acdsee
- jbuilder2005不能启动问题的解决
- 页面显示的技巧
- 日期转化汉字最短版
- 清除WORD冗余格式并粘贴
- 围棋打谱
- 解析Dom节点和属性
- 每天莫忘五件事
- some collected macros for C++