帮写个ASP随机标签

来源：百度知道 编辑：UC知道 时间：2024/05/21 19:59:56
有10个广告链接ad1,ad2,ad3~~~ad10,
每次刷新显示其中2个或一个。
1:
<%
dim conn
dim connstr
dim db
db="#Data_url.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
' connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
' connstr="driver={SQL Server};server=localhost;UID=sa;PWD=;database=club"
conn.Open connstr
%>

2:

<%
pno=request.serverVariables("HTTP_X_UP_CALLING_LINE_ID")
pno=right(pno,11)

set conn=Createobject("ADODB.Connection")
conn.ConnectionString="DBQ="& server.mappath("admin/#Data_url.mdb")& ";DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open
%>

请问这两个怎么指向下面的数据库

<%
dim rnd_list(10)
dim rnd_count
rnd_count=0
function rnd_u()
dim ok,x,i
randomize()
ok=0
do while ok=0
x=rnd()
ok=1
if rnd_count>0 then
for i=1 to rnd_count
if rnd_list(i)=x then ok=0
next
end if
loop
rnd_u=x
rnd_count=rnd_count+1
rnd_list(rnd_count)=x
end function

response.write "<script language='javascript'>"
response.write "location.href='ad"&rnd_u()&".html';"
response.write "</script>"
response.end()

可以随机产生1到10的一个数,再随机显示