📄 makehomepage.asp
字号:
outfile.Write chr(10)&" </table>"
outfile.Write chr(10)&" </td>"
outfile.Write chr(10)&" <td background=images/bj_lan.gif width=7 valign=top align=center height=5> </td>"
outfile.Write chr(10)&" <td width=460 valign=top rowspan=10>"
outfile.Write chr(10)&" <table width=96% border=0 cellspacing=0 cellpadding=0 align=center>"
outfile.Write chr(10)&" <tr>"
outfile.Write chr(10)&" <td><img src=images/flag60.gif width=244 height=60></td>"
outfile.Write chr(10)&" </tr>"
outfile.Write chr(10)&" <tr>"
outfile.Write chr(10)&" <td><img src=images/url.gif width=241 height=19 usemap='#Map' border='0'><map name='Map'><area shape='rect' coords='179,7,241,18' href='http://asphouse.yeah.net' target='_blank'></map>"
outfile.Write chr(10)&" </tr>"
outfile.Write chr(10)&" </table>"
outfile.Write chr(10)&" <table width=96% border=0 cellspacing=0 cellpadding=0 align=center bgcolor=#E1E3B0 height=20>"
outfile.Write chr(10)&" <tr align=center>"
outfile.Write chr(10)&" <td height=1 width=1 bgcolor=#000000><img src=images/blank.gif height=1 width=1></td>"
outfile.Write chr(10)&" <td height=1 width=698 bgcolor=#000000><img src=images/blank.gif height=1 width=1></td>"
outfile.Write chr(10)&" <td height=1 width=1 bgcolor=000000><img src=images/blank.gif height=1 width=1></td>"
outfile.Write chr(10)&" </tr>"
outfile.Write chr(10)&" <tr align=center>"
outfile.Write chr(10)&" <td width=1 bgcolor=000000><img src=images/blank.gif height=1 width=1></td>"
outfile.Write chr(10)&" <td width=698 height=2><img src=images/blank.gif height=1 width=1></td>"
outfile.Write chr(10)&" <td width=1 bgcolor=000000><img src=images/blank.gif height=1 width=1></td>"
outfile.Write chr(10)&" </tr>"
outfile.Write chr(10)&" <tr align=left>"
outfile.Write chr(10)&" <td width=1 bgcolor=000000><img src=images/blank.gif height=1 width=1></td>"
outfile.Write chr(10)&" <td width=698 align=center> <span class=p9> </span><span class=p10><a href=news/shownews.asp>网站动态</a>"
outfile.Write chr(10)&" | <a href=source/showsource.asp>网上资源</a> | <a href=../forum/login.asp></a><a href=join/chooseassort.asp>网站登记</a>"
outfile.Write chr(10)&" | <a href=../forum/login.asp>论坛</a> | <a href=../talk/login.asp>聊天</a>"
outfile.Write chr(10)&" | <a href=http://www.xz.jsinfo.net/board/exper.htm>留言板</a> | <a href=mailto:qianfengyun@163.net>联系</a></span></td>"
outfile.Write chr(10)&" <td width=1 bgcolor=000000><img src=images/blank.gif height=1 width=1></td>"
outfile.Write chr(10)&" </tr>"
outfile.Write chr(10)&" <tr align=center>"
outfile.Write chr(10)&" <td bgcolor=000000 width=1><img src=images/blank.gif height=1 width=1></td>"
outfile.Write chr(10)&" <td bgcolor=000000><img src=images/blank.gif height=1 width=1></td>"
outfile.Write chr(10)&" <td bgcolor=000000 width=1><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 border=0 cellpadding=0 cellspacing=0 width=95% align=center>"
outfile.Write chr(10)&" <tbody>"
outfile.Write chr(10)&" <tr>"
outfile.Write chr(10)&" <td>"
outfile.Write chr(10)&" <form action=http://webcn.net/asphouse/search/search.asp method=post name=form>"
outfile.Write chr(10)&" <br>"
outfile.Write chr(10)&" <input name=T1 size=30>"
outfile.Write chr(10)&" <input name=B1 type=submit value='网站搜索' style='height:22px'>"
outfile.Write chr(10)&" <a href=join/chooseassort.asp>网站登记</a> <a href=apply/apply.asp>用户注册</a>"
outfile.Write chr(10)&" </form>"
outfile.Write chr(10)&" </td>"
outfile.Write chr(10)&" </tr>"
outfile.Write chr(10)&" </tbody> "
outfile.Write chr(10)&" </table>"
outfile.Write chr(10)&" <table width=96% border=0 cellspacing=0 cellpadding=0 align=center>"
outfile.Write chr(10)&" <tr>"
outfile.Write chr(10)&" <td valign=top>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Soft_download/index.htm>软件与下载</a></li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Free/index.htm>免费资源</a></li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Games/index.htm>游戏</a></li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Program/index.htm>程序设计</a></li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Virus_safe/index.htm>病毒与安全</a></li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Makepage/index.htm>网页技术</a></li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Learncomputer/index.htm>学习资源</a></li>"
outfile.Write chr(10)&" </td>"
outfile.Write chr(10)&" <td valign=top>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Internet/index.htm>互联网</a></li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Chat/index.htm>聊天</a></li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Bbs/index.htm>论坛</a></li>"
outfile.Write chr(10)&" <li> <a href=http://webcn.net/asphouse/search/navigate/Hard/index.htm>硬件与行情</a>"
outfile.Write chr(10)&" </li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Desktop_screen/index.htm>桌面与屏保</a>"
outfile.Write chr(10)&" </li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Music/index.htm>明星影视音乐</a>"
outfile.Write chr(10)&" </li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Country/index.htm>国家地区</a>"
outfile.Write chr(10)&" </li>"
outfile.Write chr(10)&" </td>"
outfile.Write chr(10)&" <td valign=top>"
outfile.Write chr(10)&" <ul>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Athletics/index.htm>体育与健身</a></li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Freetime/index.htm>休闲时尚</a> "
outfile.Write chr(10)&" </li>"
outfile.Write chr(10)&" <li> <a href=http://webcn.net/asphouse/search/navigate/Medical/index.htm>医药与卫生</a></li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Sort/index.htm>排行榜</a>"
outfile.Write chr(10)&" </li>"
outfile.Write chr(10)&" <li> <a href=http://webcn.net/asphouse/search/navigate/People/index.htm>人物</a></li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Politics/index.htm>政治与法律</a></li>"
outfile.Write chr(10)&" </ul>"
outfile.Write chr(10)&" </td>"
outfile.Write chr(10)&" <td valign=top>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Culture_art/index.htm>人文艺术小说</a></li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/News_Media/index.htm>新闻与媒体</a></li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Finance_economy/index.htm>金融与经济</a></li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Company/index.htm>公司企业机构</a></li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Science/index.htm>科学</a>"
outfile.Write chr(10)&" </li>"
outfile.Write chr(10)&" <li><a href=http://webcn.net/asphouse/search/navigate/Life/index.htm>生活服务</a>"
outfile.Write chr(10)&" </li>"
outfile.Write chr(10)&" </td>"
outfile.Write chr(10)&" </table>"
outfile.Write chr(10)&" <table width=96% border=0 cellspacing=0 cellpadding=0 align=center>"
outfile.Write chr(10)&" <tr bgcolor=#E1E3B0>"
outfile.Write chr(10)&" <td valign=top colspan=4 height=4><img src=images/blank.gif height=1 width=1></td>"
outfile.Write chr(10)&" <tr bgcolor=#E1E3B0>"
outfile.Write chr(10)&" <td valign=top colspan=4 height=15>>>中文好站导航</td>"
outfile.Write chr(10)&" </table>"
outfile.Write chr(10)&" <table width=96% border=0 cellspacing=0 cellpadding=3 align=center>"
outfile.Write chr(10)&" <tr>"
outfile.Write chr(10)&" <td valign=top colspan=4 height=3></td>"
outfile.Write chr(10)&" <tr> "
outfile.Write chr(10)&" <td valign=top><a href=http://www.sina.com.cn/ target=_blank>新 浪 网</a><br>"
outfile.Write chr(10)&" <a href=http://www.163.com/ target=_blank>网 易 </a><br>"
outfile.Write chr(10)&" <a href=http://www.cpcw.com/ target=_blank> 天 极 网</a><br>"
outfile.Write chr(10)&" <a href=http://www.peopledaily.com.cn/ target=_blank>人民日报</a><br>"
outfile.Write chr(10)&" <a href=http://www.online.sh.cn/ target=_blank>上海热线</a><br>"
outfile.Write chr(10)&" <a href=http://www.263.net/ target=_blank>首都在线</a></td>"
outfile.Write chr(10)&" <td valign=top>"
outfile.Write chr(10)&" <a href=http://cn.yahoo.com/ target=_blank>中文雅虎</a><br>"
outfile.Write chr(10)&" <a href=http://www.sohoo.com.cn/ target=_blank>搜 狐</a><br><a href=http://www.yesite.com/ target=_blank>中文热讯</a><br>"
outfile.Write chr(10)&"<a href=http://www.china.com/ target=_blank>国 中 网</a><br>"
outfile.Write chr(10)&"<a href=http://www.gznet.com/ target=_blank>广州视窗</a><br>"
outfile.Write chr(10)&"<a href=http://www.szptt.net.cn/ target=_blank>深圳之窗</a>"
outfile.Write chr(10)&" </td>"
outfile.Write chr(10)&" <td valign=top><a href=http://www.goldnets.com/ target=_blank>黄金书屋</a><br>"
outfile.Write chr(10)&"<a href=http://www.wenxuecity.com/ target=_blank>文 学 城</a><br>"
outfile.Write chr(10)&"<a href=http://www.pcbirds.com/ target=_blank>飞 翔 鸟</a><br>"
outfile.Write chr(10)&"<a href=http://www.beareyes.net/ target=_blank>熊眼观市</a><br>"
outfile.Write chr(10)&"<a href=http://www.gl.cn.net/ target=_blank>联众游戏</a><br>"
outfile.Write chr(10)&"<a href=http://www.east.net.cn/ target=_blank>东方网景</a></td>"
outfile.Write chr(10)&"<td valign=top><a href=http://www.myrice.com/ target=_blank>多来米网</a><br>"
outfile.Write chr(10)&"<a href=http://www.zdl.net/ target=_blank>找 到 了</a><br>"
outfile.Write chr(10)&"<a href=http://www.lotof.com/ target=_blank>好多中文</a><br>"
outfile.Write chr(10)&"<a href=http://www.sportschina.com/ target=_blank>中国体育</a><br>"
outfile.Write chr(10)&"<a href=http://www.soccerchina.com/ target=_blank>中国足球</a><br>"
outfile.Write chr(10)&"<a href=http://www.chinamp3.com/ target=_blank>音乐极限</a></td>"
outfile.Write chr(10)&" </table>"
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>>>网站动态新闻</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>"
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select TOP 10 id,title from sitenews order by id DESC"
rs.open sql,conn,1,1
if not rs.eof then
getdata=rs.getrows(20)
rs.close
outfile.Write chr(10)&"<ul>"
for n=0 to ubound(getdata,2)
outfile.Write chr(10)&"<li><a href=news/shownews.asp?id="&getdata(0,n)&">"&server.htmlencode(getdata(1,n))&"</a> </li>"
next
outfile.Write chr(10)&"</ul>"
else
rs.close
end if
outfile.Write chr(10)&" </td>"
outfile.Write chr(10)&" </tr>"
outfile.Write chr(10)&" <tr><td>"
outfile.Write chr(10)&" <p align=right> <a href=news/shownews.asp>更多消息>></a> </p>"
outfile.Write chr(10)&" </td><tr>"
outfile.Write chr(10)&" </table>"
outfile.Write chr(10)&" </td>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -