📄 new_cd.asp
字号:
<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
If Request("Page")=Empty Then
Page=1
Else
Page=cint(Request("Page"))
End If
%>
<HTML>
<HEAD>
<TITLE>CD购物车：【一个月内】</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link REL="stylesheet" HREF="../style.css" TYPE="text/css">
<script language="JavaScript">
function query() {
window.open('ordercd.asp?mytype=query','query','scrollbars=yes,status=0,menubar=0,toolbar=0,location=0,resizable=1,copyhistory=0')
}
//-->
</Script>
</head>
<body bgcolor=cfe3f2 marginheight=5 marginwidth=0 leftmargin=0 topmargin=5 bgproperties=fixed>
<CENTER>
<img src=../img/new.gif width=510 height=60><br><br>
<table border=2 bgcolor=ffffdd cellspacing=1 cellpadding=2 WIDTH=98%>
<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 ( update > Date() - 30) Order By datano"
rs.open sqlstr,conn,3,2
If rs.Recordcount=0 then
rs.close
conn.close
response.write "目前没有新发行CD……"
response.end
End If
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")
%>
<tr><td bgcolor=ff8040><a href=edit_cd.asp?datano=<%=datano%>><%=datano%></a></td>
<td><a href=show_cd.asp?datano=<%=datano%>><%=datana%></a></td>
<td align=right><font color=red><%=ordprice%></font></td>
<td align=center><FORM METHOD=POST ACTION=../order.asp>
<input TYPE=HIDDEN NAME=mytype VALUE=insert>
<input TYPE=HIDDEN NAME=areano VALUE=<%=areano%>>
<input TYPE=HIDDEN NAME=datano VALUE=<%=datano%>>
<input TYPE=HIDDEN NAME=dataname VALUE=<%=dataname%>>
<input TYPE=HIDDEN NAME=ordprice VALUE=<%=ordprice%>>
<input TYPE=SUBMIT VALUE=放入></td>
<td align=center><%=hits%></td>
</tr>
<%
rs.MoveNext
I=I+1
loop
rs.close
conn.close
%>
</form>
</table><br>
<%
If page>1 Then
Response.write "<a href=new.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=new.asp?page="&j&">"&j&"</a> "
End If
Next
If page<pagecount Then
Response.write "<a href=new.asp?page="&page+1&">下一页</a> "
End If
%>
<br><br>
</center>
</body>
</HTML>
</center>
</body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -