admins_config_skin_mod.asp

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

  </table>
</td>
</tr>
<tr>
<td>表格附属底部：</td>
<td>    <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><textarea name=s_end cols=60 rows=3><</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>
<tr>
<td>浏览表格模板：</td>
<td>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><textarea name=s_view cols=60 rows=16></textarea></td>
  <td width=5></td>
  <td valign=bottom><img src=images/admin/viewpic.gif onclick="runscript(s_view)"><%call textarea_resize("s_view")%></td>
  </tr>
  </table>
</td>
</tr>
<%
  call submit_add()
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_id
  call admin_td(tit)
%>
<tr align=center valign=top>
<td width='22%'>
  <table border=0>
  <tr><td height=30><%response.write img_admin("s_imp","")%>&nbsp;<a href='?action=add'>添加模板</a></td></tr>
  <tr><td><%response.write img_admin("","")%>&nbsp;<a href='?jk_mod=article'<%if jk_mod="article" then response.write " class=red"%>>文章模板</a></td></tr>
  <tr><td><%response.write img_admin("","")%>&nbsp;<a href='?jk_mod=news'<%if jk_mod="news" then response.write " class=red"%>>新闻模板</a></td></tr>
  </table>
</td>
<td width='78%'>
  <table cellspacing=1 cellpadding=3 class=table0>
  <form action='?action=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='60%'><%response.write tit_fir%>名称</td>
  <td class=td width='14%'>操作&nbsp;<input type=checkbox name=sel_all value='yes' onclick="javascript:select_all(this.form);"></td>
  </tr>
<%
  sql="select s_id,s_type,s_name from "&data_name
  select case jk_mod
  case "article"
    sql=sql&" where s_type=1"
  case "news"
    sql=sql&" where s_type=2"
  end select
  sql=sql&" order by s_id"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    s_id=rs("s_id")
%>
  <tr align=center>
  <td class=tims><%response.write s_id%></td>
  <td><%
    if int(rs("s_type"))=2 then
      response.write "新闻"&tit_fir
    else
      response.write "文章"&tit_fir
    end if
%></td>
  <td align=left>&nbsp;<a href='?action=edit&id=<%response.write s_id%>'><%response.write joekoe_cms.code_html(rs("s_name"),1,0)%></a></td>
  <td><a href='?action=edit&id=<%response.write s_id%>'>编辑</a>&nbsp;&nbsp;<input type=checkbox name=sel_id value='<%response.write s_id%>'></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='?action=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 
%>