📄 default.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#Include file="odbc_conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<HTML><HEAD><TITLE>本模板由模板精品店提供,更多模板请访问模板精品店http://www.cncss.com</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>TD {
FONT-SIZE: 12px; COLOR: #000000
}
INPUT {
FONT-SIZE: 12px; COLOR: #000000
}
SELECT {
FONT-SIZE: 12px; COLOR: #000000
}
TD.nav {
FILTER: DropShadow( Color=#ffffff, OffX=1, OffY=1)
}
TD.nav A {
COLOR: #000000; TEXT-DECORATION: none
}
TD.nav A:hover {
COLOR: #000000
}
p1 {
FONT-SIZE: 12px
}
p2 {
FONT-SIZE: 12px; LINE-HEIGHT: 130%
}
p3 {
FONT-SIZE: 14px
}
p4 {
FONT-SIZE: 14px; LINE-HEIGHT: 130%
}
p5 {
FONT-SIZE: 12px; LINE-HEIGHT: 180%
}
p6 {
LINE-HEIGHT: 240%
}
p7 {
COLOR: #404642; LINE-HEIGHT: 150%
}
.text {
COLOR: #3c3c3c; LINE-HEIGHT: 180%; TEXT-DECORATION: none
}
.text1 {
FONT-SIZE: 14px; COLOR: #3c3c3c; LINE-HEIGHT: 180%; TEXT-DECORATION: none
}
A:link {
COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
COLOR: #000000; TEXT-DECORATION: none
}
A.text:link {
COLOR: #3c3c3c; TEXT-DECORATION: none
}
A.text:visited {
COLOR: #3c3c3c; TEXT-DECORATION: none
}
A:hover {
COLOR: #000000
}
</STYLE>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=432 background="images/qtop5.jpg" align="center"><font size="7" face="仿宋_GB2312" color="#3399FF"><b>我的空间我做主</b></font></TD>
<TD class=text vAlign=bottom noWrap> <IMG height=11
src="images/dot.gif" width=12 border=0> <a href=# onClick="this.style.behavior='url(#default#homepage)';this.setHomePage
('#/');">设为首页</a> <IMG height=11
src="images/dot.gif" width=12 border=0> <a href=# onClick="window.external.addFavorite('#/','模板天下');return(false)">收藏本站</a></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD width=748 background=images/qback.gif height=36>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD width=10><BR></TD>
<TD><IMG height=22 src="images/butleft.gif" width=21
border=0></TD>
<TD class=nav noWrap background=images/butback.gif><!--prefix-linkaddr1--><A
href="login.asp"><!--postfix-linkaddr1--><!--prefix-linkname1--> 登 录 <!--postfix-linkname1--></A></TD>
<TD><IMG height=22 src="images/butright.gif" width=8
border=0></TD>
<TD width=1><BR></TD>
<TD><IMG height=22 src="images/butleft.gif" width=21
border=0></TD>
<TD class=nav noWrap background=images/butback.gif><!--prefix-linkaddr2--><A
href="index.htm"><!--postfix-linkaddr2--><!--prefix-linkname2--> 注 册 <!--postfix-linkname2--></A></TD>
<TD><IMG height=22 src="images/butright.gif" width=8
border=0></TD>
<TD width=1><BR></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" background=images/qback8.gif
border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD width=286><IMG height=37 src="images/qleft6.jpg" width=286
border=0></TD>
<TD align=middle width=295
background=images/qback6.gif><marquee height="20" direction="left" width="100%">
<img src="images/dog.gif"><font>欢迎光临我的论坛，请指教~！</font>
</marquee></TD>
<TD width=26><IMG height=37 src="images/qright3.gif" width=71
border=0></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD><IMG height=154 src="images/qleft7.jpg" width=286
border=0></TD>
<TD><img height=154 src="images/qleft8.jpg" width=215
border=0></TD>
<TD width=139 background=images/qleft9.gif></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<tr><td background="images/qtop5.jpg"><img src="images/dot.gif"><font size="5" color="#0066FF" face="仿宋_GB2312"> 最 新 热 贴 </font></td></tr>
<TR>
<TD bgcolor="#f2f8ff">
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#0033FF" height="20">
<td width="15%" height="24" align="center" bgcolor="#00CCFF"> <font size="4" color="#FFFFFF" face="宋体"><b> 类 型 </b></font></td>
<td width="23%" height="24" align="center" bgcolor="#00CCFF"> <font size="4" color="#FFFFFF" face="宋体"><b> 主 题 </b></font></td>
<td width="17%" align="center" bgcolor="#00CCFF"><font size="4" color="#FFFFFF" face="宋体"><b> 作 者 </b></font></td>
<td width="12%" align="center" bgcolor="#00CCFF"> <font size="4" color="#FFFFFF" face="宋体"><b> 人 气 </b></font></td>
<td width="15%" align="center" bgcolor="#00CCFF"> <font size="4" color="#FFFFFF" face="宋体"><b> 回 帖 </b></font></td>
<td width="18%" align="center" bgcolor="#00CCFF"><font size="4" color="#FFFFFF" face="宋体"><b> 发表时间 </b></font></td>
</tr>
<%
dim sql,rs,type1
set rs=server.CreateObject("adodb.recordset")
sql="select * from news order by times desc"
rs.open sql,conn,1
if not rs.bof and not rs.eof then
dim pageno
if request.QueryString("pageno")="" then
pageno=1
else pageno=cint(request.QueryString("pageno"))
end if
rs.pagesize=20
rs.absolutepage=pageno
dim i
i=rs.pagesize
do while not rs.eof and i>0
i=i-1
%>
<%
'dim sql,rs,id,type1
'sql="select *from news order by type desc"
'set rs=conn.execute(sql)
'do while not rs.eof
%>
<tr>
<td><%=rs("type")%></td>
<td height="25"><a href="read.asp?id=<%= rs("id")%>&type1=<%=rs("type")%>"><%=rs("title")%><img src="images/new.gif" border="0"></a></td>
<td><img src="images/edit.gif"><%=rs("author")%></td>
<td><%=rs("hits")%></td>
<td><%=rs("return")%></td>
<td><%=rs("times")%></td>
</tr>
<%
rs.movenext
loop
%>
</table> </TD>
</TR></TBODY></TABLE>
<center>
<%
response.Write "请选择数据页："
for i=1 to rs.pagecount
if i=pageno then
response.Write i&" "
else
response.Write "<a href='default.asp?pageno="&i&"'>"&i&"</a> "
end if
next
else
response.Write "该记录集为空！"
end if
rs.close
conn.close
%>
</center>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -