📄 list_cd.asp
字号:
<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
If Request("Page")=Empty Then
Page=1
Else
Page=cint(Request("Page"))
End If
areana=request("areana")
If areana = empty Then
areana="89常用卡"
End If
%>
<HTML>
<HEAD>
<TITLE>Chome购物车：<%=areana%>区</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link REL="stylesheet" HREF="../style.css" TYPE="text/css">
</head>
<body bgcolor=cfe3f2 marginheight=3 marginwidth=0 leftmargin=0 topmargin=3 bgproperties=fixed>
<CENTER>
<img src=../img/<%=areana%>.gif width=225 height=58><br><br>
<table border=2 bgcolor=ffffdd cellspacing=1 cellpadding=2 WIDTH=92%>
<tr bgcolor=ddddff><th width=15%>CD编号</th>
<th width=60%>产品名称说明</th>
<th width=8%>售价</th>
<th width=11%>购买</th>
<th width=6%><img src=../img/hits.gif></th></tr>
<%
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("../CD.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from data where areana='" & areana & "' order by datano"
rs.open sqlstr,conn,3,2
RS.PageSize = 20
If Not rs.eof Then
RS.AbsolutePage = PAGE
End If
pagecount=rs.pagecount
I=1
do until rs.EOF or I > RS.PageSize
datano=rs("datano")
datana=rs("datana")
ordprice=rs("ordprice")
hits=rs("hits")
Response.write "<tr><td bgcolor=ff8040><a href=edit_cd.asp?datano="&datano&">"&datano&"</a></td>"
Response.write "<td><a href=show_cd.asp?datano="&datano&">"&datana&"</a></td>"
Response.write "<td align=right><font color=red>"&ordprice&"</font></td>"
Response.write "<td align=center><FORM METHOD=POST ACTION=../order.asp>"
Response.write "<input TYPE=HIDDEN NAME=mytype VALUE=insert>"
Response.write "<input TYPE=HIDDEN NAME=areana VALUE="&areana&">"
Response.write "<input TYPE=HIDDEN NAME=datano VALUE="&datano&">"
Response.write "<input TYPE=HIDDEN NAME=datana VALUE='"&datana&"'>"
Response.write "<input TYPE=HIDDEN NAME=ordprice VALUE="&ordprice&">"
Response.write "<input TYPE=SUBMIT VALUE=放入></td></form>"
Response.write "<td align=right>"&hits&"</td></tr>"
rs.movenext
I=I+1
loop
rs.close
conn.close
Response.write "</table><br>"
If page>1 Then
Response.write "<a href=list.asp?page="&page-1&">上一页</a> "
End If
Response.write "页 <font face=Arial><b>"&pagecount&" / "
Response.write page &"</b></font> "
For j=1 to pagecount
IF J <> page THEN
response.write "<a href=list.asp?page="&j&">"&j&"</a> "
End If
Next
If page<pagecount Then
Response.write "<a href=list.asp?page="&page+1&">下一页</a> "
End If
%>
<br><br>
<img src=../img/p.gif width=15 height=15><a href=add_cd.asp?areana=<%=areana%>><font size=4>加入新片</font></a><br>
</center>
</body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -