📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="admin/ubbhtml.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!-- saved from url=(0014)about:internet -->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>娱乐笑话</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<style type="text/css">
td img {display: block;}body,td,th {
font-size: 14px;
}
body {
background-color: #FFFFFF;
margin-left: 0px;
margin-top: -1px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url(img/index_bg.jpg);
background-repeat: repeat-x;
}
a {
font-size: 13px;
color: #0000CC;
}
a:visited {
color: #0066FF;
}
a:hover {
color: #009966;
}
a:active {
color: #0099CC;
}
.dixian {
border-bottom-width: 1px;
border-bottom-style: solid;
border-bottom-color: #FEBC1F;
}
.l { text-decoration: none; }
</style>
<SCRIPT language=JavaScript>
var newwin
function openwin(url)
{
var newwin=window.open(url,"flash","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=700,height=506,left=100,top=50")
}
</SCRIPT>
<SCRIPT language=javascript src="joke/mouse_up.js"></SCRIPT>
</head>
<body>
<table width="926" border="0" align="left" cellpadding="0" cellspacing="0">
<!-- fwtable fwsrc="index.png" fwbase="index.jpg" fwstyle="Dreamweaver" fwdocid = "162338751" fwnested="0" -->
<tr>
<td><img src="img/spacer.gif" width="31" height="1" border="0" alt="" /></td>
<td><img src="img/spacer.gif" width="253" height="1" border="0" alt="" /></td>
<td><img src="img/spacer.gif" width="22" height="1" border="0" alt="" /></td>
<td><img src="img/spacer.gif" width="126" height="1" border="0" alt="" /></td>
<td><img src="img/spacer.gif" width="122" height="1" border="0" alt="" /></td>
<td><img src="img/spacer.gif" width="111" height="1" border="0" alt="" /></td>
<td><img src="img/spacer.gif" width="115" height="1" border="0" alt="" /></td>
<td><img src="img/spacer.gif" width="132" height="1" border="0" alt="" /></td>
<td><img src="img/spacer.gif" width="14" height="1" border="0" alt="" /></td>
<td><img src="img/spacer.gif" width="1" height="1" border="0" alt="" /></td>
</tr>
<tr>
<td colspan="3" valign="top" background="img/index_r1_c1.jpg"><a href="http://www.ii86.com" target="_blank"><font color="#1883D5">大荆门户网 www.ii86.com</font></a> </td>
<td><img src="img/index_r1_c4.jpg" alt="" name="index_r1_c4" width="126" height="146" border="0" usemap="#index_r1_c4Map" id="index_r1_c4" /></td>
<td><img src="img/index_r1_c5.jpg" alt="" name="index_r1_c5" width="122" height="146" border="0" usemap="#index_r1_c5Map" id="index_r1_c5" /></td>
<td><img src="img/index_r1_c6.jpg" alt="" name="index_r1_c6" width="111" height="146" border="0" usemap="#index_r1_c6Map" id="index_r1_c6" /></td>
<td><img src="img/index_r1_c7.jpg" alt="" name="index_r1_c7" width="115" height="146" border="0" usemap="#index_r1_c7Map" id="index_r1_c7" /></td>
<td colspan="2"><img src="img/index_r1_c8.jpg" alt="" name="index_r1_c8" width="146" height="146" border="0" usemap="#index_r1_c8Map" id="index_r1_c8" /></td>
<td><img src="img/spacer.gif" width="1" height="146" border="0" alt="" /></td>
</tr>
<tr>
<td rowspan="2"><img name="index_r2_c1" src="img/index_r2_c1.jpg" width="31" height="285" border="0" id="index_r2_c1" alt="" /></td>
<td rowspan="2" align="right" valign="top" background="img/index_r2_c2.jpg"><!--#include file="f.asp"--></td>
<td colspan="7" background="img/index_r2_c3.jpg"> </td>
<td><img src="img/spacer.gif" width="1" height="34" border="0" alt="" /></td>
</tr>
<tr>
<td colspan="6" rowspan="2" valign="top" bgcolor="#FFFFFF"><table width="98%" height="234" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="84%" height="20" valign="bottom" class="dixian"> 随机搞笑图图</td>
<td width="16%" valign="bottom" class="dixian"><a href="picclass.asp" class="l">更多搞笑图图..</a></td>
</tr>
<tr>
<td height="142" colspan="2"><table width="100%" height="136" border="0" cellpadding="0" cellspacing="0">
<tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select picid,picname,picsy,spicurl from pic where picsy>0"
rs.open sql,conn,1,1
IF Not rs.Eof Then
'//定义n为总记录数,m为要随机提取记录数，m如为随机数则可随机提取m条记录
'//注意：m<=n
dim n,m
n=rs.recordcount
m=3
'//建立随机数组
Randomize
dim k,p,tp,i
For k=0 to 100000
p=fix(rnd*n)+1
if Not instr(tp,p)>0 then
tp=tp & p & ","
i=i+1
end if
if i>=m then exit for
Next
dim t
t=split(tp,",")
For i=0 To m-1 and not rs.eof
'//根据随机数组定位记录指针
rs.absoluteposition=t(i)%>
<td valign="top" height="136" ><table border="0" cellspacing="0" cellpadding="0" align="center" width="166" height="136">
<tr>
<td valign="top" bgcolor="#FFFFFF" background="images/joke_home_pic_bg.gif" width="166" ><a href="pic_show.asp?picid=<%=rs("picid")%>" target="_blank">
<%
pic=rs("spicurl")
if instr(pic,"[img]") then
pic = Replace(pic, "[img]","<img src=")
pic = Replace(pic, "[/img]"," width=160 height=110 border=0>")
else
pic = Replace(pic, "[up]","<img src=upload/")
pic = Replace(pic, "[/up]"," width=160 height=110 border=0>")
end if
Response.Write (pic)
Response.Write (count)
%>
</a></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF" height="20"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" height="20"><a href="pic_show.asp?picid=<%=rs("picid")%>" target="_blank" class="l"><%=rs("picname")%></a></td>
</tr>
</table></td>
</tr>
</table></td>
<%if rs.eof then exit for
next
end if
rs.close
set rs=nothing
%>
</tr>
</table></td>
</tr>
<tr>
<td height="20" valign="bottom" class="dixian"> 爆笑文字笑话</td>
<td height="20" valign="bottom" class="dixian"><a href="class.asp" class="l">更多文字笑话..</a></td>
</tr>
<tr>
<td colspan="2"><table border="0" width="100%" align="center" >
<%
dim sort
sort="暴笑网文"
set rs=server.createobject("adodb.recordset")
sql="select articleid,title,hits,syxs,sort from learning where syxs<>0 and sort<>'"&sort&"' order by dateandtime desc"
rs.open sql,conn,1,1
n=0
do while not rs.eof
%>
<tr>
<td width="50%" align="left"><font color="#000000">· <a href="show.asp?id=<%=rs("articleid")%>" target="_blank"><%=rs("title")%></a> </font> </td>
<% rs.movenext%>
<td width="50%" align="left"><font color="#000000">· <a href="show.asp?id=<%=rs("articleid")%>" target="_blank"><%=rs("title")%></a> </font> </td>
<% rs.movenext%>
</tr>
<%
n=n+1
rs.movenext
if n>=9 then exit do
loop
rs.close
set rs=nothing
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="84%" height="25" valign="bottom" class="dixian"> 最新搞笑图图</td>
<td width="16%" class="dixian"><a href="picclass.asp" class="l">更多搞笑图图..</a></td>
</tr>
<tr>
<td colspan="2"><table border="0" width="100%" align="center" >
<%
set rs=server.createobject("adodb.recordset")
sql="select picid,picname,pichits from pic where picsy<>0 order by adate desc"
rs.open sql,conn,1,1
nn=0
do while not rs.eof
%>
<tr>
<td width="50%"><font color="#000000">· <a href="pic_show.asp?picid=<%=rs("picid")%>" target="_blank"><%=rs("picname")%></a> </font> </td>
<% rs.movenext%>
<td width="50%"><font color="#000000">·<a href="pic_show.asp?picid=<%=rs("picid")%>" target="_blank"><%=rs("picname")%></a> </font> </td>
<% rs.movenext%>
</tr>
<%
nn=nn+1
rs.movenext
if nn>=4 then exit do
loop
rs.close
set rs=nothing
%>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td rowspan="3" background="img/index_r3_c9.jpg"> </td>
<td><img src="img/spacer.gif" width="1" height="251" border="0" alt="" /></td>
</tr>
<tr>
<td colspan="2" rowspan="2" background="img/index_r4_c1.jpg"> </td>
<td><img src="img/spacer.gif" width="1" height="250" border="0" alt="" /></td>
</tr>
<tr>
<td colspan="6" background="img/index_r5_c3.jpg"> </td>
<td><img src="img/spacer.gif" width="1" height="62" border="0" alt="" /></td>
</tr>
<tr>
<td colspan="9" align="center" background="img/index_r6_c1.jpg"><!--#include file="d.asp"--></td>
<td><img src="img/spacer.gif" width="1" height="72" border="0" alt="" /></td>
</tr>
</table>
<map name="index_r1_c4Map" id="index_r1_c4Map"><area shape="rect" coords="25,46,111,140" href="index.asp" />
</map>
<map name="index_r1_c5Map" id="index_r1_c5Map">
<area shape="rect" coords="17,71,86,140" href="class.asp" />
</map>
<map name="index_r1_c6Map" id="index_r1_c6Map"><area shape="rect" coords="11,51,86,140" href="picclass.asp" />
</map>
<map name="index_r1_c7Map" id="index_r1_c7Map">
<area shape="rect" coords="30,52,98,140" href="upload.asp?sort=1" />
</map>
<map name="index_r1_c8Map" id="index_r1_c8Map"><area shape="rect" coords="38,70,99,141" href="upload.asp?sort=2" />
</map></body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -