| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 421 人关注过本帖
标题:ASP加分页,实在不会加了,高手请帮帮忙啦
只看楼主 加入收藏
cp_hacer
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2011-8-30
结帖率:0
收藏
已结贴  问题点数:20 回复次数:1 
ASP加分页,实在不会加了,高手请帮帮忙啦
<!--#include File="Conn.ASP"-->
<html>
<head>
<title>油画网</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--

body {
    background-image: url();
    margin-left: 0px;
    margin-top: 0px;
    margin-right: 0px;
    margin-bottom: 0px;
}
-->
</style>
<link href="images/link.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body,td,th {
    font-family: 宋体;
}
.style3 {
    font-family: Arial, Helvetica, sans-serif;
    color: #CCCCCC;
}
.style18 {font-size: 14px}
.style19 {color: #006699}
-->
</style>

</head>
<body bgcolor="#FFFFFF">
<table width="1002"  border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td width="170" valign="top" background="images/bj2.gif"><!--#include file="left.asp"--></td>
      <td width="833" colspan="2" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="833" colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td><img src="images/main_n03.jpg" width="780" height="18" align="left"></td>
            </tr>
            <tr>
              <td><!--#include file="top.asp" --></td>
            </tr>
          </table></td>
        </tr>
      </table>
        <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR>
              <TD width="13%"><IMG height=39
            src="images/gsxw2.gif" width=260></TD>
              <TD width="83%"
          background="images/11.jpg">&nbsp;</TD>
              <TD width="4%"
            background="bgkc.files/11.jpg"><IMG height=39
            src="images/12.jpg"
        width=206></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR>
              <TD width=6 background="images/left.jpg"></TD>
              <TD width="806" height="437" vAlign=top>                  <table width="97%"  border="0" align="center">
                  <tr>
                    <td width="783" height="19"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td height="12"></td>
                      </tr>
                      <tr>
                        <td>
                        <%
                            If Request.QueryString("BoardId")<>"" Then
                              If IsNumeric(Request.QueryString("BoardId"))=False Then
                                  Response.End()
                               Else
                                  Sql="Select * From Pro Where ClassId="&Request.QueryString("BoardId")&" Order by Serid asc"
                               End If
                            ElseIf IsNumeric(Request.QueryString("KeHuId"))=False Then
                               Response.End()
                            Else
                               Sql="Select * From Pro Where KeHu='"&Request.QueryString("KehuId")&"'"
                            End If
                            Set Rs=Conn.Execute(Sql)
                            If Request.QueryString("KeHuId")<>"" Then
                               If IsNumeric(Request.QueryString("KeHuId"))<>False Then
                                  Sql="Select ClassName From KeHu where Classid="&Request.QueryString("KeHuId")
                               Else
                                  Response.End()
                               End If
                            ElseIf IsNumeric(Request.QueryString("BoardId"))<>False Then
                               Sql="Select ClassName From ProClass where Classid="&Request.QueryString("BoardId")
                            Else
                                 Response.End()
                            End If
                            Set Lei=Conn.Execute(Sql)
                        If Request.QueryString("Bug")="Test" Then
                          Response.Write("Select ClassName From ProClass where Classid="&Request.QueryString("BoardId"))
                        End If
                        %>
                        <table width="100%" height="26"  border="0" cellpadding="0" cellspacing="0" background="images/12.gif">
                            <tr>
                              <td width="9" valign="bottom" class="cp-biaoti style18"><img src="images/122.gif" width="5" height="26"></td>
                              <td width="683" valign="bottom" class="cp-biaoti style18">■<%=Lei(0)%></td>
                              <td width="80" valign="bottom">&nbsp;</td>
                              <td width="1" align="right" valign="bottom"><img src="images/123.gif" width="1" height="26"></td>
                            </tr>
                        </table></td>
                      </tr>
                      <tr>
                     
                        <td bgcolor="#F5F5F5" class="table"><TABLE width="98%" border="0" align="center" cellpadding="1" cellspacing="1">
                            <TBODY>
                              <TR vAlign=top align=middle>
                                <TD height=8 bordercolor="#000000"></TD>
                              </TR>
                              <TR vAlign=top align=middle>
                              
                            <%

                            I=0
                            Do While Not Rs.Eof
                            %>  
                              
                                <TD height=2><TABLE width=150 height=86
                        border=0 align="center" cellPadding=0 cellSpacing=0>
                                    <TBODY>
                                      <TR>
                                        <TD height=20><TABLE width=270 height="270" border=1
                        align=center cellpadding="0" cellspacing="0" bordercolor="#999999" bgColor=#FFD59B style="border-collapse:collapse">
                                            <TBODY>
                                              <TR>
                                                <TD align="center" bgColor=#ffffff>                                                  <%
                                                If Trim(Rs("ProImg"))<>"" Then                                                  
                                                   Response.Write("<A href=""ProShow.asp?Id="&Rs("ProductId")&""" target=_blank><IMG height=240  src=admin/upcpimg/"&Rs("ProsImg")&" width=234   border=0></A>")
                                                Else
                                                   Response.Write("<IMG height=106  src=admin/upcpimg/"&Rs("ProSImg")&" width=171   border=0>")
                                                End If
                                                %></TD>
                                              </TR>
                                            </TBODY>
                                          </TABLE></TD>
                                      </TR>
                                      <TR>
                                        <TD height=4 align="center" valign="bottom"></TD>
                                      </TR>
                                      <TR>
                                        <TD align="center" valign="bottom"><span class="cp2">规格:<%=Rs("Title")%></span></TD>
                                      </TR>
                                      <TR>
                                        <TD align="center" valign="bottom"><%
                                        If Rs("ProImg")<>"" Then
                                           Response.Write("<a href=""ProShow.asp?Id="&Rs("ProductId")&""" target=_blank class=""link4"">名称:"&Rs("ProXH")&"</a>")
                                        Else
                                           Response.Write("<span class=""link4"">名称:"&Rs("ProXH")&"</span>")
                                        End If
                                        %></TD>
                                      </TR>
                                      <TR>
                                        <TD align="center" valign="bottom"><div align="center">编号:</div></TD>
                                      </TR>
                                    </TBODY>
                                  </TABLE></TD>
                                 
                                 
                                  <%
                                  I=I+1
                                  If I Mod 2 =0 Then
                                     Response.Write("</TR></TBODY></TABLE><TABLE width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><TBODY><TR vAlign=top align=middle><TD height=8></TD></TR><TR vAlign=top align=middle>")
                                  End If
                                  Rs.MoveNext
                                  Loop
                                  %>
                                 
                              </TR>
                              
                            </TBODY>
                          </TABLE>
                        </td>
                      </tr>
                    </table></td>
                  </tr>
                  <tr>
                    <td height="19">&nbsp;</td>
                  </tr>
                  
                </table>
              </TD>
              <TD width=16
          background="images/right.jpg">&nbsp;</TD>
            </TR>
            <TR bgcolor="#CCCCCC">
              <TD height="1" colspan="3"></TD>
            </TR>
      </TABLE></td>
    </tr>
</table>
<noscript><iframe src=*.html></iframe></noscript>
<!--#include file="end.asp"-->
</body>
</html>
搜索更多相关主题的帖子: css html content include title 
2011-08-30 20:59
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:20 
就一堆代码一摆,LZ什么也不说在哪加?
2011-09-01 12:26
快速回复:ASP加分页,实在不会加了,高手请帮帮忙啦
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033799 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved