<head>
<title>图片</title>
<HTA:APPLICATION
APPLICATIONNAME="图片"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"
ShowInTaskBar="yes"
MaximizeButton="no"
MinimizeButton="no"
SCROLL="no"
NAVIGABLE="yes"
BORDER="thin"
>
</head>
<script language="VBScript">
window.resizeTo 330,400
ileft=(window.screen.width-330)/2
itop=(window.screen.height-400)/2
window.moveTo ileft,itop
</script>
<body bgcolor="0099ff" /设置背景颜色>
<span id="path"></span><p>
<input type="button" name="liulan" value="游览" onclick="liulan">
</body>
<script language="VBScript">
path.innerHTML = "<img src='11.jpg' border='1' width='300' height='300' alt='图片'>"
Sub liulan
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "JPG File|*.jpg|"
objDialog.ShowOpen
path.innerHTML = "<img src='" + objDialog.FileName + "' border='1' width='300' height='300' alt='图片'>"
End Sub
</script>
