产生随机图片名称得问题

产生随机图片名称，大侠帮我改改这个代码，我现在运行有问题啊，多谢
是在网页中运行啊<script language="VBScript" type="text/VBScript">
  Dim TopFlashMax as Integer
  Dim StrImageName as String
  TopFlashMax=6
  StrImageName=Trim(CStr(Int(Rnd*TopFlashMax)+1))
  StrImageName=StrImageName+".jpg"
</script><BODY background=StrImageName>

解决方案 »

  1.   

    什么问题？
    使用RND前请使用Randomize对随机数生成器做初始化的动作。即：
    ......
    Randomize
    StrImageName=Trim(CStr(Int(Rnd*TopFlashMax)+1))   
    ......
      

  2.   

    // Dim TopFlashMax as Integer
    Dim StrImageName as StringVBS只支持一种变量类型Variant改为：
    Dim TopFlashMax
    Dim StrImageName
      

  3.   

    我用
    alert(StrImageName)
    显示已经成功得到图片名称，但是为什么网页背景没有被设置为图片，仍然是白色??
    我现在运行没有错误，代码如下：
    <script language="VBScript" type="text/VBScript">
      Dim MaxImgNum
      Dim StrImageName
      MaxImgNum=6
      Randomize()
      StrImageName=Trim(CStr(Int(Rnd*MaxImgNum)+1))
      StrImageName=StrImageName+".jpg"
      alert(StrImageName)
    </script><BODY background=StrImageName>请帮助小弟，如何使图片设置为网页背景？？
      

  4.   

    建设用“YYYYMMDDHHIISS ＋ 毫秒 ＋ 随机数”格式这样重复的机率很小！
      

  5.   

    我知道问题肯定在最后一句：
    <BODY background=StrImageName>但是我不知道怎么写！
    青帮我啊
      

  6.   


    <BODY background=<%=StrImageName%>> ?
     
    但这样就要求那段script在开始时执行，不能在客户端的时候才执行
      

  7.   

    必须这样么？我只是一个HTML网页而已，没有服务器
    难道VBS就不行么？非得ASP脚本？？
      

  8.   

    <script language="VBScript" type="text/VBScript">
      Dim TopFlashMax as Integer
      Dim StrImageName as String
      TopFlashMax=6
       Randomize  StrImageName=Trim(CStr(Int(Rnd*TopFlashMax)+1))  StrImageName="Image" & StrImageName+".jpg"
    </script><BODY background="路径" & StrImageName>
      

  9.   

    <script language="VBScript" type="text/VBScript">
      Dim TopFlashMax as Integer
      Dim StrImageName as String
      TopFlashMax=6
       Randomize  StrImageName=Trim(CStr(Int(Rnd*TopFlashMax)+1))  StrImageName="Image" & StrImageName+".jpg"
    </script><BODY background="路径" & StrImageName>