📄 index.asp
字号:
A.more:hover {
COLOR: #ff0000; TEXT-DECORATION: underline
}
.t2 {
BACKGROUND: #ffcbc6; COLOR: #40BDE8; FONT-SIZE: 12px
}
.111 {
BACKGROUND: #ffffff; BORDER-BOTTOM: #622625 1px solid; BORDER-LEFT: #fff5f4 1px solid; BORDER-RIGHT: #622625 1px solid; BORDER-TOP: #fff5f4 1px solid; COLOR: #40BDE8; FONT-FAMILY: verdana; FONT-SIZE: 11px
}
.222 {
BACKGROUND: #ffffff; BORDER-BOTTOM: #d8b4b6 1px solid; BORDER-LEFT: #622625 1px solid; BORDER-RIGHT: #d8b4b6 1px solid; BORDER-TOP: #622625 1px solid; COLOR: #40BDE8; FONT-FAMILY: verdana; FONT-SIZE: 11px
}
.send {
BACKGROUND-COLOR: #e6f1c5; BORDER-BOTTOM: #e6f1c5 1px solid; BORDER-LEFT: #e6f1c5 1px solid; BORDER-RIGHT: #e6f1c5 1px solid; BORDER-TOP: #e6f1c5 1px solid; FONT-SIZE: 12px
}
</STYLE>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=1 topMargin=8 marginheight="0" marginwidth="0">
<table border="0" cellpadding="0" cellspacing="0" width="768" align="center" height="11">
<tr>
<td bgcolor="#ffffff" width="150" height="1" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="98%" height="115" align=right>
<tr>
<td width="100%" height="18">
<table border="0" cellpadding="0" cellspacing="0" width="99%">
<tr>
<td width="100%" bgcolor="#000000">
<table border="0" cellspacing="1" width="100%">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<table border="0" cellspacing="0" width="100%">
<tr>
<td width="100%" bgcolor="#40BDE8">
<table border="0" cellspacing="1" width="100%" height="41">
<tr>
<td width="100%" bgcolor="#40BDE8" height="14">
<p align="center">◎<b>笑话分类</b>◎</p>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#FBDBE6" height="20">
<table border="0" cellspacing="0" width="100%" cellpadding="0" height="14">
<tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from type order by -typeid desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<td width="50%" bgcolor="#FFFFFF" align="center" height="20" valign="middle"><a href="index.asp?typeid=<%=rs("typeid")%>"><img border="0" src="images/small/jt1.gif" align=absmiddle>
<%=rs("type")%></a></td>
<%
ka=ka+1
if ka=2 then
ka=0
response.write "</tr><tr>"
end if
rs.movenext
loop
rs.close
set rs=nothing
%>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="2">
<td></tr>
<tr>
<td width="100%" height="12">
<table border="0" cellpadding="0" cellspacing="0" width="99%">
<tr>
<td width="100%" bgcolor="#000000">
<table border="0" cellspacing="1" width="100%">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<table border="0" cellspacing="0" width="100%">
<tr>
<td width="100%" bgcolor="#40BDE8">
<table border="0" cellspacing="1" width="100%" height="41">
<tr>
<td width="100%" bgcolor="#40BDE8" height="14">
<p align="center">◎<b>友情连接◎</b></p>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" height="20">
<table border="0" cellspacing="0" width="100%" cellpadding="0" height="20">
<tr>
<td width="100%" bgcolor="#FFFFFF" align="center" height="20" valign="middle">欢迎加入</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" align="center" height="20" valign="middle">欢迎加入</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" align="center" height="21" valign="middle">欢迎加入</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" align="center" height="21" valign="middle">欢迎加入</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" align="center" height="21" valign="middle">欢迎加入</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" align="center" height="21" valign="middle">欢迎加入</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" align="center" height="21" valign="middle">欢迎加入</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" align="center" height="21" valign="middle">欢迎加入</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="464" height="1" valign="top" bgcolor="#FFFFFF">
<%
dim page
typeid=request("typeid")
page=request("page")
PageSize = 20
dim rs,strSQL,news
strsql="select * from learning"
if request("typeid")<>"" then
strsql=strsql&" where typeid="&request("typeid")
end if
strsql=strsql&" order by articleid desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSQL,Conn,3,3
rs.PageSize = PageSize
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -