📄 list_product.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/config.asp" -->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
'session("sqlString") = "select id,name,owner,enter_name,time from v_product"
dim iPage,i,rstmp
set rstmp = server.createobject("adodb.recordset")
if Request.QueryString("page") <> "" then
iPage = CInt(Request.QueryString("page"))
else
iPage = 1
end if
if session("sqlString") <> "" then
session("rs").pagesize = 10
session("rs").cursorlocation = adUseClient
session("rs").open session("sqlString"),session("conn"),adOPenForwardOnly,adLockReadOnly
'Response.Write("iPage" & iPage & ">>pagecount" & session("rs").pagecount & "<br>")
if not session("rs").eof then
if iPage = 0 or iPage > session("rs").pagecount then
session("rs").absolutepage = session("rs").pagecount
else
session("rs").absolutepage = iPage
end if
%>
<table width="250" border="0" align="center" cellpadding="1" cellspacing="1" >
<%
if session("rs").pagecount > 1 then
response.write " <tr align=""center""> " & vbCrLf
response.write " <td align=""right"" colspan=""3"">" & vbCrLf
for i= 1 to session("rs").pagecount
if i = iPage then
Response.Write("[<strong>"&i&"</strong>] ")
else
Response.Write("[<a href='"&request.ServerVariables("PATH_INFO")&"?page="&i&"'>"&i&"</a>] ")
end if
next
response.write " </td>" & vbCrLf
response.write " </tr>" & vbCrLf
end if
for i = 1 to session("rs").pagesize
if not session("rs").eof then
%>
<tr>
<td width="10" align="center"><font color="#0000FF">*</font></td>
<td> <a href="../product/show_product.asp?id=<% = session("rs")("id") %>" target="_blank"><%= CutString(session("rs")("name"),18) %></a></td>
<td><a href="../enterprise/show_enter.asp?id=<% = session("rs")("owner") %>"><%= trim(session("rs")("enter_name")) %></a> </td>
<% If session("mode") = "admin" or Session("member_id") = Session("rs")("member_id") Then %>
<td width="60"><input name="°´Å¥" type="button" onClick="window.open('../admin/edit_product.asp?id=<%= session("rs")("id") %>','_self')" value="修 改"></td>
<td width="60"><input name="°´Å¥" type="button" onClick="if(window.confirm('确定要删除该产品？')) window.open('../admin/del_product.asp?id=<%= session("rs")("id") %>','_self');" value="删 除"></td>
<% End If %>
</tr>
<%
session("rs").MoveNext
end if
next
if session("rs").pagecount > 1 then
response.write " <tr align=""center""> " & vbCrLf
response.write " <td align=""right"" colspan=""3"">" & vbCrLf
for i= 1 to session("rs").pagecount
if i = iPage then
Response.Write("[<strong>"&i&"</strong>] ")
else
Response.Write("[<a href='"&request.ServerVariables("PATH_INFO")&"?page="&i&"'>"&i&"</a>] ")
end if
next
response.write " </td>" & vbCrLf
response.write " </tr>" & vbCrLf
end if
%>
</table>
<%
end if
session("rs").close
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -