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

📄 makehomepage.asp

📁 中国114网搜索系统 版　　本： 文件大小：580 KB 软件语言：简体中文 授权方式：免费版 相关链接：程序演示 开 发 商： 运行环境：ASP源码
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
outfile.Write chr(10)&"      </table>"
outfile.Write chr(10)&"      <br>"
outfile.Write chr(10)&"      <table width=96% border=0 cellpadding=1 align=center bgcolor=#E1E3B0 cellspacing=0>"
outfile.Write chr(10)&"        <tr> "
outfile.Write chr(10)&"          <td valign=top colspan=4 height=2><img src=images/blank.gif height=1 width=1></td>"
outfile.Write chr(10)&"        <tr> "
outfile.Write chr(10)&"          <td valign=top colspan=4 height=15>&gt;&gt;最新网上资源</td>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td valign=top colspan=4 height=15 bgcolor=#E1E3B0>"
outfile.Write chr(10)&"            <table width=100% border=0 cellspacing=1 cellpadding=1 bgcolor=#FFFFFF>"
outfile.Write chr(10)&"              <tr> "
outfile.Write chr(10)&"                <td> "
		sql="select TOP 10 id,title from source order by id DESC"
		rs.open sql,conn,1,1
		if not rs.bof and not rs.eof then
			getdata=rs.getrows(20)
			rs.close
			for n=0 to ubound(getdata,2)
				outfile.Write chr(10)&"<li><a href=source/go.asp?id="&getdata(0,n)&" target=_blank>"&server.htmlencode(getdata(1,n))&"</a> </li>"
			next
		else
			rs.close
		end if
outfile.Write chr(10)&"                </td></tr>"
outfile.Write chr(10)&"			  <tr align=right>"
outfile.Write chr(10)&"                <td> <a href=source/showsource.asp>更多资源&gt;&gt;</a>&nbsp;&nbsp; </td>"
outfile.Write chr(10)&"			</tr>"
outfile.Write chr(10)&"            </table>"
outfile.Write chr(10)&"          </td>"
outfile.Write chr(10)&"      </table>"
outfile.Write chr(10)&"    </td>"
outfile.Write chr(10)&"    <td width=7 valign=top rowspan=10 bgcolor=ffffff background=images/r.GIF><img src=images/blank.gif height=1 width=1></td>"
outfile.Write chr(10)&"    <td width=112 valign=top rowspan=10 bgcolor=#E1E3B0>"
outfile.Write chr(10)&"      <table width=112 border=0 cellspacing=0 cellpadding=0 align=center>"
outfile.Write chr(10)&"        <tr> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4 bgcolor=#B3AC35></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15 bgcolor=#B3AC35> "
outfile.Write chr(10)&"            <p><font color=#FFFFFF><b>常.用.搜.索</b></font></p>"
outfile.Write chr(10)&"          </td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4 bgcolor=#F5EDBC></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15 bgcolor=#F5EDBC><span class=font>股票行情查询</span></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <form  action=http://www.stockstar.online.sh.cn/simple/Stockstar/Quote/Query.asp  method=post target=_blank>"
outfile.Write chr(10)&"            <td colspan=4 valign=top align=center>"
outfile.Write chr(10)&"              <div align=center>"
outfile.Write chr(10)&"                <p><span class=font>"
outfile.Write chr(10)&"                  <select class=small name=ID  size=1>"
outfile.Write chr(10)&"                    <option selected value=- 行情 ->--行 情--</option>"
outfile.Write chr(10)&"                    <option>实时行情</option>"
outfile.Write chr(10)&"                    <option value=RTLine>实时曲线</option>"
outfile.Write chr(10)&"                    <option value=chart_history>历史曲线</option>"
outfile.Write chr(10)&"                    <option value=chart_Technique>技术曲线</option>"
outfile.Write chr(10)&"                    <option value=HistQ>历史行情</option>"
outfile.Write chr(10)&"                    <option value=BBS>公 告 板</option>"
outfile.Write chr(10)&"                    <option value=OldBBS>原公告板</option>"
outfile.Write chr(10)&"                    <option value=fav>自 选 股</option>"
outfile.Write chr(10)&"                    <option value=news>--新闻--</option>"
outfile.Write chr(10)&"                    <option value=- 研究 ->--研究--</option>"
outfile.Write chr(10)&"                    <option value=y97>97 总 揽</option>"
outfile.Write chr(10)&"                   <option value=summarize>公司概况</option>"
outfile.Write chr(10)&"                    <option value=introduce>公司简介</option>"
outfile.Write chr(10)&"                    <option value=transfer>近年送配</option>"
outfile.Write chr(10)&"                    <option value=info>上市资料</option>"
outfile.Write chr(10)&"                    <option value=research>公司研究</option>"
outfile.Write chr(10)&"                    <option value=- 指标 ->--指标--</option>"
outfile.Write chr(10)&"                    <option value=p_ystclose>昨 收 盘</option>"
outfile.Write chr(10)&"                    <option value=p_open>今 开 盘</option>"
outfile.Write chr(10)&"                    <option value=p_max>最 高 价</option>"
outfile.Write chr(10)&"                    <option value=p_min>最 低 价</option>"
outfile.Write chr(10)&"                    <option value=p_current>当 前 价</option>"
outfile.Write chr(10)&"                    <option value=quantity>成 交 量</option>"
outfile.Write chr(10)&"                    <option value=amount>成 交 额</option>"
outfile.Write chr(10)&"                    <option value=range>涨 跌 幅</option>"
outfile.Write chr(10)&"                    <option value=p_buy>买 入 价</option><option value=p_sell>卖 出 价</option>"
outfile.Write chr(10)&"                  </select>"
outfile.Write chr(10)&"                  <br>"
outfile.Write chr(10)&"                  <input class=small maxlength=6 name=s_code size=11 value=000001>"
outfile.Write chr(10)&"                  <br>"
outfile.Write chr(10)&"                  <input class=small name=action type=submit value=查询>"
outfile.Write chr(10)&"                  </span></p>"
outfile.Write chr(10)&"              </div>"
outfile.Write chr(10)&"            </td>"
outfile.Write chr(10)&"          </form>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4 bgcolor=#F5EDBC></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15 bgcolor=#F5EDBC><a href=http://webcn.net/asphouse/search/navigate/Music/Musicsearch/index.htm>音乐搜索</a></td>"
outfile.Write chr(10)&"        </tr><tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4></td></tr><tr> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Soft_download/Softsearch/index.htm>软件搜索</a></td></tr><tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4 bgcolor=#F5EDBC></td></tr><tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15 bgcolor=#F5EDBC><a href=http://webcn.net/asphouse/search/navigate/Soft_download/Register/Registersearch/index.htm>注册搜索</a></td></tr><tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4></td></tr><tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Soft_download/Drivers/Searchdrivers/index.htm>驱程搜索</a></td></tr><tr> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4 bgcolor=#F5EDBC></td></tr><tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15 bgcolor=#F5EDBC><a href=http://webcn.net/asphouse/search/navigate/Games/Gamesearch/index.htm>游戏搜索</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"      </table>"
outfile.Write chr(10)&"      <table width=112 border=0 cellspacing=0 cellpadding=0 align=center>"
outfile.Write chr(10)&"        <tr> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4 bgcolor=#B3AC35></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15 bgcolor=#B3AC35>"
outfile.Write chr(10)&"            <p><font color=#FFFFFF><b>最.新.加.入</b></font></p>"
outfile.Write chr(10)&"          </td>"
outfile.Write chr(10)&"        </tr>"
        flag=1
        sql="select TOP 33 id,sitename,url from linking order by id DESC"
        rs.open sql,conn,1,1
        if not rs.bof and not rs.eof then
		getdata=rs.getrows(33)
		rs.close
		
		for n=0 to ubound(getdata,2)
			if flag=0 then
				outfile.Write chr(10)&"<tr><td colspan=4 valign=top align=center height=4></td></tr>"
				outfile.Write chr(10)&"<tr><td colspan=4 valign=top align=center height=15><a href='"&server.htmlencode(getdata(2,n))&"' target=_blank>"&server.htmlencode(getdata(1,n))&"</a></td></tr>"
				flag=1
			else
				flag=0
				outfile.Write chr(10)&"<tr><td colspan=4 valign=top align=center height=4 bgcolor=F5EDBC></td></tr>"
				outfile.Write chr(10)&"<tr><td colspan=4 valign=top align=center height=15 bgcolor=F5EDBC><a href='"&server.htmlencode(getdata(2,n))&"' target=_blank>"&server.htmlencode(getdata(1,n))&"</a></td></tr>"
			end if
		next
	else
		rs.close
	end if
outfile.Write chr(10)&"      </table>"
outfile.Write chr(10)&"    </td>"
outfile.Write chr(10)&"    <td width=1 valign=top rowspan=10 bgcolor=000000><img src=images/blank.gif height=1 width=1></td>"
outfile.Write chr(10)&"  </tr>"
outfile.Write chr(10)&"</table>"
outfile.Write chr(10)&"<table width=700 border=0 cellspacing=0 cellpadding=0 align=center>"
outfile.Write chr(10)&"  <tr>"
outfile.Write chr(10)&"    <td colspan=6> "
outfile.Write chr(10)&"      <hr width=700 align=center size=1 color=000000>"
outfile.Write chr(10)&"    </td>"
outfile.Write chr(10)&"  </tr>"
outfile.Write chr(10)&"</table>"
outfile.Write chr(10)&"<p align=center class=p9>Copy right(C) FindLink.YEAH.NET</p>"
outfile.Write chr(10)&"</html>"
response.write "<body bgcolor=ccbbaa>制作完成!!"
set rs=nothing
conn.close
set conn=nothing
outfile.close
Set fs=nothing%>
123

⌨️ 快捷键说明

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