评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

个人网站设计之上网导航设计(一)毕业论(6)

2013-06-01 01:23 ，可以标准的测出您的智商等。
 常用软件：提供腾讯QQ、暴风影音、电驴等共享软件下载。
 即时新闻：采用XML技术提供新华网的最新新闻。
频道简介：
 城市频道
 具体功能：自动识别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)")))

内容来自www.nseac.com

  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('网址修改成功，返回！');" （转载自http://zw.NSEAC.com科教作文网）
response.write"location.href='admin_websort.asp?