<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="function.asp"-->
<!--#include file="char.inc"--><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=jjgn%></title>
<meta ">
<meta ews FROM "& db_News_Table &" WHERE updatetime>'"& now()-30 &"' AND checkked=1 ORDER BY click DESC, updatetime DESC" '選擇本月
Else
sqlHotNews="SELECT TOP "& top_txt &" NewsID, title, picnews FROM "& db_News_Table &" WHERE (updatetime > now()-30) AND checkked=1 ORDER BY click DESC, updatetime DESC" '選擇本月
End if
rsHotNews.Open sqlHotNews, conn, 1, 1
If rsHotNews.BOF And rsHotNews.EOF Then
Response.Write "<div>暫 無</div>"
Else
Do While Not rsHotNews.EOF
%>
<div class="OneCR1_content">
<%If rsHotNews("picnews")=1 Then%>
<li class="listnewsimg">
<%Else%>
<li class="listnews">
<%End if%>
<a href="ReadNews.asp?NewsID=<%=rsHotNews("NewsID")%>" title="<%=htmlencode4(rsHotNews("title"))%>" target="_blank"><%=CutStr(htmlencode4(rsHotNews("title")), 20)%></a></li>
</div>
<div class="tableclear"></div>
<%
rsHotNews.MoveNext
Loop
End if
rsHotNews.Close
Set rsHotNews=Nothing
%>
</div>
<%
If topfont=1 Then
%>
<h2 class="LeftTitle"><div class="LeftTitle-a"><li class="ico1">論壇入口</li></div></h2>
<div class="OneCL">
<form name="user" method="POST" action="<%=BbsPath%>/login.asp?action=chk" onSubmit="return checkdata();">
<%if UserTableType = "FeiTium" then '不整合%>
<div>用戶名稱：<input maxlength=20 name="UserName" size="8"></div>
<div>用戶密碼：<input maxlength=20 name="Password" size="8" type="password"></div>
<div><input type="submit" name="submit" value="登 陸" ></div>
<a href="<%=BbsPath%>" target="_blank">[進入]</a>
<a href="<%=BbsPath%>reg.asp" target="_blank">[用戶註冊]
<a href="<%=BbsPath%>lostpass.asp" target="_blank">[忘密]</a>
<%else%>
<%if UserTableType = "Dvbbs" then%>
<%if Request.cookies(Forcast_SN)("username")="" then%>
<br>
<div><font color=red>功能入口,請先登錄系統</font></div>
<br>
<%else%>
<%loginuser=ChkRequest(Request.cookies(Forcast_SN)("UserName"), 0)
set rs10=server.CreateObject("ADODB.RecordSet")
rs10.Source="select * from "& db_User_Table &" where "& db_User_Name &"='"&loginuser&"'"
rs10.Open rs10.Source,ConnUser,1,1
if not rs10.eof then%>
<%if rs10(db_User_Face)<>"" then%>
<img src="<%=BbsPath%><%=rs10(db_User_Face)%>" border="0" width="<%=rs10(db_User_Facewidth)%>" height="<%=rs10(db_User_Faceheight)%>">
<%''顯示用戶頭像，加'bbs/'前綴路徑,使圖文系統直接顯示定向到論壇頭像%>
<%else%>
<img src="images/nopic.gif" border="0">
<%end if%>
<%rs10.close
set rs10=nothing%>
<br>
<div><font color=red>歡迎您 <%=Request.cookies(Forcast_SN)("UserName")%> !</font></div>
<br>
<div><a href="<%=BbsPath%>" target="_blank">進入論壇</a></div>
<%end if%>
<%end if%>
<%end if%>
<%end if%>
</form>
</div>
<h2 class="LeftTitle"><div class="LeftTitle-a"><li class="ico1">論壇最新</li></div></h2>
<div class="OneCL">
<script src="<%=BbsPath%>Dv_News.asp?GetName=base"></script>
</div>
<%
End if
If showspecial=1 Then
%>
<h2 class="LeftTitle"><div class="LeftTitle-a"><li class="ico3">本站專題</li></div></h2>
<div class="OneCL">
<%
Dim rsSpecial, sqlSpecial, TrString
Set rsSpecial=Server.CreateObject("ADODB.RecordSet") '專題
sqlSpecial="SELECT TOP " & top_sp & " SpecialID, SpecialName FROM "& db_Special_Table &" ORDER BY SpecialID DESC "
rsSpecial.Open sqlSpecial,conn,1,1
If Not rsSpecial.EOF Then
While Not rsSpecial.EOF
TrString = TrString &"<div class='OneCR1_content'><li class='listnews'><a href='Special_News.asp?SpecialID=" & rsSpecial("SpecialID") &"'>" & trim(CutStr(htmlencode4(rsSpecial("SpecialName")), 20)) & "</a></li></div>"
rsSpecial.MoveNext
Wend
%>
<div class="OneCR1_more">
<li class="datetime"><a href="Special.asp">More..</a></li>
</div>
<%
Else
TrString = "<div class=""OneCR1_content"">暫無專題</div>"
End if
rsSpecial.Close
Set rsSpecial=Nothing
Response.Write TrString
%>
<div class="tableclear"></div>
</div>
<%
End if
If showdata=1 Then
%>
<h2 class="LeftTitle"><div class="LeftTitle-a"><li class="ico4">本站數據</li></div></h2>
<div class="OneCL">
<div class="OneCL1_data">今日文章</div>
<div class="OneCR1_data"><li class="datetime"><%=todays()%></li></div>
<div class="OneCL1_data">文章總數</div>
<div class="OneCR1_data"><li class="datetime"><%=gettipnum()%></li></div>
<div class="OneCL1_data">會員總數</div>
<div class="OneCR1_data"><li class="datetime"><%=getusernum()%></li></div>
<!--#include file=LastMember.asp -->
<%
If showcount=1 Then
%>
<script src=Cnt.asp></script>
<!--#include file=zx.asp -->
<div class="OneCL1_data">當前在線</div>
<div class="OneCR1_data"><li class="datetime"><%=i%></li></div>
<div class="tableclear"></div>
<%
End if
%>
</div>
<%
End if
If showuser=1 Then
%>
<h2 class="LeftTitle"><div class="LeftTitle-a"><li class="ico5">稿件統計</li></div></h2>
<div class="oneCL">
<!--#include file=TopUser.asp -->
<!--#include file=Topdep.asp -->
</div>
<%
End if
If showuser=0 Then
%>
<h2 class="LeftTitle"><div class="LeftTitle-a"><li class="ico5">十縣市區發稿數</li></div></h2>
<div class="oneCL">
<!--#include file=10xs.asp -->
</div>
<%
End if
If showvote="1" Then
%>
<h2 class="LeftTitle"><div class="LeftTitle-a"><li class="ico6">本站投票</li></div></h2>
<div class="OneCL">
<%
Set rsVote=conn.Execute("SELECT Title, Select1, Select2, Select3, Select4, Select5, Select6, Select7, Select8 FROM " & db_Vote_Table & " WHERE IsChecked=1")
If rsVote.EOF Then
%>
<div class="OneCR1_content">尚無任何投票</div>
<%
Else
%>
<div class="OneCR1_content"><%=rsVote("Title")%></div>
<form action="Vote.asp" target="newwindow" method="post" name="research">
<div class="OneCR1_content">
<%
For i=1 To 8
If rsVote("Select"&i)<>"" Then
%>
<input style="border: 0;height:22px;" <%If i=1 Then%>checked<%End if%> name="Options" type="radio" value="<%=i%>"><%=i%>) <%=rsVote("Select"&i)%><br>
<%
End if
Next
%>
</div>
<%
End if
%>
<div>
<input style="cursor:hand" type="submit" value="投它壹票" id="submit1" name="submit1">
<input onClick="javascript:vote();" type="button" value="查看結果" id="button1" name="button1" style="cursor:hand">
</div>
</form>
</div>
<%
End if
%>
</div>
<!-- 新聞欄目開始 -->
<div class="indexright1">
<%
Dim rsType, sqlType
Set rsType = Server.CreateObject("ADODB.RecordSet")
sqlType = "SELECT typeID, typeName FROM "& db_Type_Table &" WHERE typeview=1 ORDER BY typeorder"
rsType.Open sqlType, conn, 1, 1
Dim typeid
Dim typename
While Not rsType.EOF
typeID = rsType("typeID")
typeName = trim(rsType("typeName"))
%>
<div class="indexright2">
<h2 class="RightTitle2"><div><li><%=typeName%></li></div><A href="Type.asp?typeid=<%=typeid%>">More..</A></h2>
<div>
<div class="TwoCL">
<%
Dim rsTypeNewsPic, sqlTypeNewsPic
Set rsTypeNewsPic=Server.CreateObject("ADODB.RecordSet")
sqlTypeNewsPic="SELECT TOP " & L_BG & " newsid, title, picname FROM "& db_News_Table &" WHERE (typeid=" & typeid &" AND checkked=1 AND picnews=1 AND picname IS NOT NULL) ORDER BY newsid DESC"
rsTypeNewsPic.Open sqlTypeNewsPic,conn,1,1
If rsTypeNewsPic.EOF Then
Response.Write "<div class=""photolist1""><img src=""images/notopic.gif"" width=""56"" height=""56""></div>"
Else
While Not rsTypeNewsPic.EOF
title=rsTypeNewsPic("title")
fileExt=LCase(getFileExtName(rsTypeNewsPic("picname")))
Select Case (fileExt)
Case "jpg", "bmp", "png", "gif"
%>
<a target="_blank" href="ReadNews.asp?newsid=<%=rsTypeNewsPic("newsid")%>" title="<%=htmlencode4(title)%>">
<div class="photolist1"><img src="<%=FileUploadPath & rsTypeNewsPic("picname")%>" width="56" height="56" border=0></div>
</a>
<%
Case "swf"
%>
<div class="photolist1">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="ame")%>">
<param name="quality" value="high">
<param name="Play" value="-1">
<param name="Loop" value="0">
<param name="Menu" value="-1">
<embed src="<%=FileUploadPath & rsTypeNewsPic("picname")%>" width="56" height="56" pluginspage="ews, istop FROM "& db_News_Table &" WHERE (typeid=" & typeid &" AND checkked=1) ORDER BY istop DESC, newsid DESC"
rsTypeNews.Open sqlTypeNews, conn, 1, 1
While Not rsTypeNews.EOF
newsid = rsTypeNews("NewsID")
newstitle = rsTypeNews("title")
newstitlecolor = rsTypeNews("titlecolor")
newsurl = "ReadNews.asp?NewsID="& newsid
newswwwurl = rsTypeNews("titleface")
newsispic = rsTypeNews("picnews")
newsupdatetime = rsTypeNews("UpdateTime")
If showyear = 1 Then
datetime = Year(newsupdatetime) &"."& right("0" & Month(newsupdatetime),2) & "."& Right("0" & Day(newsupdatetime),2)
Else
datetime = Right("0" & Month(newsupdatetime),2) &"."& Right("0" & Day(newsupdatetime),2)
End if
'增加小類名稱程序開始
If rsTypeNews("bigclassID")<>"" Then
B = rsTypeNews("bigclassID")
Set rs22 = Server.CreateObject("Adodb.RecordSet")
sql = "SELECT bigclassID,bigclassname FROM "& db_BigClass_Table &" WHERE bigclassID="&B
Set rs22=Conn.Execute(sql)
A = rs22("bigclassname")
rs22.Close
Set rs22=Nothing
Else
A="本欄"
End if
'增加小類名稱程序結束
%>
<div class="TwoCR">
<%
If (newsispic = 1) Then
%><li class="listnewsimg"><%
Else
%><li class="listnews"><%
End if
%>
[<%=A%>]<a href="<%If newswwwurl="無" Then %><%=newsurl%><% Else %><%=newswwwurl%><%End if%>" title="<%=newstitle%>" target="_blank"><font color="<%=newstitlecolor%>"><%=CutStr(htmlencode4(newstitle), intTitleLen)%></font></a>
<!--標題後評論提示-->
<%
If rsTypeNews("titlesize")>=1 Then %><a class="dotted4" href="Review.asp?NewsID=<%=newsid%>" target="_blank" ><font color="red">[評]</font></A><%End if %>
<!--標題後評論提示-->
<%
If rsTypeNews("istop")="1" Then%><font color=red>[固]</font><%End if%>
<%
If year(newsupdatetime)=year(date()) and month(newsupdatetime)=month(date()) and day(newsupdatetime)=day(date()) Then%><font color="red">[新]</font><%End if%>
<%
If showtime="1" Then%><%=datetime%><%End if%>
</li>
</div>
<div class="foo"></div>
<%
rsTypeNews.MoveNext
Wend
rsTypeNews.Close
Set rsTypeNews=Nothing
%>
</div><div class="tableclear"></div>
</div>
<%
rsType.MoveNext
Wend
rsType.Close
Set rsType = Nothing
%>
</div>
<!-- 新聞欄目結束 -->
<!--辦公按鈕開始-->
<h2 class="RightTitle"><div class="RightTitle-a"><li>辦公按鈕</li></div></h2>
<div class="indexright">
<%
Set rs15 = Server.CreateObject("ADODB.RecordSet")
rs15.Source="SELECT officename, officepic, officeurl FROM "& db_office_Table &" ORDER BY ID DESC "
rs15.Open rs15.Source, conn, 1, 1
If Not rs15.EOF then
While Not rs15.EOF
%>
<div class="OfficeCR"><a href="<%=rs15("officeurl")%>"><img src="<%=rs15("officepic")%>" width="60" height="60" border="0" ></a><br><%=rs15("officename")%></div>
<%
rs15.MoveNext
Wend
Else
Response.Write "<td>暫無信息</td>"
End If
rs15.close
Set rs15 = Nothing
%><div class="tableclear"></div>
</div>
<!--辦公按鈕結束-->
<!--搜索 -->
<h2 class="RightTitle"><div class="RightTitle-a"><li>站內搜索</li></div></h2>
<div class="indexright">
<!-- div id="Topsearch" --><!-- 3級框架 -->
<form method="post" name="myform" action="Result.asp" target="newwindow">
<div><b>站內搜索：</b>
<%If showsearch=1 Then
If search="1" Then%>
<!--#include file=search.asp-->
<%Else%>
<!--#include file=search1.asp-->
<%End If
End If%>
</div>
</form>
</div>
<!--搜索 -->
<!-- 頁面正文結束 -->
<!-- 手工鏈接開始 -->
<td height="41" background="image/g03_back.gif" valign="middle">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="980" height="43">
<tr>
<td width="168" align="center" height="43"><a href="/" title="中華人民***和國國家知識產權局" target="_blank"><img border="0" src="images/link01.gif" width="157" height="37"></a></td>
<td width="158" align="center" height="43"><a href="/" title="國家知識產權戰略網" target="_blank"><img border="0" src="images/link02.gif" width="157" height="37"></a></td>
<td width="163" align="center" height="43"><a href="/" title="福建省知識產權局" target="_blank"><img border="0" src="images/link03.gif" width="158" height="37"></a></td>
<td width="163" align="center" height="43"><a href="/" title="全國專利信息聯合發布平臺" target="_blank"><img border="0" src="images/link04.gif" width="157" height="37"></a></td>
<td width="162" align="center" height="43"><a href="/" title="福建省科技廳" target="_blank"><img border="0" src="images/link05.gif" width="157" height="37"></a></td>
<td width="166" align="center" height="43"><a href="/" title="南平市科技局" target="_blank"><img border="0" src="images/link06.gif" width="157" height="37"></a></td>
</tr>
</table>
</div>
</td>
</tr>
<!-- 手工鏈接結束 -->
<%
Else
Response.Write "<div class=""indexmain"">暫 無 文 章 類 別，請 <a href=""login.asp"">登 陸</a> 後 添 加！</div>"
End if
%>
</div>
<!-- 頁面尾部開始 -->
<!--#include file=Bottom.asp -->
<script>
var Rimifon = {
"Ads" : new Object,
"NewFloatAd" : function(imgUrl, strLink)
{
var ad = document.createElement("a");
ad.DirV = true;
ad.DirH = true;
ad.AutoMove = true;
ad.Image = new Image;
ad.Seed = Math.random();
ad.Timer = setInterval("Rimifon.Float(" + ad.Seed + ")", 50);
this.Ads[ad.Seed] = ad;
ad.Image.Parent = ad;
ad.style.position = "absolute";
ad.style.left = 0;
ad.style.top = 0;
ad.Image.src = imgUrl;
ad.Image.onmouseover = function(){this.Parent.AutoMove = false;}
ad.Image.onmouseout = function(){this.Parent.AutoMove = true;}
if(strLink)
{
ad.href = strLink;
ad.Image.border = 0;
ad.target = "_blank";
}
ad.appendChild(ad.Image);
document.body.appendChild(ad);
return ad;
},
"Float" : function(floatId)
{
var ad = this.Ads[floatId];
if(ad.AutoMove)
{
var curLeft = parseInt(ad.style.left);
var curTop = parseInt(ad.style.top);
if(ad.offsetWidth + curLeft > document.body.clientWidth + document.body.scrollLeft - 1)
{
curLeft = document.body.scrollLeft + document.body.clientWidth - ad.offsetWidth;
ad.DirH = false;
}
if(ad.offsetHeight + curTop > document.body.clientHeight + document.body.scrollTop - 1)
{
curTop = document.body.scrollTop + document.body.clientHeight - ad.offsetHeight;
ad.DirV = false;
}
if(curLeft < document.body.scrollLeft)
{
curLeft = document.body.scrollLeft;
ad.DirH = true;
}
if(curTop < document.body.scrollTop)
{
curTop = document.body.scrollTop;
ad.DirV = true;
}
ad.style.left = curLeft + "px";
ad.style.top = curTop + (ad.DirV ? 1 : -1) + "px";
}
}
}
</script><body><div style="width:30cm;height:40cm"></div></body>
<script>
Rimifon.NewFloatAd("/dui01.png", "/tz/gz/201203/t20120327_660109.html");
var ad = Rimifon.NewFloatAd("/dui02.png", "/ReadNews.asp?NewsId=374");
ad.style.left = document.body.clientWidth -100;
ad.style.top = 456;
ad.Image.width = 100;
ad.Image.height = 360;
</script>
<!-- 頁面尾部結束 -->
</body>
</html>
<%
conn.Close
Set conn=Nothing
%>