admin_jsconst.asp

网页酷吧全站系统在此之前提供了一个新闻系统V1.0,反应十分热烈,并有不少网友提供了不少意见例如在线编辑器等问题,并强烈要求本部提供全部程序,顺应广大网友的强烈要求,并希望本人的QQ能够闲下来(因为实

<%if session("username")="" or session("userkey")="" then
response.redirect "../../"
end if%>
<!--#include file="mozeenconn.asp"-->
<link href=../css/main.css rel=stylesheet>
<%if session("userkey")>=3 then%>
<%call main()%>

<%else%>
<script language=javascript>  
alert( "错误：您无权进行JS代码配置！"  );
location.href = "javascript:history.back()"  
</script>
<%end if%>

<%sub main()%>
<%
if request("action") = "savejsconst" then
	call savejsconst()
elseif request("action") = "jslist" then
	call jslist()
else
	call jssetshow()
end if
%>
<%end sub%>


<%sub jssetshow()%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
  <tr>
    <td height="20" bgcolor="#eeeeee">当前位置：<a href=main.asp>管理首页</a> >> <a href=admin_jsconst.asp>JS代码参数设置</a></td>
  </tr></table>
<table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center>
<tr bgcolor=#eeeeee>
    <td colspan=2 align=right bgcolor="#eeeeee"> 
      <%if session("userkey")=3 then%>
      <a href=admin_jsconst.asp?action=jslist>查看JS代码信息</a> 
      <%elseif session("userkey")>=4 then%>
      <a href=admin_pic.asp>首页图片新闻</a> | <a href=admin_demo.asp?action=demomove>版面模版转换</a> 
      | <a href=admin_jsconst.asp?action=jslist>查看JS代码信息</a> | <a href=admin_jsconst.asp>配置JS代码参数</a> 
      <%end if%>
    </td>
  </tr></table>
<br><br>
<table width="95%" cellspacing="1" cellpadding="3" bgcolor="#999999" align="center">
<tr bgcolor="#CCCCCC" align=center><td colspan="2"><b><a href=admin_jsconst.asp?action=makejsconst>JS代码参数设置</a></b></td></tr>
<tr bgcolor="#eeeeee" height=20><td colspan="2"></td></tr>

<%
   set rs=server.createobject("adodb.recordset")
   sql="select top 1  * from [jsconst] order by jsid desc"
   rs.open sql,conn,1,1
%>
<form action="admin_jsconst.asp?action=savejsconst" method=POST name=savejsconst>
    <tr bgcolor="#eeeeee" > 
      <td colspan="2"><b>首页图片新闻代码</b></td>
    </tr>
<tr bgcolor="#eeeeee"><td align=right>图片个数：</td><td><input type=text name=picnum size=4 maxlength=2 value=<%=rs("picnum")%>></td></tr>
<tr bgcolor="#eeeeee"><td align=right>宽度：</td><td><input type=text name=picwidth  size=4 maxlength=4 value=<%=rs("picwidth")%>></td></tr>
<tr bgcolor="#eeeeee"><td align=right>高度：</td><td><input type=text name=picheight size=4 maxlength=4 value=<%=rs("picheight")%>></td></tr>



    <tr bgcolor="#eeeeee" > 
      <td colspan="2"><b>首页头条新闻代码</b>（最新通过审核的头条新闻）</td>
    </tr>
<tr bgcolor="#eeeeee"><td align=right>新闻条数：</td><td><input type=text name=headnum size=4 maxlength=2 value=<%=rs("headnum")%>></td></tr>
<tr bgcolor="#eeeeee"><td align=right>标题前修饰代码：</td><td><input type=text name=headsign size=40 value="<%=rs("headsign")%>" ></td></tr>
<tr bgcolor="#eeeeee"><td align=right>标题尾是否显示时间：</td><td><%if rs("headtime")=1 then%><input type="radio" name="headtime" value="1"  checked>是 <input type="radio" name="headtime" value="0" > 否<%else%><input type="radio" name="headtime" value="1">是 <input type="radio" name="headtime" value="0" checked> 否<%end if%></td></tr>

    <tr bgcolor="#eeeeee" > 
      <td colspan="2"><b>栏目精选代码</b>（最新通过审核的所有或某大类的焦点新闻）</td>
    </tr>
<tr bgcolor="#eeeeee"><td align=right>新闻条数：</td><td><input type=text name=focusnum size=4 maxlength=2 value=<%=rs("focusnum")%>></td></tr>
<tr bgcolor="#eeeeee"><td align=right>标题前修饰代码：</td><td><input type=text name=focussign size=40 value="<%=rs("focussign")%>" ></td></tr>
<tr bgcolor="#eeeeee"><td align=right>标题尾是否显示时间：</td><td><%if rs("focustime")=1 then%><input type="radio" name="focustime" value="1"  checked>是 <input type="radio" name="focustime" value="0" > 否<%else%><input type="radio" name="focustime" value="1">是 <input type="radio" name="focustime" value="0" checked> 否<%end if%></td></tr>

    <tr bgcolor="#eeeeee" > 
      <td colspan="2"><b>图片新闻代码</b>（最新通过审核的焦点新闻）</td>
    </tr>
<tr bgcolor="#eeeeee"><td align=right>新闻条数：</td><td><input type=text name=imgnum size=4 maxlength=2 value=<%=rs("imgnum")%>></td></tr>
<tr bgcolor="#eeeeee"><td align=right>标题前修饰代码：</td><td><input type=text name=imgsign size=40 value="<%=rs("imgsign")%>" ></td></tr>
<tr bgcolor="#eeeeee"><td align=right>标题尾是否显示时间：</td><td><%if rs("imgtime")=1 then%><input type="radio" name="imgtime" value="1"  checked>是 <input type="radio" name="imgtime" value="0" > 否<%else%><input type="radio" name="imgtime" value="1">是 <input type="radio" name="imgtime" value="0" checked> 否<%end if%></td></tr>

    <tr bgcolor="#eeeeee" > 
      <td colspan="2"><b>首页调用的大类新闻代码</b>（某大类最新通过审核的焦点新闻）</td>
    </tr>
<tr bgcolor="#eeeeee"><td align=right>新闻条数：</td><td><input type=text name=classnum size=4 maxlength=2 value=<%=rs("classnum")%>></td></tr>
<tr bgcolor="#eeeeee"><td align=right>标题前修饰代码：</td><td><input type=text name=classsign size=40 value="<%=rs("classsign")%>" ></td></tr>
<tr bgcolor="#eeeeee"><td align=right>标题尾是否显示时间：</td><td><%if rs("classtime")=1 then%><input type="radio" name="classtime" value="1"  checked>是 <input type="radio" name="classtime" value="0" > 否<%else%><input type="radio" name="classtime" value="1">是 <input type="radio" name="classtime" value="0" checked> 否<%end if%></td></tr>

    <tr bgcolor="#eeeeee" > 
      <td colspan="2"><b>二级页面调用的子类新闻代码</b>（某子类最新通过审核的新闻）</td>
    </tr>
<tr bgcolor="#eeeeee"><td align=right>新闻条数：</td><td><input type=text name=boardnum size=4 maxlength=2 value=<%=rs("boardnum")%>></td></tr>
<tr bgcolor="#eeeeee"><td align=right>标题前修饰代码：</td><td><input type=text name=boardsign size=40 value="<%=rs("boardsign")%>" ></td></tr>
<tr bgcolor="#eeeeee"><td align=right>标题尾是否显示时间：</td><td><%if rs("boardtime")=1 then%><input type="radio" name="boardtime" value="1"  checked>是 <input type="radio" name="boardtime" value="0" > 否<%else%><input type="radio" name="boardtime" value="1">是 <input type="radio" name="boardtime" value="0" checked> 否<%end if%></td></tr>

    <tr bgcolor="#eeeeee" > 
      <td colspan="2"><b>专题列表代码</b>（最新公开的专题列表）</td>
    </tr>
<tr bgcolor="#eeeeee"><td align=right>专题条数：</td><td><input type=text name=topicnum size=4 maxlength=2 value=<%=rs("topicnum")%>></td></tr>
<tr bgcolor="#eeeeee"><td align=right>专题前修饰代码：</td><td><input type=text name=topicsign size=40 value="<%=rs("topicsign")%>" ></td></tr>

<tr bgcolor=#eeeeee><td></td><td><input type="submit" name="Submit" value="确定">&nbsp;&nbsp;&nbsp;&nbsp;<input type="reset" name="Submit3" value="重来"></td></tr>
</form></table>

<%
rs.close
set rs=nothing
end sub%>




<%sub savejsconst()%>
<%if request("headnum")="" or request("headsign")="" then%>
<script language=javascript>  
alert( "错误：头条新闻代码配置有错！"  );
location.href = "javascript:history.back()"  
</script>
<%elseif request("focusnum")=""  or request("focussign")="" then%>
<script language=javascript>  
alert( "错误：栏目精选代码配置有错！"  );
location.href = "javascript:history.back()"  
</script>

<%elseif request("picnum")=""  or request("picwidth")="" or request("picheight")="" then%>
<script language=javascript>  
alert( "错误：首页图片新闻配置有错！"  );
location.href = "javascript:history.back()"  
</script>

<%elseif request("imgnum")=""  or request("imgsign")="" then%>
<script language=javascript>  
alert( "错误：图片新闻代码配置有错！"  );
location.href = "javascript:history.back()"  
</script>

<%elseif request("classnum")=""  or request("classsign")="" then%>
<script language=javascript>  
alert( "错误：首页大类新闻代码配置有错！"  );
location.href = "javascript:history.back()"  
</script>

<%elseif request("boardnum")=""  or request("boardsign")="" then%>
<script language=javascript>  
alert( "错误：二级页面子类新闻代码配置有错！"  );
location.href = "javascript:history.back()"  
</script>

<%elseif request("topicnum")=""  or request("topicsign")="" then%>
<script language=javascript>  
alert( "错误：专题列表代码配置有错！"  );
location.href = "javascript:history.back()"  
</script>

<%else%>
<%
set rs = server.CreateObject ("adodb.recordset")
sql = "select top 1 * from jsconst order by jsid desc"
	rs.Open sql,conn,1,3
	rs("picnum") = Request("picnum")
	rs("picwidth") = Request("picwidth")
	rs("picheight") = Request("picheight")
	rs("headnum") = Request("headnum")
	rs("headsign") = Request("headsign")
	rs("headtime") = Request("headtime")
	rs("focusnum") = Request("focusnum")
	rs("focussign") = Request("focussign")
	rs("focustime") = Request("focustime")
	rs("imgnum") = Request("imgnum")
	rs("imgsign") = Request("imgsign")
	rs("imgtime") = Request("imgtime")
	rs("classnum") = Request("classnum")
	rs("classsign") = Request("classsign")
	rs("classtime") = Request("classtime")
	rs("boardnum") = Request("boardnum")
	rs("boardsign") = Request("boardsign")
	rs("boardtime") = Request("boardtime")
	rs("topicnum") = Request("topicnum")
	rs("topicsign") = Request("topicsign")
	rs.Update 
	rs.Close 
set rs=nothing
%>
<script language=javascript>  
alert( "JS代码配置成功 //刷新后可见新的配置"  );
location.href = "admin_jsconst.asp"  
</script>
<%end if%>
<%end sub%>


<%sub jslist()%>
<table width="100%" border="0" cellspacing="3" cellpadding="3"><tr><td height="20">当前位置：<a href=main.asp>管理首页</a> >> <a href=admin_jsconst.asp?action=jslist>查看JS代码信息</a></td></tr></table>
<table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center>
<tr bgcolor=#eeeeee><td colspan=2 align=right><%if session("userkey")=3 then%><a href=admin_jsconst.asp?action=jslist>查看JS代码信息</a> <%elseif session("userkey")>=4 then%><a href=admin_jsconst.asp?action=jslist>查看JS代码信息</a> | <a href=admin_jsconst.asp>配置JS代码参数</a><%end if%></td></tr></table>
<br><br>
<table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b>首页头条新闻代码</b>(审核+头条)</td></tr>
<tr bgcolor=#eeeeee><td align=right width='30%'>首页头条新闻</td><td><input size=80 value="&lt;script language=JavaScript src=&quot;./js/head.js&quot;&gt;&lt;/script&gt;"></td></tr></table>
<br><br>

<table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b>最新40条新闻代码</b>(审核)</td></tr>
<tr bgcolor=#eeeeee><td align=right width='30%'>最新新闻</td><td><input size=80 value="&lt;script language=JavaScript src=&quot;./js/new.js&quot;&gt;&lt;/script&gt;"></td></tr></table>
<br><br>

<table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b>首页图片新闻代码</td></tr>
<tr bgcolor=#eeeeee><td align=right width='30%'>首页图片新闻</td><td><input size=80 value="&lt;script language=JavaScript src=&quot;./js/pic.js&quot;&gt;&lt;/script&gt;"></td></tr></table>
<br><br>

<table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b> 大类栏目精选代码</b>(审核+焦点)</td></tr>
<%set rs_2 = server.CreateObject ("adodb.recordset")
sql_2 = "select * from  class   order by classid desc"
rs_2.Open sql_2,conn,1,1
do while not rs_2.Eof
%>
<tr bgcolor=#eeeeee><td align=right width='30%'><%=rs_2("classname")%></td><td><input size=80 value="&lt;script language=JavaScript src=&quot;./js/focus<%=rs_2("classid")%>.js&quot;&gt;&lt;/script&gt;"></td></tr>
<%rs_2.MoveNext 
Loop
rs_2.Close
set rs2=nothing%>
</table><br><br>

<table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b>首页栏目精选代码</td></tr>
<tr bgcolor=#eeeeee><td align=right width='30%'>首页栏目精选</td><td><input size=80 value="&lt;script language=JavaScript src=&quot;./js/focus.js&quot;&gt;&lt;/script&gt;"></td></tr></table>
<br><br>

<table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b>图片新闻代码</td></tr>
<tr bgcolor=#eeeeee><td align=right width='30%'>图片新闻</td><td><input size=80 value="&lt;script language=JavaScript src=&quot;./js/img.js&quot;&gt;&lt;/script&gt;"></td></tr></table>
<br><br>

<table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b>专题列表</td></tr>
<tr bgcolor=#eeeeee><td align=right width='30%'>专题列表</td><td><input size=80 value="&lt;script language=JavaScript src=&quot;./js/topic.js&quot;&gt;&lt;/script&gt;"></td></tr></table>
<br><br>

<table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b> 首页大类代码</td></tr>
<%set rs_2 = server.CreateObject ("adodb.recordset")
sql_2 = "select * from  class   order by classid desc"
rs_2.Open sql_2,conn,1,1
do while not rs_2.Eof
%>
<tr bgcolor=#eeeeee><td align=right width='30%'><%=rs_2("classname")%></td><td><input size=80 value="&lt;script language=JavaScript src=&quot;./js/class<%=rs_2("classid")%>.js&quot;&gt;&lt;/script&gt;"></td></tr>
<%rs_2.MoveNext 
Loop
rs_2.Close
set rs2=nothing%>
</table><br><br>

<table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b> 二级页面子类代码</td></tr>
<%set rs_2 = server.CreateObject ("adodb.recordset")
sql_2 = "select * from  board   order by boardid desc"
rs_2.Open sql_2,conn,1,1
do while not rs_2.Eof
%>
<tr bgcolor=#eeeeee><td align=right width='30%'><%=rs_2("boardname")%></td><td><input size=80 value="&lt;script language=JavaScript src=&quot;./js/board<%=rs_2("boardid")%>.js&quot;&gt;&lt;/script&gt;"></td></tr>
<%rs_2.MoveNext 
Loop
rs_2.Close
set rs2=nothing%>
</table>
<br>
<br>
<%end sub%>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>