process.asp

来自「javascript source code part2」· ASP 代码 · 共 55 行

ASP
55 行
字号 
<%@ Language="JavaScript" %>
<%
var ImagesToShow = new Array(3);
var i;

if (Request.Form("choice") == "Music") 
{
   ImagesToShow[0] = "mozart.gif";
   ImagesToShow[1] = "beethoven.gif";
   ImagesToShow[2] = "chopin.gif"
}

if (Request.Form("choice") == "Visual_Arts") 
{
   ImagesToShow[0] = "vangogh.gif";
   ImagesToShow[1] = "michelangelo.gif";
   ImagesToShow[2] = "picasso.gif"
}
%>

<HTML>
<HEAD>
<SCRIPT>
var AllImages = new Array()
var CurrentImage = 0

<%
   for (i = 0; i < 3; i++) 
   {
      Response.Write("AllImages[" + i + "] = '" + ImagesToShow[i] + "';")
   }
%>

function NextImage() 
{
   if (CurrentImage == <%= i-1 %>) 
   {
      CurrentImage = 0
   } 
   else 
   {
      CurrentImage = CurrentImage + 1
   }
   document.images["slide"].src = AllImages[CurrentImage]
}
</SCRIPT>
</HEAD>

<BODY>
   <IMG SRC=<%= ImagesToShow[0] %> NAME="slide">
   <P>
   <INPUT TYPE="button" VALUE="Next Image" onClick="NextImage()">
</BODY>
</HTML>

process.asp - 源码说明

本页面展示了「javascript source code part2」中的 process.asp 源码文件，采用 ASP 编程语言编写，共 55 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与JavaScript相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?