<% if runMode="0" then dim templateobj,templatePath : set templateobj = new TemplateClass templatePath=sitePath&"/"&"templates/"&setting.defaultTemplate&"/"&setting.htmlFilePath&"/index.html" if not CheckTemplateFile(templatePath) then echo "index.html"&err_16 with templateObj .content=loadFile(templatePath) .parseHtml() .indexpath .parseCommon echo .content end with set templateobj =nothing : terminateAllObjects Else dim extName if setting.IsDefault=1 then extName="" else extName="_"&LanguageAlias end if On Error Resume Next Server.Transfer(sitePath&setting.languagepath&"index"&extName&FileExt) If -2147467259 = Err.Number Then Response.Charset=Charset:Response.Write "缺少首页文件,请登录后台生成首页文件? end if If DebugMode Then echo timer - AppSpan %> <% Session("hc_count")=1 %> <%=webname%>
Աͷ
µ
µ
  Ʒ Product
<% set rs=server.CreateObject("adodb.recordset") rs.open "select * from bsort order by anclassidorder",conn,1,1 if rs.recordcount=0 then response.write "
ĿǰʱûκƷ࣡" else while not rs.eof %> <% set rs_s=server.CreateObject("adodb.recordset") rs_s.open "select * from ssort where anclassid=" & rs("anclassid") & " order by nclassidorder",conn,1,1 if rs_s.recordcount=0 then %> <% else i=0 while not rs_s.eof %> <%rs_s.movenext if rs_s.eof then else %> <% end if rs_s.movenext if rs_s.eof then response.write "" else %> <% rs_s.movenext end if wend end if %>
޻ûӷƷϢ
&nid=<%=rs_s("nclassid")%>" title="<%=rs_s("nclass")%>"><%=rs_s("nclass")%> | &nid=<%=rs_s("nclassid")%>" title="<%=rs_s("nclass")%>"><%=rs_s("nclass")%> | 
&nid=<%=rs_s("nclassid")%>" title="<%=rs_s("nclass")%>"><%=rs_s("nclass")%>
<% rs_s.close set rs_s=nothing rs.movenext wend end if rs.close set rs=nothing %>
  Ƶ
<% set rs=server.CreateObject("adodb.recordset") rs.open "select * from zh_video order by zh_time desc",conn,1,3 %>
<% if rs.recordcount=0 then %> <%else do while not rs.eof %> <% rs.movenext loop end if rs.close set rs=nothing %>
  ʱûκչƵ!
" target="_blank" title="<%=rs("zh_title")%>"> <% if len(trim(rs("zh_title")))>14then response.write left(trim(rs("zh_title")),14)&"..." else response.write trim(rs("zh_title")) end if %>
  ˾ News    
<% set rs=server.createobject("adodb.recordset") rs.open "select top 20 * from news order by adddate desc",conn,1,1 %> <% if rs.recordcount=0 then %> <% else i=1 do while not rs.eof %> <% rs.movenext i=i+1 loop rs.close set rs=nothing end if%>
  <%response.Write "ʱûκţ"%>
<%=i%> " title="<%=rs("newsname")%>"> <% if len(trim(rs("newsname")))>9then response.write left(trim(rs("newsname")),9)&".." else response.write trim(rs("newsname")) end if %> (<%=year(rs("adddate"))&"."&month(rs("adddate"))&"."&day(rs("adddate"))%>)
   Search
<%set rs=server.CreateObject("adodb.recordset") rs.open "select top 9 * from products order by chengjiaocount desc",conn,1,1 if rs.eof and rs.bof then response.write "

Բ޴Ʒ" 'response.End else %> <%if not rs.eof then i=1 do while not rs.eof%>
<%if i mod 3 = 0 then %> <% end if rs.movenext if i=9 then exit do end if i=i+1 loop rs.close end if end if %>
">" alt="<%=rs("bookname")%>" title="<%=rs("bookname")%>" width="60" height="60" border="0" align="absmiddle" />
<%response.write "" if len(trim(rs("bookname")))>5then response.write left(trim(rs("bookname")),5)&".." else response.write trim(rs("bookname")) end if response.write "" %>
<%=trim(rs("huiyuanjia"))%>
  ռ          
<% set rs=server.createobject("adodb.recordset") rs.open "select top 20 * from hc_newsclass where newstype='gyjs' order by adddate desc",conn,1,1 %> <% if rs.recordcount=0 then %> <% else i=1 do while not rs.eof %> <% rs.movenext i=i+1 if i=21 then exit do end if loop rs.close set rs=nothing end if%>
  <%response.Write "ʱûκţ"%>
<%=i%> " target="_blank" title="<%=rs("newsname")%>"> <% if len(trim(rs("newsname")))>9then response.write left(trim(rs("newsname")),9)&".." else response.write trim(rs("newsname")) end if %> (<%=year(rs("adddate"))&"."&month(rs("adddate"))&"."&day(rs("adddate"))%>)
  ϵ
 
  绰:020-81202160
  Q Q :710542642
  ֻ:13416291996
  E-mail:hxby306@sina.com

  ̹Ʒͨں
  ΢źţHC6168Ĺںţ
  롰hcɽǵ΢
  
  
<% set rs=server.CreateObject("adodb.recordset") rs.open "select Top 8 * from products where newsbook=1 order by bookid desc ",conn,1,1 if rs.eof and rs.bof then response.write "

Բ޴Ʒ" 'response.End else %> <% if not rs.eof then i=1 do while not rs.eof %>
<%if i mod 4= 0 then%> <%end if rs.movenext i=i+1 loop rs.close end if end if %>
<%if rs("bookpic")="" then response.write "
" else%> " target="_blank" title="<%rs("bookname")%>" > " alt="<%=rs("bookname")%>" title="<%=rs("bookname")%>" width="135" height="135" border="0" align="absmiddle" /> <%end if%>
<%response.write "" if len(trim(rs("bookname")))>10 then response.write left(trim(rs("bookname")),10)&".." else response.write trim(rs("bookname")) end if response.write "" %>
гۣ<%=rs("shichangjia")%>Ԫ
Աۣ<%=rs("huiyuanjia")%>Ԫ
  
<% set rs=server.CreateObject("adodb.recordset") rs.open "select Top 8 * from products where tejiabook=1 order by bookid desc ",conn,1,1 if rs.eof and rs.bof then response.write "

Բ޴Ʒ" 'response.End else %> <% if not rs.eof then i=1 do while not rs.eof%>
<%if i mod 4 = 0 then%> <%end if rs.movenext i=i+1 loop rs.close end if end if %>
<%if rs("bookpic")="" then response.write "
" else%> " target="_blank" >" width="130" height="130" border="0" align="absmiddle" title="<%=rs("bookname")%>" alt="<%=rs("bookname")%>"/> <%end if%>
<%response.write "" if len(trim(rs("bookname")))>20 then response.write left(trim(rs("bookname")),20)&".." else response.write trim(rs("bookname")) end if response.write "" %>
гۣ<%=rs("shichangjia")&""%>Ԫ
Աۣ<%=rs("huiyuanjia")%>Ԫ
  
<%set rs=server.CreateObject("adodb.recordset") rs.open "select Top 8 * from products where bestbook=1 order by bookid desc ",conn,1,1 if rs.eof and rs.bof then response.write "

Բ޴Ʒ" 'response.End else %> <% if not rs.eof then i=1 do while not rs.eof%>
<%if i mod 4 = 0 then%> <%end if rs.movenext i=i+1 loop rs.close end if end if %>
<%if rs("bookpic")="" then response.write "
" else%> " target="_blank" title="<%=rs("bookname")%>"> " title="<%=rs("bookname")%>" alt="<%=rs("bookname")%>" width="130" height="132" border="0" align="absmiddle" /> <%end if%>
<%response.write "" if len(trim(rs("bookname")))>20 then response.write left(trim(rs("bookname")),20)&".." else response.write trim(rs("bookname")) end if response.write "" %>
гۣ<%=rs("shichangjia")&""%>Ԫ
Աۣ<%=rs("huiyuanjia")%>Ԫ
<%=ad6text%>
...
<% set rs=server.createobject("adodb.recordset") rs.open "select top 16 * from hc_newsclass where newstype='shzt' order by adddate desc",conn,1,1 %> <% if rs.recordcount=0 then %> <% else i=1 do while not rs.eof %> <% rs.movenext i=i+1 if i=17 then exit do end if loop rs.close set rs=nothing end if%>
  <%response.Write "ʱûκţ"%>
" title="<%=rs("newsname")%>"> <% if len(trim(rs("newsname")))>15then response.write left(trim(rs("newsname")),15)&".." else response.write trim(rs("newsname")) end if %> (<%=year(rs("adddate"))&"."&month(rs("adddate"))&"."&day(rs("adddate"))%>)
 
<% set rs=server.createobject("adodb.recordset") rs.open "select top 15 * from hc_newsclass where newstype='wzsc' order by adddate desc",conn,1,1 %> <% if rs.recordcount=0 then %> <% else i=1 do while not rs.eof %> <% rs.movenext i=i+1 if i=16 then exit do end if loop rs.close set rs=nothing end if%>
  <%response.Write "ʱûκţ"%>
" title="<%=rs("newsname")%>"> <% if len(trim(rs("newsname")))>11then response.write left(trim(rs("newsname")),11)&".." else response.write trim(rs("newsname")) end if %> (<%=year(rs("adddate"))&"."&month(rs("adddate"))&"."&day(rs("adddate"))%>)
...
sitemap