常用软件：提供腾讯QQ、暴风影音、电驴等共享软件下载。
即时新闻：采用XML技术提供新华网的最新新闻。
频道简介：
城市频道http://www.654.cn/CityGuide/map.htm
具体功能：自动识别ip转进最近的城市，并且显示当地天气信息。
每个城市收集：招商 聊天 游戏 下载 招聘 体育 音乐 图铃 动漫 新闻 社区 证券 交友 星座 贺卡 文学 军事 健康 女性 房产 汽车 手机 硬件 网页 购物等当地的网址，充分为网民着想。
3．2 数据库结构设计
1．分类结构表：
2．网址库结构表：
3．城市分类结构表：
4．广告设置结构表：
5．友情连接结构表：
注：本程序附带空数据的数据库已便查用。
3．3 各模块界面、功能、实现代码
3．3．1 网站初始信息及首页设置 程序流程图
(1)网站配置中心
(2)网站配置中心：
a.界面
b.部分代码如下
<%action=request("action")
top10=request("top10")
click10=request("click10")
if action="top" then
lanmu=CStr(CInt(request("lanmu(0)")))+"|"+CStr(CInt(request("lanmu(1)")))+"|"+CStr(CInt(request("lanmu(2)")))+"|"+CStr(CInt(request("lanmu(3)")))+"|"+CStr(CInt(request("lanmu(4)")))+"|"+CStr(CInt(request("lanmu(5)")))+"|"+CStr(CInt(request("lanmu(6)")))+"|"+CStr(CInt(request("lanmu(7)")))+"|"+CStr(CInt(request("lanmu(8)")))+"|"+CStr(CInt(request("lanmu(9)")))+"|"+CStr(CInt(request("lanmu(10)")))+"|"+CStr(CInt(request("lanmu(11)")))+"|"+CStr(CInt(request("lanmu(12)")))+"|"+CStr(CInt(request("lanmu(13)")))+"|"+CStr(CInt(request("lanmu(14)")))+"|"+CStr(CInt(request("lanmu(15)")))+"|"+CStr(CInt(request("lanmu(16)")))+"|"+CStr(CInt(request("lanmu(17)")))
set r=server.createobject("adodb.recordset")
r.open "select top10,click10,lanmu from www654cn_CONFIG",conn,1,3
if not r.eof then
r("top10")=top10
r("click10")=click10
r("lanmu")=lanmu
r.update
response.write"<SCRIPT language=java script>alert('首页排行信息已经修改成功！');"
response.write"location.href='admin_lanmu.asp'</SCRIPT>"
response.end
end if
end if %>
(3)首页实用酷站：
a.界面
b.部分代码如下
<%
action=request("action")
title=request("title")
url=request("url")
n=request("n")
if n="" then
n=0
end if
Ku654cN=Split(Ku654cN,"|")
MyMax=UBound(Ku654cN)
if request("action")="del" then
if request("id")="" then
response.write"<SCRIPT language=java script>alert('没有该网址，或已经删除。！');"
response.write"java script:history.go(-1)</SCRIPT>"
response.end
end if
conn.execute "delete * from www654cn_URLSORT where id=" & request("id")
response.write"<SCRIPT language=java script>alert('网址删除成功，返回！');"
response.write"location.href='admin_websort.asp?n="&request("n")&"';</SCRIPT>"
response.end
end if
if request("action")="editd" then
set r=server.createobject("adodb.recordset")
r.open "select * from www654cn_URLSORT where id="&request("id"),conn,1,3
if not r.eof then
r("title")=title
r("url")=url
r("space")=n
r.update
r.close
set r=nothing
response.write"<SCRIPT language=java script>alert('网址修改成功，返回！');"
response.write"location.href='admin_websort.asp?
首页 上一页 3 4 5 6 7 8 9 下一页 尾页 6/15/15
个人网站设计之上网导航设计(六)由毕业论文网（www.huoyuandh.com）会员上传。
