& lt！-# include file = " conn . ASP "-& gt；
& lt！-# include file = " conn user . ASP "-& gt；
& lt！-# include file = " config . ASP "-& gt；
& lt！-# include file = " function . ASP "-& gt；
& lt！-# include file = " char . Inc "-& gt；& lt！DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN " & gt；
& lthtml & gt
& lthead & gt
& lttitle & gt& lt% = jjgn % & gt& lt/title & gt；
& ltmeta " & gt
& lt來自“& amp數據庫_新聞_表格& amp其中更新時間& gt“& amp現在()-30 & amp；和checkked = 1訂單通過clickdesc，更新時間desc“‘選擇本月。
其他
sqlHotNews= "選擇頂部" & amptop _ txt & amp新聞ID，標題，圖片新聞來自。db _新聞_表格& amp" WHERE(update time & gt；Now ()-30)和checked = 1 order by clickdesc，更新時間desc“‘選擇本月。
如果…就會結束
rsHotNews。打開康涅狄格州sqlHotNews，1，1
如果rsHotNews。BOF和rsHotNews。那麽EOF
回應。寫" & ltdiv & gt還沒有
其他
做而不做。文件結束
% & gt
& ltdiv class="OneCR1_content " >
& lt% If rshot news(" pic news ")= 1 Then % & gt；
& lt李class="listnewsimg " >
& lt% Else % & gt
& lt李class="listnews " >
& lt% End if % & gt
& lta href="ReadNews.asp？NewsID = & lt%=rsHotNews("NewsID")% >title = " & lt% = htmlencode 4(rsHotNews(" title "))% & gt；target="_blank " >& lt% = CutStr(htmlencode 4(rsHotNews(" title "))，20)% & gt；& lt/a & gt；& lt/李& gt
& lt/div & gt；
& ltdiv class="tableclear " >& lt/div & gt；
& lt%
rsHotNews。下壹步
環
如果…就會結束
rsHotNews。關閉
設置rsHotNews=Nothing
% & gt
& lt/div & gt；
& lt%
如果topfont=1，則
% & gt
& lth2 class="LeftTitle " >& ltdiv class="LeftTitle-a " >& lt李class="ico1 " >論壇入口
& ltdiv class="OneCL " >
& ltform name = " user " method = " POST " action = " & lt；% = BbsPath % & gt/login.asp？action = chk " on submit = " return check data()；"& gt
& lt%if UserTableType = "FeiTium" then '不集成% & gt
& ltdiv & gt用戶名:
& ltdiv & gt用戶密碼:
& ltdiv & gt& ltinput type = " submit " name = " submit " value = " landing " > & lt；/div & gt；
& lta href = " & lt%=BbsPath% >target="_blank " >[回車]
& lta href = " & lt% = BbsPath % & gtreg.asp" target="_blank " >[用戶註冊]
& lta href = " & lt% = BbsPath % & gtlost pass . ASP " target = " _ blank " & gt；[忘記秘密]
& lt% else % & gt
& lt% if user tabletype = " dv BBS " then % & gt；
& lt% if request . cookies(Forcast _ SN)(" username ")= " " then % & gt；
& ltbr & gt
& ltdiv & gt& ltfont color = red & gt功能入口，請先登錄系統
& ltbr & gt
& lt% else % & gt
& lt% log in user = chk request(request . cookies(Forcast _ SN)("用戶名")，0)
設置RS 10 =服務器。CreateObject("ADODB。記錄集”)
rs10。Source = " select * from " & amp數據庫用戶表& amp《哪裏》& amp數據庫用戶名& amp" = ' " & amp登錄用戶和"
rs10。打開rs10。來源，ConnUser，1，1
如果不是rs10.eof，則% >
& lt% if RS 10(db _ User _ Face)& lt；& gt""那麽% & gt
& ltimg src = " & lt% = BbsPath % & gt& lt% = RS 10(db _ User _ Face)% & gt；border = " 0 " width = " & lt% = RS 10(db _ User _ face width)% & gt；height = " & lt% = RS 10(db _ User _ face height)% & gt；& gt
& lt% ' '顯示用戶頭像，並添加了' bbs/'前綴路徑，這樣圖形系統就可以直接顯示指向論壇的頭像% & gt
& lt% else % & gt
& ltimg src = " images/no pic . gif " border = " 0 " & gt；
& lt% end if % & gt
& lt%rs10 .關閉
set RS 10 = nothing % & gt；
& ltbr & gt
& ltdiv & gt& ltfont color = red & gtwelcome < % = request . cookies(Forcast _ SN)("用戶名")% & gt！& lt/font & gt；& lt/div & gt；
& ltbr & gt
& ltdiv & gt& lta href = " & lt%=BbsPath% >target="_blank " >進入論壇
& lt% end if % & gt
& lt% end if % & gt
& lt% end if % & gt
& lt% end if % & gt
& lt/form & gt；
& lt/div & gt；
& lth2 class="LeftTitle " >& ltdiv class="LeftTitle-a " >& lt李class="ico1 " >最新論壇
& ltdiv class="OneCL " >
& ltscript src = " & lt% = BbsPath % & gtDv_News.asp？GetName = base " & gt& lt/script & gt；
& lt/div & gt；
& lt%
如果…就會結束
如果showspecial=1，則
% & gt
& lth2 class="LeftTitle " >& ltdiv class="LeftTitle-a " >& lt李class="ico3 " >本網站專題
& ltdiv class="OneCL " >
& lt%
Dim rsSpecial，sqlSpecial，TrString
set RS special = server . createobject(" adodb . recordset ")'主題。
sqlSpecial= "選擇頂部" & amptop _ sp & ampSpecialID，SpecialName FROM。數據庫_特殊_表格& amp“由專業DESC訂購”
rsSpecial。康涅狄格州，1，1
如果不是特別的話。那麽EOF
雖然不特別。文件結束
TrString = TrString & amp“& ltdiv class = ' onecr 1 _ content ' & gt；& lt李。& lta href='Special_News.asp？SpecialID = " & ampRS special(" specialied ")& amp；& gt“& amptrim(CutStr(htmlencode 4(RS special(" special name "))，20))& amp；& lt/a & gt；& lt/李& gt& lt/div & gt；"
rsSpecial。下壹步
行
% & gt
& ltdiv class="OneCR1_more " >
& ltli class="datetime " >& lta href="Special.asp " >更大的..& lt/a & gt；& lt/李& gt
& lt/div & gt；
& lt%
其他
TrString = " & ltdiv class = " " onecr 1 _ content " " >；沒有特別的話題
如果…就會結束
rsSpecial。關閉
設置rsSpecial=Nothing
回應。寫入字符串
% & gt
& ltdiv class="tableclear " >& lt/div & gt；
& lt/div & gt；
& lt%
如果…就會結束
如果showdata=1，則
% & gt
& lth2 class="LeftTitle " >& ltdiv class="LeftTitle-a " >& lt李class="ico4 " >本網站的數據
& ltdiv class="OneCL " >
& ltdiv class="OneCL1_data " >今天的文章
& ltdiv class="OneCR1_data " >& ltli class="datetime " >& lt% = todays()% & gt；& lt/李& gt& lt/div & gt；
& ltdiv class="OneCL1_data " >文章總數
& ltdiv class="OneCR1_data " >& ltli class="datetime " >& lt% = gettipnum()% & gt；& lt/李& gt& lt/div & gt；
& ltdiv class="OneCL1_data " >成員總數
& ltdiv class="OneCR1_data " >& ltli class="datetime " >& lt% = get usernum()% & gt；& lt/李& gt& lt/div & gt；
& lt！-# include file = last member . ASP-& gt；
& lt%
如果showcount=1，則
% & gt
& ltscript src = Cnt.asp & gt& lt/script & gt；
& lt！-# include file = zx . ASP-& gt；
& ltdiv class="OneCL1_data " >當前在線
& ltdiv class="OneCR1_data " >& ltli class="datetime " >& lt% = i % & gt& lt/李& gt& lt/div & gt；
& ltdiv class="tableclear " >& lt/div & gt；
& lt%
如果…就會結束
% & gt
& lt/div & gt；
& lt%
如果…就會結束
如果showuser=1，則
% & gt
& lth2 class="LeftTitle " >& ltdiv class="LeftTitle-a " >& lt李class="ico5 " >手稿統計
& ltdiv class="oneCL " >
& lt！-# include file = top user . ASP-& gt；
& lt！-# include file = top dep . ASP-& gt；
& lt/div & gt；
& lt%
如果…就會結束
如果showuser=0，則
% & gt
& lth2 class="LeftTitle " >& ltdiv class="LeftTitle-a " >& lt李class="ico5 " >十個縣市的新聞稿數量
& ltdiv class="oneCL " >
& lt！-# include file = 10xs . ASP-& gt；
& lt/div & gt；
& lt%
如果…就會結束
如果showvote="1 "那麽
% & gt
& lth2 class="LeftTitle " >& ltdiv class="LeftTitle-a " >& lt李class="ico6 " >在此站點投票
& ltdiv class="OneCL " >
& lt%
set RS vote = conn . Execute(" SELECT Title，Select1，Select2，Select3，Select4，Select5，Select6，Select7，Select8 FROM " & amp數據庫_投票_表格& amp"其中IsChecked=1 ")
如果rsVote。那麽EOF
% & gt
& ltdiv class="OneCR1_content " >還沒有投票
& lt%
其他
% & gt
& ltdiv class="OneCR1_content " >& lt% = RS vote(" Title ")% & gt；& lt/div & gt；
& ltform action = " vote . ASP " target = " new window " method = " post " name = " research " >
& ltdiv class="OneCR1_content " >
& lt%
對於i=1到8
如果RS vote(" Select " & amp；I)& lt；& gt”“那麽
% & gt
& lt輸入style = " border:0；高度:22px”& lt%如果i=1，則% & gt選中& lt% End if % & gtname = " Options " type = " radio " value = " & lt；%=i% >& gt& lt% = i % & gt)& lt% = RS vote(" Select " & amp；I)% & gt；& ltbr & gt
& lt%
如果…就會結束
然後
% & gt
& lt/div & gt；
& lt%
如果…就會結束
% & gt
& ltdiv & gt
& ltinput style = " cursor:hand " type = " submit " value = " vote for it " ID = " submit 1 " name = " submit 1 " >
& ltinput onClick = " JavaScript:vote()；"Type="button" value= "查看結果" ID = " button 1 " name = " button 1 " style = " cursor:hand " >
& lt/div & gt；
& lt/form & gt；
& lt/div & gt；
& lt%
如果…就會結束
% & gt
& lt/div & gt；
& lt！-新聞專欄開始-& gt；
& ltdiv class="indexright1 " >
& lt%
Dim rsType，sqlType
設置rsType = Server。CreateObject("ADODB。記錄集”)
sqlType = "SELECT typeID，typeName FROM " & amp數據庫類型表& amp"其中typeview=1按類型排序"
rsType。打開康涅狄格州1，1的sqlType
模糊類型id
模糊類型名
而不是rsType。文件結束
typeID = rsType("typeID ")
typeName = trim(rsType("typeName "))
% & gt
& ltdiv class="indexright2 " >
& lth2 class="RightTitle2 " >& ltdiv & gt& lt李& gt& lt% =類型名% & gt& lt/李& gt& lt/div & gt；& ltA href="Type.asp？typeid = & lt%=typeid% >& gt更大的..& lt/A & gt；& lt/H2 & gt；
& ltdiv & gt
& ltdiv class="TwoCL " >
& lt%
Dim rsTypeNewsPic，sqlTypeNewsPic
設置rsTypeNewsPic=Server。CreateObject("ADODB。記錄集”)
sqlTypeNewsPic = "選擇頂部" & ampL _ BG & amp新聞id，標題，圖片名來自。db _新聞_表格& amp" WHERE(typeid = " & amp；typeid & amp"且checked = 1且picnews=1且picname不為空)按新聞id DESC排序"
rsTypeNewsPic。康涅狄格州，1，1
如果rsTypeNewsPic。那麽EOF
回應。寫" & ltdiv class=""photolist1 " " >。& ltimg src = " " images/not opic . gif " " width = " " 56 " " height = " " 56 " " >；& lt/div >；"
其他
而不是rsTypeNewsPic。文件結束
title=rsTypeNewsPic("title ")
fileExt = LCase(getFileExtName(rsTypeNewsPic(" picname "))
選擇案例(文件擴展名)
大小寫“jpg”、“bmp”、“png”、“gif”
% & gt
& lta target = " _ blank " href = " read news . ASP？newsid = & lt% = rsTypeNewsPic(" newsid ")% & gt；title = " & lt% = html encode 4(title)% & gt；& gt
& ltdiv class="photolist1 " >& ltimg src = " & lt% = FileUploadPath & amprsTypeNewsPic("picname")% >width = " 56 " height = " 56 " border = 0 & gt；& lt/div & gt；
& lt/a & gt；
& lt%
案例“主權財富基金”
% & gt
& ltdiv class="photolist1 " >
& ltobject classid = " clsid:d 27 CDB 6 e-AE6D-11cf-96b 8-444553540000 " code base = " ame ")% & gt；" & gt
& ltparam name="quality" value="high " >
& ltparam name = " Play " value = "-1 " & gt；
& ltparam name = " Loop " value = " 0 " & gt
& ltparam name = " Menu " value = "-1 " & gt；
& lt嵌入src = " & lt% = FileUploadPath & amprsTypeNewsPic("picname")% >width = " 56 " height = " 56 " plugin page = " EWS，istop FROM " & ampdb _新聞_表格& amp" WHERE(typeid = " & amp；typeid & amp和checked = 1)由伊斯托普ORDER訂購，紐西德ORDER
rsTypeNews。打開康涅狄格州sqlTypeNews，1，1
而不是rsTypeNews。文件結束
newsid = rsTypeNews("NewsID ")
newstitle = rsTypeNews("title ")
news title color = rsTypeNews(" title color ")
newsurl = "ReadNews.asp？NewsID = " & amp新聞id
newswwurl = rsTypeNews(" title face ")
newsispic = rsTypeNews("picnews ")
news UpdateTime = rsTypeNews(" update time ")
如果顯示年份= 1，則
datetime = Year(newsupdatetime)"."& amp右(" 0 " & amp月(新聞更新時間)，2)和；"."& amp右(" 0 " & amp日(新聞更新時間)，2)
其他
datetime = Right(" 0 " & amp；月(新聞更新時間)，2)和；"."& amp右(" 0 " & amp日(新聞更新時間)，2)
如果…就會結束
程序開始添加小類名。
if rsTypeNews(" big classid ")& lt；& gt”“那麽
B = rsTypeNews("bigclassID ")
設置rs22 =服務器。CreateObject("Adodb。記錄集”)
sql = "SELECT bigclassID，bigclassname FROM " & amp數據庫_大類_表& amp"其中bigclassID = " & ampB
Set rs22=Conn.Execute(sql)
A = rs22("大類名")
rs22。關閉
設置rs22 =無
其他
A= "此欄"
如果…就會結束
添加小班名程序結束。
% & gt
& ltdiv class="TwoCR " >
& lt%
If (newsispic = 1)則
% & gt& lt李class="listnewsimg " >& lt%
其他
% & gt& lt李class="listnews " >& lt%
如果…就會結束
% & gt
[& lt；% = A % & gt]& lt；a href = " & lt% ifnewswwurl = " none " Then % & gt& lt% = newsurl % & gt& lt% Else % & gt& lt% = newswwwurl % & gt& lt% End if % & gt”title = " & lt% =新聞標題% >target="_blank " >& ltfont color = " & lt%=newstitlecolor% >& gt& lt%=CutStr(htmlencode4(newstitle)，int title len)% & gt；& lt/font & gt；& lt/a & gt；
& lt！-標題後的評論-& gt；
& lt%
if rsTypeNews(" titlesize ")& gt；= 1 Then % & gt；& lta class = " dotted 4 " href = " review . ASP？NewsID = & lt%=newsid% >target="_blank " >& ltfont color="red " >[觀點]& lt；/font & gt；& lt/A & gt；& lt% End if % & gt
& lt！-標題後的評論-& gt；
& lt%
如果rsTypeNews("istop")="1 "，則% & gt& ltfont color = red & gt[實心]
& lt%
如果year(newupdatetime)= year(date())and month(newupdatetime)= month(date())and day(newupdatetime)= day(date())，那麽% & gt& ltfont color="red " >[新建]
& lt%
如果showtime="1 "那麽% & gt& lt% =日期時間% & gt& lt% End if % & gt
& lt/李& gt
& lt/div & gt；
& ltdiv class="foo " >& lt/div & gt；
& lt%
rsTypeNews。下壹步
行
rsTypeNews。關閉
設置rsTypeNews=Nothing
% & gt
& lt/div & gt；& ltdiv class="tableclear " >& lt/div & gt；
& lt/div & gt；
& lt%
rsType。下壹步
行
rsType。關閉
設置rsType =無
% & gt
& lt/div & gt；
& lt！-新聞專欄的結尾-& gt；
& lt！-啟動office按鈕-& gt；
& lth2 class="RightTitle " >& ltdiv class="RightTitle-a " >& lt李& gt辦公室按鈕
& ltdiv class="indexright " >
& lt%
設置rs15 =服務器。CreateObject("ADODB。記錄集”)
rs15。Source="SELECT officename，officepic，officeurl FROM " & ampdb _ office _ Table & amp"按ID DESC排序"
rs15。打開rs15。康涅狄格州，1，1
如果不是rs15。那麽EOF
而不是rs15。文件結束
% & gt
& ltdiv class="OfficeCR " >& lta href = " & lt%=rs15("officeurl")% >& gt& ltimg src = " & lt%=rs15("officepic")% >width="60" height="60" border="0 " >& lt/a & gt；& ltbr & gt& lt% = RS 15(" office name ")% & gt；& lt/div & gt；
& lt%
rs15。下壹步
行
其他
回應。寫" & lttd & gt沒有可用的信息
如果…就會結束
rs15 .關閉
設置rs15 =無
% & gt& ltdiv class="tableclear " >& lt/div & gt；
& lt/div & gt；
& lt！-辦公室結束按鈕-& gt；
& lt！-搜索-& gt；
& lth2 class="RightTitle " >& ltdiv class="RightTitle-a " >& lt李& gt站內搜索
& ltdiv class="indexright " >
& lt！-div id = " top search "->；& lt！-3級框架->
& ltform method = " post " name = " my form " action = " result . ASP " target = " new window " >
& ltdiv & gt& ltb & gt站內搜索:
& lt%如果showsearch=1，則
如果search="1 "那麽% & gt
& lt！-# include file = search . ASP-& gt；
& lt% Else % & gt
& lt！-# include file = search 1 . ASP-& gt；
& lt%End If
結束If % & gt
& lt/div & gt；
& lt/form & gt；
& lt/div & gt；
& lt！-搜索-& gt；
& lt！-頁面文本結束-& gt；
& lt！-手動鏈接開始-& gt；
& ltTD height = " 41 " background = " image/g03 _ back . gif " valign = " middle " & gt；
& ltdiv align="center " >
& lttable border = " 0 " cell padding = " 0 " cellspacing = " 0 " width = " 980 " height = " 43 " >
& lttr & gt
& ltTD width = " 168 " align = " center " height = " 43 " >& ltA href="/" title= "中華人民共和國國家知識產權局" target="_blank " >。& ltimg border = " 0 " src = " images/link 01 . gif " width = " 157 " height = " 37 " >& lt/a & gt；& lt/TD & gt；
& ltTD width = " 158 " align = " center " height = " 43 " >& ltA href="/" title= "國家知識產權戰略網絡" target="_blank">。& ltimg border = " 0 " src = " images/link 02 . gif " width = " 157 " height = " 37 " >& lt/a & gt；& lt/TD & gt；
& ltTD width = " 163 " align = " center " height = " 43 " >& ltA href="/" title= "福建省知識產權局" target="_blank">。& ltimg border = " 0 " src = " images/link 03 . gif " width = " 158 " height = " 37 " >& lt/a & gt；& lt/TD & gt；
& ltTD width = " 163 " align = " center " height = " 43 " >& ltA href="/" title= "全國專利信息聯合發布平臺" target = " _ blank " & gt& ltimg border = " 0 " src = " images/link 04 . gif " width = " 157 " height = " 37 " >& lt/a & gt；& lt/TD & gt；
& ltTD width = " 162 " align = " center " height = " 43 " >& ltA href="/" title= "福建省科技廳" target = " _ blank " & gt& ltimg border = " 0 " src = " images/link 05 . gif " width = " 157 " height = " 37 " >& lt/a & gt；& lt/TD & gt；
& ltTD width = " 166 " align = " center " height = " 43 " >& ltA href="/" title= "南平市科技局" target = " _ blank " & gt& ltimg border = " 0 " src = " images/link 06 . gif " width = " 157 " height = " 37 " >& lt/a & gt；& lt/TD & gt；
& lt/tr & gt；
& lt/table & gt；
& lt/div & gt；
& lt/TD & gt；
& lt/tr & gt；
& lt！-手動鏈接結束-& gt；
& lt%
其他
回應。寫" & ltdiv class = " " indexmain " " & gt目前沒有章節類別，請
如果…就會結束
% & gt
& lt/div & gt；
& lt！-從頁面末尾開始-& gt；
& lt！-# include file = bottom . ASP-& gt；
& lt腳本& gt
var Rimifon = {
【廣告】:新對象，
“NewFloatAd”:函數(imgUrl，strLink)
{
var ad = document . createelement(" a ")；
廣告。DirV = true
廣告。DirH = true
廣告。AutoMove = true
廣告。Image =新圖像；
廣告。seed = math . random()；
廣告。Timer = setInterval("Rimifon。Float(" + ad。種子+”)，50)；
這個。廣告[ad。seed]= ad；
廣告。Image . Parent = ad
ad . style . position = " absolute "；
ad . style . left = 0；
ad . style . top = 0；
廣告。Image.src = imgUrl
廣告。image . onmouseover = function(){ this。Parent . AutoMove = false}
廣告。image . onmouseout = function(){ this。Parent . AutoMove = true}
if(strLink)
{
ad.href = strLink
廣告。image . border = 0；
ad.target = " _ blank
}
ad.appendChild(ad。圖片)；
document . body . appendchild(ad)；
返回廣告；
},
“Float”:函數(floatId)
{
var ad = this。ads[float id]；
如果(公元。AutoMove)
{
var cur left = parse int(ad . style . left)；
var curTop = parse int(ad . style . top)；
if(ad . offsetwidth+cur left & gt；document . body . client width+document . body . scroll left-1)
{
cur left = document . body . scroll left+document . body . client width-ad . offsetwidth；
廣告。DirH = false
}
if(ad . offset height+curTop & gt；document . body . client height+document . body . scroll top-1)
{
curTop = document . body . scroll top+document . body . client height-ad . offset height；
廣告。DirV = false
}
if(cur left & lt；document.body.scrollLeft)
{
cur left = document . body . scroll left；
廣告。DirH = true
}
if(curTop & lt；document.body.scrollTop)
{
curTop = document . body . scroll top；
廣告。DirV = true
}
ad . style . left = cur left+" px "；
ad.style.top = curTop + (ad。DirV？1:-1)+" px "；
}
}
}
& lt/script & gt；& ltbody & gt& ltdiv style= "寬度:30cm身高:40厘米" >& lt/div & gt；& lt/body & gt；
& lt腳本& gt
瑞米豐。new float d("/dui 01 . png "，"/tz/gz/201203/t 20120327 _ 660109 . html ")；
var ad = Rimifon。new float d("/dui 02 . png "，"/ReadNews.asp？NewsId = 374”)；
ad . style . left = document . body . client width-100；
ad . style . top = 456；
廣告。image . width = 100；
廣告。Image.height = 360
& lt/script & gt；
& lt！-這壹頁的結尾-& gt；
& lt/body & gt；
& lt/html & gt；
& lt%
關閉控制室
設置連接=無
% & gt