注册 登录
编程论坛 → ASP技术论坛

全乱了求图片的效果

kevinxu0638 发布于 2010-11-30 15:40， 1038 次点击
只有本站会员才能查看附件，请 登录
谁有图片这样效果的代码给小弟一份
小弟发了个帖子
https://bbs.bccn.net/viewthread.php?tid=327292&highlight=%B7%D6%D2%B3 但问题没解决 我就是想实现图片的那样的效果 一行多记录显示并带分页
这是我自己做的一个
只有本站会员才能查看附件，请 登录
但是分页没法用 记录显示也不行 不对齐
拜求~~
26 回复
#2
kevinxu06382010-11-30 16:15
<%  
Dim db,strSql,rs
    Set db=Server.CreateObject("ADODB.Connection")
    db.Open "Dsn=background"                           
    Set rs=Server.CreateObject("ADODB.Recordset")
    strSql="Select * From news where typestr ='鲁菜'order by id desc"
    rs.Open strSql,db,1
    %>
    <table cellspacing="0" cellpadding="0" width="510"  background="../images/tu_di.gif" border="0">
      <tr>
        <td width="7"><img height="29" src="../images/tu(1).gif" width="7" /></td>
        <td ><font color="#ffffff"><b>列表</b></font></span></td>
        <td width="7"><img height="29" src="../images/tu1.gif" width="7" /></td>
      </tr>
    </table>
    <%
Rs.PageSize = 3
If Request("PageNo") = "" Then PageNo=1 Else PageNo = CInt(Request("PageNo"))
If PageNo < 1 Then Response.Redirect "?PageNo=1" & Qs
If PageNo > Rs.PageCount And Rs.PageCount > 0 Then Response.Redirect "?PageNo=" & Rs.PageCount & Qs
If Rs.Eof and Rs.Bof Then PageNo = 0 Else Rs.AbsOlutePage = PageNo
dim FY_i
FY_i=1
For x = 1 to Rs.PageSize
If Rs.Eof Then Exit For
if FY_i=1 or FY_i mod 3=1 then
%>
<table style="BORDER-RIGHT: #1f92ff 1px solid; BORDER-TOP: 0px; BORDER-LEFT: #1f92ff 1px solid; BORDER-BOTTOM: 0px;" cellspacing="0" width="510" border="0"  >
  <tr height="10"><%end if%>   
    <td valign="top">
    <div align="left"><%      
      if len(rs("title")) > 8  then  
      if (InStr(rs("memo"),"<img")>0) or (InStr(rs("memo"),"<IMG")>0) then
        %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.Write left(rs("title"),5)&" ..." %></a>&nbsp;<img src="../images/pic.gif" width="12" height="12"><%
         else
         %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.Write left(rs("title"),5)&" ..."%></a><%
         end if   
      else
          if (InStr(rs("memo"),"<img")>0) or (InStr(rs("memo"),"<IMG")>0)  then
          %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.write rs("title")%></a>&nbsp;<img src="../images/pic.gif" width="12" height="12"><%
         else
          %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
            response.write rs("title")%></a><%
            end if
      end if        
    %></div></td> <%
if FY_i mod 3=0 then
%>
  </tr>
  </table><% end if
FY_i=FY_i+1
rs.movenext
next
%> <table style="BORDER-RIGHT: #1f92ff 1px solid; BORDER-TOP: 0px; BORDER-LEFT: #1f92ff 1px solid; BORDER-BOTTOM: #1f92ff 1px solid" cellspacing="0" width="510" border="0" >

                <tr><td>&nbsp;</td></tr>   
              <tr>
                <td align="center">
            总[<span class="style1">
            <% = Rs.RecordCount%>
            </span>]条<strong>|</strong> <span class="style1">
            <% = Rs.PageSize%>
            </span>条<strong>/</strong>页 <strong>|</strong> 当前<span class="style1">
            <% = PageNo%>
            </span><strong>/</strong><span class="style1">
            <% = Rs.PageCount%>
            </span>页 <a href="lb.asp?PageNo=1" >首页</a> <a href="lb.asp?PageNo=" >上一页</a> <a href="lb.asp?PageNo=">下一页</a> <a href="lb.asp?PageNo=<% = Rs.RecordCount%>">尾页</a>
            <!--分页代码结束-->
</td>
              </tr>
            </table>
麻烦帮我看一下红色部分的?PageNo=后面写什么 这个分页的代码是我从网上找的 看的不是太明白
#3
aspic2010-11-30 17:28
PageNo + 1
PageNo - 1
#4
kevinxu06382010-11-30 17:54
回复 3楼 aspic
没用的 请看代码这一段If Request("PageNo") = "" Then PageNo=1 Else PageNo = CInt(Request("PageNo"))
你说的我试过的
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'CInt'
/sssss/files/lb.asp, 第 20 行
 
#5
madpbpl2010-12-01 00:56
说实话，我没有仔细看2#的代码，类型不匹配cint,楼主可以尝试换成clng尝试一下
#6
hams2010-12-01 08:02
用表格来定位
HTML没学好么？
#7
kevinxu06382010-12-01 09:30
回复 5楼 madpbpl
一样 还是不匹配
#8
kevinxu06382010-12-01 09:36
解决了PageNo=<% = PageNo-1%><% = Qs%>
PageNo=<% = PageNo+1%><% = Qs%>
#9
makebest2010-12-01 09:39
很明显应该用表格来排的.
#10
kevinxu06382010-12-01 09:46
回复 6楼 hams
我用的就是表格啊<td valign="top" width="170">但是不行
只有本站会员才能查看附件，请 登录
难道我方法不对请指教
#11
hams2010-12-01 11:59
是你的表格没搞对
你把浏览的HTML源代码放到Dreamweaver之类的编辑器里看看是个什么样。
#12
kevinxu06382010-12-01 12:07
回复 11楼 hams
我就是在DW里做的
#13
kevinxu06382010-12-01 12:17
回复 11楼 hams
<td valign="top" width="170">
    <div align="left"><a href="zw.asp?id=3" target="_blank">香烤鱼头王</a>&nbsp;<img src="../images/pic.gif" width="12" height="12"></div></td>   
    <td valign="top" width="170">
    <div align="left"><a href="zw.asp?id=4" target="_blank">煎雏肉</a>&nbsp;<img src="../images/pic.gif" width="12" height="12"></div></td>   
    <td valign="top" width="170">
    <div align="left"><a href="zw.asp?id=6" target="_blank">海参全家福</a></div></td>
    <tr height="10">   
    <td valign="top" width="170">
    <div align="left"><a href="zw.asp?id=1" target="_blank">海参全家福</a>&nbsp;<img src="../images/pic.gif" width="12" height="12"></div></td>   
    <td valign="top" width="170">
    <div align="left"><a href="zw.asp?id=2" target="_blank">香酥肉</a>&nbsp;<img src="../images/pic.gif" width="12" height="12"></div></td>
 
#14
wangjy5002010-12-01 12:45
程序代码：
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.">
<HTML xmlns="http://www.">
<HEAD><TITLE>菜单！</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
<!--
.wang500_1 {
    background-color: #006699;
    width: 498px;
    height: 30px;
    font-size: 14px;
    line-height: 30px;
    font-weight: bold;
    color: #FFFFFF;
    border-top-width: 1px;
    border-right-width: 1px;
    border-bottom-width: 1px;
    border-left-width: 1px;
    border-top-style: solid;
    border-right-style: solid;
    border-bottom-style: none;
    border-left-style: solid;
    border-top-color: #0066FF;
    border-right-color: #0066FF;
    border-bottom-color: #0066FF;
    border-left-color: #0066FF;
}
.wang500 {
    width: 498px;
    margin: 0px;
    padding: 0px;
    border-top-width: 1px;
    border-right-width: 1px;
    border-bottom-width: 1px;
    border-left-width: 1px;
    border-top-style: none;
    border-right-style: solid;
    border-bottom-style: solid;
    border-left-style: solid;
    border-top-color: #0066FF;
    border-right-color: #0066FF;
    border-bottom-color: #0066FF;
    border-left-color: #0066FF;
}
.wang500 div {
    float: left;
    height: 25px;
    width: 150px;
    margin-left: 15px;
    line-height: 25px;
}-->
</style>
</HEAD>
<BODY>
<div class="wang500_1">qqq</div>
<div class="wang500">
<div><li>香烤鱼头王</li></div>
<div><li>香烤鱼头王</li></div>
<div><li>香烤鱼头王</li></div>
<div><li>香烤鱼头</li></div>
<div><li>香烤鱼头王</li></div>
<div><li>香烤鱼头王</li></div>
<div><li>香烤鱼头</li></div>
<div><li>香烤鱼头王</li></div>
<div><li>香烤鱼头王</li></div>
<div><li>香烤鱼头王</li></div>
<div><li>香烤鱼头</li></div>
<div><li>香烤鱼头</li></div>
</div>

</BODY></HTML>
你这样子试试，把数据库内容放在“<div><li>香烤鱼头王</li></div>”这里重复就行了。
#15
kevinxu06382010-12-01 12:51
回复 14楼 wangjy500
试试 感觉不错 呵呵
#16
kevinxu06382010-12-01 15:40
回复 14楼 wangjy500
没用
只有本站会员才能查看附件，请 登录

代码是
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.
19991224/loose.dtd">
<HTML xmlns="http://www.
<HEAD><TITLE>菜单！</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
<!--
.wang500_1 {
    background-color: #006699;
    width: 510px;
    height: 30px;
    font-size: 14px;
    line-height: 30px;
    font-weight: bold;
    color: #FFFFFF;
    border-top-width: 1px;
    border-right-width: 1px;
    border-bottom-width: 1px;
    border-left-width: 1px;
    border-top-style: solid;
    border-right-style: solid;
    border-bottom-style: none;
    border-left-style: solid;
    border-top-color: #0066FF;
    border-right-color: #0066FF;
    border-bottom-color: #0066FF;
    border-left-color: #0066FF;
}
.wang500 {
    width: 510px;
    margin: 0px;
    padding: 0px;
    border-top-width: 1px;
    border-right-width: 1px;
    border-bottom-width: 1px;
    border-left-width: 1px;
    border-top-style: none;
    border-right-style: solid;
    border-bottom-style: solid;
    border-left-style: solid;
    border-top-color: #0066FF;
    border-right-color: #0066FF;
    border-bottom-color: #0066FF;
    border-left-color: #0066FF;
}
. div {
    float: left;
    height: 25px;
    width: 120px;
    margin-left: 15px;
    line-height: 25px;
}-->
</style>
</HEAD>
<BODY>
<div class="wang500_1">qqq</div>
<div class="wang500">
<div><li><a href="zw.asp?id=3" target="_blank">香烤鱼头王</a>&nbsp;<img src="../images/pic.gif" width="12"  
height="12"></li></div>   
<div><li><a href="zw.asp?id=4" target="_blank">煎雏肉</a>&nbsp;<img src="../images/pic.gif" width="12"  
height="12"></li></div>   
<div><li><a href="zw.asp?id=6" target="_blank">海参全家福</a></li></div>   
<div><li><a href="zw.asp?id=1" target="_blank">海参全家福</a>&nbsp;<img src="../images/pic.gif" width="12"  
height="12"></li></div>   
<div><li><a href="zw.asp?id=2" target="_blank">香酥肉</a>&nbsp;<img src="../images/pic.gif" width="12"  
height="12"></li></div>
</div>
</BODY></HTML>
这是为什么啊
#17
kevinxu06382010-12-01 15:45
呵呵知道哪儿错了
#18
kevinxu06382010-12-01 16:33
回复 14楼 wangjy500
wangjy500 大侠帮忙帮到底吧！
只有本站会员才能查看附件，请 登录
只有本站会员才能查看附件，请 登录

我的想法是一页显示四条记录 但是我第一页还是把所有的记录都显示了 我知道是代码里多了循环的语句 可惜我找不出来 大侠们帮帮忙看看
程序代码：
<%
    Dim X_typestr
    X_typestr=Request.QueryString("typestr")
Dim db,strSql,rs
    Set db=Server.CreateObject("ADODB.Connection")
    db.Open "Dsn=background"                          
    Set rs=Server.CreateObject("ADODB.Recordset")
    strSql="Select * From news where typestr ='鲁菜'order by id desc"
    rs.Open strSql,db,1
    %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.>
<HTML xmlns="http://www.>
<HEAD><TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
<!--
.wang500 {
    width: 508px;
    margin: 0px;
    padding: 0px;
    border-top-width: 1px;
    border-right-width: 1px;
    border-bottom-width: 1px;
    border-left-width: 1px;
    border-top-style: none;
    border-right-style: solid;
    border-bottom-style: solid;
    border-left-style: solid;
    border-top-color:  #1f92ff;
    border-right-color:  #1f92ff;
    border-bottom-color:  #1f92ff;
    border-left-color:  #1f92ff;
}
.wang500 div {
    float: left;
    height: 25px;
    width: 148px;
    margin-left: 15px;
    line-height: 25px;
}-->
</style>
</HEAD>
<BODY>
<table cellspacing="0" cellpadding="0" width="510"  background="../images/tu_di.gif" border="0">
      <tr>
        <td width="7"><img height="29" src="../images/tu(1).gif" width="7" /></td>
        <td ><font color="#ffffff"><b>列表</b></font></span></td>
        <td width="7"><img height="29" src="../images/tu1.gif" width="7" /></td>
      </tr>
    </table>
    <%
Rs.PageSize = 4
If Request("PageNo") = "" Then PageNo=1 Else PageNo = CInt(Request("PageNo"))
If PageNo < 1 Then Response.Redirect "?PageNo=1"
If PageNo > Rs.PageCount And Rs.PageCount > 0 Then Response.Redirect "?PageNo=" & Rs.PageCount
If Rs.Eof and Rs.Bof Then PageNo = 0 Else Rs.AbsOlutePage = PageNo

For x = 1 to Rs.PageSize
If Rs.Eof Then Exit For
%>
<div class="wang500">
<%do while not rs.eof%>
<div><li><%
    if rs.eof then
       else
      if len(rs("title")) > 8  then
      if (InStr(rs("memo"),"<img")>0) or (InStr(rs("memo"),"<IMG")>0) then
        %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.Write left(rs("title"),5)&" ..." %></a>&nbsp;<img src="../images/pic.gif" width="12" height="12"><%
         else
         %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.Write left(rs("title"),5)&" ..."%></a><%
         end if  
      else
          if (InStr(rs("memo"),"<img")>0) or (InStr(rs("memo"),"<IMG")>0)  then
          %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.write rs("title")%></a>&nbsp;<img src="../images/pic.gif" width="12" height="12"><%
         else
          %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
            response.write rs("title")%></a><%
            end if
      end if
      end if      
    %></li></div>
    <%rs.movenext
loop%><table cellspacing="0" width="508" border="0" >

                <tr><td>&nbsp;</td></tr>  
              <tr>
                <td align="center">
            总[<span class="style1">
            <% = Rs.RecordCount%>
            </span>]条<strong>|</strong> <span class="style1">
            <% = Rs.PageSize%>
            </span>条<strong>/</strong>页 <strong>|</strong> 当前<span class="style1">
            <% = PageNo%>
            </span><strong>/</strong><span class="style1">
            <% = Rs.PageCount%>
            </span>页 <a href="Untitled-2.asp?PageNo=<% =Rs.AbsOlutePage%>">首页</a> <a href="Untitled-2.asp?PageNo=<% = PageNo - 1%>">上一页</a> <a href="Untitled-2.asp?PageNo=<% = PageNo + 1%>">下一页</a> <a href="Untitled-2.asp?PageNo=<% =Rs.PageCount%>">尾页</a>
         
</td>
              </tr>
            </table>

</div><%
next
%>


</BODY></HTML>
#19
wangjy5002010-12-01 18:04
程序代码：
<div class="wang500">
<%For x = 1 to Rs.PageSize
If Rs.Eof Then Exit For
%>
<div><li><%
    if  not rs.eof then
     if len(rs("title")) > 8  then
      if (InStr(rs("memo"),"<img")>0) or (InStr(rs("memo"),"<IMG")>0) then
        %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.Write left(rs("title"),5)&" ..." %></a>&nbsp;<img src="../images/pic.gif" width="12" height="12"><%
         else
         %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.Write left(rs("title"),5)&" ..."%></a><%
         end if
      else
          if (InStr(rs("memo"),"<img")>0) or (InStr(rs("memo"),"<IMG")>0)  then
          %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.write rs("title")%></a>&nbsp;<img src="../images/pic.gif" width="12" height="12"><%
         else
          %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
            response.write rs("title")%></a><%
            end if
      end if
      end if     
    %></li></div>
    <%rs.movenext
next%>
注意红色部分！

[ 本帖最后由 wangjy500 于 2010-12-1 18:07 编辑 ]
#20
kevinxu06382010-12-01 18:07
回复 19楼 wangjy500
错误类型：
Microsoft VBScript 编译器错误 (0x800A040E)
'loop' 语句缺少 'do'
/sssss/files/Untitled-2.asp, line 85
loop

这个我好像试过的
#21
wangjy5002010-12-01 18:09
把loop改成next
#22
kevinxu06382010-12-01 18:11
回复 21楼 wangjy500
错误类型：
Microsoft VBScript 编译器错误 (0x800A041F)
错误的 'Next'
/sssss/files/Untitled-2.asp, line 87
next
#23
wangjy5002010-12-01 18:28
没道理的啊。把你改好的找码放上来看看，
#24
kevinxu06382010-12-01 21:12
回复 23楼 wangjy500
<%  
    Dim X_typestr
    X_typestr=Request.QueryString("typestr")
Dim db,strSql,rs
    Set db=Server.CreateObject("ADODB.Connection")
    db.Open "Dsn=background"                           
    Set rs=Server.CreateObject("ADODB.Recordset")
    strSql="Select * From news where typestr ='鲁菜'order by id desc"
    rs.Open strSql,db,1
    %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.
<HTML xmlns="http://www.
<HEAD><TITLE>菜单！</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
<!--
.wang500 {
    width: 508px;
    margin: 0px;
    padding: 0px;
    border-top-width: 1px;
    border-right-width: 1px;
    border-bottom-width: 1px;
    border-left-width: 1px;
    border-top-style: none;
    border-right-style: solid;
    border-bottom-style: solid;
    border-left-style: solid;
    border-top-color:  #1f92ff;
    border-right-color:  #1f92ff;
    border-bottom-color:  #1f92ff;
    border-left-color:  #1f92ff;
}
.wang500 div {
    float: left;
    height: 25px;
    width: 148px;
    margin-left: 15px;
    line-height: 25px;
}-->
</style>
</HEAD>
<BODY>
<table cellspacing="0" cellpadding="0" width="510"  background="../images/tu_di.gif" border="0">
      <tr>
        <td width="7"><img height="29" src="../images/tu(1).gif" width="7" /></td>
        <td ><font color="#ffffff"><b>列表</b></font></span></td>
        <td width="7"><img height="29" src="../images/tu1.gif" width="7" /></td>
      </tr>
    </table>
    <%
Rs.PageSize = 4
If Request("PageNo") = "" Then PageNo=1 Else PageNo = CInt(Request("PageNo"))
If PageNo < 1 Then Response.Redirect "?PageNo=1"
If PageNo > Rs.PageCount And Rs.PageCount > 0 Then Response.Redirect "?PageNo=" & Rs.PageCount
If Rs.Eof and Rs.Bof Then PageNo = 0 Else Rs.AbsOlutePage = PageNo
%>
<div class="wang500">
<%For x = 1 to Rs.PageSize
If Rs.Eof Then Exit For
%>
<div><li><%
    if  not rs.eof then
     if len(rs("title")) > 8  then
      if (InStr(rs("memo"),"<img")>0) or (InStr(rs("memo"),"<IMG")>0) then
        %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.Write left(rs("title"),5)&" ..." %></a>&nbsp;<img src="../images/pic.gif" width="12" height="12"><%
         else
         %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.Write left(rs("title"),5)&" ..."%></a><%
         end if
      else
          if (InStr(rs("memo"),"<img")>0) or (InStr(rs("memo"),"<IMG")>0)  then
          %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.write rs("title")%></a>&nbsp;<img src="../images/pic.gif" width="12" height="12"><%
         else
          %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
            response.write rs("title")%></a><%
            end if
      end if
      end if     
    %></li></div>
    <%rs.movenext
next%>
<table cellspacing="0" width="508" border="0" >

                <tr><td>&nbsp;</td></tr>   
              <tr>
                <td align="center">
            总[<span class="style1">
            <% = Rs.RecordCount%>
            </span>]条<strong>|</strong> <span class="style1">
            <% = Rs.PageSize%>
            </span>条<strong>/</strong>页 <strong>|</strong> 当前<span class="style1">
            <% = PageNo%>
            </span><strong>/</strong><span class="style1">
            <% = Rs.PageCount%>
            </span>页 <a href="Untitled-2.asp?PageNo=<% =Rs.AbsOlutePage%>">首页</a> <a href="Untitled-2.asp?PageNo=<% = PageNo - 1%>">上一页</a> <a href="Untitled-2.asp?PageNo=<% = PageNo + 1%>">下一页</a> <a href="Untitled-2.asp?PageNo=<% =Rs.PageCount%>">尾页</a>
            <!--分页代码结束-->
</td>
              </tr>
            </table>
 
</div>


</BODY></HTML>
麻烦指点
#25
wangjy5002010-12-02 13:06
if  not rs.eof then
     if len(rs("title")) > 8  then
      if (InStr(rs("memo"),"<img")>0) or (InStr(rs("memo"),"<IMG")>0) then
        %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.Write left(rs("title"),5)&" ..." %></a>&nbsp;<img src="../images/pic.gif" width="12" height="12"><%
         else
         %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.Write left(rs("title"),5)&" ..."%></a><%
         end if
      else
          if (InStr(rs("memo"),"<img")>0) or (InStr(rs("memo"),"<IMG")>0)  then
          %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.write rs("title")%></a>&nbsp;<img src="../images/pic.gif" width="12" height="12"><%
         else
          %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
            response.write rs("title")%></a><%
            end if
      end if
      end if
把这段换成 response.write rs("title")看循环有没有错！
#26
kevinxu06382010-12-02 13:25
回复 25楼 wangjy500
这样没了 但是我要那段是片段文章有没有图片和控制标题长度的啊 这个你知道的吧
#27
kevinxu06382010-12-02 13:29
回复 25楼 wangjy500
谢谢你wangjy500 搞定了 原来里面多了个    if  not rs.eof then ，else忘写了 谢谢
1
©2025, BC-CN.NET
电脑版