Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
Pro_list.asp
Package: pinke2010.rar [view]
Upload User: pengwei803
Upload Date: 2021-02-10
Package Size: 3311k
Code Size: 2k
Category:
WEB(ASP,PHP,...)
Development Platform:
HTML/CSS
- <div align=center>
- <table width="660" border="0" align="center" cellpadding="0" cellspacing="0">
- <tr>
- <td colspan="2">
- <table width="660" border="0" align="center" cellpadding="3" cellspacing="1" >
- <tr>
- <%
- set rs=server.createobject("adodb.recordset")
- sql="select * from gu_pro where userid="&rshy("id")&""
- sql=sql&" order by id desc"
- rs.open sql,conn,1,1
- dim a
- Set a=New PageList
- listLimit=6
- '模拟分页一页显示分页数
- pageLists=5
- '设置分页参数
- If rs.BOF or rs.EOF Then
- %>
- </tr>
- <tr bgcolor="#C6E3F4">
- <td height="24" align="center" bgcolor="#FFFFFF">暂无产品!</td>
- </tr>
- <%
- else
- dim x
- x=1
- '分页循环开始
- totalList=rs.recordcount
- a.InitPara=array(totalList,listLimit,pageLists)
- a.PageList()
- rs.pagesize=listLimit
- page = request("page")
- If page="" Then
- page=1
- End If
- rs.absolutepage = page
- %>
- <tr>
- <%for i=1 to rs.pagesize%>
- <td height="130" width="113" style="border: 1px solid #CECFCE">
- <p align="center">
- <a href="Showpro.asp?ku_id=<%=rs("id")%>">
- <img border="0" src="<%=rs("pic")%>" width="113" height="124"></a>
- </td>
- <td width="530">
- <div align="left">
- <table border="0" width="97" height="107" cellpadding="0" cellspacing="0">
- <tr>
- <td height="23" width="97" colspan="2"><b>名称</b>:</td>
- </tr>
- <tr>
- <td height="33" width="97" colspan="2"><a href="Showpro.asp?ku_id=<%=rs("id")%>"> <%=Trim(rs("name"))%></a></td>
- </tr>
- <tr>
- <td height="32" width="43"><b>价格</b>:</td>
- <td height="32" width="54"> <%=rs("price")%> 元</td>
- </tr>
- <tr>
- <td height="19" width="97" colspan="2">
- <p align="left"><a href="Gu_User.asp?guxing=epro&id=<%=rs("id")%>">
- <font color="#FF0000">编辑</font></a>
- <a href="Deal_user.asp?Action=delpro&id=<%=rs("id")%>">
- <font color="#FF0000">删除</font></a></td>
- </tr>
- </table>
- </div>
- </td>
- <% if x mod 3 =0 then%>
- </tr>
- <tr>
- <td height="2" width="640" colspan="2"></td>
- </tr>
- <tr align="center" width="320">
- <%
- end if
- x=x+1
- rs.movenext
- if rs.eof then exit for
- next
- end if
- %>
- </tr>
- </table></td>
- </tr>
- </form>
- </table>
- </div>
- <%
- rs.close
- set rs=nohing
- %>