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

📄 makehomepage.asp

📁 中国114网搜索系统 版　　本： 文件大小：580 KB 软件语言：简体中文 授权方式：免费版 相关链接：程序演示 开 发 商： 运行环境：ASP源码
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<!-- #include file=../database.asp -->
<!-- #include file=../change.asp -->
<%
rem 就是navigate.asp的翻版
Set fs = CreateObject("Scripting.FileSystemObject")
tempDir=server.mapPath(dirstring)
Set outfile=fs.CreateTextFile(tempDir&"\index.htm",true)
outfile.Write chr(10)&"<html>"
outfile.Write chr(10)&"<title>"&titlename&"</title>"
outfile.Write chr(10)&"<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
outfile.Write chr(10)&"<link rel='stylesheet' type='text/css' href='html/style.css'>"
outfile.Write chr(10)&"<STYLE type=text/css>BODY {"
outfile.Write chr(10)&"	FONT-SIZE: 10.5pt; LINE-HEIGHT: 18px"
outfile.Write chr(10)&"}"
outfile.Write chr(10)&".p10 {"
outfile.Write chr(10)&"	FONT-SIZE: 10.5pt"
outfile.Write chr(10)&"}"
outfile.Write chr(10)&"</style>"
outfile.Write chr(10)&"<!-- Design and Edit By QianFengyun 2000-5-20 --> <!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'> "
outfile.Write chr(10)&"<!-- saved from url=(0041)http://findlink.yeah.net --> "
outfile.Write chr(10)&"<body topmargin=0 marginheight=0>"
outfile.Write chr(10)&"<center>"
outfile.Write chr(10)&"</center>"
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 width=1 valign=top align=center height=5 bgcolor=#000000><img src=images/blank.gif height=1 width=1></td>"
outfile.Write chr(10)&"    <td colspan=3 width=112 valign=top align=center height=5 bgcolor=#E1E3B0> "
outfile.Write chr(10)&"      <table width=112 border=0 cellspacing=0 cellpadding=0 align=center>"
outfile.Write chr(10)&"        <tr bgcolor=#B3AC35> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#B3AC35> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15> "
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 bgcolor=#F5EDBC> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Soft_download/index.htm>软件下载</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#E1E3B0> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#E1E3B0> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center><a href=http://webcn.net/asphouse/search/navigate/Music/Mp3/index.htm>MP3 音乐</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Games/index.htm>游戏网站</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#E1E3B0> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#E1E3B0> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Internet/Search/index.htm>搜索引擎</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Free/index.htm>免费资源</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr> "
outfile.Write chr(10)&"          <td colspan=4 valign=top bgcolor=#E1E3B0 align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top bgcolor=#E1E3B0 align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Sort/Website/index.htm>评网排行</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Program/index.htm>编程酷站</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top bgcolor=#E1E3B0 align=center height=4></td"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top bgcolor=#E1E3B0 align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Life/Talent/index.htm>人才招聘</a>"
outfile.Write chr(10)&"          </td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Hard/index.htm>硬件资讯</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top bgcolor=#E1E3B0 align=center height=4></td>"
outfile.Write chr(10)&"       </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#E1E3B0>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Chat/index.htm>网上聊天</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Bbs/index.htm>论坛 BBS</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top bgcolor=#E1E3B0 align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top bgcolor=#E1E3B0 align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Politics/Military/index.htm>军事天地</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Athletics/index.htm>体育竞技</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top bgcolor=E1E3B0 align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top bgcolor=#E1E3B0 align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Music/Mtv/index.htm>影视 MTV</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Freetime/Joke/index.htm>幽默笑话</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top bgcolor=#E1E3B0 align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top bgcolor=#E1E3B0 align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Music/Star/index.htm>明星美媚</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC> "
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Freetime/Makefriend/index.htm>爱情交友</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top bgcolor=#E1E3B0 align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top bgcolor=#E1E3B0 align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Freetime/Tour/index.htm>旅游景点</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#F5EDBC>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15><a href=http://webcn.net/asphouse/search/navigate/Life/Internetshop/index.htm>网上购物</a></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr>"
outfile.Write chr(10)&"          <td colspan=4 valign=top bgcolor=#E1E3B0 align=center height=4></td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#E1E3B0>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15> <a href=http://webcn.net/asphouse/search/navigate/Country/Province/index.htm>省市导航</a>"
outfile.Write chr(10)&"          </td>"
outfile.Write chr(10)&"        </tr>"
outfile.Write chr(10)&"        <tr bgcolor=#E1E3B0>"
outfile.Write chr(10)&"          <td colspan=4 valign=top align=center height=15><br><script language="&chr(34)&"JavaScript1.1"&chr(34)&" src="&chr(34)&"http://jipinwang.estormz.com/hellink/textlink.asp?oid=42&bc=no&st=2"&chr(34)&"></script></a>"
outfile.Write chr(10)&"          </td>"
outfile.Write chr(10)&"        </tr>"
123

⌨️ 快捷键说明

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