我用asp生成html文件，想在刷新html文件时某个图片按照0-9的随机数显示，我做不了，望高人指点！

来源：百度知道 编辑：UC知道 时间：2024/05/31 12:01:38
我用asp生成html文件，想在刷新html文件时某个图片按照0-9的随机数显示，我做不了，望高人指点！
web_string=web_string+" <td width=""614"" height=""246"" align=""right"" valign=""bottom"" background=""../image/
web_string=web_string+"<script language=""JavaScript"">"&vbcrlf
web_string=web_string+"rnd.today=new Date(); "&vbcrlf
web_string=web_string+"rnd.seed=rnd.today.getTime(); "&vbcrlf
web_string=web_string+"function rnd() { "&vbcrlf
web_string=web_string+"rnd.seed = (rnd.seed*9301+49297) % 233280; "&vbcrlf
web_string=web_string+"return rnd.seed/(233280.0); "&vbcrlf
web_string=web_string+"}; "&vbcrlf
web_string=web_string+"function rand(number) { "&vbcrlf
web_string=web_string+"return Math.ceil(rnd()*number); "&vbcrlf
web_string=web_string+&quo

Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open ConnStr
Template = LoadFile("demo.html")
Template = Replace_DB_HTML_Labels(Template)
Template = Replace_DB_ASP_Labels(Template)
Template = Replace_Page_ASP_Labels(Template)
Response.write Template
conn.close
Set conn = nothing
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Function Get_Labels_Content(lable_code)
Dim TempStr
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT top 1 [Content] FROM [Tags] WHERE [alies]='" & lable_code & "'"
rs.Open sql,conn, 1,1
If Not rs.EOF Then
TempStr = rs("Content")
End If
rs.Close
Set rs = Nothing
Get_Labels_Content = TempStr
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Fu