<%=jjgn%>

<%@ Language=VBScript%> <%=jjgn%> <% 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 rs9=server.CreateObject("ADODB.RecordSet") rs9.Source="select top 6 * from "& db_News_Table &" where checkked=1 order by newsid desc" rs9.Open rs9.Source,conn,1,1 do while not rs9.EOF title=trim(rs9("title")) newsurl="ReadNews.asp?NewsID=" & rs9("NewsID") newswwwurl=rs9("titleface") %> <%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(title)%>">

><%=CutStr(htmlencode4(rs9("title")),14)%> <%rs9.movenext loop rs9.close set rs9=nothing%>

友情链接:传世私服 | 传奇世界私服

<%if topfont=1 then%> <%end if%> <% if showdata=1 then%> <%end if%> <%if showvote="1" then%> <% set rs=conn.execute("SELECT * FROM " & db_Vote_Table & " where IsChecked=1") if rs.eof then %> <%else%> <%end if%> <%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 "" else do while not rs.eof%> <% ii = ii + 1 if ii>top_txt-1 then exit do rs.movenext loop end if rs.close set rs=nothing%>

暂无

· <%if rs("picnews")=1 then%>

<%end if%> " title="<%=htmlencode4(rs("title"))%>" target="_blank" ><%=CutStr(htmlencode4(rs("title")),14)%>

<%if UserTableType = "FeiTium" then '不整合%> 用户名称：

用户密码：

[进入] [用户注册] [忘密]
<%else%> <%if UserTableType = "Dvbbs" then%> <%if Request.cookies(Forcast_SN)("username")="" then%>

功能入口

请先登录系统

<%else%> <%loginuser=Request.cookies(Forcast_SN)("UserName") 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%> <%''显示用户头像，加'bbs/'前缀路径,使图文系统直接显示定向到论坛头像%> <%else%> <%end if%> <%rs10.close set rs10=nothing%>
欢迎您 <%=Request.cookies(Forcast_SN)("UserName")%> !

进入论坛 <%end if%> <%end if%> <%end if%> <%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 = "FeiTium" 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 = "FeiTium" 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 = "FeiTium" 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()%>

<%if showcount=1 then%>
  ○- 当前在线：<%=i%>

<%end if%>

尚无任何投票

<%=rs("Title")%>

<% for i=1 to 8 if rs("Select"&i)<>"" then %> checked<%end if%> name=Options type=radio value=<%=i%>> <%=i%>.<%=rs("Select"&i)%>
<% end if next %>

<% 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 %> <%else Response.Write "" end if rsb.close set rsb=nothing%>

<%=CutStr(htmlencode4(rsb("title")),20)%> <%=CheckStr(rsb("content"))%> <%=rsb("dateandtime")%>
以前公告

暂无

<% for i=1 to RecordCount typeID=Arraytyid(i) typeName=ArraytyName(i) %> <%i=i+1 typeID=Arraytyid(i) typeName=ArraytyName(i) if i<=RecordCount then %> <%end if%>

<%=typeName%>

<% set rs=server.CreateObject("ADODB.RecordSet") if uselevel=1 then if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("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(Forcast_SN)("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(Forcast_SN)("key")="selfreg" then if Request.cookies(Forcast_SN)("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(Forcast_SN)("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(Forcast_SN)("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(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("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(Forcast_SN)("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(Forcast_SN)("key")="selfreg" then if Request.cookies(Forcast_SN)("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(Forcast_SN)("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(Forcast_SN)("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="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,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 '增加小类名称程序结束 %> <% rs3.MoveNext wend %>

[<%=A%>]<%=img%> <%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs3("title"))%>" target="_blank"> "> <%=CutStr(htmlencode4(rs3("title")),14)%> <% if rs3("titlesize")>=1 then %> " target="_blank" >评 <%end if %> <%''if showauthor="1" then%> <%''=rs3("Author")%> <%''end if%>

<%=typeName%>

" 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(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("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(Forcast_SN)("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(Forcast_SN)("key")="selfreg" then if Request.cookies(Forcast_SN)("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(Forcast_SN)("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(Forcast_SN)("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="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="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,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 '增加小类名称程序结束 %> <%rs3.MoveNext wend %>

<% next rs3.close set rs3=nothing %>

<%if showlinkmap=1 then%> <% rs10.Close set rs10=nothing end if%>

<%if linkshownum >8 then Response.Write "

"& vbcrlf end if set rs10=server.CreateObject("ADODB.RecordSet") rs10.Source="select top "& linkshownum &" * from "& db_Link_Table &" where linktype=2 and pass=1 order by ID DESC " rs10.Open rs10.Source,conn,1,1 for i=1 to linkshownum if not rs10.EOF then%> " target="_blank" title="<%=rs10("webname")%> 简介：<%=rs10("content")%> 站长：<%=rs10("webmaster")%> 申请时间：<%=rs10("dateandtime")%>">" width="88" height="31" border="0" align=left> <%rs10.MoveNext else%> <%end if Next%>

<%if showlink=1 then set rs10=server.CreateObject("ADODB.RecordSet") rs10.Source="select top "& linkshownum &" * from "& db_Link_Table &" where linktype=0 and pass=1 order by ID DESC " rs10.Open rs10.Source,conn,1,1 for i=1 to 6 if not rs10.EOF then %> <% rs10.MoveNext else %> <%end if Next rs10.Close set rs10=nothing %> <%end if%>

" target="_blank" title="<%=rs10("content")%> 站长：<%=rs10("webmaster")%> 申请时间：<%=rs10("dateandtime")%>"><%=rs10("webname")%>

您的位置

<%else Response.Write "

暂无文章类别，请登陆后添加！

" end if%> <%@ Language=VBScript%> <%=jjgn%> <% 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 %>

><%=CutStr(htmlencode4(rs9("title")),14)%> <%rs9.movenext loop rs9.close set rs9=nothing%>

友情链接:传世私服 | 传奇世界私服

暂无

· <%if rs("picnews")=1 then%>

<%end if%> " title="<%=htmlencode4(rs("title"))%>" target="_blank" ><%=CutStr(htmlencode4(rs("title")),14)%>

<%if UserTableType = "FeiTium" then '不整合%> 用户名称：

用户密码：

尚无任何投票

<%=rs("Title")%>

<% for i=1 to 8 if rs("Select"&i)<>"" then %> checked<%end if%> name=Options type=radio value=<%=i%>> <%=i%>.<%=rs("Select"&i)%>
<% end if next %>

<%=CutStr(htmlencode4(rsb("title")),20)%> <%=CheckStr(rsb("content"))%> <%=rsb("dateandtime")%>
以前公告

暂无

<% for i=1 to RecordCount typeID=Arraytyid(i) typeName=ArraytyName(i) %> <%i=i+1 typeID=Arraytyid(i) typeName=ArraytyName(i) if i<=RecordCount then %> <%end if%>

<%=typeName%>

" 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 %>

" else img="

<%=typeName%>

" 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 %>

" else img="

<% next rs3.close set rs3=nothing %>

<%if showlinkmap=1 then%> <% rs10.Close set rs10=nothing end if%>

<%if linkshownum >8 then Response.Write "

" target="_blank" title="<%=rs10("content")%> 站长：<%=rs10("webmaster")%> 申请时间：<%=rs10("dateandtime")%>"><%=rs10("webname")%>

您的位置

<%else Response.Write "

暂无文章类别，请登陆后添加！

><%=CutStr(htmlencode4(rs9("title")),14)%> <%rs9.movenext loop rs9.close set rs9=nothing%>

暂无

· <%if rs("picnews")=1 then%>

<%end if%> " title="<%=htmlencode4(rs("title"))%>" target="_blank" ><%=CutStr(htmlencode4(rs("title")),14)%>

<%if UserTableType = "FeiTium" then '不整合%> 用户名称：

用户密码：

尚无任何投票

<%=rs("Title")%>

<% for i=1 to 8 if rs("Select"&i)<>"" then %> checked<%end if%> name=Options type=radio value=<%=i%>> <%=i%>.<%=rs("Select"&i)%>
<% end if next %>

<%=CutStr(htmlencode4(rsb("title")),20)%> <%=CheckStr(rsb("content"))%> <%=rsb("dateandtime")%>
以前公告

暂无

<% for i=1 to RecordCount typeID=Arraytyid(i) typeName=ArraytyName(i) %> <%i=i+1 typeID=Arraytyid(i) typeName=ArraytyName(i) if i<=RecordCount then %> <%end if%>

<%=typeName%>

" 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 %>

" else img="

<%=typeName%>

" 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 %>

" else img="

<% next rs3.close set rs3=nothing %>

<%if showlinkmap=1 then%> <% rs10.Close set rs10=nothing end if%>

<%if linkshownum >8 then Response.Write "

" target="_blank" title="<%=rs10("content")%> 站长：<%=rs10("webmaster")%> 申请时间：<%=rs10("dateandtime")%>"><%=rs10("webname")%>

您的位置

<%else Response.Write "

暂无文章类别，请登陆后添加！

" end if%>