<%
dim typeid
dim typename
dim typecontent
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_Type_Table &" where typeview=1 order by typeorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArraytypeID(10000),ArraytypeName(10000)
rs.close
set rs=nothing
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_Type_Table &" where typeview=1 order by typeorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArraytyID(10000),ArraytyName(10000),Arraytyview(10000)
if not rs.EOF then
rseof=1
while not rs.EOF
RecordCount=rs.RecordCount
tyID=rs("typeID")
tyName=trim(rs("typeName"))
tycontent=rs("typecontent")
tyview=trim(rs("typeview"))
ArraytyID(i)=tyID
ArraytyName(i)=tyName
Arraytyview(i)=tyview
i=i+1
rs.MoveNext
wend
rs.close
%>
<%
set rsb=server.CreateObject("ADODB.RecordSet")
rsb.Source="select * from "& db_Board_Table &" where inuse=1"
rsb.Open rsb.Source,conn,1,1
if not rsb.EOF then
%>
<% dim mm_id,mm_pic,mm_topic,mm_i,mm_id0,mm_topic0,mm_temp1,mm_temp2,mm_temp3
mm_i=0
mm_id0=0
set rs3=server.CreateObject("ADODB.RecordSet")
rs3.Source="select top 10 * from "& db_News_Table &" where picnews=1 and goodnews=1 and checkked=1 and picname is not null order by NewsID DESC"
rs3.Open rs3.Source,conn,1,1
do while not rs3.eof
mm_id=rs3("Newsid")
mm_pic=rs3("picname")
mm_pic=mm_pic
mm_topic=rs3("title")
mm_topic=mm_topic
if instr(mm_pic,"://")<1 then
mm_pic=mm_pic
end if
if mm_i=0 then
mm_id0=rs3("Newsid")
mm_topic0=rs3("title")
end if
mm_temp1= mm_temp1&"uploadfile/"&mm_pic&","
mm_temp2= mm_temp2&"E_ReadNews.asp?newsid="&mm_id&","
mm_temp3= mm_temp3&""&mm_topic&","
mm_i=mm_i+1
rs3.movenext
loop
rs3.close
if instr(right(mm_temp1,1),",")>0 then
mm_temp1=left(mm_temp1,len(mm_temp1)-1)
mm_temp2=left(mm_temp2,len(mm_temp1)-1)
mm_temp3=left(mm_temp3,len(mm_temp1)-1)
end if%>
<%
dim ii
ii = 0
if DbType = "MSSQL" then
rs.Source="select top " & top_txt & " * from "& db_News_Table &" where updatetime>'"& now()-30 &"' and checkked=1 order by click DESC" '选择本月
else
rs.Source="select top " & top_txt & " * from "& db_News_Table &" where (updatetime>now()-30) and checkked=1 order by click DESC" '选择本月
end if
rs.Open rs.Source,conn,1,1
if rs.bof and rs.eof then
response.write "
<% ii = ii + 1
if ii>top_txt-1 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing%>
<%end if%>
<%if showvote="1" then%>
<%
set rs=conn.execute("SELECT * FROM " & db_Vote_Table & " where IsChecked=1")
if rs.eof then
%>
尚无任何投票
<%else%>
<%=rs("Title")%>
<%end if%>
<%
function gettipnum()
dim tmprs
tmprs=conn.execute("Select Count(NewsID) from "& db_News_Table &" where checkked=1")
gettipnum=tmprs(0)
set tmprs=nothing
if isnull(gettipnum) then gettipnum=0
end function
function todays()
dim tmprs
tmprs=conn.execute("Select count(NewsID) from "& db_News_Table &" Where checkked=1 and year(updatetime)="& year(date()) &" and month(updatetime)="& month(date()) &" and day(updatetime)="& day(date()) &"")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function
function getusernum()
dim rs
rs=ConnUser.execute("Select Count("& db_User_ID &") from "& db_User_Table &"")
getusernum=rs(0)
set rs=nothing
if isnull(getusernum) then getusernum=0
end function
function getgg()
dim rs
if db_Sex_Select = "EChuang" then
rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where "& db_User_Sex &"='男' ")
getgg=rs(0)
set rs=nothing
else
if db_Sex_Select = "Number" then
rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where "& db_User_Sex &"=1")
getgg=rs(0)
set rs=nothing
end if
end if
if isnull(getgg) then getgg=0
end function
function getmm()
dim rs
if db_Sex_Select = "EChuang" then
rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where "& db_User_Sex &"='女' ")
getmm=rs(0)
set rs=nothing
else
if db_Sex_Select = "Number" then
rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where "& db_User_Sex &"=0")
getmm=rs(0)
set rs=nothing
end if
end if
if isnull(getmm) then getmm=0
end function
function getother()
dim rs
if db_Sex_Select = "EChuang" then
rs=ConnUser.execute("Select Count("& db_User_ID &") from "& db_User_Table &" where "& db_User_Sex &" = '保密' ")
getother=rs(0)
set rs=nothing
else
if db_Sex_Select = "Number" then
rs=ConnUser.execute("Select Count("& db_User_ID &") from "& db_User_Table &" where "& db_User_Sex &" <>1 and "& db_User_Sex &"<>0 ")
getother=rs(0)
set rs=nothing
end if
end if
if isnull(getother) then getother=0
end function
%>
○- 今日文章:<%=todays()%>
○- 文章总数:<%=gettipnum()%>
○- 会员总数:<%=getusernum()%>
<%
set rs=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="" then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and newslevel=0 and picnews=1 and picname is not null) order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="selfreg" then
if Request.cookies(eChuang)("reglevel")=3 then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
end if
if Request.cookies(eChuang)("reglevel")=2 then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
end if
if Request.cookies(eChuang)("reglevel")=1 then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
end if
end if
else
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC"
end if
rs.Open rs.Source,conn,1,1
if rs.EOF then
Response.Write ""
else
while not rs.EOF
title=rs("title")
fileExt=lcase(getFileExtName(rs("picname")))
%>
" title="<%=htmlencode4(title)%>">
<%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
" width="56" border=1 style=border-color:#ffffff height="56">
<%end if%>
<%if fileext="swf" then%>
<%end if%>
<%
rs.MoveNext
wend
end if
rs.close
set rs=nothing
%>
<% dim rs3
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="selfreg" then
if Request.cookies(eChuang)("reglevel")=3 then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
end if
if Request.cookies(eChuang)("reglevel")=2 then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
end if
if Request.cookies(eChuang)("reglevel")=1 then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
end if
end if
else
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
rs3.Open rs3.Source,conn,1,1
while not rs3.EOF
newsurl="E_ReadNews.asp?NewsID=" & rs3("NewsID")
newswwwurl=rs3("titleface")
fileExt=lcase(getFileExtName(rs3("picname")))
if showyear=1 then
datetime="(" & year(rs3("UpdateTime")) &"年"& Month(rs3("UpdateTime")) &"月"& Day(rs3("UpdateTime")) &"日)"
else
datetime="("& Month(rs3("UpdateTime")) &"月"& Day(rs3("UpdateTime")) &"日)"
end if
if rs3("picnews")=1 then
if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then
img=" "
else
img=""
end if
else
img=""
end if
'增加小类名称程序开始
if rs3("bigclassID")<>"" then
B=rs3("bigclassID")
set rs22=server.createobject("adodb.recordset")
sql="SELECT bigclassID,E_BigClassName FROM "& db_BigClass_Table &" WHERE bigclassID="&B
Set rs22=Conn.Execute(sql)
A=rs22("E_BigClassName")
rs22.close
set rs22=Nothing
else
A="本栏"
end if
'增加小类名称程序结束
%>
<%
set rs=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="" then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and newslevel=0 and picnews=1 and picname is not null) order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="selfreg" then
if Request.cookies(eChuang)("reglevel")=3 then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
end if
if Request.cookies(eChuang)("reglevel")=2 then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
end if
if Request.cookies(eChuang)("reglevel")=1 then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
end if
end if
else
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC"
end if
rs.Open rs.Source,conn,1,1
if rs.EOF then
Response.Write ""
else
while not rs.EOF
title=rs("title")
fileExt=lcase(getFileExtName(rs("picname")))
%>
" title="<%=htmlencode4(title)%>">
<%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
" width="56" border=1 style=border-color:#ffffff height="56" />
<%end if%>
<%if fileext="swf" then%>
<%end if%>
<%
rs.MoveNext
wend
end if
rs.close
set rs=nothing
%>
<%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="selfreg" then
if Request.cookies(eChuang)("reglevel")=3 then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
end if
if Request.cookies(eChuang)("reglevel")=2 then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
end if
if Request.cookies(eChuang)("reglevel")=1 then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
end if
end if
else
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
rs3.Open rs3.Source,conn,1,1
while not rs3.EOF
newsurl="E_ReadNews.asp?NewsID=" & rs3("NewsID")
newswwwurl=rs3("titleface")
fileExt=lcase(getFileExtName(rs3("picname")))
if showyear=1 then
datetime="(" & year(rs3("UpdateTime")) &"年"& Month(rs3("UpdateTime")) &"月"& Day(rs3("UpdateTime")) &"日)"
else
newsurl="E_ReadNews.asp?NewsID=" & rs3("NewsID")
newswwwurl=rs3("titleface")
datetime="("& Month(rs3("UpdateTime")) &"月"& Day(rs3("UpdateTime")) &"日)"
end if
if rs3("picnews")=1 then
if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then
img=" "
else
img=""
end if
else
img=""
end if
%>
<%
'增加小类名称程序开始
if rs3("bigclassID")<>"" then
B=rs3("bigclassID")
set rs22=server.createobject("adodb.recordset")
sql="SELECT bigclassID,E_BigClassName FROM "& db_BigClass_Table &" WHERE bigclassID="&B
Set rs22=Conn.Execute(sql)
A=rs22("E_BigClassName")
rs22.close
set rs22=Nothing
else
A="本栏"
end if
'增加小类名称程序结束
%>
<%
'增加小类名称程序开始
if rs3("bigclassID")<>"" then
B=rs3("bigclassID")
set rs22=server.createobject("adodb.recordset")
sql="SELECT bigclassID,E_BigClassName FROM "& db_BigClass_Table &" WHERE bigclassID="&B
Set rs22=Conn.Execute(sql)
A=rs22("E_BigClassName")
rs22.close
set rs22=Nothing
else
A="本栏"
end if
'增加小类名称程序结束
%>