ASP做的acdsee

原创 2004年10月03日 15:36:00

我的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>

acdsee ultimate 2018破解教程

acdsee photo studio ultimate 2018是目前最流行的一款数字图像处理软件,被网友简称为acdsee ultimate 2018。acdsee ultimate 2018软件...
  • sum_mer521
  • sum_mer521
  • 2017年12月22日 16:18
  • 565

巧用ACDsee看图处理软件进行批量打印

        我们做站的,在做站的过程当中经常会碰到处理图片的情况,也经常为了打印站上多张图片,老是一张接着一张的点打印操作来完成多张图片的打印,我之前也是这样操作的,现在才发现这样的操作真的很笨,...
  • gary18
  • gary18
  • 2011年05月05日 13:45
  • 1212

acdsee 15中文版的许可证密钥+激活方法

按以下方法就可以使用了,进入注册表的命令是:开始-运行-输入regedit   进入注册表后按下面的步骤操作就行。 ACDSee15中文版激活英文版激活码5NR9CW-SSRMMY-KFWMQU-Z...
  • xiaojie_cp
  • xiaojie_cp
  • 2015年05月21日 15:24
  • 2718

ACDSee Pro v5.2 英文破解版

下载:http://www.ctdisk.com/file/8381507
  • MaxWoods
  • MaxWoods
  • 2013年02月26日 21:31
  • 1036

ACDSee 15/ACDSee Pro 6简体中文版破解注册机

作者:xiaoqing   发布:2013-06-13 11:51   分类:软件   阅读:7,529   5条评论   ACDSee(奥视迪)是非常流行的看图工具之一。它提供...
  • huangxy10
  • huangxy10
  • 2013年09月13日 10:03
  • 23998

ACDsee

内容介绍       ACDsee 官方免费版这款软件是目前最流行的看图工具之一,它能广泛应用于图片的获取、管理、浏览、优化甚至和他人的分享,使用 ACDSee,你可以从数码相机和扫描仪高效...
  • folgenfF
  • folgenfF
  • 2018年01月04日 14:12
  • 42

ACDSee Photo Studio Ultimate 2018 for Mac(专业图片处理软件)免注册码版 v4.0.588破解版

ACDSee Photo Studio Ultimate 2018 for Mac(专业图片处理软件)免注册码版 v4.0.588破解版,详见博客:http://003e5258-ab01-4b8c-...
  • j1176364952
  • j1176364952
  • 2018年01月07日 16:49
  • 57

关于仿AcdSee软件的源代码以及解说

package Picviewer;import java.awt.*;import java.awt.event.*;import java.awt.image.*;import java.io.*...
  • lanwanjun
  • lanwanjun
  • 2010年05月12日 00:56
  • 512

ACDSee Photo Studio Ultimate 2018(图片处理软件)官方正式版V2018.11.1.1272载 | ACDSee Photo Studio

ACDSee Photo Studio Ultimate 2018 是一款专业的图片后期处理软件,也是Windows平台上上佳的图形图像最佳解决方案之一,支持超过100个图形文件格式以及超过500个相...
  • wllssss
  • wllssss
  • 2017年12月10日 16:32
  • 79

抛弃Acdsee,评论几款看图软件;呼唤能自动翻转照片的功能

 Acdsee 一直用了那么久了,确实不错,可惜鉴于版权及体积太臃肿的考虑,尝试了一些其他软件,简介如下:1. IrfanViewer (Win, 免费) 个人评级: ****  优点: 比较小巧,完...
  • Tycool
  • Tycool
  • 2008年10月29日 12:59
  • 7891
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP做的acdsee
举报原因:
原因补充:

(最多只允许输入30个字)