⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admins_config_skin_mod.asp

📁 打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!-- #include file="include/admin_onlogin.asp" -->
<%
admins=true
popedom_num=0
data_name="jk_skin_mod"
index_url="skin"
tit_fir="模板"
tit="新闻/文章模板配置"

call admin_header(0,0)
%>
<tr><td align=center colspan=2 height=30>
  <table border=0>
  <tr>
  <td><a href='admins_config_skin.asp'>标准模板配置</a></td>
  <td width=10></td>
  <td><a href='admins_config_skin_mod.asp' class=red>新闻/文章模板配置</a></td>
  <td width=10></td>
  <td><a href='admins_config_skin.asp?jk_mod=css' >CSS样式文件生成</a></td>
  <td width=10></td>
  <td><a href='admin_data.asp?action=cache'>网站缓存清理</a></td>
  <td width=10></td>
  <td><%call admin_read("","网站模板设置","模板功能可以对您的网站进行个性设计。<br>如果你不是很熟悉此功能,请不要随便修改,最好在我们的辅导下修改。<br><font class=red>如果系统允许用户使用“自选风格”,则请在修改模板后一定要清理网站缓存!</font>")%></td>
  </tr>
  </table>
</td></tr>
</table>
<%
call admin_table(1)

select case action
case "edit"
  call joekoe_chk_edit()
case "add"
  call joekoe_chk_add()
case "handle"
  call joekoe_chk_handle()
case "inport"
  call joekoe_chk_inport()
case else
  call joekoe_chk_main()
end select

call admin_ender(1)

sub joekoe_chk_edit()
  dim s_type,s_name,s_left,s_center,s_more,s_end,s_view
  call admin_td("编辑"&tit_fir)
  sql="select top 1 * from "&data_name&" where s_id="&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
  if chk() then
    s_type=request.querystring("s_type")
    if int(s_type)<>2 then s_type=1
    s_name=code_admin("s_name",1,20)
    s_left=code_admin("s_left",1,0)
    s_center=code_admin("s_center",1,0)
    s_more=code_admin("s_more",1,0)
    s_end=code_admin("s_end",1,0)
    s_view=code_admin("s_view",1,0)
    if s_name="" or s_left="" or s_center="" or s_more="" or s_end="" or s_view="" then
      rs.close
      call admin_error(tit_fir&"的 名称 及 内容 不能为空!")
      exit sub
    end if
    rs("s_type")=s_type
    rs("s_name")=s_name
    rs("s_left")=s_left
    rs("s_center")=s_center
    rs("s_more")=s_more
    rs("s_end")=s_end
    rs("s_view")=s_view
    rs.update
    rs.close
    call delete_cache_skins()
    call admin_msg("成功编辑一项"&tit_fir&"信息","?",1)
    exit sub
  end if
  call form_first()
  s_type=rs("s_type")
%>
<form action='?action=edit&id=<%response.write id%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td width='22%'><%response.write tit_fir%>类型:</td>
<td width='78%'><input type=radio name=s_type value='1'<%if int(s_type)<>2 then response.write " checked"%>>&nbsp;文章模板&nbsp;&nbsp;<input type=radio name=s_type value='2'<%if int(s_type)=2 then response.write " checked"%>>&nbsp;新闻模板</td>
</tr>
<tr>
<td><%response.write tit_fir%>名称:</td>
<td><input type=text name=s_name value='<%response.write rs("s_name")%>' size=30 maxlength=20><%response.write redx%></td>
</tr>
<tr>
<td>左表格<%response.write tit_fir%>:</td>
<td>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><textarea name=s_left cols=60 rows=6><%response.write joekoe_cms.code_word(rs("s_left"))%></textarea></td>
  <td width=5></td>
  <td valign=bottom><img src=images/admin/viewpic.gif onclick="runscript(s_left)"><%call textarea_resize("s_left")%></td>
  </tr>
  </table>
</td>
</tr>
<tr>
<td>主表格<%response.write tit_fir%>:</td>
<td>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><textarea name=s_center cols=60 rows=6><%response.write joekoe_cms.code_word(rs("s_center"))%></textarea></td>
  <td width=5></td>
  <td valign=bottom><img src=images/admin/viewpic.gif onclick="runscript(s_center)"><%call textarea_resize("s_shop_center")%></td>
  </tr>
  </table>
</td>
</tr>
<tr>
<td>表格附属更多:</td>
<td>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><textarea name=s_more cols=60 rows=3><%response.write joekoe_cms.code_word(rs("s_more"))%></textarea></td>
  <td width=5></td>
  <td valign=bottom><img src=images/admin/viewpic.gif onclick="runscript(s_more)"><%call textarea_resize("s_more")%></td>
  </tr>
  </table>
</td>
</tr>
<tr>
<td>表格附属更多:</td>
<td>    <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><textarea name=s_end cols=60 rows=3><%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>
<tr>
<td>浏览表格模板:</td>
<td>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><textarea name=s_view cols=60 rows=16><%response.write joekoe_cms.code_word(rs("s_view"))%></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>
<%
  rs.close
  call submit_edit()
end sub

sub joekoe_chk_add()
  dim s_type,s_name,s_left,s_center,s_more,s_end,s_view
  call admin_td("添加"&tit_fir)
  if chk() then
    s_type=trim(request.form("s_type"))
    if int(s_type)<>2 then s_type=1
    s_name=code_admin("s_name",1,20)
    s_left=code_admin("s_left",1,0)
    s_center=code_admin("s_center",1,0)
    s_end=code_admin("s_end",1,0)
    s_view=code_admin("s_view",1,0)
    if s_name="" or s_left="" or s_center="" or s_more="" or s_end="" or s_view="" then
      call admin_error(tit_fir&"的 名称 及 内容 不能为空!")
      exit sub
    end if
    sql="select * from "&data_name
    call joekoe_cms.exe_conn(rs,sql,3)
    rs.addnew
    rs("s_type")=s_type
    rs("s_name")=s_name
    rs("s_left")=s_left
    rs("s_center")=s_center
    rs("s_more")=s_more
    rs("s_end")=s_end
    rs("s_view")=s_view
    rs.update
    rs.close
    call delete_cache_skins()
    call admin_msg("成功添加一项新的"&tit_fir&"信息","?",1)
    exit sub
  end if
  call form_first()
%>
<form action='?action=add' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td width='22%'><%response.write tit_fir%>类型:</td>
<td width='78%'><input type=radio name=s_type value='1' checked>&nbsp;文章模板&nbsp;&nbsp;<input type=radio name=s_type value='2'>&nbsp;新闻模板</td>
</tr>
<tr>
<td><%response.write tit_fir%>名称:</td>
<td><input type=text name=s_name value='' size=30 maxlength=20><%response.write redx%></td>
</tr>
<tr>
<td>左表格<%response.write tit_fir%>:</td>
<td>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><textarea name=s_left cols=60 rows=6></textarea></td>
  <td width=5></td>
  <td valign=bottom><img src=images/admin/viewpic.gif onclick="runscript(s_left)"><%call textarea_resize("s_left")%></td>
  </tr>
  </table>
</td>
</tr>
<tr>
<td>主表格<%response.write tit_fir%>:</td>
<td>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><textarea name=s_center cols=60 rows=6></textarea></td>
  <td width=5></td>
  <td valign=bottom><img src=images/admin/viewpic.gif onclick="runscript(s_center)"><%call textarea_resize("s_shop_center")%></td>
  </tr>
  </table>
</td>
</tr>
<tr>
<td>表格附属更多:</td>
<td>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><textarea name=s_more cols=60 rows=3></textarea></td>
  <td width=5></td>
  <td valign=bottom><img src=images/admin/viewpic.gif onclick="runscript(s_more)"><%call textarea_resize("s_more")%></td>
  </tr>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -