1.2中3.0头部及底部模仿的修改


修改include/skin.asp

头部修改


Code:

  response.write vbcrlf&"<body topmargin=0 leftmargin=0><a name='top'></a><center>"  
  if var3=4 then exit sub
  response.write vbcrlf&lefter& _
                 vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 width='100%'>" & _
                 vbcrlf&"<tr><td colspan=3 align=center height=26>" & _
                 vbcrlf&"  <table border=0 cellspacing=0 cellpadding=0 width='100%'>" & _
                 vbcrlf&"  <tr>" & _
                 vbcrlf&"  <td width=2><img src='"&joekoe_cms.web_dir_skin&"web/top_02.gif' border=0></td>" & _
                 vbcrlf&"  <td width=168 background='"&joekoe_cms.web_dir_skin&"web/top_03.gif'><img src='"&joekoe_cms.web_dir_skin&"web/top_03.gif' border=0></td>" & _
                 vbcrlf&"  <td width=31><img src='"&joekoe_cms.web_dir_skin&"web/top_04.gif' border=0></td>" & _
                 vbcrlf&"  <td  width='*' align=right background='"&joekoe_cms.web_dir_skin&"web/top_05.gif'>" & _
                 vbcrlf&"    <table border=0 cellspacing=0 cellpadding=2>" & _
                 vbcrlf&"    <tr>" & _
                 vbcrlf&"    <td><img src='"&joekoe_cms.web_dir_skin&"web/ico_top.gif' border=0 align=absmiddle> <a href='register.asp'>免费注册</a></td>" & _
                 vbcrlf&"    <td width=7></td>" & _
                 vbcrlf&"    <td><img src='"&joekoe_cms.web_dir_skin&"web/ico_top.gif' border=0 align=absmiddle> <a href='user_main.asp'>用户中心</a></td>" & _
                 vbcrlf&"    <td width=7></td>" & _
                 vbcrlf&"    <td><img src='"&joekoe_cms.web_dir_skin&"web/ico_top.gif' border=0 align=absmiddle> <a href='help.asp' style='cursor:help;'>帮助中心</a></td>" & _
                 vbcrlf&"    <td width=7></td>" & _
                 vbcrlf&"    <td><img src='"&joekoe_cms.web_dir_skin&"web/ico_top.gif' border=0 align=absmiddle> <a class=top href='###' onclick=""javascript:window.external.AddFavorite('"&joekoe_cms.web_url&"','"&joekoe_cms.web_name&"')"" style='target: ' _self?>加入收藏</a></td>" & _
                 vbcrlf&"    </tr>" & _
                 vbcrlf&"    </table>" & _
                 vbcrlf&"  </td>" & _
                 vbcrlf&"<td width=2><img src='"&joekoe_cms.web_dir_skin&"web/top_06.gif' border=0></td>" & _
                 vbcrlf&"  </tr>" & _
                 vbcrlf&"  </table>" & _
                 vbcrlf&"  <table border=0 cellpadding=0 cellspacing=0 width='100%'>" & _
                 vbcrlf&"  <tr>" & _
                 vbcrlf&"  <td width=2 background='"&joekoe_cms.web_dir_skin&"web/top_08.gif'></td>" & _
                 vbcrlf&"  <td>" & _
                 vbcrlf&"  <table border=0 cellpadding=0 cellspacing=0 width='100%'>" & _
                 vbcrlf&"  <tr><td height=5></td></tr>" & _
                 vbcrlf&"  <tr align=center>" & _
                 vbcrlf&"  <td width=180 align=center>"
  if top_type="swf" then
    response.write "<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0""  "&top_wh&">" & _
                   vbcrlf&"<param name=movie value='"&top_pic&"'>" & _
                   vbcrlf&"<param name=quality value=high>" & _
                   vbcrlf&"<embed src='"&top_pic&"' quality=high pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" "&top_wh&"></embed></object>"
  else
    response.write "<a href='"&top_url&"' target=_blank><img src='"&top_pic&"' border=0 "&top_wh&"></a>"
  end if
  response.write "</td>" & _
                 vbcrlf&"  <td width='*'>"
  if banner_type="swf" then
    response.write "<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" "&banner_wh&">" & _
            vbcrlf&"<param name=movie value='"&banner_pic&"'>" & _
            vbcrlf&"<param name=quality value=high>" & _
            vbcrlf&"<embed src='"&banner_pic&"' quality=high pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" "&banner_wh&"></embed></object>"
  else
    response.write "<a href='"&banner_url&"' target=_blank><img src='"&banner_pic&"' border=0 "&banner_wh&"></a>"
  end if
  response.write "</td>" & _
                 vbcrlf&"  <td width=110><a href='page_help.asp'><img src='images/ads_button.gif' border=0></a></td>" & _
                 vbcrlf&"  </tr></table>" & _
                 vbcrlf&"  </td>" & _
                 vbcrlf&"  <td width=2 background='"&joekoe_cms.web_dir_skin&"web/top_10.gif'></td>" & _
                 vbcrlf&"  </tr>" & _
                 vbcrlf&"  </table>" & _
                 vbcrlf&"  <table border=0 cellpadding=0 cellspacing=0 width='100%'>" & _
                 vbcrlf&"  <tr>" & _
                 vbcrlf&"  <td width=6 height=6><img src='"&joekoe_cms.web_dir_skin&"web/top_11.gif' border=0></td>" & _
                 vbcrlf&"  <td background='"&joekoe_cms.web_dir_skin&"web/top_12.gif'><img src='"&joekoe_cms.web_dir_skin&"web/top_12.gif' border=0></td>" & _
                 vbcrlf&"  <td width=7><img src='"&joekoe_cms.web_dir_skin&"web/top_13.gif' border=0></td>" & _
                 vbcrlf&"  </tr>" & _
                 vbcrlf&"  <tr><td height=5></td></tr>" & _
                 vbcrlf&"  </table>" & _
                 vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 width='100%'>" & _
                 vbcrlf&"<tr>" & _
                 vbcrlf&"<td width=6 rowspan=2><img src='"&joekoe_cms.web_dir_skin&"web/top_15.gif' border=0></td>" & _
                 vbcrlf&"<td width=154 rowspan=2 align=center valign=middle background='"&joekoe_cms.web_dir_skin&"web/top_16.gif'>" & _
                 vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 width='70%'>" & _
                 vbcrlf&"<tr><td colspan=5 height=5></td></tr>" & _
                 vbcrlf&"<tr>" & _
                 vbcrlf&"<td><img border=0 src='"&joekoe_cms.web_dir_skin&"web/ico_btn.gif' width=9 height=9 align=absmiddle> <a href='/'><font color=C8F1FF>"&joekoe_cms.web_name&"</font></a></td>" & _
                 vbcrlf&"</tr>" & _
                 vbcrlf&"</table>" & _
                 vbcrlf&"</td>" & _
                 vbcrlf&"<td width=7 rowspan=2><img src='"&joekoe_cms.web_dir_skin&"web/top_17.gif' border=0></td>" & _
                 vbcrlf&"<td colspan=2 background='"&joekoe_cms.web_dir_skin&"web/top_18.gif'><img src='"&joekoe_cms.web_dir_skin&"web/top_18.gif' border=0></td>" & _
                 vbcrlf&"<td width=7><img src='"&joekoe_cms.web_dir_skin&"web/top_19.gif' width=7 height=8 alt=></td>" & _
                 vbcrlf&"</tr>" & _
                 vbcrlf&"<tr>" & _
                 vbcrlf&"<td align=center valign=middle background='"&joekoe_cms.web_dir_skin&"web/top_20.gif'>" & _
                 vbcrlf&"<table border=0 cellpadding=0 cellspacing=0>" & _
                 vbcrlf&"  <tr align=center>" & _
                 vbcrlf&"  <td>"&web_menu()&"</td>" & _
                 vbcrlf&"  </tr>" & _
                 vbcrlf&"</table>" & _
                 vbcrlf&"</td>" & _
                 vbcrlf&"<td width=72 align=center background='"&joekoe_cms.web_dir_skin&"web/top_20.gif'><a href='/user_main.asp'><img src='"&joekoe_cms.web_dir_skin&"web/btn_member.gif' border=0></a></td>" & _
                 vbcrlf&"<td width=7><img src='"&joekoe_cms.web_dir_skin&"web/top_22.gif' border=0></td>" & _
                 vbcrlf&"</tr>" & _
                 vbcrlf&"</table>" & _
                 vbcrlf&"<table border=0 cellpadding=0 cellspacing=0 width='100%'>" & _
                 vbcrlf&"<tr>" & _
                 vbcrlf&"<td width=6><img src='"&joekoe_cms.web_dir_skin&"web/top_26.gif' border=0></td>" & _
                 vbcrlf&"<td background='"&joekoe_cms.web_dir_skin&"web/top_27.gif'><img src='"&joekoe_cms.web_dir_skin&"web/top_27.gif' border=0></td>" & _
                 vbcrlf&"<td width=7><img src='"&joekoe_cms.web_dir_skin&"web/top_28.gif' border=0></td>" & _
                 vbcrlf&"</tr>" & _
                 vbcrlf&"</table>" & _
                 vbcrlf&"<table border=0><tr><td height=3></td></tr></table>" & _
                 vbcrlf&righter
  response.write web_left(var3)
end sub



底部修改


Code:

sub web_end(var1,var2)
  if var2=0 then
    response.write web_right&lefter & _
           vbcrlf&"<table border=0 cellpadding=0 cellspacing=0 width='100%'>" & _
           vbcrlf&"<tr><td align=center>" & _
           vbcrlf&"  <table border=0 cellspacing=0 cellpadding=0 width='100%'>" & _
           vbcrlf&"  <tr>" & _
           vbcrlf&"  <td width=6><img src='"&joekoe_cms.web_dir_skin&"web/end_top_left.gif' width=6 height=6 border=0></td>" & _
           vbcrlf&"  <td width='*' background='"&joekoe_cms.web_dir_skin&"web/end_top_bg.gif'><img border=0 src='/images/kong.gif' width=1 height=1></td>" & _
           vbcrlf&"  <td width=6><img src='"&joekoe_cms.web_dir_skin&"web/end_top_right.gif' width=6 height=6 border=0></td>" & _
           vbcrlf&"  </tr>" & _
           vbcrlf&"  </table>" & _
           vbcrlf&"</td></tr>" & _
           vbcrlf&"<tr><td height=29 align=center background='"&joekoe_cms.web_dir_skin&"web/end_bg.gif'>" & _
           vbcrlf&"  <table border=0 cellspacing=0 cellpadding=0 width='100%'>" & _
           vbcrlf&"  <tr>" & _
           vbcrlf&"  <td width=6><img src='"&joekoe_cms.web_dir_skin&"web/end_menu_left.gif' width=6 height=28 border=0></td>" & _
           vbcrlf&"  <td align=center background='"&joekoe_cms.web_dir_skin&"web/end_menu_bg.gif'>" & _
           vbcrlf&"<table border=0 cellpadding=0 cellspacing=0 width='100%'>" & _
           vbcrlf&"<tr align=center>" & _
           vbcrlf&"<td width=50></td>" & _
           vbcrlf&"<td>" & _
           vbcrlf&"    <table border=0 cellpadding=0 cellspacing=0>" & _
           vbcrlf&"    <tr>" & _
           vbcrlf&"    <td><a class=h_end href='help.asp'>关于我们</a></td>" & _
           vbcrlf&"    <td width=18></td>" & _
           vbcrlf&"    <td><a class=h_end href='gbook.asp'>网站留言</a></td>" & _
           vbcrlf&"    <td width=18></td>" & _
           vbcrlf&"    <td><a class=h_end href='links.asp'>友情链接</a></td>" & _
           vbcrlf&"    <td width=18></td>" & _
           vbcrlf&"    <td><a class=h_end href='online.asp'>与我在线</a></td>" & _
           vbcrlf&"    <td width=18></td>" & _
           vbcrlf&"    <td><a class=h_end href='admin.asp'>管理</a></td>" & _
           vbcrlf&"    </tr>" & _
           vbcrlf&"    </table>" & _
           vbcrlf&"</td>" & _
           vbcrlf&"<td width=50><a href='#top'><img border=0 src='"&joekoe_cms.web_dir_skin&"web/ico_gototop.gif'></a></td>" & _
           vbcrlf&"</tr>" & _
           vbcrlf&"</table>" & _
           vbcrlf&"  </td>" & _
           vbcrlf&"  <td width=10><img src='"&joekoe_cms.web_dir_skin&"web/end_menu_right.gif' width=10 height=28 border=0></td>" & _
           vbcrlf&"  </tr>" & _
           vbcrlf&"  </table>" & _
           vbcrlf&"</td>" & _
           vbcrlf&"</tr>" & _
           vbcrlf&"<tr><td bgcolor=#F5F5F5 align=center>" & _
           vbcrlf&"  <table border=0 cellpadding=2 cellspacing=0 align=center>" & _
           vbcrlf&"  <tr><td height=5></td></tr>" & _
           vbcrlf&"  <tr><td align=center><a href='"&joekoe_cms.web_url&"' target=_blank>"&joekoe_cms.web_name&"</a> "&web_copyright&"</td></tr>" & _
           vbcrlf&"  <tr><td align=center><a href='"&joekoe_cms.web_url&"' target=_blank>联系我们</a> E-mail:<img border=0 src='http://202.101.43.165:8000/company/email/?joekoe.cms' align=absmiddle> 电话:021-61234080</td></tr>" & _
           vbcrlf&"  <tr><td align=center><font class=gray>本站点所有功能模块均基于 <a href='"&joekoe_cms.web_url&"' target=_blank class=gray><font face=arial><b>Joekoe CMS 1.2</b></font></a> 技术架构</font></td></tr>" & _
           vbcrlf&"  <tr><td height=5></td></tr>" & _
           vbcrlf&"  </table>" & _
           vbcrlf&"</td></tr>" & _
           vbcrlf&"</table>"&righter & _
           vbcrlf&"</center></body></html>"
  end if
  call web_clears(1)
end sub




http://www.joekoe.com/forum/view_73527.html

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 6 | 引用: 0 | 查看次数: 768
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 20 字 | UBB代码 关闭 | [img]标签 关闭