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

📄 bdun.htm

📁 近来使用学习vba编程搜集的资料
💻 HTM
字号:
<html><head><!--STATUS OK-->


<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body>
<script language="javascript">
 var frmact = new Array();
 frmact[1]="http://www.baidu.com/s";
 frmact[2]="http://news.baidu.com/ns"
 frmact[3]="http://post.baidu.com/f";
 frmact[4]="http://mp3.baidu.com/m";
 frmact[6]="http://image.baidu.com/i";
 var frmtn = new Array();
 frmtn[1]="itcomputer";
 frmtn[2]="news";
 frmtn[3]="baiduPostSearch";
 frmtn[4]="baidump3";
 frmtn[6]="baiduimage";
 var frmct = new Array();
 frmct[1] = "";
 frmct[2] = "";
 frmct[3] = "352321536";
 frmct[4] = "134217728";
 frmct[6] = "201326592";
 var frmlm = new Array();
 frmlm[1] = "";
 frmlm[2] = "";
 frmlm[3] = "65536";
 frmlm[4] = "-1";
 frmlm[6] = "-1";
 var frmz = new Array();
 frmz[1] = "";
 frmz[2] = "";
 frmz[3] = "";
 frmz[4] = "";
 frmz[6] = "0";
 var frmrn = new Array();
 frmrn[1] = "";
 frmrn[2] = "";
 frmrn[3] = "10";
 frmrn[4] = "";
 frmrn[6] = "";

 var bd_idx="1";

function bd_chg_idx(idx)
{
 bd_idx=idx;
}

function gowhere(formname)
{
 var url;
 var idx = bd_idx;
 if (frmact[idx] == null || frmact[idx] == "")  idx = "1";
 url = frmact[idx];
 if (frmtn[idx] != "") document.search_form.tn.value = frmtn[idx];
 if (frmct[idx] != "") document.search_form.ct.value = frmct[idx];
 if (frmlm[idx] != "") document.search_form.lm.value = frmlm[idx];
 if (frmz[idx] != "") document.search_form.z.value = frmz[idx];
 if (frmrn[idx] != "") document.search_form.rn.value = frmrn[idx];
 formname.method = "get";
 formname.action = url;
 return true;
} 
</script>

<table bgcolor="#f3f3f3" border="0" cellpadding="0" cellspacing="0" height="45" width="760">
  <tbody><tr>
    <td><input name="tn" type="hidden">
        <input name="ct" type="hidden">
        <input name="lm" type="hidden">
        <input name="z" type="hidden">
        <input name="rn" type="hidden">
        <table cellpadding="0" cellspacing="0">
        <form name="search_form" onsubmit="return gowhere(this)" target="_blank"></form>
        <tbody><tr>
          <td rowspan="2" width="100"><div align="center"><a href="http://d.baidu.com/index.php?tn=itcomputer" target="_blank"><img src="bdun_data/unlogo1.gif" alt="百度" border="0"></a></div></td>
          <td>
          <input id="word" name="word" size="30" value="请输入关键字" onmouseover="this.focus()" onblur="if (this.value =='') this.value='请输入关键字'" onfocus="this.select()" onclick="if (this.value=='请输入关键字') this.value=''" style="padding: 1px; color: rgb(51, 51, 51); cursor: text; width: 170px;"><font style="font-size: 12px;"><select name="_sv" onchange="bd_chg_idx(this.options[this.selectedIndex].value);">
	<option value="1">网页</option>
	<option value="4">MP3</option>
	<option value="6">图片</option>
	<option value="2">新闻</option>
	<option value="3">贴吧</option>
</select>
</font><input name="_si" id="_si" value="搜索" style="" type="submit">
        </td></tr>
        <tr>
          <td><div valign="bottom">   
          <font style="font-size: 12px;"><a href="http://up.baidu.com/rank_1.html" target="_blank"><font color="#0000cc">娱乐排行榜</font></a>&nbsp;&nbsp;
<script language="javascript">
	srurl = 'http://www.baidu.com/baidu?tn=itcomputer&word=';
	srwdlst = new Array(
'mp3','游戏','手机','美女写真','笑话','铃声','小说','汽车','壁纸');
if (9 <= 6) {
	for(i=0; i<9; ++i) {
		document.write('<a target=_blank href=' + srurl + srwdlst[i]+'>'+'<font color="#0000CC">' +srwdlst[i]+'</font></a>&nbsp;&nbsp;');
	}
} else {
	showwdidx = new Array(0,0,0,0,0,0,0,0,0);
	for (i=0; i<6; ++i) {
		do {
			j=Math.floor(Math.random()*9);
		} while(showwdidx[j] == 1);
		showwdidx[j] = 1;
		document.write('<a target=_blank href=' + srurl + srwdlst[j]+'>'+'<font color="#0000CC">' +srwdlst[j]+'</font></a>&nbsp;&nbsp;');
	}
}
</script><a target="_blank" href="http://www.baidu.com/baidu?tn=itcomputer&amp;word=%C6%FB%B3%B5"><font color="#0000cc">汽车</font></a>&nbsp;&nbsp;<a target="_blank" href="http://www.baidu.com/baidu?tn=itcomputer&amp;word=mp3"><font color="#0000cc">mp3</font></a>&nbsp;&nbsp;<a target="_blank" href="http://www.baidu.com/baidu?tn=itcomputer&amp;word=%B1%DA%D6%BD"><font color="#0000cc">壁纸</font></a>&nbsp;&nbsp;<a target="_blank" href="http://www.baidu.com/baidu?tn=itcomputer&amp;word=%D0%A6%BB%B0"><font color="#0000cc">笑话</font></a>&nbsp;&nbsp;<a target="_blank" href="http://www.baidu.com/baidu?tn=itcomputer&amp;word=%CA%D6%BB%FA"><font color="#0000cc">手机</font></a>&nbsp;&nbsp;<a target="_blank" href="http://www.baidu.com/baidu?tn=itcomputer&amp;word=%C1%E5%C9%F9"><font color="#0000cc">铃声</font></a>&nbsp;&nbsp;
</font>
          <a href="http://game.baidu.com/traf/click.php?id=766&amp;url=http%3A%2F%2Fup.baidu.com" target="_blank"><font style="font-size: 12px; color: rgb(255, 0, 0); text-decoration: none;"><b>精品网站</b></font></a>
          </div></td>
        </tr>
    </tbody></table></td>
  </tr>
</tbody></table>
<script language="javascript" src="bdun_data/embed.htm"></script><script language="JavaScript" src="bdun_data/stat.htm"></script></body></html>

⌨️ 快捷键说明

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