<%
server.Execute "/NoHACK1.asp"
dim AutoID, P_Name, P_Date, P_Price, P_Adit, P_Data
dim strSQL, rs, Hp, MaxPage, O, P, Q, R, S, Ipage, ToPage
' 前往頁數
ToPage = ReqNum(Request.QueryString("ToPage"))
strSQL = "SELECT AutoID,P_Pic,P_Name,convert(char(10),P_Date,111) as P_Date,P_Price,P_Adit,P_Data from MP_Product where P_Show='Y' order by AutoID desc,P_Date desc"
set rs = GetRecordset(strSQL)
rs.pagesize = 5
Hp = "product.asp"
if ToPage = "" or ToPage = empty then
ToPage = 1
else
ToPage = CInt(ToPage)
end if
MaxPage = rs.PageCount
if ToPage > MaxPage then
ToPage = MaxPage
elseif ToPage < 1 then
ToPage = 1
end if
If not(rs.EOF and rs.BOF) Then rs.AbsolutePage = ToPage
%>
完美世界官方網站
首頁> 產品專區
<%
For ipage = 1 to rs.PageSize
If rs.EOF Then Exit For
%>
" width="111" height="134">
品名：<%=rs("P_Name").value%>
上市日期：<%=rs("P_Date").value%>
售價：<%=rs("P_Price").value%>
販售通路：<%=rs("P_Adit").value%>
內含：
<%=rs("P_Data").value%>
<%
rs.movenext
Next
P = ToPage
O = P + 5
R = O + 1
Q = P - 5
S = Q - 1
If O > RS.PageCount Then O = RS.PageCount
If R > RS.PageCount Then R = RS.PageCount
If Q < 1 Then Q = 1
If S < 1 Then S = 1
%>
