📄 productlist0.asp
字号:
<% response.buffer=true %>
<!--#include file="conn.asp"-->
<!-- #include file="adovbs.inc" -->
<!--#include file="error.asp"-->
<%
'Lex.Shi code
user=session("user")
pwd=session("pwd")
chkuser user,pwd
%>
<%
on error resume next
dim currentPage,rowCount,i,idd
idd=int(request("idd"))
pid=int(request("pid")) 'big class
pcount=int(request("pcount")) 'if null
if pcount<>"" then
sql="select menu.title as mm,kind.title,kind.id,menu.id as mid,kind.class,menu.rdclass,kind.addtime from kind,menu where kind.class="&idd&" and kind.class=menu.rdclass and menu.class="&pid&" order by kind.id desc"
else
sql="select menu.title as mm,kind.title,kind.id,menu.id as mid,kind.class,menu.rdclass,kind.addtime from kind,menu where kind.class=menu.rdclass and menu.class="&pid&" order by kind.id desc"
end if
'sql="select * from kind where class="&idd&" order by id "
'response.Write sql '& request("currentPage")
'---------------------------------------------------------connect_recordset---begin--
currentPage=trim(request("currentPage"))
if currentPage="" then
currentPage=1
end if
currentPage=cINT(currentPage)
set rs=Server.CreateObject("ADODB.Recordset")
rs.PageSize=15 '-----每页15条记录---
rs.CursorType = adOpenStatic '---*-
rs.CursorLocation = adUseServer '--*--
rs.open Sql,Conn,adOpenStatic
'---------------------------------------------------------connect_recordset---end--
%>
<html>
<head>
<title>- 信息浏览 - </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css">
<!-- #include file="select.js" -->
</head>
<body bgcolor="#FEFBF1" background="images/sky2.gif" leftmargin=5 topmargin=0>
<p align="center"></p>
<p align="center"></p>
<div align="center"><br>
<%
dim a,b
a=1
b=2
if a=b then 'not if null
'showerr "没有信息，请点返回增加！","productlist0.asp?idd="&idd&"&pid="&pid&"&pcount='&^%$'"
'response.End()
else
if currentPage>rs.PageCount then
currentPage=rs.PageCount
end if
rs.AbsolutePage=cINT(currentPage)
%>
<font color="0099FF">[产品管理-<%=rs("mm")%>]</font> </div>
<div align=center>
<table width=742><tr>
<td bgcolor=#FEFBF1>
<form name="f_member" action="classlist.asp?idd=<%=idd%>&pid=<%=pid%>" method="post">
<% ShowPage %>
<% ShowTitle %>
<%
rowCount=0
k=0
while not rs.eof and rowCount<rs.PageSize
k=k+1
T_Id=rs("Id")
title=trim(rs("title"))
'pic=trim(rs("picname"))
'content=trim(rs("content"))
'type_id=rs("class")
'rdclass=rs("rdclass")
'op=rs("op")
'cp=rs("cp")
'links=rs("links")
addtime=rs("addtime")
DisplayData
rowCount=rowCount+1
rs.MoveNext
wend
%>
<% ShowFunction %>
</form>
<% ShowSubmitForm %>
<%
end if
%>
<table cellspacing=0 cellpadding=0 border=0><tr><td height=1 bgcolor=black></td></tr></table>
</td>
</tr></table>
<table width="56%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="10"> <div align="center"></div></td>
</tr>
<tr>
<td height="10"> <div align="center"><font size="2" face="宋体" color="#CCCCCC"><font color="#999999">CBUBS科技有限公司提供技术支持</font></font></div></td>
</tr>
<tr>
<td height="20"><div align="center"></div></td>
</tr>
</table>
</div>
<% Sub ShowPage()%>
<table width="742" cellpadding="0" cellspacing="1" bordercolor="#000000" border="0" >
<tr bgcolor="#FFFFFF">
<td height=25 colspan=8 align="right" valign="top" bgcolor="#B5E6FD" class="bfont">
<font color='#000000'>
<%
if currentPage<>1 then
response.write("<a href=classlist.asp?currentPage=1&idd="&idd&"&pid="&pid&">首页</a> ")
response.write("<a href=classlist.asp?currentPage="& (currentPage-1) &"&idd="&idd&"&pid="&pid&">上一页</a> ")
else
response.write("首页 上一页 ")
end if
if currentPage<>rs.PageCount then
response.write("<a href=classlist.asp?currentPage="& (currentPage+1) &"&idd="&idd&"&pid="&pid&">下一页</a> ")
response.write("<a href=classlist.asp?currentPage="& rs.PageCount &"&idd="&idd&"&pid="&pid&">末页</a> ")
else
response.write("下一页 末页 ")
end if
%>
</font> 页次:<strong><font color='red'><%=currentPage%></font></strong>/<%=rs.pagecount%>页
共:<font color='red'><b><%=rs.RecordCount%></b></font>个种类
</td>
</tr></table>
<% end sub %>
<% Sub ShowTitle() %>
<table width="742" height="6%" cellpadding="1" cellspacing="1">
<tr bgcolor="#f2f2f2">
<td height=16 nowrap class="bfont" width="20"> </td>
<td height=16 nowrap class="bfont" width="51"> <div align=center>序号</div></td>
<td width="389" height=16 class="bfont"> <div align="center">型号类别</div>
<div align="center"></div></td>
<td height=16 nowrap class="bfont" width="148"> <div align="center">修改时间</div></td>
<td width="116" height=16 nowrap class="bfont"> <div align="center">操作</div> <div align="center"></div></td>
</tr>
</table>
<% end sub %>
<% Sub DisplayData() %>
<table width="742" cellpadding="2" cellspacing="1" bgcolor=#E9EEF3>
<%
if(k mod 2)<>0 then
response.write"<tr bgcolor='#FFFFFF'>"
else
response.write"<tr bgcolor='#eeeeee'>"
end if
%>
<td width="20" nowrap class="bfont"> <input type="checkbox" name="SelectMemberId<%=rowCount%>" value="<%=T_Id%>"> </td>
<td nowrap class="bfont" width="45"> <div align="center"><%=k%></div></td>
<td width="389" nowrap class="bfont" > <div align=left><a href=javascript:OMDL("<%=T_Id%>")>
</a>
<div align="center"><a href=productlist.asp?idd=<%=idd%>&pid=<%=T_Id%>><%=title%></a></div>
</div>
<div align="center"> </div></td>
<td class="bfont" nowrap width="146"> <div align="center"> <%=addtime%> </div></td>
<td width="114" nowrap class="bfont"> <div align="center"><a href="productclassedit.asp?idd=<%=idd%>&idno=<%=T_Id%>&pid=<%=pid%>">[编辑]</a></div> <div align="center"><a href="javascript:OMDD('<%=T_Id%>')"></a></div></td>
</tr>
</table>
<% end sub %>
<%Sub ShowFunction() %>
<table width="742" height="1%" cellpadding="0" cellspacing="0">
<tr bgcolor="#DAFDFE">
<td height=11 colspan=8 align="right" valign="top" bgcolor="#B5E6FD" class="bfont"></td>
</tr></table>
<% end sub %>
<%Sub ShowSubmitForm() %>
<form name="showMemberdetail" action="prodcutlist0.asp?idd=<%=idd%>&pid=<%=pid%>" method="POST">
<input type="hidden" name="MemberIdUni">
</form>
<%if hot="" then%>
<form name="deleteMemberdetail" action="productclassdele.asp?idd=<%=idd%>&pid=<%=pid%>" method="POST">
<%else%>
<form name="deleteMemberdetail" action="productclassdele.asp?hot=1&idd=<%=idd%>&pid=<%=pid%>" method="POST">
<%end if%>
<input type="hidden" name="MemberIdUni">
</form>
<form name="editMemberdetail" action="prodcutclassedit.asp.asp?idd=<%=idd%>&pid=<%=pid%>" method="POST">
<input type="hidden" name="MemberIdUni">
</form>
<%end sub%>
<%
set rs=nothing
conn.close
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -