📄 new.asp
字号:
<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
If Request("Page")=Empty Then
Page=1
Else
Page=cint(Request("Page"))
End If
%>
<HTML>
<HEAD>
<TITLE>CHOME购物车：【一个月内】</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=FFFFE1 marginheight=5 marginwidth=0 leftmargin=0 topmargin=5 bgproperties=fixed>
<CENTER>
<img src=img/new.gif width=510 height=60><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")
Response.write "<tr><td bgcolor=ff8040><a href=editcd.asp?datano="&datano&">"&datano&"</a></td>"
Response.write "<td><a href=show.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
%>
</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
%>
</center>
</body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -