<% strCurrMenu="18974" ThisPage=request.ServerVariables("URL") strQuery="" strTitle="最新发布" if GetVariable("class")<>"" then SourCode=conn.execute("Select c_code From web_news_class Where mn_id=" & strCurrMenu & " and id="&GetVariable("class"))(0) strQuery=strQuery & " And c_code Like '" & SourCode &"%'" strTitle=GetVariable("classname") end if if GetVariable("key")<>"" then strQuery=strQuery & " And (nTitle Like '%" & GetVariable("key") & "%' or nHtmlText like '%" & GetVariable("key") & "%' or nKey like '%" & GetVariable("key") & "%') " strTitle="搜索:" & GetVariable("key") end if '从这开始读数据 strSQL="Select * From v_web_news Where nAudit<>0 " & strQuery & " And mn_id=" & strCurrMenu & " Order by ID Desc" rs.open strSQL,conn,1,1 '分页显示初始化 page=GetVariable("page") if page="" then page=1 else page=Cint(page) end if Section=GetVariable("section") if Section="" then Section=1 else Section=Cint(Section) end if '变量赋值 intPageSize=15 '每页显示记录数 intSectionSize=5 '多少页为一段,像GOOGLE一样 PrevSectionText="7" '上一段的链接文字 NextSectionText="8" '下一段的链接文字 PrevPageText="3" '上页的链接文字 NextPageText="4" '下页的链接文字 strPageUrl="?class=" & GetVariable("class") & "&classname=" & GetVariable("classname") & "&key=" & GetVariable("key") & "&mnid=" & strCurrMenu rs.pagesize=intPageSize intCount=rs.RecordCount intPageCount=rs.pagecount intSectionCount=(intPageCount - 1) \ intSectionSize + 1 if intCount>0 then rs.AbsolutePage=page end if %>
 
Title Contents
 
: Home Contace us
Office Locations:

USA Office:

1012 Keystone Trail Drive
Chesterfield, Missouri 63005, USA
Phone: (1-636) 675 8560
Fax: (1-636) 536 6668

Shanghai Office:

Suite 5F, 988 Changning Road
Shanghai, China 200051
Phone: (86-21) 5273 8396
Fax: (86-21) 5273 8395

Beijing Office:

Floor 26, ScienceTech Building C
East Door of Tshinghua University, Haidian District
Beijing, China 100084
Phone: (86-10) 8215 0326
Fax: (86-10) 8215 0335

Wuhan Office:

Suite 1207, Block A, 7 Xudong Avenue
Wuchang, Wuhan, Hubei, China 430063
Phone: (86-27) 86819561 /8682 6990
Fax: (86-27) 8682 8197

Anhui Project Office:

28 Huancheng Nan Road
Hefei, Anhui, China 230001
Phone: (86-551) 2634601/2654911
Fax: (86-551) 2654911

<% '开始输出分类 strcode="" for i=1 to Len(SourCode) \ 4 strcode=strcode&" or c_code like '"&left(SourCode,i*4)&"____'" next if strcode<>"" then strcode="(1<>1"&strcode&" or Len(c_code)=4)" else strcode=" Len(c_code)=4" end if strSQL="Select * From web_news_class Where mn_id=" & strCurrMenu&" and " & strcode & " Order by c_code" 'response.Write(strsql) Set rsClass=Server.CreateObject("ADODB.RecordSet") rsClass.open strSQL,conn,1,1 for i=1 to rsClass.recordcount Level=(Len(rsClass("c_code"))/4-1)*3 %> <% rsClass.movenext next %>
<% If Len(rsClass("c_code"))>4 Then Response.Write "├" Response.Write String(Level,"-") %> &classname=<%=trim(rsClass("c_name"))%>"><%=trim(rsClass("c_name"))%>
 
Add:Suite 5F, 988 Changning Road Shanghai, China 200051
Phone: (86-21) 5273 8396 Fax: (86-21) 5273 8395
Copyright?2006-2007 EASEN INTERNATIONAL CO.,LTD. All Rights Reserved.
Last updated on: