<%@ LANGUAGE = VBScript.Encode %> <% if Instr(session("AdminPurview"),"|12,")=0 then response.write ("

��û�й�����ģ���Ȩ�ޣ�

") response.end end if %> <% dim Result,Keyword,SortID,SortPath Result=request.QueryString("Result") Keyword=request.QueryString("Keyword") SortID=request.QueryString("SortID") SortPath=request.QueryString("SortPath") function PlaceFlag() if Result="Search" Then If Keyword<>"" Then Response.Write "�۸��б� -> ���� -> �ؼ��֣�"&Keyword&"" Else Response.Write "�۸��б� -> ���� -> �ؼ���Ϊ��(��ʾȫ���۸�)" End If else if SortPath<>"" then Response.Write "�۸��б� -> ȫ��" TextPath(SortID) else Response.Write "�۸��б� -> ȫ��" end if end if end function %>

�۸����������鿴�����ӣ��޸ģ�ɾ���۸���Ϣ
���Ӽ۸���Ϣ | �鿴���м۸���Ϣ | ���Ӽ۸����

���۸����������鿴��
�ؼ��֣�	���Ӽ۸���Ϣ | ȫ���۸� | �������۸�
<%PlaceFlag()%>

<% PriceList() %>

ID

�۸����

���

����ʱ��

����ʱ��

����

<% function PriceList() dim idCount dim pages pages=20 dim pagec dim page page=clng(request("Page")) dim pagenc pagenc=2 dim pagenmax dim pagenmin dim datafrom datafrom="Price" dim datawhere if Result="Search" then datawhere="where PriceNameCH like '%" & Keyword &_ "%' " else if SortPath<>"" then datawhere="where Instr(SortPath,'"&SortPath&"')>0 " else datawhere="" end if end if dim sqlid dim Myself,PATH_INFO,QUERY_STRING PATH_INFO = request.servervariables("PATH_INFO") QUERY_STRING = request.ServerVariables("QUERY_STRING")' if QUERY_STRING = "" then Myself = PATH_INFO & "?" else if Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then Myself = PATH_INFO & "?" & QUERY_STRING & "&" else Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1) end if end if dim taxis taxis="order by id" dim i dim rs,sql sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 idCount=rs("idCount") if(idcount>0) then if(idcount mod pages=0)then pagec=int(idcount/pages) else pagec=int(idcount/pages)+1 end if sql="select id from ["& datafrom &"] " & datawhere & taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 rs.pagesize = pages if page < 1 then page = 1 if page > pagec then page = pagec if pagec > 0 then rs.absolutepage = page for i=1 to rs.pagesize if rs.eof then exit for if(i=1)then sqlid=rs("id") else sqlid=sqlid &","&rs("id") end if rs.movenext next end if if(idcount>0 and sqlid<>"") then sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 while(not rs.eof) Response.Write "" & vbCrLf Response.Write ""&rs("ID")&"" & vbCrLf if StrLen((rs("PriceNameCH")))>40 then Response.Write ""&StrLeft(rs("PriceNameCH"),37)&"" & vbCrLf else Response.Write ""&rs("PriceNameCH")&"" & vbCrLf end if Response.Write "" & vbCrLf if rs("NoticeFlag") Then Response.Write "����" Else Response.Write "�۸�" End If Response.Write "" 'ɾ if StrLen((rs("SourceCH")))>21 then Response.Write ""&StrLeft(rs("updatetime"),20)&"" & vbCrLf else Response.Write ""&rs("updatetime")&"" & vbCrLf end if Response.Write ""&rs("AddTime")&"" & vbCrLf Response.Write "�޸�" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.movenext wend Response.Write "" & vbCrLf Response.Write " " & vbCrLf Response.Write "" & vbCrLf else response.write "������ҵ�۸�" end if Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

���ƣ�"&idcount&"����¼ ҳ�Σ�"&page&"/"&pagec&" ÿҳ��"&pages&"��

" & vbCrLf pagenmin=page-pagenc pagenmax=page+pagenc if(pagenmin<1) then pagenmin=1 if(page>1) then response.write ("9 ") if(pagenmin>1) then response.write ("7 ") if(pagenmax>pagec) then pagenmax=pagec for i = pagenmin to pagenmax if(i=page) then response.write (" "& i &" ") else response.write ("["& i &"]") end if next if(pagenmax8 ") if(page: ") Response.Write "��ҳ" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & vbCrLf rs.close set rs=nothing Response.Write "" & vbCrLf Response.Write "" & vbCrLf end Function Function TextPath(ID) Dim rs,sql Set rs=server.CreateObject("adodb.recordset") sql="Select * From PriceSort where ID="&ID rs.open sql,conn,1,1 TextPath=" -> "&rs("SortNameCH")&"" if rs("ParentID")<>0 then TextPath rs("ParentID") response.write(TextPath) End Function Function SortText(ID) Dim rs,sql Set rs=server.CreateObject("adodb.recordset") sql="Select * From PriceSort where ID="&ID rs.open sql,conn,1,1 SortText=rs("SortNameCH") rs.close set rs=nothing End Function Function ViewGroupName(GruopID) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select GroupID,GroupNameCH from MemGroup where GroupID='"&GruopID&"'" rs.open sql,conn,1,1 if rs.bof and rs.eof then ViewGroupNameSi="����" else ViewGroupName=rs("GroupNameCH") end if rs.close set rs=nothing end Function %>