📄 temp.asp
字号:
<!--#include file="tools.asp"-->
<HTML><HEAD><TITLE>房屋论坛</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="images/zzz.css" type=text/css rel=stylesheet>
<script language="Javascript" src="function/function.js"></script>
<SCRIPT language=JavaScript>
<!--
function SnR_MarkIE(theURL,theName,alertMsg) { //v3.0.3
var agt = navigator.userAgent.toLowerCase();
var is_win = ((agt.indexOf("win")!= -1) || (agt.indexOf("16bit")!= -1));
var is_win95 = ((agt.indexOf("win95")!= -1) || (agt.indexOf("windows 95")!= -1));
var is_win16 = ((agt.indexOf("win16")!= -1) || (agt.indexOf("16bit")!= -1) || (agt.indexOf("windows 3.1")!= -1) || (agt.indexOf("windows 16-bit")!= -1) );
var is_win31 = ((agt.indexOf("windows 3.1")!= -1) || (agt.indexOf("win16")!= -1) || (agt.indexOf("windows 16-bit")!= -1));
var is_win98 = ((agt.indexOf("win98")!= -1) || (agt.indexOf("windows 98")!= -1));
var is_winnt = ((agt.indexOf("winnt")!= -1) || (agt.indexOf("windows nt")!= -1));
var is_win32 = (is_win95 || is_winnt || is_win98 || (agt.indexOf("win32")!= -1) || (agt.indexOf("32bit")!= -1));
//Error Causing Element from above line: ((is_major >= 4) && (navigator.platform == "Win32")) ||
var is_Mac = (agt.indexOf("mac") != -1);
if (document.all && (is_win32)) { //IE Windows Only
window.external.AddFavorite(theURL,theName);
}
else { // all others
alert(alertMsg);
}
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_findObj(n, d) { //v4.0
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
function MM_showHideLayers() { //v3.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v='hide')?'hidden':v; }
obj.visibility=v; }
}
function adB_onclick() {
window.open('defaul.asp','','resizable=1,scrollbars=no,width=550 height=300')
}
function s1_onchange() {
window.location=window.s1.value
}
//-->
</SCRIPT>
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0
onload="MM_preloadImages('images/kk2.gif')">
<!--#include file="title.asp"-->
<!--整体的大表格-->
<TABLE class=shuang cellSpacing=0 cellPadding=0 width=778 align=center background=images/bg4.gif border=0>
<TBODY>
<TR>
<TD vAlign=bottom width=140 height=23 valign="top">
<TABLE class=zzz cellSpacing=0 cellPadding=0 width=140 align=center
background=bbs.files/bg4.gif border=0>
<TBODY>
<TR>
<TD width=130 height=35>
<MARQUEE scrollAmount=2 scrollDelay=100 direction=up width=120 height=80
align="center">欢迎光临数码论坛！
<P><FONT color=#ff0000>请您注意</FONT>：
<P>游客可以阅读文章，但
<P>不能发表和回复文章。
<P>注册用户请先登录!
</MARQUEE></TD>
<TR>
</TBODY>
</TABLE>
<BR>
<TABLE class=box1 height=69 cellSpacing=0 cellPadding=2 width="100%"
align=center border=0>
<TBODY>
<TR>
<TD bgColor=#fccb81 colSpan=2>
<DIV align=center>登陆房产论坛</DIV></TD></TR>
<TR>
<FORM action=bbs.asp method=post>
<TD align=middle bgColor=#b3d0fd colSpan=2 height=67>姓名：
<INPUT class=box1 maxLength=15 size=10 name="uid"> <BR>密码：
<INPUT class=box1 type=password maxLength=15 size=10
name="pwd"> <INPUT class=box1 type=submit value=确定 name=B1>
<INPUT class=box1 type=reset value=清除 name=B2> </TD></FORM></TR>
<TR>
<TD width=64 bgColor=#fccb81>
<DIV align=center><A class=zzz href="register.asp" target="_blank">注册新用户</A></DIV></TD>
<TD width=52 bgColor=#fccb81>
<DIV align=center><A class=zzz
onclick="window.open('password.asp','','width=330,height=170');"
href="http://cyber.8898.net/smlt.asp#">取回密码</A></DIV></TD></TR></TBODY></TABLE>
</TD>
<TD vAlign=center width=10></TD>
<TD width=628 height=23 valign=top>
<table class="zzz" cellSpacing="0" cellPadding="0" width="628" align="center"
background="bbs.files/bg4.gif" border="0">
<tr>
<td vAlign="top" width="628">
<table class="box4" cellSpacing="0" cellPadding="0" width="628" align="center" border="0"
height="10">
<TBODY>
<tr>
<td bgColor="#fccb81">
<a href="#" class="zzz" onClick="window.open('addbbs.asp','','resizable=1,scrollbars=yes,width=480,height=250');">发表新文章</a>
</td>
<td align="right" bgColor="#fccb81"></td>
<td align="left" bgColor="#fccb81"></td>
</tr>
</TBODY>
</table>
<table cellSpacing="1" cellPadding="2" width="628" align="center" bgColor="#0066cc"
border="0">
<TBODY>
<tr>
<td class="zzz" noWrap width="292" bgColor="#cccccc"><div align="center"><center><p>文章主题
</td>
<td class="zzz" align="middle" width="69" bgColor="#cccccc"><div align="center"><center><p>作者</td>
<td class="zzz" align="middle" width="57" bgColor="#cccccc"><div align="center"><center><p>回复/阅读</td>
<td class="zzz" align="middle" width="61" bgColor="#cccccc"><div align="center"><center><p>长度
</td>
<td class="zzz" align="middle" width="125" bgColor="#cccccc"><div align="center"><center><p>最后回复时间
</td>
</tr>
<%
strsql1="select bid,uid,topic,face,convert(varchar(16),bdat,120) bd,len(body)-1 cd,hits,isnull(tbl2.chf,0) chf from tblbbs " & _
" left join (select father,count(*) chf from tblbbs group by father) tbl2 on tblbbs.bid=tbl2.father " & _
" where tblbbs.father=0 order by bd desc"
set rsd=server.CreateObject("adodb.recordset")
rsd.Open strsql1,conn,adOpenStatic
page=trim(Request.QueryString("page"))
if page="" or not(isnumeric(page)) then page=1
page=cint(page)
rsd.PageSize=2
rsd.CacheSize=2
cpage=rsd.PageCount
rsd.AbsolutePage=page
while not rsd.EOF and tmp<2
%>
<tr onmouseover="this.style.backgroundColor='#E6F2FF';"
onmouseout="this.style.backgroundColor='#F9F7F2';" bgColor="#f9f7f2">
<td><img height="15" src="images/bbsimages/<%=rsd("face")%>.gif" width="15"> <a class="zzz"
onclick="window.open('showbbs.asp?id=<%=rsd("bid")%>','','width=750,height=550,scrollbars=yes,resizable=yes');"
href="#"><%=rsd("topic")%></a></td>
<td class="zzz" align="middle" width="69"><a class="zzz"
onclick="window.open('view.asp?name=火鸟','','width=350,height=300')"
href="http://cyber.8898.net/smlt.asp#"><%=rsd("uid")%></a></td>
<td class="zzz" align="middle" width="57"><%=rsd("chf")%>/<%=rsd("hits")%></td>
<td class="zzz" align="middle" width="61"><%=rsd("cd")%></a> </td>
<td class="zzz" align="middle" width="125"><%=rsd("bd")%></td>
</tr>
<%
tmp=tmp+1
rsd.MoveNext
wend
%>
</table>
<table class="box8" cellSpacing="0" cellPadding="0" width="628" align="center" border="0"
height="10">
<TBODY>
<tr>
<td bgColor="#fccb81"><font class="zzz"> 当前是第<%=page%>页</font></td>
<td bgColor="#fccb81"><font class="zzz">总共有<%=cpage%>页</font></td>
<%
if cpage>1 then
%>
<%if page<>1then%>
<td bgColor="#fccb81"><font class="zzz"><a href="bbs.asp?page=1">第一页 </font></td>
<%end if%>
<%if page>1 then%>
<td bgColor="#fccb81"><font class="zzz"><a href="bbs.asp?page=<%=page-1%>">上一页 </font></td>
<%end if%>
<%if page<cpage then%>
<td bgColor="#fccb81"><font class="zzz"><a href="bbs.asp?page=<%=page+1%>">下一页 </font></td>
<%end if%>
<%if page<>cpage then%>
<td bgColor="#fccb81"><font class="zzz"><a href="bbs.asp?page=<%=cpage%>">最后一页 </font></td>
<%end if%>
<%end if%>
<td align="right" bgColor="#fccb81"><font class="zzz">转到指定页面:</font></td>
<td align="left" bgColor="#fccb81">
<select name="select" id="s1" LANGUAGE="javascript" onchange="return s1_onchange()"> <%for i=1 to cpage%>
<option
<%if i=page then Response.Write " selected "%>
value="bbs.asp?page=<%=i%>"><%=i%></option>
<%next%>
</select>
</tr>
</TBODY>
</table>
<p></td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</table>
</td>
</tr>
</TABLE></TD></TR></TBODY></TABLE>
<!--#include file="footer.asp"-->
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -