test5.asp

ASP编写的一个公司网站的源程序

<script>
function openNewWinImg(imgPath){
	imgA=new Array();
	imgPathA=new Array();	
	if (document.images.img0.src!="") 
	{
	imgA[0] = new Image();
	imgA[0].src = document.images.img0.src;
	alert(imgA[0].src)
	var w = imgA[0].width+5;
	var h = imgA[0].height+25;
	imgform.himg1.value=w 
	imgform.himg2.value=h   
	showModelessDialog(imgA[0].src+"?","enlarge","dialogWidth:"+w+"px;dialogHeight:"+h+"px;center=1;status:0;scroll=0;help=0;")
	}
	return false;
}
</script>
<% 
  strPhoto = "logo.gif"
  strPhoto1 = "logo3e.gif"
 %>
<form name=imgform ID="Form1">
<a href="#" onclick="javascript:return openNewWinImg('/Images/<%=strPhoto%>')"><img src="/Images/<%=strPhoto%>" alt="Click to enlarge " border="0" name="img0" ></a>
<a href="#" onclick="javascript:return openNewWinImg('/Images/<%=strPhoto1%>')"><img src="/Images/<%=strPhoto1%>" alt="Click to enlarge " border="0" name="img1" ></a>
	长度<input type=text name=himg1 value="" ID="Text1">
	高度<input type=text name=himg2 value="" ID="Text2">    
</form>