ASP读取ACCESS记录中图片地址并显示

<!--#include file="conn.asp"-->
<!--#include file = "sysadm/inc/ubbcode_pic2.asp"-->
  <%
Set Rs = Conn.Execute("Select * From pic Where CD = '"&Request.QueryString("CD")&"'")
%><style type="text/css">
<!--
body,td,th {
    font-size: 12px;
    color: #FF6600;
}
body {
    background-color: #000000;
    background-image: url();
}
a {
    font-size: 12px;
    color: #FF6600;
}
a:link {
    text-decoration: none;
}
a:visited {
    text-decoration: none;
    color: #FF6600;
}
a:hover {
    text-decoration: none;
    color: #FF0000;
}
a:active {
    text-decoration: none;
}
-->
</style>
<title><%=web_name%></title>
<link rel="shortcut icon" href="favicon.ico" />
<meta name="keywords" content="<%=Keywords%>">
<meta name="description" content="<%=Description%>">
<meta name="Copyright" content="<%=web_banquan%>"/>
<script language="javascript" src="js/alpha.js"></script>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="95%" align="center" valign="top"><table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td valign="top"><div align="center">
         <%
cd=request("cd")
set rsw=server.createobject("adodb.recordset")
sql="select top 2 * from [picurl] where id='"&cd&"' order by pid asc"
rsw.open sql,Conn,1,1
rsw.movenext '这样就跳到了下一个
'这样下面条语句输出的就是第二个。
response.write "<img id=""img"" src=""UploadFiles/"&Rsw("picurl")&""">"

rsw.close
set rsw=nothing
%>
        </div></td>
      </tr>
      <tr>
        <td><br>
          <div align="center"><%=dvHTMLEnCode(Rs("dbcl_english"))%></div></td>
      </tr>
    </table>    </td>
    <td width="5%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="100%"  border="0" cellspacing="5" cellpadding="0">
      <tr>
      
        <%
cd=request("cd")
dim sql,rsf,arrlists,p,ii
set rsf=server.createobject("adodb.recordset")
sql="select * from [picurl] where id='"&cd&"' and len(picurl) > 0 order by pid asc"
rsf.open sql,Conn,1,1
i=0
ii=1
rsf.PageSize =10 '每页记录条数
mpages=rsf.PageSize
            iCount=rsf.RecordCount '记录总数
            iPageSize=rsf.PageSize
            maxpage=rsf.PageCount
            page=request("page")
   
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
   
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
   
    rsf.AbsolutePage=Page

    if page=maxpage then
        x=iCount-(maxpage-1)*iPageSize
    else
        x=iPageSize
    end if

rsf.movenext
do while not rsf.eof and ii<=rsf.pagesize

response.write "<Td><img style='filter:alpha(opacity=50);cursor:hand; border:1px #ffffff solid;' onMouseOver='nereidFade(this,100,30,5)' onMouseOut='nereidFade(this,50,50,5)'' onclick=""img('"&rsf("picurl")&"')"" src='UploadFiles/"&rsf("picurl")&"' width='76' height='68'></td>"
rsf.movenext
i=i+1
ii=ii+1
if i mod 2=0 then
response.write "</tr><tr>"
end if
loop

%><div align="center"><span class="pages cb">当前第<%=page%>页 共<%=(iCount-1)%>张</span></div></tr></table>
<%
rsf.close
set rsf=nothing
call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>","篇")%></td>
      </tr>
      <tr>
        <td><table width="100%"  border="0" align="left" cellpadding="0" cellspacing="0">
            <tr>
              <td><table width="100%" height="21"  border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td height="25"><b style="color:#ffffff; ">拍摄主题:<%=Rs("title_china")%>&nbsp;</b></td>
                  </tr>
                </table>
                  <table width="100%" height="21"  border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td height="25"><b style="color:#ffffff; ">拍摄时间:</b> <%=Rs("ks_china")%></td>
                    </tr>
                  </table>
                  <table width="100%" height="50"  border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td height="25"><%=dvHTMLEnCode(Rs("dbcl_china"))%></td>
                    </tr>
                    <tr>
                      <td height="25"><div align="center"><a href="#" onClick="javascript:window.close();return false;">关闭窗口</a></div></td>
                    </tr>
                </table></td>
            </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>
<script language="JavaScript">
<!--

function high(which2)
{
theobject=which2
highlighting=setInterval("highlightit(theobject)",10)
}
function low(which2)
{
clearInterval(highlighting)
which2.filters.alpha.opacity=50
}
function highlightit(cur2)
{
if(cur2.filters.alpha.opacity<100)
cur2.filters.alpha.opacity+=10
else if(window.highlighting)
clearInterval(highlighting)
}

//-->
    </script>
    <script language="javascript" defer>
function img(obj){
var img = document.getElementById("img");
img.style.filter="revealTrans(duration=1)";
img.style.filter="revealTrans(transition=23)";
img.filters(0).apply();
img.src = "UploadFiles/"+obj
img.filters(0).play();
}
    </script>
</body>
</html>
<%
Sub PageControl(iCount,pagecount,page,table_style,font_style,alt)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table " & Table_style & " border=1 width=100% cellpadding=4 style=""border-collapse: collapse"" bordercolor=#CCCCCC>" & vbCrLf )      
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=left >" & vbCrLf )
    Response.Write(font_style & vbCrLf )   
      
    if page<=1 then
     
        Response.Write ("<font color='#FF6600'>上页</font> " & vbCrLf)
    else        

        Response.Write("<A style='color:#FF6600' HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A>&nbsp;" & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("<font color='#FF6600'>下页</font>&nbsp;" & vbCrLf)
      
    else
        Response.Write("<A style='color:#FF6600' HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A>&nbsp;" & vbCrLf)
     
    end if


    Response.Write("</TD>" & vbCrLf )               
    Response.Write("</TR></form>" & vbCrLf )      
    Response.Write("</table>" & vbCrLf )      
End Sub

%>

<div id="imageFlow">
        <div class="top"></div>
        <div class="bank">
            <a rel="images/ct81.jpg" title="Optimists" href="123">They don't know all the facts yet</a>
            <a rel="images/ct134.jpg" title="Empathy" href="123">Emotional intimacy</a>
            <a rel="images/ct41.jpg" title="Much work" href="123">...remains to be done before we can announce our total failure to make any progress</a>
            <a rel="images/ct75.jpg" title="System error" href="123">Errare Programma Est</a>
            <a rel="images/bl201.jpg" title="Nonexistance" href="123">There's no such thing</a>
            <a rel="images/ct137.jpg" title="Inside" href="123">I抦 now trapped, without hope of escape or rescue</a>
            <a rel="images/ct65.jpg" title="E-Slaves" href="123">The World is flat</a>
            <a rel="images/or105.jpg" title="l0v3" href="123">1 l0v3 j00 - f0r3v3r</a>
            <a rel="images/ct139.jpg" title="T minus zero" href="123">111 111 111 x 111 111 111 = 12345678987654321</a>
            <a rel="images/ct27.jpg" title="The End" href="123">...has not been written yet</a>
        </div>