账号通
    

注册

找回密码

账号  

密码  

话题
互动
会员
服务
<<返回列表上一个主题 下一个主题 打印本帖 复制本帖地址

2106

查看

3

回复
主题：[求助]企业空间的导航我要增加一个判断语句，可是加上后不起作用 [收藏主题] 转到：  
nphsq 当前离线

28

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:246 分
登录次数:16 次
注册时间:2006/7/18
最后登录:2011/7/15
nphsq 发表于：2011/5/28 16:41:45   | 显示全部帖子 查看该作者主题 楼主 
科汛在线商城系统(NET)
做官网 就用科汛智能建站系统!

  1. Function ReplaceMenu()
  2. Dim HomeUrl,BlogUrl,MessageUrl,ProductUrl,IntroUrl,NewsUrl,JobUrl,RyzsUrl
  3. Dim AlbumUrl,GroupUrl,FriendUrl,XXUrl,InfoUrl,FreshUrl
  4. If KS.SSetting(21)="1" Then
  5. If Not KS.IsNul(Domain) Then
  6. If Instr(Domain,".")<>0 Then
  7. HomeUrl = "http://" & domain
  8. Else
  9. HomeUrl = "http://" & domain &"." & KS.SSetting(16)
  10. End If
  11. Else
  12. HomeUrl ="" & userid
  13. End If
  14. BlogUrl = "blog-" & userid
  15. MessageUrl= "message-"&userid
  16. ProductUrl= "product-"&userid
  17. IntroUrl = "intro-" &userid
  18. NewsUrl = "news-" & userid
  19. JobUrl = "job-" & userid
  20. RyzsUrl = "ryzs-" &userid
  21. AlbumUrl = "album-" & userid
  22. GroupUrl = "group-" & userid
  23. FriendUrl = "friend-" & userid
  24. XXUrl = "xx-" & userid
  25. InfoUrl = "info-" & userid
  26. FreshUrl = "fresh-" & userid
  27. Else
  28. HomeUrl = "../space/?" & userid
  29. BlogUrl = "../space/?" & userid & "/blog"
  30. MessageUrl= "../space/?" & userid & "/message"
  31. ProductUrl= "../space/?" & userid & "/product"
  32. IntroUrl = "../space/?" & userid & "/intro"
  33. NewsUrl = "../space/?" & userid &"/news"
  34. JobUrl = "../space/?" & userid & "/job"
  35. RyzsUrl = "../space/?" & userid & "/ryzs"
  36. AlbumUrl = "../space/?" & userid & "/album"
  37. GroupUrl = "../space/?" & userid & "/group"
  38. FriendUrl = "../space/?" & userid & "/friend"
  39. XXUrl = "../space/?" & userid & "/xx"
  40. InfoUrl = "../space/?" & userid & "/info"
  41. FreshUrl = "../space/?" & userid & "/fresh"
  42. End If
  43. if conn.execute("Select top 1 username From KS_enterprise Where UserName='" & UserName & "'").eof Then
  44. ReplaceMenu="<div id=""Menu"">"_
  45. & "<ul>"_
  46. &" <li><a href=""" & HomeUrl & """>首页</a></li>"_
  47. &" <li><a href=""" & FreshUrl & """>新鲜事</a></li>"_
  48. &" <li><a href=""" & BlogUrl & """>博文</a></li>"_
  49. &" <li><a href=""" & AlbumUrl & """>相册</a></li>"_
  50. &" <li><a href=""" & GroupUrl & """>圈子</a></li>" _
  51. &" <li><a href=""" & FriendUrl & """>好友</a></li>"_
  52. &" <li><a href=""" & XXUrl & """>文集</a></li>"_
  53. &" <li><a href=""" & InfoUrl & """>小档案</a></li>"_
  54. &" <li><a href=""" & MessageUrl & """>留言板</a>"_
  55. &"</ul>"_
  56. &"</div>"
  57. Else
  58. if conn.execute("Select top 1 ClassID From KS_enterprise Where ClassID=1").eof Then
  59. ReplaceMenu="<div id=""Menu"">"_
  60. & "<ul>"_
  61. &" <li><a href=""" & HomeUrl & """>首页</a></li>"_
  62. &" <li><a href=""" & introUrl & """ title=""公司简介"">企业简介</a></li>"_
  63. &" <li><a href=""" & NewsUrl & """ title=""公司动态"">企业新闻</a></li>"_
  64. &" <li><a href=""" & JobUrl & """ title=""公司招聘"">人才招聘</a></li>"_
  65. &" <li><a href=""" & AlbumUrl & """ title=""公司相册"">成功案例</a></li>"_
  66. &" <li><a href=""" & ryzsurl & """ title=""公司证书"">荣誉证书</a></li>"_
  67. &" <li><a href=""" & InfoUrl & """>联系我们</a></li>"_
  68. &" <li><a href=""" & MessageUrl & """>留言板</a>"_
  69. &"</ul>"_
  70. &"</div>"
  71. Else
  72. ReplaceMenu="<div id=""Menu"">"_
  73. & "<ul>"_
  74. &" <li><a href=""" & HomeUrl & """>首页</a></li>"_
  75. &" <li><a href=""" & introUrl & """ title=""公司简介"">企业简介</a></li>"_
  76. &" <li><a href=""" & NewsUrl & """ title=""公司动态"">企业新闻</a></li>"_
  77. &" <li><a href=""" & ProductUrl & """ title=""产品展示"">产品展示</a></li>"_
  78. &" <li><a href=""" & JobUrl & """ title=""公司招聘"">人才招聘</a></li>"_
  79. &" <li><a href=""" & AlbumUrl & """ title=""公司相册"">成功案例</a></li>"_
  80. &" <li><a href=""" & ryzsurl & """ title=""公司证书"">荣誉证书</a></li>"_
  81. &" <li><a href=""" & InfoUrl & """>联系我们</a></li>"_
  82. &" <li><a href=""" & MessageUrl & """>留言板</a>"_
  83. &"</ul>"_
  84. &"</div>"
  85. End If
  86. End If
  87. End Function

整段就是这样的，我在判断是否为企业空间后，加了一个条件，根据行业判断不同的导航，可是怎么判断都是后者。麻烦各位老大帮忙看看。
 
有课程 找生源 就上科汛课堂街
  支持(4) | 反对(4) 回到顶部顶端 回到底部底部
＜上一主题 | 下一主题 ＞
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.07813秒 powered by KesionCMS 9.0