⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 info_mb_info.asp

📁 一个网上flash网站源码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>剧本 - 笑话、幽默、题材、剧情 - MyFlash创作原料</title>
<LINK rel="stylesheet" href="../style.css">
<script type="text/javascript">
<!--

document.onmouseover = handleOver;
document.onmouseout  = handleOut;

function handleOver() {
	el = window.event.srcElement;
	if (el.tagName == "IMG") { //Check if over image
		if ((el.getAttribute("oversrc") != null) && (el.getAttribute("oversrc") != "")) { //check if valid overSrc
			el.srcBackup = el.src;		//Back up the src
			el.src = el.getAttribute("oversrc");
		}
	}
}

function handleOut() {
	el = window.event.srcElement;
	if (el.tagName == "IMG") { //Check if over image
		if ((el.getAttribute("oversrc") != null) && (el.getAttribute("oversrc") != "") && (el.srcBackup != null)) { //Also check for valid backup
			el.src = el.srcBackup;
		}
	}
}
//-->
  </script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

function MM_findObj(n, d) { //v4.01
  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 && d.getElementById) x=d.getElementById(n); return x;
}

function MM_showHideLayers() { //v6.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; }
}
//-->
</script>
</head>

<body topmargin="0">
<script language=javascript src=../js/in_top.js></script>
<!--#include file="mdb_path_info.asp"-->
<%newshu=15 '每个分类显示最新笑话数
set rs=server.CreateObject("ADODB.RecordSet")
set rs_info=server.CreateObject("ADODB.RecordSet")
set rs_yl=server.CreateObject("ADODB.RecordSet")

i=0
sql="select top 10 title,id from info where date>Now()-7 order by hits desc"
rs.open sql,conn,1,1
if rs.eof then
  top="还没有笑话"
else
do while not rs.eof
  top=top&"<tr><td width=""100%"">·<a href=""../joke/"&rs("id")&".htm"">"&rs("title")&"</a></td></tr><tr><td width=""100%"" background=""../images/di1.gif""></td></tr>"
i=i+1
if i>=10 then exit do
rs.movenext
loop
end if
rs.close

list=list&"| "
rs.open "select * from infotype where tj=1 order by id",conn,1,1
if NOT rs.EOF then
allshu=rs.recordcount
Dim list_1(20)
Dim list_2(20)
Dim list_3(20)
do while NOT rs.EOF
ii=ii+1
list=list&"<a href="""&rs("id")&"_1.htm""><font color=""#0059EF"">"&split(rs("tname"),"|")(rs("tj")-1)&"</font></a> | "
list_1(ii)="<a href="""&rs("id")&"_1.htm""><font color=""#4D9CC8"" style=""FILTER: Glow(Color=ffffff,Strength=1); WIDTH: 100%""><li>"&split(rs("tname"),"|")(rs("tj")-1)&"</FONT></a>"
list_2(ii)="<img border=""0"" src=""../images/joked1.gif"" width=""7"" height=""7"" align=""absmiddle"">&nbsp;<a href="""&rs("id")&"_1.htm""><font color=""#008000"">更多内容 - -&gt;&gt;</font></a>"
                  i=0
                  sqqq_yl=""
                  sql_yl="select * from infotype where ts like '"&rs("ts")&"%'"
                  rs_yl.open sql_yl,conn,1,1
                  if not rs_yl.eof then
                  do while not rs_yl.eof
                  sqqq_yl=sqqq_yl& " or tid="&rs_yl("id")&""
                  rs_yl.MoveNext
                  loop
                  end if
                  rs_yl.close
                           rs_info.open "select id,title,date from info where tid="&rs("id")&""&sqqq_yl&" order by id desc",conn,1,1
                           if NOT rs_info.EOF then
                           do while not rs_info.eof
                            list_3(ii)=list_3(ii)&"<tr><td width=""100%"" class=""p1""><li> <a title="&rs_info("title")&" href=""../joke/"&rs_info("id")&".htm"">"&left(rs_info("title"),14)&"</a></td></tr>"
                           i=i+1
                           if i>=newshu then exit do
                           rs_info.movenext
                           loop
                           end if
                           rs_info.close
rs.MoveNext
loop
end if
rs.close
set rs=nothing
set rs_yl=nothing
set rs_info=nothing
conn.close
set conn=nothing%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760" align="center">
  <tr>
    <td width="100%"><script language=javascript src=../js/ads760x120(2).js></script></td>
  </tr>
  <tr>
    <td width="760" colspan="7" bgcolor="#4D9CC8"><script language=javascript src=../js/top_ad.js></script></td></tr>
  <tr>
    <td width="760" colspan="7" height="1" background="../images/di1.gif"></td>
  </tr>
    </table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760" align="center" bgcolor="#FFFFFF">
  <tr>
    <td width="760" height="5" colspan="2"></td>
  </tr>
  <tr>
    <td width="186">
    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor="#A2FF2F">
      <tr>
        <td width="100%" bgcolor="#BFFF71" height="25" align="center" class="cn" bordercolor="#BFFF71"><li>站 内 搜 索</td>
      </tr><script language=Javascript>
<!--
function urlencode(str) {
	var ns = (navigator.appName=="Netscape") ? 1 : 0;
	if (ns) { return escape(str); }
	var ms = "%25#23 20+2B?3F<3C>3E{7B}7D[5B]5D|7C^5E~7E`60";
	var msi = 0;
	var i,c,rs,ts ;
	while (msi < ms.length) {
		c = ms.charAt(msi);
		rs = ms.substring(++msi, msi +2);
		msi += 2;
		i = 0;
		while (true)	{ 
			i = str.indexOf(c, i);
			if (i == -1) break;
			ts = str.substring(0, i);
			str = ts + "%" + rs + str.substring(++i, str.length);
		}
	}
	return str;
}
//-->
        </script><form onsubmit="window.location=this.kt.options[this.kt.selectedIndex].value+urlencode(this.k.value); return false;">
      <tr>
        <td width="100%" height="60" align="center">
          <input name="k" maxlength="20" size="15" value="请输入关键字" onMouseOver="this.focus()" onBlur="if (value ==''){value='请输入关键字'}" onFocus="this.select()" onClick="if(this.value=='请输入关键字')this.value=''"><br><select name="kt"><option value="../search.asp?type=soft&k=">flash</option>
<option value="../search.asp?type=soft&k=">歌手</option>
<option value="../search.asp?type=soft&k=">歌名</option>
          <option selected value="../search.asp?type=info&k=">笑话</option>
          </select> <input name="Submit" src="../images/ssgo.gif" type="image" value="Submit" width="60" height="20" align="absmiddle" border="0"></td>      
      </tr></form>
    </table>
    </td>
    <td width="574">
    <table border="0" cellpadding="0" cellspacing="4" style="border-collapse: collapse" width="100%">
      <tr align="center">
        <td width="16%"><a href="48_1.htm"><img border="0" src="../images/joke_dh1.gif" width="69" height="65"></a></td>
        <td width="16%"><a href="50_1.htm"><img border="0" src="../images/joke_dh2.gif" width="69" height="65"></a></td>
        <td width="17%"><a href="51_1.htm"><img border="0" src="../images/joke_dh3.gif" width="69" height="65"></a></td>
        <td width="17%"><a href="52_1.htm"><img border="0" src="../images/joke_dh4.gif" width="69" height="65"></a></td>
        <td width="17%"><A 
href="javascript:window.alert('暂未开通');"><img border="0" src="../images/joke_dh5.gif" width="69" height="65"></a></td>
        <td width="17%"><A 
href="javascript:window.alert('暂未开通');"><img border="0" src="../images/joke_dh6.gif" width="69" height="65"></a></td>
      </tr>
    </table>
    </td>
  </tr>
  <tr>
    <td width="760" height="5" colspan="2"></td>
  </tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760" bgcolor="#FFFFFF" align="center">
  <tr valign="top">
    <td width="186" background="../images/jokelm_bg3.gif" rowspan="2"><div align="center">
      <center>
    <table border="0" cellpadding="0" style="border-collapse: collapse" width="184" cellspacing="0">   <tr>
        <td width="100%" background="../images/jokelm_bg8.gif" height="36"> </td>
      </tr>
      <tr>
        <td width="100%" height="22" align="center" background="../images/jokelm_bg4.gif"><font color="#4D9CC8" style="FILTER: Glow(Color=ffffff,Strength=1); WIDTH: 100%">笑 话 大 全</font></td>
      </tr>
      <tr>
        <td width="100%" height="20">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
          <tr>
            <td width="10%" rowspan="3"> </td>
            <td width="80%"><img border="0" src="../images/jokelm_bg5.gif" width="147" height="7"></td>
            <td width="10%" rowspan="3"> </td>
          </tr>
          <tr>
            <td width="80%" bgcolor="#FFFFFF">        <table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" width="100%" class="p1">
          <tr align="center">
            <td width="50%"><a href="54_1.htm">夫妻笑话</a></td>
            <td width="50%"><a href="55_1.htm">古代笑话</a></td>
          </tr>
          <tr align="center">
            <td width="50%"><a href="56_1.htm">情趣笑话</a></td>
            <td width="50%"><a href="57_1.htm">家庭笑话</a></td>
          </tr>
          <tr align="center">
            <td width="50%"><a href="58_1.htm">医疗笑话</a></td>
            <td width="50%"><a href="59_1.htm">电脑笑话</a></td>
          </tr>
          <tr align="center">
            <td width="50%"><a href="60_1.htm">政治笑话</a></td>
            <td width="50%"><a href="61_1.htm">名人笑话</a></td>
          </tr>
          <tr align="center">
            <td width="50%"><a href="62_1.htm">军事笑话</a></td>
            <td width="50%"><a href="63_1.htm">交通笑话</a></td>
          </tr>
          <tr align="center">
            <td width="50%"><a href="64_1.htm">愚人笑话</a></td>
            <td width="50%"><a href="65_1.htm">宗教笑话</a></td>
          </tr>
          <tr align="center">
            <td width="50%"><a href="66_1.htm">民间笑话</a></td>
            <td width="50%"><a href="67_1.htm">鬼话笑话</a></td>
          </tr>
          <tr align="center">
            <td width="50%"><a href="68_1.htm">司法笑话</a></td>
            <td width="50%"><a href="69_1.htm">体育笑话</a></td>
          </tr>
          <tr align="center">
            <td width="50%"><a href="70_1.htm">经营笑话</a></td>
            <td width="50%"><a href="71_1.htm">校园笑话</a></td>
          </tr>
          <tr align="center">
            <td width="50%"><a href="72_1.htm">儿童笑话</a></td>
            <td width="50%"><a href="73_1.htm">文艺笑话</a></td>
          </tr>
          <tr align="center">
            <td width="50%"><a href="74_1.htm">万荣笑话</a></td>
            <td width="50%"><a href="75_1.htm">国外笑话</a></td>
          </tr>
          <tr align="center">
            <td width="50%"><a href="76_1.htm">现代笑话</a></td>
            <td width="50%"> </td>
          </tr>
        </table></td>
          </tr>
          <tr>
            <td width="80%"><img border="0" src="../images/jokelm_bg6.gif" width="147" height="7"></td>
          </tr>
        </table>
        </td>
      </tr>
      <tr>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -