te.asp

.asp网站程序。专业的二手汽车商店网站。功能强大

<!--#include file="Config.asp" -->
<%
  const MaxPerPage=10
   	dim totalPut   
   	dim CurrentPage
   	dim TotalPages
   	dim i,j
   	dim sql
   	dim rs
	dim updown
	dim order_name
	order_name=Request("Order")
   	if not isempty(request("page")) then
      		currentPage=cint(request("page"))
   	else
      		currentPage=1
   	end if
	if request("updown")<>"" then
		updown="desc"
	else
		updown=""
	end if
	select case order_name
		case "SoftName"
		order_name="SoftName"
		case "SoftTime"
		order_name="SoftTime"
		case "SoftSize"
		order_name="SoftSize"
		case "AllHits"
		order_name="AllHits"
		case else
		order_name="SoftTime"
		updown="desc"
	end select
	set rs=server.createobject("adodb.recordset")
	dim CateID,SubCateID
	dim CateName,SubCateName,SoftDownName

	if request("CateID")<>"" and request("SubCateID")<>"" then
	CateID=" CateID="&cstr(request("CateID"))&" and  "
	SubCateID=" SubCateID="&cstr(request("SubCateID"))&" "
       sql="select * from "&CategoryName&"_SubCate where SubCateID="&cstr(request("SubCateID"))
	   rs.open sql,conn,1,1
	   SoftDownName=trim(rs("SubCateName"))
	   SubCateName=trim(rs("SubCateName"))
	   rs.close
	 end if
     if request("CateID")<>"" and request("SubCateID")="" then
		CateID="CateID="&cstr(request("CateID"))&" "
		sql="select CateName from "&CategoryName&"_Cate where CateID="&cstr(request("CateID"))
		rs.open sql,conn,1,1
		SoftDownName=trim(rs("CateName"))
		CateName=trim(rs("CateName"))
		rs.close	
	end if
	if request("CateID")="" and request("SubCateID")="" then
	CateID=""
	SubCateID=""
    SoftDownName="¨¨?2?D???é"
	end if
%>



<link href="css.css" rel="stylesheet" type="text/css">
<!--#include file="top.asp" -->
<% dim bj
dim ad
%>