X
xiaodaihehehe
Unregistered / Unconfirmed
GUEST, unregistred user!
asp文件的源码如下:
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit %>
<%response.buffer=false
%>
<!--#include file="majunconn.asp"-->
<!--#include file="checkinfo.asp" -->
<html>
<head>
<title>反恐论坛</title>
<META content="text/html;
charset=gb2312" http-equiv=Content-Type>
<SCRIPT>function HighlightAll(theField) {
var tempval=eval("document."+theField)
tempval.focus()
tempval.select()
therange=tempval.createTextRange()
therange.execCommand("Copy")}
function enable(btn){
btn.filters.gray.enabled=0;}
function disable(btn){
btn.filters.gray.enabled=1;}
</SCRIPT>
<STYLE>.gray {
CURSOR: hand;
FILTER: gray
}
</STYLE>
<STYLE type=text/css>P {
COLOR: #333333;
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
INPUT {
COLOR: #333333;
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
SELECT {
COLOR: #333333;
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
TABLE {
BORDER-BOTTOM: 2px;
BORDER-LEFT: 0px;
BORDER-TOP: 1px
}
TD {
BORDER-RIGHT: 1px;
BORDER-TOP: 1px;
COLOR: #000000;
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
TD {
WORD-BREAK: break-all
}
A {
TEXT-DECORATION: none
}
A:hover {
COLOR: #0066cc;
TEXT-DECORATION: underline
}
BODY {
FONT-FAMILY: 宋体
COLOR: #CCAAAA;
FONT-SIZE: 9pt
}
TEXTAREA {
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
.menu {
BACKGROUND-COLOR: #fefeff;
BORDER-BOTTOM: #500000 1px;
BORDER-LEFT: #500000 1px;
BORDER-RIGHT: #500000 1px;
BORDER-TOP: #500000 1px;
FILTER: revealTrans(transition=23,duration=0.5) blendTrans(duration=0.5);
HEIGHT: 20px;
POSITION: absolute;
VISIBILITY: hidden;
Z-INDEX: 1;
layer-background-color: #FEFEFF
}
.title {
}
.cau {
}
.bot {
BORDER-BOTTOM: medium none;
BORDER-LEFT: rgb(0,0,0) 1px solid;
BORDER-RIGHT: rgb(0,0,0) 1px solid;
BORDER-TOP: rgb(0,0,0) 1px solid
}
.bot2 {
BORDER-BOTTOM: #000000 1px solid;
BORDER-LEFT: #000000 1px solid;
BORDER-RIGHT: #000000 1px solid;
BORDER-TOP: black 0px solid
}
.bot4 {
BORDER-BOTTOM: #000000 1px solid;
BORDER-LEFT: #000000 1px solid;
BORDER-RIGHT: #000000 1px solid;
BORDER-TOP: #000000 1px solid
}
.bot3 {
BORDER-BOTTOM-COLOR: black;
BORDER-BOTTOM-STYLE: solid;
BORDER-LEFT: #000000 1px solid;
BORDER-RIGHT: #000000 1px solid;
BORDER-TOP: #000000 1px solid
}
</STYLE>
<SCRIPT language="javascript">
<!--
function check()
{
var len1=comeform.username.value.length;
var len2=comeform.password.value.length;
if (len1==0)
{
alert("请输入您想注册的队员名称!");
comeform.username.focus();
return false;
}
else
if (comeform.username.value.indexOf(" ")!=-1)
{
alert("队员名称不能含有空格!");
comeform.username.focus();
return false;
}
else
if (len2==0)
{
alert("请您输入您的队员密码!");
comeform.password.focus();
return false;
}
else
if (comeform.password.value.indexOf(" ")!=-1)
{
alert("队员密码中不能含有空格!");
comeform.password.focus();
return false;
}
else
return true;
}
// -->
</SCRIPT>
<META content="MSHTML 5.00.2920.0" name=GENERATOR></HEAD>
<BODY aLink=#333333 background="流星之梦 Delphi技术2.files/bmb.htm" bgColor=#ffffff
leftMargin=0 link=#333333 topMargin=3 vLink=#333333>
<STYLE>BODY {
SCROLLBAR-FACE-COLOR: 99ccff;
SCROLLBAR-HIGHLIGHT-COLOR: C6DE92;
SCROLLBAR-SHADOW-COLOR: #FFFFFF;
SCROLLBAR-3DLIGHT-COLOR: #FFFFFF;
SCROLLBAR-ARROW-COLOR: #000000;
SCROLLBAR-TRACK-COLOR: #FFFFFF;
SCROLLBAR-DARKSHADOW-COLOR: #FFFFFF
}
</STYLE></head>
<%
dim sql
dim sql2
dim rs3
dim rs
dim rs2
dim total
dim total2
dim str
dim order
order=request.form("sel")
set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
set rs3=server.createobject("adodb.recordset")
sql="select * from newsinfo order by "&
order &" desc"
rs.open sql,conn,3,3
rs2.open "select * from userinfo ",conn,1,1
rs3.open "select * from repinfo ",conn,1,1
total=rs.recordcount+rs3.recordcount
%>
<body>
<center> <center>
<form method="post" name="comeform" onSubmit="return(check());" action="comein.asp">
<Table width="98%" border="0" cellpadding="0" cellspacing="0" bordercolor="#0099FF">
<tbody>
<tr>
<td width="83%" height="43" align="left"> <div align="left"><img src="IMAGES/bbs.gif" width="170" height="71">
</div>
</TD>
<td width="17%" align="left"><img src="IMAGES/awp%20.jpg" width="150" height="50"></TD>
</tr>
<tr>
<td height="19" colspan="2" align="left"><hr align="center" width=97% size=1 color="#0094DB"></TD>
</tr>
</tbody>
</Table>
<table width="98%" border="0" cellpadding="0" cellspacing="0" >
<tbody>
<tr align="left" >
<td> <div align="left">
<table width="94%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="8%" height="18">&nbsp;</td>
<td width="92%" valign=middle><marquee loop="-1" scrolldelay=150>
<img src="IMAGES/gg.gif" width="14" height="14"> 您是我们的第<strong><font color=red><%= Counts("Counter.txt") %>
</font></strong>位访客&nbsp;&nbsp;,欢迎光临反恐论坛![<%=now()%>]
</marquee></td>
<td></td>
</tr>
</table>
</div></td>
</tr>
<tr align="left" valign="bottom">
<td height="50" colspan="3">
<table width="100%" border="1" align=center cellpadding="0" cellspacing="0" bordercolor="#009AFF">
<tr align=left valign="top" >
<td height="22" colspan="4" background="IMAGES/tablebg.gif"><img alt=更多公告 border=0 src="images/gb.gif" width=18>
&nbsp;<strong>论坛信息</strong></td>
</tr>
<tr>
<td width="24%" height="100" align="right" valign="middle">
<table width="93%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20">论坛成立时间:2003年6月26日</td>
</tr>
<tr>
<td height="20">共有注册会员:<strong><font color="#FF0000"><%=rs2.recordcount%></font></strong></td>
</tr>
<tr>
<td height="20">主题总数:<font color="#FF0000"><strong><%=rs.recordcount%></strong></font>
</td>
</tr>
<tr>
<td height="20">貼子总数:<font color="#FF0000"><strong><%=total%></strong></font></td>
</tr>
<tr>
<td height="20">欢迎大家成为<font color="#FF0000"><strong>CS</strong></font>会员</td>
</tr>
</table></td>
<td width="30%" align=center valign="middle">
<%
if session("zkuser")<>"" then
%>
<table width="87%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="16" align="center"></td>
</tr>
<tr>
<td height="9" align="center"><strong><font color="#FF0000"><%=Trim(session("zkuser"))%></font></strong><font color="#FF0000"><font color="#000000">
会员您好,欢迎您登陆反恐论坛!</font></font></td>
</tr>
<tr>
<td height="8"></td>
</tr>
<tr>
<td height="29" align="center"><a href="edituser.asp" target="_blank"><img src="IMAGES/usereidt.gif" width="70" height="20" border="0"></a>
&nbsp;<a href="newspost.asp" target="_blank"><img src="IMAGES/newnews.gif" width="70" height="20" border="0"></a>
</td>
</tr>
<tr>
<td height="23" align="center"><a href="upimg.asp" target="_blank"><img src="IMAGES/newnews.gif" border="0"></a>
&nbsp;<a href="showimglist.ASP" target="_blank"><img src="IMAGES/newnews.gif" border="0"></a></td>
</tr>
<tr>
<td height="6" ></td>
</tr>
</table>
<%
else
%><br>
<table width="68%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="18"><strong><font color="#FF0000" size="3">==></font>快速登陆入口:</strong></td>
</tr>
<tr>
<td height="21" align="center"> <p>会员名称:
<input type=text size=9 name="username" >
<br>
</p></td>
</tr>
<tr>
<td height="18" align="center">登陆密码:
<input type=password size=9 name="password"> </td>
</tr>
<tr>
<td align="center"> <input type="submit" value="登 陆" class="buttonface" name="cmdOk2">
&nbsp;
<input type="button" value="注 册" class="buttonface" name="cmdOk" onClick="location.href='userpost.asp'">
</td>
</tr>
</table>
<%
end if
%>
</td>
<td width="25%" align="center" valign="middle">
<table width="94%" border="0" cellpadding="0" cellspacing="0">
<tr align="center">
<td height="21" colspan="2"><font color="#FF0000"><strong><font color="#000000">人气</font>最旺<font color="#000000">文章TOP5</font></strong></font></td>
</tr>
<%
dim rstop5
dim newsname
dim newsname5
dim rsscoretop5
set rstop5=server.createobject("adodb.recordset")
set rsscoretop5=server.createobject("adodb.recordset")
rstop5.open "select top 5 * from newsinfo order by watchtimes desc",conn,1,1
rsscoretop5.open "select top 5 * from userinfo order by score desc",conn,1,1
do while not rstop5.eof
newsname=rstop5("title")
newsname5=mid(newsname,1,8)%>
<tr>
<td width="77%" align="left" hignt="22"><a href="onenews.asp?title1=<%=rstop5("title")%>" target="_blank"><%=newsname5%></a></td>
<td width="23%"><%=rstop5("watchtimes")%></td>
</tr>
<% rstop5.movenext
loop
%>
</table>
<%
rstop5.close
set rstop5=nothing
%>
</td>
<td width="21%" align="center" valign="middle">
<table width="86%" border="0" cellpadding="0" cellspacing="0">
<tr align="left">
<td height="21" colspan="2"><div align="center"><font color="#FF0000"><strong><font color="#000000">积分</font>最高<font color="#000000">会员top5</font></strong></font></div></td>
</tr>
<%do
while not rsscoretop5.eof
%>
<tr>
<td align="left" hignt="22"><a href="userinfo.asp?userinfo=<%=rsscoretop5("username")%>" target="_blank"><%=rsscoretop5("username")%></a></td>
<td width="25%"><%=rsscoretop5("score")%></td>
</tr>
<% rsscoretop5.movenext
loop
%>
</table>
<%
rsscoretop5.close
set rsscoretop5=nothing
%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td width="68%" height="24" align="center">
<div align="left"><strong>*
您的位置&lt;&lt;论坛主页</strong> </div></td>
<td width="24%" align="center">
<select name="orderby" >
<option value="replasttime" >按回复时间 </option>
<option value="time">按发贴时间</option>
</select ></td>
<td width="8%" align="center"><input type="button" name="sel" value="Go" onClick="location.href='0.asp'"></td>
</tr>
</tbody>
</table></form>
<%
Function Counts(CounterFile)
Dim objFSO, objTS
Application.Lock '锁定Application对象
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True)
If Not objTS.AtEndOfStream then
'检查是否到达文件结尾
Counts = CLng(objTS.ReadLine)
End If
Counts = Counts + 1
objTS.Close
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True)
objTS.WriteLine(Counts)
objTS.Close
Application.Unlock '解除锁定
End Function
%>
<%
const MaxPerPage=30 '分页显示的纪录个数
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim pass
dim titlel
pass=request("pass")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if rs.eof and rs.bof then
response.write "<p align='center'> 还 没 有 任 何 留 言</p>"
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut / MaxPerPage
else
currentpage= totalPut / MaxPerPage + 1
end if
end if
if currentPage=1 then
showpages
showContent
showpages
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpages
showContent
showpages
else
currentPage=1
showContent
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent %>
<div align="center">
</div>
<table align=center width="98%" border="1" cellpadding="0" cellspacing="0" bordercolor="#0099FF" background="IMAGES/header_tile.gif" bgcolor="#f2f8ff" >
<tbody>
<tr align=middle >
<td width=* height="22" align="center" valign="bottom" ><font size="2"><strong>主题</strong></font></td>
<td width=100 align="center" valign="bottom" ><font size="2"><strong>作者</strong></font></td>
<td width=120 align="center" valign="bottom" ><font size="2"><strong>发帖时间</strong></font></td>
<td width=70 align="center" valign="bottom"><strong><font size="2">回复/人气</font></strong></td>
<td width=185 align="center" valign="bottom"><font size="2"><strong>最后回复</strong></font></td>
</tr>
</tbody>
</table>
<%
dim i
i=0
do while not (rs.eof or err)
%>
<table align=center width="98%" border="1" cellpadding="0" cellspacing="0" bordercolor="#009AFF">
<tbody>
<tr align=middle height="26">
<td width=32 bgcolor="#f2f8ff"><img src="<%=rs("motion")%>" width="20" height="20">
</td>
<td onmouseout="javascript:this.bgColor='f2f8ff'"
onmouseover="javascript:this.bgColor='ffffff'" width=*><font size="2">
<table width="100%" border="0" cellpadding="5" cellspacing="0" wid>
<tbody>
<tr>
<td ><a href="onenews.asp?title1=<%=rs("title")%>" target="_blank"><strong><%=rs("title")%></strong></a>
</td>
</tr>
</tbody>
</table>
</td>
<td width=100 ><p><font color="#000000"><a href="userinfo.asp?userinfo=<%=rs("name")%>" target="_blank"><%=rs("name")%> </a></font>
</p></td>
<td width=120 bgcolor="#f2f8ff" ><font color="#000000" ><%=rs("time")%></font></td>
<td width=70><font color="#000000"><%=rs("reptimes")%>/<%=rs("watchtimes")%></font></td>
<td width=185 bgcolor="#f2f8ff" ><div align="left"><font color="#000000">&nbsp;&nbsp;<%=rs("replasttime")%><font color="#FF0000"><strong>|</strong></font><%=rs("replastname")%></font></div></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then
exitdo
rs.movenext
loop %>
</tbody>
</table>
<%end sub %>
<table border="0" cellpadding="0" cellspacing="0" width="80%" height="28" >
<tr>
<td height="28"><center>
<div align="center">
<% sub showpages()
dim n
if (totalPut mod MaxPerPage)=0 then
n= totalPut / MaxPerPage
else
n= totalPut / MaxPerPage + 1
end if
if n=1 then
response.write " &nbsp;&nbsp;"
'response.write "</p>"
exit sub
end if
dim k
response.write "<p align='left'><strong><font color=#009AFF>&nbsp;&nbsp;留言分页</font><strong>"
for k=1 to n
if k=currentPage then
response.write "<b>"+Cstr(k)+"</b> "
else
response.write "<b>"+"<a href='0.asp?page="+cstr(k)+"'>"+Cstr(k)+"</a></b> "
end if
next
'response.write "&nbsp;&nbsp;<a href=newspost.asp ><img src=images/newnews.gif border=0></a>"
'response.write "</p>"
end sub
%>
</div></td></tr>
</table>
<%
'关闭数据库连接并释放对象
rs.Close
rs2.close
rs3.close
Set rs = Nothing
Set rs2 = Nothing
Set rs3 = Nothing
'reprs.Close
'Set reprs = Nothing
Conn.Close
Set Conn = Nothing
%></div>
<TABLE border=0
cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width="100%" height="89" align=middle> <p align="center">本论坛言论纯属发表者个人意见,与
<FONT
color=#990000><b>反恐论坛</b></FONT>立场无关<br>
版权所有:<font color="#000000">&copy;
</font>xiaodaihehe<br>
本论坛所有文字版权归作者所有 未经许可严禁转载<BR>
</p></TD>
<TD align=right>&nbsp;</TD>
</TR>
</TBODY>
</TABLE>
</body>
</html>
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit %>
<%response.buffer=false
%>
<!--#include file="majunconn.asp"-->
<!--#include file="checkinfo.asp" -->
<html>
<head>
<title>反恐论坛</title>
<META content="text/html;
charset=gb2312" http-equiv=Content-Type>
<SCRIPT>function HighlightAll(theField) {
var tempval=eval("document."+theField)
tempval.focus()
tempval.select()
therange=tempval.createTextRange()
therange.execCommand("Copy")}
function enable(btn){
btn.filters.gray.enabled=0;}
function disable(btn){
btn.filters.gray.enabled=1;}
</SCRIPT>
<STYLE>.gray {
CURSOR: hand;
FILTER: gray
}
</STYLE>
<STYLE type=text/css>P {
COLOR: #333333;
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
INPUT {
COLOR: #333333;
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
SELECT {
COLOR: #333333;
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
TABLE {
BORDER-BOTTOM: 2px;
BORDER-LEFT: 0px;
BORDER-TOP: 1px
}
TD {
BORDER-RIGHT: 1px;
BORDER-TOP: 1px;
COLOR: #000000;
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
TD {
WORD-BREAK: break-all
}
A {
TEXT-DECORATION: none
}
A:hover {
COLOR: #0066cc;
TEXT-DECORATION: underline
}
BODY {
FONT-FAMILY: 宋体
COLOR: #CCAAAA;
FONT-SIZE: 9pt
}
TEXTAREA {
FONT-FAMILY: 宋体;
FONT-SIZE: 9pt
}
.menu {
BACKGROUND-COLOR: #fefeff;
BORDER-BOTTOM: #500000 1px;
BORDER-LEFT: #500000 1px;
BORDER-RIGHT: #500000 1px;
BORDER-TOP: #500000 1px;
FILTER: revealTrans(transition=23,duration=0.5) blendTrans(duration=0.5);
HEIGHT: 20px;
POSITION: absolute;
VISIBILITY: hidden;
Z-INDEX: 1;
layer-background-color: #FEFEFF
}
.title {
}
.cau {
}
.bot {
BORDER-BOTTOM: medium none;
BORDER-LEFT: rgb(0,0,0) 1px solid;
BORDER-RIGHT: rgb(0,0,0) 1px solid;
BORDER-TOP: rgb(0,0,0) 1px solid
}
.bot2 {
BORDER-BOTTOM: #000000 1px solid;
BORDER-LEFT: #000000 1px solid;
BORDER-RIGHT: #000000 1px solid;
BORDER-TOP: black 0px solid
}
.bot4 {
BORDER-BOTTOM: #000000 1px solid;
BORDER-LEFT: #000000 1px solid;
BORDER-RIGHT: #000000 1px solid;
BORDER-TOP: #000000 1px solid
}
.bot3 {
BORDER-BOTTOM-COLOR: black;
BORDER-BOTTOM-STYLE: solid;
BORDER-LEFT: #000000 1px solid;
BORDER-RIGHT: #000000 1px solid;
BORDER-TOP: #000000 1px solid
}
</STYLE>
<SCRIPT language="javascript">
<!--
function check()
{
var len1=comeform.username.value.length;
var len2=comeform.password.value.length;
if (len1==0)
{
alert("请输入您想注册的队员名称!");
comeform.username.focus();
return false;
}
else
if (comeform.username.value.indexOf(" ")!=-1)
{
alert("队员名称不能含有空格!");
comeform.username.focus();
return false;
}
else
if (len2==0)
{
alert("请您输入您的队员密码!");
comeform.password.focus();
return false;
}
else
if (comeform.password.value.indexOf(" ")!=-1)
{
alert("队员密码中不能含有空格!");
comeform.password.focus();
return false;
}
else
return true;
}
// -->
</SCRIPT>
<META content="MSHTML 5.00.2920.0" name=GENERATOR></HEAD>
<BODY aLink=#333333 background="流星之梦 Delphi技术2.files/bmb.htm" bgColor=#ffffff
leftMargin=0 link=#333333 topMargin=3 vLink=#333333>
<STYLE>BODY {
SCROLLBAR-FACE-COLOR: 99ccff;
SCROLLBAR-HIGHLIGHT-COLOR: C6DE92;
SCROLLBAR-SHADOW-COLOR: #FFFFFF;
SCROLLBAR-3DLIGHT-COLOR: #FFFFFF;
SCROLLBAR-ARROW-COLOR: #000000;
SCROLLBAR-TRACK-COLOR: #FFFFFF;
SCROLLBAR-DARKSHADOW-COLOR: #FFFFFF
}
</STYLE></head>
<%
dim sql
dim sql2
dim rs3
dim rs
dim rs2
dim total
dim total2
dim str
dim order
order=request.form("sel")
set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
set rs3=server.createobject("adodb.recordset")
sql="select * from newsinfo order by "&
order &" desc"
rs.open sql,conn,3,3
rs2.open "select * from userinfo ",conn,1,1
rs3.open "select * from repinfo ",conn,1,1
total=rs.recordcount+rs3.recordcount
%>
<body>
<center> <center>
<form method="post" name="comeform" onSubmit="return(check());" action="comein.asp">
<Table width="98%" border="0" cellpadding="0" cellspacing="0" bordercolor="#0099FF">
<tbody>
<tr>
<td width="83%" height="43" align="left"> <div align="left"><img src="IMAGES/bbs.gif" width="170" height="71">
</div>
</TD>
<td width="17%" align="left"><img src="IMAGES/awp%20.jpg" width="150" height="50"></TD>
</tr>
<tr>
<td height="19" colspan="2" align="left"><hr align="center" width=97% size=1 color="#0094DB"></TD>
</tr>
</tbody>
</Table>
<table width="98%" border="0" cellpadding="0" cellspacing="0" >
<tbody>
<tr align="left" >
<td> <div align="left">
<table width="94%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="8%" height="18">&nbsp;</td>
<td width="92%" valign=middle><marquee loop="-1" scrolldelay=150>
<img src="IMAGES/gg.gif" width="14" height="14"> 您是我们的第<strong><font color=red><%= Counts("Counter.txt") %>
</font></strong>位访客&nbsp;&nbsp;,欢迎光临反恐论坛![<%=now()%>]
</marquee></td>
<td></td>
</tr>
</table>
</div></td>
</tr>
<tr align="left" valign="bottom">
<td height="50" colspan="3">
<table width="100%" border="1" align=center cellpadding="0" cellspacing="0" bordercolor="#009AFF">
<tr align=left valign="top" >
<td height="22" colspan="4" background="IMAGES/tablebg.gif"><img alt=更多公告 border=0 src="images/gb.gif" width=18>
&nbsp;<strong>论坛信息</strong></td>
</tr>
<tr>
<td width="24%" height="100" align="right" valign="middle">
<table width="93%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20">论坛成立时间:2003年6月26日</td>
</tr>
<tr>
<td height="20">共有注册会员:<strong><font color="#FF0000"><%=rs2.recordcount%></font></strong></td>
</tr>
<tr>
<td height="20">主题总数:<font color="#FF0000"><strong><%=rs.recordcount%></strong></font>
</td>
</tr>
<tr>
<td height="20">貼子总数:<font color="#FF0000"><strong><%=total%></strong></font></td>
</tr>
<tr>
<td height="20">欢迎大家成为<font color="#FF0000"><strong>CS</strong></font>会员</td>
</tr>
</table></td>
<td width="30%" align=center valign="middle">
<%
if session("zkuser")<>"" then
%>
<table width="87%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="16" align="center"></td>
</tr>
<tr>
<td height="9" align="center"><strong><font color="#FF0000"><%=Trim(session("zkuser"))%></font></strong><font color="#FF0000"><font color="#000000">
会员您好,欢迎您登陆反恐论坛!</font></font></td>
</tr>
<tr>
<td height="8"></td>
</tr>
<tr>
<td height="29" align="center"><a href="edituser.asp" target="_blank"><img src="IMAGES/usereidt.gif" width="70" height="20" border="0"></a>
&nbsp;<a href="newspost.asp" target="_blank"><img src="IMAGES/newnews.gif" width="70" height="20" border="0"></a>
</td>
</tr>
<tr>
<td height="23" align="center"><a href="upimg.asp" target="_blank"><img src="IMAGES/newnews.gif" border="0"></a>
&nbsp;<a href="showimglist.ASP" target="_blank"><img src="IMAGES/newnews.gif" border="0"></a></td>
</tr>
<tr>
<td height="6" ></td>
</tr>
</table>
<%
else
%><br>
<table width="68%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="18"><strong><font color="#FF0000" size="3">==></font>快速登陆入口:</strong></td>
</tr>
<tr>
<td height="21" align="center"> <p>会员名称:
<input type=text size=9 name="username" >
<br>
</p></td>
</tr>
<tr>
<td height="18" align="center">登陆密码:
<input type=password size=9 name="password"> </td>
</tr>
<tr>
<td align="center"> <input type="submit" value="登 陆" class="buttonface" name="cmdOk2">
&nbsp;
<input type="button" value="注 册" class="buttonface" name="cmdOk" onClick="location.href='userpost.asp'">
</td>
</tr>
</table>
<%
end if
%>
</td>
<td width="25%" align="center" valign="middle">
<table width="94%" border="0" cellpadding="0" cellspacing="0">
<tr align="center">
<td height="21" colspan="2"><font color="#FF0000"><strong><font color="#000000">人气</font>最旺<font color="#000000">文章TOP5</font></strong></font></td>
</tr>
<%
dim rstop5
dim newsname
dim newsname5
dim rsscoretop5
set rstop5=server.createobject("adodb.recordset")
set rsscoretop5=server.createobject("adodb.recordset")
rstop5.open "select top 5 * from newsinfo order by watchtimes desc",conn,1,1
rsscoretop5.open "select top 5 * from userinfo order by score desc",conn,1,1
do while not rstop5.eof
newsname=rstop5("title")
newsname5=mid(newsname,1,8)%>
<tr>
<td width="77%" align="left" hignt="22"><a href="onenews.asp?title1=<%=rstop5("title")%>" target="_blank"><%=newsname5%></a></td>
<td width="23%"><%=rstop5("watchtimes")%></td>
</tr>
<% rstop5.movenext
loop
%>
</table>
<%
rstop5.close
set rstop5=nothing
%>
</td>
<td width="21%" align="center" valign="middle">
<table width="86%" border="0" cellpadding="0" cellspacing="0">
<tr align="left">
<td height="21" colspan="2"><div align="center"><font color="#FF0000"><strong><font color="#000000">积分</font>最高<font color="#000000">会员top5</font></strong></font></div></td>
</tr>
<%do
while not rsscoretop5.eof
%>
<tr>
<td align="left" hignt="22"><a href="userinfo.asp?userinfo=<%=rsscoretop5("username")%>" target="_blank"><%=rsscoretop5("username")%></a></td>
<td width="25%"><%=rsscoretop5("score")%></td>
</tr>
<% rsscoretop5.movenext
loop
%>
</table>
<%
rsscoretop5.close
set rsscoretop5=nothing
%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td width="68%" height="24" align="center">
<div align="left"><strong>*
您的位置&lt;&lt;论坛主页</strong> </div></td>
<td width="24%" align="center">
<select name="orderby" >
<option value="replasttime" >按回复时间 </option>
<option value="time">按发贴时间</option>
</select ></td>
<td width="8%" align="center"><input type="button" name="sel" value="Go" onClick="location.href='0.asp'"></td>
</tr>
</tbody>
</table></form>
<%
Function Counts(CounterFile)
Dim objFSO, objTS
Application.Lock '锁定Application对象
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True)
If Not objTS.AtEndOfStream then
'检查是否到达文件结尾
Counts = CLng(objTS.ReadLine)
End If
Counts = Counts + 1
objTS.Close
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True)
objTS.WriteLine(Counts)
objTS.Close
Application.Unlock '解除锁定
End Function
%>
<%
const MaxPerPage=30 '分页显示的纪录个数
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim pass
dim titlel
pass=request("pass")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if rs.eof and rs.bof then
response.write "<p align='center'> 还 没 有 任 何 留 言</p>"
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut / MaxPerPage
else
currentpage= totalPut / MaxPerPage + 1
end if
end if
if currentPage=1 then
showpages
showContent
showpages
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpages
showContent
showpages
else
currentPage=1
showContent
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent %>
<div align="center">
</div>
<table align=center width="98%" border="1" cellpadding="0" cellspacing="0" bordercolor="#0099FF" background="IMAGES/header_tile.gif" bgcolor="#f2f8ff" >
<tbody>
<tr align=middle >
<td width=* height="22" align="center" valign="bottom" ><font size="2"><strong>主题</strong></font></td>
<td width=100 align="center" valign="bottom" ><font size="2"><strong>作者</strong></font></td>
<td width=120 align="center" valign="bottom" ><font size="2"><strong>发帖时间</strong></font></td>
<td width=70 align="center" valign="bottom"><strong><font size="2">回复/人气</font></strong></td>
<td width=185 align="center" valign="bottom"><font size="2"><strong>最后回复</strong></font></td>
</tr>
</tbody>
</table>
<%
dim i
i=0
do while not (rs.eof or err)
%>
<table align=center width="98%" border="1" cellpadding="0" cellspacing="0" bordercolor="#009AFF">
<tbody>
<tr align=middle height="26">
<td width=32 bgcolor="#f2f8ff"><img src="<%=rs("motion")%>" width="20" height="20">
</td>
<td onmouseout="javascript:this.bgColor='f2f8ff'"
onmouseover="javascript:this.bgColor='ffffff'" width=*><font size="2">
<table width="100%" border="0" cellpadding="5" cellspacing="0" wid>
<tbody>
<tr>
<td ><a href="onenews.asp?title1=<%=rs("title")%>" target="_blank"><strong><%=rs("title")%></strong></a>
</td>
</tr>
</tbody>
</table>
</td>
<td width=100 ><p><font color="#000000"><a href="userinfo.asp?userinfo=<%=rs("name")%>" target="_blank"><%=rs("name")%> </a></font>
</p></td>
<td width=120 bgcolor="#f2f8ff" ><font color="#000000" ><%=rs("time")%></font></td>
<td width=70><font color="#000000"><%=rs("reptimes")%>/<%=rs("watchtimes")%></font></td>
<td width=185 bgcolor="#f2f8ff" ><div align="left"><font color="#000000">&nbsp;&nbsp;<%=rs("replasttime")%><font color="#FF0000"><strong>|</strong></font><%=rs("replastname")%></font></div></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then
exitdo
rs.movenext
loop %>
</tbody>
</table>
<%end sub %>
<table border="0" cellpadding="0" cellspacing="0" width="80%" height="28" >
<tr>
<td height="28"><center>
<div align="center">
<% sub showpages()
dim n
if (totalPut mod MaxPerPage)=0 then
n= totalPut / MaxPerPage
else
n= totalPut / MaxPerPage + 1
end if
if n=1 then
response.write " &nbsp;&nbsp;"
'response.write "</p>"
exit sub
end if
dim k
response.write "<p align='left'><strong><font color=#009AFF>&nbsp;&nbsp;留言分页</font><strong>"
for k=1 to n
if k=currentPage then
response.write "<b>"+Cstr(k)+"</b> "
else
response.write "<b>"+"<a href='0.asp?page="+cstr(k)+"'>"+Cstr(k)+"</a></b> "
end if
next
'response.write "&nbsp;&nbsp;<a href=newspost.asp ><img src=images/newnews.gif border=0></a>"
'response.write "</p>"
end sub
%>
</div></td></tr>
</table>
<%
'关闭数据库连接并释放对象
rs.Close
rs2.close
rs3.close
Set rs = Nothing
Set rs2 = Nothing
Set rs3 = Nothing
'reprs.Close
'Set reprs = Nothing
Conn.Close
Set Conn = Nothing
%></div>
<TABLE border=0
cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width="100%" height="89" align=middle> <p align="center">本论坛言论纯属发表者个人意见,与
<FONT
color=#990000><b>反恐论坛</b></FONT>立场无关<br>
版权所有:<font color="#000000">&copy;
</font>xiaodaihehe<br>
本论坛所有文字版权归作者所有 未经许可严禁转载<BR>
</p></TD>
<TD align=right>&nbsp;</TD>
</TR>
</TBODY>
</TABLE>
</body>
</html>