|
<%’最近游览
session("Recently_view")=id&","&session("Recently_view")
’去掉重复浏览
str=session("Recently_view")
Arraystrs = split(str,",",-1)
intNumstrs=UBound(Arraystrs)-LBound(Arraystrs)
For i=0 To intNumstrs-1
y=0
for x=i to intNumstrs-1
if Arraystrs(i)=Arraystrs(x) and i <> x then
y=1
end if
next
if y=0 then
mmstr=mmstr&","&Arraystrs(i)
end if
next
mmstr=right(mmstr,len(mmstr)-1)
’session("Recently_view")=""
Set Rsrv=Server.CreateObject("ADODB.Recordset")
sqlrv="Select top 4 id,title from download where id in ("&mmstr&") order by id desc"
rsrv.open sqlrv,conn,1,1
do while not rsrv.eof
response.write "<a href=’view.asp?id="&rsrv("id")&"’>"&rsrv("title")&"</a>"
rsrv.movenext
loop
rsrv.close
set rsrv=nothing%>
【2010-11-15】 【浏览72次】
上一篇：网站制作时关于管理员账号删除的设计
下一篇：只能输入数字的JS验证函数
|
