admins_config_skin.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

  </tr>
  <tr class=tr1>
  <td>返回上一页：</td>
  <td><input type=text name=s_go_back value='<%response.write rs("s_go_back")%>' size=60 maxlength=250></td>
  </tr>
  <tr class=tr1>
  <td>关闭窗口：</td>
  <td><input type=text name=s_closer value='<%response.write rs("s_closer")%>' size=60 maxlength=250></td>
  </tr>
  <tr>
  <td>网页头部<%response.write tit_fir%>：</td>
  <td>
    <table border=0 cellspacing=0 cellpadding=0>
    <tr>
    <td><textarea name=s_title cols=60 rows=8><%response.write joekoe_cms.code_word(rs("s_title"))%></textarea></td>
    <td width=5></td>
    <td valign=bottom><img src=images/admin/viewpic.gif onclick="runscript(s_title)"><%call textarea_resize("s_title")%></td>
    </tr>
    </table>
  </td>
  </tr>
  <tr class=tr1>
  <td>网页头部.基准：</td>
  <td>
    <table border=0 cellspacing=0 cellpadding=0>
    <tr class=tr1>
    <td><textarea name=s_head cols=60 rows=8><%response.write joekoe_cms.code_word(rs("s_head"))%></textarea></td>
    <td width=5></td>
    <td valign=bottom><img src=images/admin/viewpic.gif onclick="runscript(s_head)"><%call textarea_resize("s_head")%></td>
    </tr>
    </table>
  </td>
  </tr>
  <tr class=tr1>
  <td>网页底部.基准：</td>
  <td>
    <table border=0 cellspacing=0 cellpadding=0>
    <tr class=tr1>
    <td><textarea name=s_end cols=60 rows=8><%response.write joekoe_cms.code_word(rs("s_end"))%></textarea></td>
    <td width=5></td>
    <td valign=bottom><img src=images/admin/viewpic.gif onclick="runscript(s_end)"><%call textarea_resize("s_end")%></td>
    </tr>
    </table>
  </td>
  </tr>
<%
  call submit_edit()
end sub

sub joekoe_chk_edit()
  sql="select top 1 * from "&data_name&" where s_id="&s_id
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,3
  if rs.eof then
    call admin_msg("要进行编辑的"&tit_fir&"（ID："&s_id&"）不存在！","?",1)
    exit sub
  end if
  s_name=rs("s_name")
  pageurl=pageurl&"s_id="&s_id&"&action="
  call admin_td(tit_fir&"编辑")
%>
<tr align=center>
<td width='20%'><font class=blue><b><%response.write s_name%></b></font></td>
<td width='80%'>
  <table border=0>
  <tr>
  <td><a href='<%response.write pageurl%>config'<%if action="config" then response.write " class=red"%>>基本配置</a></td>
  <td width=10></td>
  <td><a href='<%response.write pageurl%>base'<%if action="base" then response.write " class=red"%>>基准表格</a></td>
  <td width=10></td>
  <td><a href='<%response.write pageurl%>login'<%if action="login" then response.write " class=red"%>>用户登陆<%response.write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='<%response.write pageurl%>down'<%if action="down" then response.write " class=red"%>>下载<%response.write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='<%response.write pageurl%>shop'<%if action="shop" then response.write " class=red"%>>商城<%response.write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='<%response.write pageurl%>forum'<%if action="forum" then response.write " class=red"%>>论坛<%response.write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='<%response.write pageurl%>format'<%if action="format" then response.write " class=red"%>>格式化<%response.write tit_fir%></a></td>
  </tr>
  </table>
</td>
</tr>
<%
  select case action
  case "format"
    call joekoe_chk_edit_format()
  case "forum"
    call joekoe_chk_edit_forum()
  case "shop"
    call joekoe_chk_edit_shop()
  case "down"
    call joekoe_chk_edit_down()
  case "login"
    call joekoe_chk_edit_login()
  case "base"
    call joekoe_chk_edit_base()
  case else
    call joekoe_chk_edit_config()
  end select
  rs.close
end sub

sub joekoe_chk_common()
  dim s_skin
  s_skin=request.querystring("s_skin")
  if s_skin="" then
    call admin_msg("更新站点默认"&tit_fir&"参数出错！","?",1)
    exit sub
  end if
  web_dim(7)=s_skin
  call joekoe_template_common()
  call admin_msg("成功更新了站点默认"&tit_fir&"！","?jk_mod=css",1)
end sub

sub joekoe_chk_handle()
  dim sel_type,sel_id
  sel_type=code_admin("sel_type",1,0)
  sel_id=code_admin("sel_id",1,0)
  sel_id=replace(sel_id," ","")
  if sel_id="" then
    call admin_msg("没有选择可操作的记录！","?",1)
    exit sub
  end if
  if sel_type="delete" then
    sql="delete from "&data_name&" where s_dir<>'"&joekoe_cms.web_skin&"' and s_id in("&sel_id&")"
    call joekoe_cms.exec(sql,0)
    call delete_cache_skins()
    call admin_msg("成功删除所选择的"&tit_fir,"?",1)
    exit sub
  end if
  dim skin_file,export_type,econn,fieldsnum,dim_skin,dim_fields,j
  skin_file=code_admin("skin_file",1,0)
  export_type=code_admin("export_type",1,0)
  if skin_file="" then
    call admin_msg("导出的数据库路径不能为空！","?",1)
    exit sub
  end if
  sql="select * from "&data_name&" where s_id in("&sel_id&") order by s_id"
  set rs=joekoe_cms.exec(sql,1)
  if rs.eof then
    rs.close
    call admin_msg("没有选择可操作的记录！","?",1)
    exit sub
  end if
  dim_skin=rs.getrows()
  fieldsnum=rs.fields.count-1
  redim dim_fields(fieldsnum)
  for i=0 to fieldsnum
    dim_fields(i)=rs(i).name
  next
  rs.close
  on error resume next
  set econn=server.createobject("adodb.connection")
  econn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath(skin_file)
  if export_type="replace" then
    econn.execute("delete * from "&data_name)
  end if
  rs.open "select * from "&data_name&" where s_id",econn,1,3
  if err.number=-2147467259 then 
    erase dim_skin
    erase dim_fields
    rs.close
    econn.close
    set econn=nothing
    err.clear
    call admin_msg("导出的数据库或数据表出现异常（可能不存在）！","?",1)
    exit sub
  end if
  for j=0 to ubound(dim_skin,2)
    rs.addnew
    for i=1 to fieldsnum
      rs(dim_fields(i))=dim_skin(i,j)
    next
    rs.update
  next
  rs.close
  econn.close
  set econn=nothing
  erase dim_skin
  erase dim_fields
  call admin_msg("成功导出所选择的"&tit_fir&"数据！","?",1)
end sub

sub joekoe_chk_inport()
  dim skin_file,export_type,econn,fieldsnum,dim_skin,dim_fields,j
  skin_file=code_admin("skin_file",1,0)
  export_type=code_admin("export_type",1,0)
  if skin_file="" then
    call admin_msg("导出的数据库路径不能为空！","?",1)
    exit sub
  end if
  on error resume next
  set econn=server.createobject("adodb.connection")
  econn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath(skin_file)
  rs.open "select * from "&data_name&" order by s_id",econn,1,1
  dim_skin=rs.getrows()
  fieldsnum=rs.fields.count-1
  redim dim_fields(fieldsnum)
  for i=0 to fieldsnum
    dim_fields(i)=rs(i).name
  next
  rs.close
  econn.close
  set econn=nothing
  if err.number=-2147467259 then 
    erase dim_skin
    erase dim_fields
    err.clear
    call admin_msg("导出的数据库或数据表出现异常（可能不存在）！","?",1)
    exit sub
  end if
  if export_type="replace" then
    call joekoe_cms.exec("truncate table "&data_name,0)
  end if
  sql="select * from "&data_name
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,3
  for j=0 to ubound(dim_skin,2)
    rs.addnew
    for i=1 to fieldsnum
      rs(dim_fields(i))=dim_skin(i,j)
    next
    rs.update
  next
  rs.close
  erase dim_skin
  erase dim_fields
    call delete_cache_skins()
  call admin_msg("成功导入所外部"&tit_fir&"数据！","?",1)
end sub

sub joekoe_chk_main()
  dim s_name,s_dir
  call admin_td(tit)
%>
<tr align=center valign=top>
<td width='20%'>
  <table border=0>
  <tr><td height=30><%response.write img_admin("s_imp","")%>&nbsp;<%response.write tit_fir%>管理</td></tr>
  <!--<tr><td height=30><%response.write img_admin("s_imp","")%>&nbsp;<a href='?action=add'>添加<%response.write tit_fir%></a></td></tr>-->
  </table>
</td>
<td width='80%'>
  <table cellspacing=1 cellpadding=3 class=table0>
  <form action='?jk_mod=handle' method=post>
  <tr align=center>
  <td class=td width='6%'>ID</td>
  <td class=td width='20%'><%response.write tit_fir%>名称</td>
  <td class=td width='15%'><%response.write tit_fir%>类型</td>
  <td class=td width='22%'><%response.write tit_fir%>目录</td>
  <td class=td width='37%'>相关操作&nbsp;<input type=checkbox name=sel_all value='yes' onclick="javascript:select_all(this.form);"></td>
  </tr>
<%
  sql="select * from "&data_name&" order by s_id"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    s_id=rs("s_id")
    s_name=rs("s_name")
    s_dir=rs("s_dir")
%>
  <tr align=center>
  <td class=tims><%response.write s_id%></td>
  <td><a href='?jk_mod=edit&s_id=<%response.write s_id%>' alt='点击可查看此<%response.write tit_fir%>或进行编辑'<%
    if joekoe_cms.web_skin=s_dir then
      response.write " class=red"
    end if
%>><%response.write s_name%></a></td>
  <td><%response.write s_dir%></td>
  <td>./skin/<font class=blue><%response.write s_dir%></font>/</td>
  <td>
    <table border=0>
    <tr>
    <td><a href='?jk_mod=edit&s_id=<%response.write s_id%>' alt='点击可查看此<%response.write tit_fir%>或进行编辑'>编辑</a></td>
    <td width=1></td>
    <td><%if joekoe_cms.web_skin=s_dir then%><font class=gray>设为默认<%response.write tit_fir%></font><%else%><a href='?jk_mod=common&s_skin=<%response.write s_dir%>'>设为默认<%response.write tit_fir%></a><%end if%></td>
    <td width=1></td>
    <td><a href='skins.asp?action=<%response.write s_dir%>&old_url=help.asp' target=_blank alt='点击以此<%response.write tit_fir%>浏览网站页面'>浏览</a></td>
    <td width=1></td>
    <td><input type=checkbox name=sel_id value='<%response.write s_id%>'></td>
    </tr>
    </table>
  </td>
  </tr>
<%
    rs.movenext
  loop
  rs.close
%>
  <tr class=tr2><td colspan=5 height=40 align=center>
    <table border=0>
    <tr class=tr2>
    <td>导出的数据库：</td>
    <td><input type=text name=skin_file value='' size=25></td>
    <td><select name=export_type><option value='add'>追加</option><option value='replace'>替换</option></select></td>
    <td><input type=radio name=sel_type value='export' checked>导出</td>
    <td><input type=radio name=sel_type value='delete'>删除</td>
    <td><input type=submit value='执行所选操作' onclick="return sel_click(this.form);"></td>
    </tr>
    </table>
  </td></tr>
  </form>
<%call admin_td0("导入外部"&tit_fir&"数据",5)%>
  <tr><td colspan=5 align=center>
    <table border=0>
    <form action='?jk_mod=inport' method=post>
    <tr>
    <td>导入<%response.write tit_fir%>数据库名：</td>
    <td><input type=text name=skin_file value='' size=25></td>
    <td><select name=export_type><option value='add'>追加导入</option><option value='replace'>替换导入</option></select></td>
    <td><input type=submit value='执行导入操作' onclick="javascript:return click_return('导入外部<%response.write tit_fir%>数据库',0);"></td>
    </tr>
    </form>
    </table>
  </td></tr>
  </table>
</td>
</tr>
<%
end sub

sub delete_cache_skins()
  application.contents.remove(joekoe_cms.web_cookies&"_CMS_Skin")
end sub 

function code_css(cvar,ct,cnum)
  dim temp1
  temp1=code_admin(cvar,ct,cnum)
  temp1=replace(temp1,"|","")
  code_css=temp1
end function
%>