Crystal Awards, Glass Awards, Custom TrophyHere Amazing Crystal Awards and Trophies from Crystal Awards Corporation In China, which is One Of the Best Crystal Awards Manufacturer in China.

0 "
if request("ClassId") <> "" then
sql = sql + "And Class= '"&request.QueryString("ClassId")&"'"
elseif request("keywords") <> "" then
sql = sql + "And Description like '%"& request("keywords")&"%'"
end if
'response.Write(sql)
sql = sql&" order by id desc"
RsUGObj.open sql,conn,1,3
if RsUGObj.eof then response.Write("Sorry, the result is empty.")
if Not RsUGObj.eof then
Dim page_size,page_no,page_total,record_all,PageNums
page_size=Request.QueryString("page_size")
if page_size<=0 or page_size="" then page_size=10
If isnumeric(Request.Form("PageNums")) then
if Request.Form("PageNums")<>0 then
page_size = Cint(Request.Form("PageNums"))
end if
End if
page_no=request.querystring("page_no")
if page_no<=1 or page_no="" then page_no=1
If Request.QueryString("page_no")="" then
page_no=1
end if
RsUGObj.PageSize=page_size
page_total=RsUGObj.PageCount
if (cint(page_no)>page_total) then page_no=page_total
RsUGObj.AbsolutePage=page_no
record_all=RsUGObj.RecordCount
Dim i
for i=1 to RsUGObj.PageSize
if RsUGObj.eof then exit for
%>