1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
@echo off
chcp 65001 & cls

set ch="%1"
if "%ch%"=="""" echo no file & timeout 2 >nul & exit

:drop資料夾法
set HTML=%temp%\"%~n1".html

:HTML標頭
(
echo ^<meta charset="UTF-8" /^>^<title^>%~n1^</title^>
echo ^<head^>^<script^>function chg^(iD^){
echo var WH=document.getElementById^(iD^).style;
echo ^(WH.width==""^)?^(WH.width="100%%"^):^(WH.width=""^);
echo }^</script^>^<style type="text/css"^>
echo p {text-align:center}
echo img {width:50%%}
echo ^</style^>^</head^>
) > %HTML%

setlocal EnableDelayedExpansion
for /r %1 %%a in (*.jpg *.png *.bmp) do (
set /a const+=1
echo ^<p^>^<img src="%%a" id="id!const!" name="page!const!" title="%%~na" onClick="chg(id);location.href='#page!const!'"^>^</p^> >> %HTML%
)
start /max %HTML% &exit