<% 'response.End() '请勿改动下面这三行代码 const ChannelID=1 Const ShowRunTime="Yes" MaxPerPage=20 SkinID=0 PageTitle="首页" Set rsArticle= Server.CreateObject("ADODB.Recordset") Set rsPic= Server.CreateObject("ADODB.Recordset") %> <%=strPageTitle%> <%call MenuJS()%> onmousemove='HideMenu()'>

<% call ShowPub(2,2,82) %>
 
<% dim xi,t1 Sql = "select top 8 * from article where classid=131 And IncludePic = true and DefaultPicUrl <> '' order by articleid desc" set rs=server.CreateObject("adodb.recordset") rs.open Sql,conn,1,1 if rs.eof and rs.bof then response.Write("没有内容!") else %>
    <% xi=0 do while not rs.eof t1 = t1 & "
  • &Rs(
  • "&Chr(13) xi = xi+1 rs.movenext loop response.Write(t1) %>
<% end if rs.close set rs=nothing %>
媒体报道 徽商图文
<% call ShowAnnounce(1,10) %>
徽茶
徽菜
徽酒
徽书
徽画
徽墨
<% call ShowADByID(11,0,5,0) %>
     商务礼仪 更多...
     招商引资 更多...
    徽商创业 更多...
    投资理财 更多...
<% call ShowADByID(12,0,5,0) %>
<% Call ShowLink(68) %>
<% call ShowADByID(13,0,5,0) %>
 
<% call ShowADByID(14,0,5,0) %>
 
<% call Bottom() %>
<% Sub GetArticle(Cid,num,Cols,TitleLen,ShowDate,ShowDian) dim ssql,Srs Ssql = "select top " & num & " * from article where ClassID=" & Cid & " order by articleid desc" set Srs=server.CreateObject("adodb.recordset") Srs.open Ssql,conn,1,1 response.Write("") if srs.eof and srs.bof then response.Write("") else response.Write("") dim xi xi = 1 do while not Srs.eof response.Write("") if showdate then response.Write("") end if if xi mod cols = 0 then response.Write("") end if 'if showDian then 'response.Write("") 'end if xi = xi+1 Srs.movenext loop end if response.Write("") response.Write("
没有内容
【") 'if len(srs("title")) > TitleLen then 'response.Write(left(srs("Title"),TitleLen)) 'else response.Write(gotTopic(srs("Title"),Cint(TitleLen))) 'end if response.Write("】" & year(srs("UpdateTime")) & "." & month(srs("UpdateTime")) & "." & day(srs("UpdateTime")) & "
") Srs.close set Srs=nothing end sub %>