UC知道ASP高手进来下可以吗啊................
来源：百度知道 编辑：UC知道 时间：2024/05/26 23:04:25
以下代码是一段滚动条（图片）的代码，在网页中显示图片在滚动，但是我仔细看了下，怎么没发现有链接图片的代码呢？请问此段代码图片是怎么加进来的？？？
%
Dim ipagecount
Dim ipagecurrent
Dim strorderBy
Dim irecordsshown,hangpicnum
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if
sql = "SELECT DesktopMiniPic,DesktopCk,DesktopName,DesktopId,DesktopLx FROM desktop where
DesktopHot=true ORDER BY DesktopId DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,1
rs.pagesize = 10
rs.cachesize = 10
ipagecount = rs.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5'>"
if rs.bof and rs.eof then
response.write "<tr&
%
Dim ipagecount
Dim ipagecurrent
Dim strorderBy
Dim irecordsshown,hangpicnum
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if
sql = "SELECT DesktopMiniPic,DesktopCk,DesktopName,DesktopId,DesktopLx FROM desktop where
DesktopHot=true ORDER BY DesktopId DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,1
rs.pagesize = 10
rs.cachesize = 10
ipagecount = rs.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5'>"
if rs.bof and rs.eof then
response.write "<tr&
<img src='"&rs("DesktopMiniPic")&"' border='0' width='110' height='87'>
这个就是引入图片的代码
for hangpicnum=1 to 10
if rs.eof then exit for
if rs("DesktopLx")=0 then
Response.Write"<td align='center' width='30%'>"
Response.Write"<table align=center border=0 cellpadding=12 cellspacing=0><tbody><td
align=center vlign=center width=135 height=111 class='picborder2'><a href='display.asp?id="&rs
("DesktopId")&"' target='_blank'><img src='"&rs("DesktopMiniPic")&"' border='0' width='110'
height='87'></a></td></tbody></table></td>"
elseif rs("DesktopLx")=1 then
Response.Write"<table align=center bgcolor='#ffffff' border=0 cellpaddin