
<%sub imgnews()%>
<script language="JavaScript" type="text/javascript">
				var focus_width=320
                var focus_height=437
                var text_height=20
                var swf_height = focus_height+text_height
				var imgUrl=new Array();
                var imgLink=new Array();
                var imgtext=new Array();
                var imgsumm=new Array();
                var adNum=0;
                var iNum =1;
				</script>
<%
set rs=server.createobject("adodb.recordset") 
sql="select top 4 * from smallclass where firstimagename<>'' and bigclassname=(select top 1 bigclassname from bigclass order by bigclassid desc) order by smallclassid asc"
rs.open sql,conn,1,1
	if rs.eof then 
	Response.Write " <div align='center'>暂无此类新闻!</div>"
	end if
DO WHILE Not rs.eof
%>
 <script language="JavaScript" type="text/javascript">
  imgUrl[iNum]= "lmpic/<%=trim(rs("firstimagename"))%>";
  imgtext[iNum]="<%=left(rs("smallclassname"),18)%>【<%=left(rs("banmian"),18)%>】";
  imgLink[iNum]="lmpic/<%=trim(rs("bigimage"))%>";
  imgsumm[iNum]="";
  iNum = iNum +1;
  </script>
<%
rs.movenext
LOOP
rs.close
set rs=nothing
%>
 <script language="JavaScript" type="text/javascript">
   var pics = "";
   var links="";
   var  texts = "";
   for(i=1;i<iNum;i++)
   {
       if(i !=1)
	   {
	     pics = pics + '|';
		 links = links + '|';
		 texts = texts + '|';
       } 
	   pics = pics + imgUrl[i];
	   links =  links + imgLink[i];
	   texts = texts + imgtext[i];
    }
document.write('<object ID="focus_flash" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="images/pixviewer.swf"><param name="quality" value="high"><param name="bgcolor" value="#BBE5A6">');
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
document.write('<embed ID="focus_flash" src="images/pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');		
document.write('</object>');
        </script>
<%end sub %>

<%sub gonggao()%>
<table width="425"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="right"><div id=icefable1>
        <table width="425"  border="0" cellpadding="0" cellspacing="0">
<%
set rsg = server.CreateObject("adodb.recordset")
rsg.open "[gonggao] where d_data>"&date&" order by d_id desc",conn,1,1
if rsg.bof and rsg.eof then 
response.Write"<tr><td height=""20"">暂无公告内容</td></tr>"
rsg.close
else
for i=1 to 6
if rsg.EOF or rsg.BOF then exit for%>
		  <tr>
            <td width="420" height="22" align="right"><a href="javascript:win_gonggao('gonggao.asp?id=<%=rsg("d_id")%>')"><%=rsg("title")%></a> [<%=rsg("d_date")%>]</td>
          </tr>
<%rsg.movenext
next
rsg.close
end if
%>
</table>
<script>
marqueesHeight=22;
stopscroll=false;
with(icefable1){
	  style.width=0;
	  style.height=marqueesHeight;
	  style.overflowX="visible";
	  style.overflowY="hidden";
	  noWrap=true;
	  onmouseover=new Function("stopscroll=true");
	  onmouseout=new Function("stopscroll=false");
  }
  preTop=0; currentTop=marqueesHeight; stoptime=0;
  icefable1.innerHTML+=icefable1.innerHTML;
  

function init_srolltext(){
  icefable1.scrollTop=0;
  setInterval("scrollUp()",1);
}init_srolltext();

function scrollUp(){
  if(stopscroll==true) return;
  currentTop+=1;
  if(currentTop==marqueesHeight+1)
  {
  	stoptime+=1;
  	currentTop-=1;
  	if(stoptime==300) 
  	{
  		currentTop=0;
  		stoptime=0;  		
  	}
  }
  else {  	
	  preTop=icefable1.scrollTop;
	  icefable1.scrollTop+=1;
	  if(preTop==icefable1.scrollTop){
	    icefable1.scrollTop=marqueesHeight;
	    icefable1.scrollTop+=1;
	    
	  }
  }

}
init_srolltext();
    </script>
    </div>
	</td>
  </tr>
</table>
<%
end sub
sub tuijiannews()%>
<table width="96%" border="0" cellpadding="0" cellspacing="0">
<%
t=0
set rs=server.createobject("adodb.recordset") 
sql="select id,title,oColor,oStyle,tuijian,intime,firstimagename,infotime from news where tuijian=1 and ifshow=1 order by id desc" 
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
t=t+1
%>
      <tr>
        <td height="22" align="left" <%if rs("infotime")=date() then%>class="i_news1"<%else%>class="i_news"<%end if%>> <span>[<%=rs("intime")%>]</span><img src='images/news_ico.gif' width=15 height=11 border=0>&nbsp;<% if rs("firstimagename")<>"" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %><a class="<%=rs("oColor")%>" href="onews.asp?id=<%=rs("id")%>" title="<%=rs("title")%>" target="_blank"><font class="<%=rs("oStyle")%>"><%=left(rs("title"),25)%></font><% if Len(rs("title"))>15 then %>…<% end if %></a></td>
  </tr>
      <% 
if t>=10 then exit do 
rs.movenext 
loop 
else 
response.write "<tr><td align=center colspan=2 bgcolor=#e8e8f4>尚无收录</td></tr>" 
end if 
rs.close 
%>
</table>
<%end sub%>

<%
sub Download()%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
t=0
set rs=server.createobject("adodb.recordset") 
sql="select id,title,Hits from Download order by id desc" 
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
t=t+1
%>
      <tr onMouseOver="this.bgcolor='#ffffff';" onMouseOut="this.bgcolor='#F4F4F4';" bgcolor=#F4F4F4>
            <td width="85%" align="left">&nbsp; <a href="DownloadShow.asp?ID=<%=rs("id")%>" title="<%=rs("title")%>" target="_blank"><%=left(rs("title"),12)%>
                    <% if Len(rs("title"))>15 then %>
              …
              <% end if %>
            </a></td>
            <td width="15%" height="23"><font color="#ff0000"><%=rs("hits")%></font></td>
          </tr>
      <% 
if t>=10 then exit do 
rs.movenext 
loop 
else 
response.write "<tr><td align=center colspan=2 bgcolor=#e8e8f4>尚无收录</td></tr>" 
end if 
rs.close 
%>
</table>
<%end sub%>


<%sub imgnewsindex()%>
<script language="JavaScript" type="text/javascript">
				var focus_width=320
                var focus_height=437
                var text_height=20
                var swf_height = focus_height+text_height
				var imgUrl=new Array();
                var imgLink=new Array();
                var imgtext=new Array();
                var imgsumm=new Array();
                var adNum=0;
                var iNum =1;
				</script>
<%
set rs=server.createobject("adodb.recordset") 
sql="select top 8 * from smallclass where firstimagename<>'' and BigClassName='" & owen1 & "'  order by smallclassid desc"
rs.open sql,conn,1,1
	if rs.eof then 
	Response.Write " <div align='center'>暂无此类新闻!</div>"
	end if
	
DO WHILE Not rs.eof
%>
 <script language="JavaScript" type="text/javascript">
  imgUrl[iNum]= "lmpic/<%=trim(rs("firstimagename"))%>";
  imgtext[iNum]="<%=left(rs("smallclassname"),18)%>【<%=left(rs("banmian"),18)%>】"
  imgLink[iNum]="lmpic/<%=trim(rs("bigimage"))%>";   
  imgsumm[iNum]="";
  iNum = iNum +1;
  </script>
<%
rs.movenext
LOOP
rs.close
set rs=nothing
%>
 <script language="JavaScript" type="text/javascript">
   var pics = "";
   var links="";
   var  texts = "";
   for(i=1;i<iNum;i++)
   {
       if(i !=1)
	   {
	     pics = pics + '|';
		 links = links + '|';
		 texts = texts + '|';
       } 
	   pics = pics + imgUrl[i];
	   links =  links + imgLink[i];
	   texts = texts + imgtext[i];
    }
document.write('<object ID="focus_flash" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="images/pixviewer.swf"><param name="quality" value="high"><param name="bgcolor" value="#BBE5A6">');
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
document.write('<embed ID="focus_flash" src="images/pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');		
document.write('</object>');
        </script>
<%end sub

Const IsFlash="Yes"        '是否为FLASH
Const High=200        '高度
Const WebmasterName="武斌"        '站长姓名
Const Copyright=""        '版权信息
Const EnCopyright=""        '版权信息
Const MaxPerPage_Default=10        '首页每页产品或文章数
Const New_count=5        '首面新闻资讯条数
Const Product_count=8        '首面产品列表数
Const MaxPerPage_Search=10        '文章搜索页每页文章数
Const MaxPerPage_Content=200000        '每页显示大约字符数
Const NewsComment="Yes"        '是否启用新闻评论功能
Const EnableProductCheck="Yes"        '是否启用文章审核功能
Const EnableUploadFile="Yes"        '是否开放文件上传
Const PopAnnounce="Yes"        '是否弹出公告窗口
Const HitsOfHot=500        '热门文章点击数
Const MaxFileSize=200        '上传文件大小限制
Const SaveUpFilesPath="UploadFiles"        '存放上传文件的目录
Const UpFileType="gif|jpg|bmp|png|swf|doc|rar"        '允许的上传文件类型
Const DelUpFiles="Yes"        '删除文章时是否同时删除文章中的上传文件
Const SessionTimeout=30        'Session会话的保持时间
Const MailObject="Jmail"        '邮件发送组件


Function GetCode()
	Dim TestObj
	On Error Resume Next
	Set TestObj = Server.CreateObject("Adodb.Stream")
	Set TestObj = Nothing
	If Err Then
		Dim TempNum
		Randomize timer
		TempNum = cint(8999*Rnd+1000)
		Session("GetCode") = TempNum
		GetCode = Session("GetCode")		
	Else
		GetCode = "<img src=""./include/GetCode.asp"">"		
	End If
End Function

function gettotalsum()
Set rs = conn.execute("select top 1 bigclassid as num from bigclass order by bigclassid desc")
 Dim i1
 i1 = rs("num")
 Response.Write(i1)
end function

function addtotalsum()
Set rs = conn.execute("select top 1 bigclassid as num from bigclass order by bigclassid desc")
 Dim i1
 
 i1 = rs("num")
 i1=i1+1
 Response.Write(i1)
end function


function gettotalname()
Set rs = conn.execute("select bigclassname as bname from bigclass")
 Dim i2
 i2 = rs("bname")
 Response.Write(i2)
end function

function getfzlc()
Set rs = conn.execute("select bigclassid as btent from bigclass")
 Dim i3
 i3 = rs("btent")
 Response.Write(i3)
end function

function getlinks()
dim num,t1
num=3
t1=1
sqlink="select * from sogo_link order by link_paixu asc"
set rs = server.createobject("adodb.recordset")
rs.open sqlink,conn,1,1
do while not eof
response.Write " <a href="&rs("sogo_link_url")&" target=""_blank""><img src=uppic/"&rs("sogo_link_login")&" width=88 height=31 border=0 alt="&rs("sogo_link_alt")&"></a>"
response.Write "&nbsp;"
if t1 mod num=0 then
response.Write "<br>"
end if
rs.movenext
t1=t1+1
loop
set rs=close
end function

function indexlinks()
dim num,t1
num=6
t1=1
sqlink="select * from sogo_link order by link_paixu asc"
set rs = server.createobject("adodb.recordset")
rs.open sqlink,conn,1,1
do while not eof
response.Write " <a href="&rs("sogo_link_url")&" target=""_blank""><img src=uppic/"&rs("sogo_link_login")&" width=88 height=31 border=0 alt="&rs("sogo_link_alt")&"></a>"
response.Write "&nbsp;&nbsp;"
if t1 mod num=0 then
response.Write "<br>"
end if
rs.movenext
t1=t1+1
loop
set rs=close
end function

%>

<%sub gosearch()%>
<tr><form action="search.asp" method="get" name="form1" id="form1">
<td height="64" background="images/bg2.jpg"><div align="center"><span class="a11">文字检索</span>
<input name="key" type="text" class="input" id="key" size="22" />   
<input type="image" src="images/go1.gif" width="30" height="23" align="absbottom" /></div></td></form>
</tr>
<%end sub%>

<%sub getindexpic()%>
<%
set rs=server.createobject("adodb.recordset") 
sqlt="select * from smallclass where bigclassname=(select bigclassname from news where id="&owen&") and smallclassname=(select smallclassname from news where id="&owen&")"
rs.open sqlt,conn,1,1
if rs.eof and rs.bof then
response.write("数据库出错")
else
%>
<%=rs("rect")%>
<%
end if
rs.close
set rs=nothing
%>
<%end sub%>