admin_js.asp

本系统(共享国际学校管理系统)具有的主要功能: 1、导航内容：学校概况、校内新闻、学校内务、德育工作、 教育科研、教师之窗、学生园地、学校党建、 校园相册、校内论坛(导航内容后台生成,可随

end if
end if
sql="select * from jscat where jscat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="form1" method="post" action="">
<tr class=lanyuss><td>修改分类</td></tr>
<tr class=lanyuds><td>分类名称-<input name="jscat_name" type="text" class="textarea" id="jscat_name" size="40" value="<%=rs("jscat_name")%>"> </td></tr>
<tr class=lanyuqs><td align="center"><input name="Submit" type="submit" class="button" id="Submit" value="确定修改"> <input name="Reset" type="reset" class="button" id="Reset" value="清空重填"> </td></tr><input type="hidden" name="id" value="<%=rs("jscat_id")%>"><input type="hidden" name="action" value="editjscat"><input type="hidden" name="MM_insert" value="true"></form>
</table>
<%end if
	  if request.QueryString("action")="deljscat" then
	  if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的分类ID参数！');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from jscat where jscat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="form1" method="post" action="">
<tr class=lanyuss><td>删除分类</td></tr>
<tr class=lanyuds><td>分类名称- <%=rs("jscat_name")%></td></tr>
<tr class=lanyuqs><td align="center"><input name="Submit" type="submit" class="button" id="Submit" value="确定删除"></td></tr><input type="hidden" name="id" value="<%=rs("jscat_id")%>"><input type="hidden" name="action" value="deljscat"><input type="hidden" name="MM_insert" value="true"></form>
</table>
<%end if
if request.querystring("action")="js" then
sql="select * from js order by js_id desc"
if request.querystring("jscat_id")<>"" then
sql="select * from js where jscat_id="&cint(request.querystring("jscat_id"))&" order by js_id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totaljs=rs.recordcount
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="form3" method="post" action="">
<tr class=lanyuss><td align="right" colspan="3"><select style="margin:-3px" name="go" onChange='window.location=form.go.options[form.go.selectedIndex].value'><option value="">选择显示方式</option><option value="admin_js.asp?action=js">显示所有文章</option>
<%sql="select * from jscat"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof%>
<option value="admin_js.asp?action=js&jscat_id=<%=rs2("jscat_id")%>"><%=rs2("jscat_name")%></option>
<%rs2.movenext
loop
if rs2.bof and rs2.eof then%><option value="">当前没有分类</option>
<%end if
rs2.close
set rs2=nothing%></select></td></tr></form><%
if not rs.eof then
rs.movefirst
rs.pagesize=jsperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then
      currentpage=rs.pagecount
   end if
else
   currentpage=1
end if
   totaljs=rs.recordcount
   if currentpage<>1 then
       if (currentpage-1)*jsperpage<totaljs then
	       rs.move(currentpage-1)*jsperpage
		   dim bookmark
		   bookmark=rs.bookmark
	   end if
   end if
   if (totaljs mod jsperpage)=0 then
      totalpages=totaljs\jsperpage
   else
      totalpages=totaljs\jsperpage+1
   end if
i=0
do while not rs.eof and i<jsperpage
%>
<tr class=lanyuds><td width="70%">·<%=rs("js_name")%></td><td width="10%">评论：<font color=red><%=rs("reviewcount")%></font></td><td width="20%"> <a href="admin_view.asp?action=js&js_id=<%=rs("js_id")%>">评论</a> <a href="admin_js.asp?id=<%=rs("js_id")%>&action=editjs">编辑</a> <a href="admin_js.asp?id=<%=rs("js_id")%>&action=deljs">删除</a></td>
</tr>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
<tr class=lanyuds>
  <td colspan="3" height="22" align="center">当前没有文章！</td>
</tr>
<%end if
end if%>
<form name="form1" method="post" action="admin_js.asp?action=js&jscat_id=<%=request.querystring("jscat_id")%>">
<tr class=lanyuqs><td align="right" colspan="3"> <%=currentpage%> /<%=totalpages%>页,<%=totaljs%>条记录/<%=jsperpage%>篇每页. 
              <%
i=1
showye=totalpages
if showye>10 then
showye=10
end if
for i=1 to showye
if i=currentpage then
%>
<%=i%>
<%else%>
<a href="admin_js.asp?action=js&page=<%=i%>&jscat_id=<%=request.querystring("jscat_id")%>"><%=i%></a> 
<%end if
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
end if%>
              <a href="admin_js.asp?action=js&page=<%=page%>&jscat_id=<%=request.querystring("jscat_id")%>" title="下一页">>></a> 
              <%end if%>
              &nbsp;&nbsp;&nbsp;&nbsp; 
              <input type="text" name="page" class="textarea" size="4">
              <input type="submit" name="Submit" value="Go" class="button">
            </td>
          </tr>
        </form>
      </table>
	  <%end if
	  if request.querystring("action")="newjs" then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="form2" method="post" action="">
<tr class=lanyuss><td colspan="2">新增文章</td></tr>
<tr class=lanyuds><td width="17%">文章名称</td><td width="83%"><input type="text" name="name" class="textarea" size="40"></td></tr>
<tr class=lanyuds><td width="17%">所属分类</td><td width="83%"><select name="jscatid" class="textarea">
<%
sql="select * from jscat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof%><option value="<%=rs("jscat_id")%>"><%=rs("jscat_name")%></option>
<%rs.movenext
loop
if rs.eof and rs.bof then%><option value="0">当前没有分类</option>
<%end if%>
</select></td></tr>
              
<tr class=lanyuds><td width="17%">内容:</td><td width="83%"><textarea name="desc" class="textarea" cols="65" rows="15"></textarea></td></tr>
<tr align="center" class=lanyuqs><td colspan="2"><input type="checkbox" name="isbest" value="1" class="textarea">重要&nbsp;&nbsp;&nbsp; <input type="submit" name="Submit" value="确定新增" class="button"><input type="reset" name="Reset" value="清空重填" class="button">[<a href="admin_js.asp?action=js">返回</a>]</td></tr><input type="hidden" name="action" value="newjs"><input type="hidden" name="MM_insert" value="true"></form>
</table>
      <%end if
	  if request.QueryString("action")="editjs" then
	  if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的ID参数！');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from js where js_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="form2" method="post" action="">
<tr class=lanyuss><td colspan="2" >修改文章</td></tr>
<tr class=lanyuds><td width="17%">文章名称</td><td width="83%"> <input name="name" type="text" class="textarea" id="name" size="40" value="<%=rs("js_name")%>"></td></tr>
<tr class=lanyuds><td width="17%">所属分类</td><td width="83%"><select name="jscatid" class="textarea" id="jscatid">
                <%
sql="select * from jscat"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof%>
                <option value="<%=rs2("jscat_id")%>" <%if rs2("jscat_id")=rs("jscat_id") then response.write "selected" end if%>><%=rs2("jscat_name")%></option>
                <%rs2.movenext
loop
if rs2.eof and rs2.bof then%>
                <option value="0">当前没有分类</option>
                <%end if%>
              </select>
            </td>
          </tr>
          <tr class=lanyuds> 
            <td width="17%">内容:</td>
            <td width="83%"> 
              <textarea name="desc" cols="65" rows="15" class="textarea" id="desc"><%=CODEStr(rs("js_desc"))%></textarea>
            </td>
          </tr>
          <tr align="center" class=lanyuqs> 
            <td colspan="2"> <input name="isbest" type="checkbox" class="textarea" id="isbest" value="1" <%if rs("isbest")=1 then response.write "checked" end if%>>
              重要
              <input name="Submit" type="submit" class="button" id="Submit" value="确定修改"> 
              <input type="reset" name="Reset" value="清空重填" class="button">
              [<a href="admin_js.asp?action=js">返回</a>] </td>
          </tr>
		  <input type="hidden" name="id" value="<%=rs("js_id")%>">
          <input type="hidden" name="action" value="editjs">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
	  <%end if
	  if request.QueryString("action")="deljs" then
	  if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的ID参数！');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from js where js_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="form2" method="post" action="">
<tr class=lanyuss><td colspan="2">删除文章</td></tr>
          <tr class=lanyuds> 
            <td width="17%">文章名称</td>
            <td width="83%"> <%=rs("js_name")%> 　</td>
          </tr>
          <tr class=lanyuds> 
            <td width="17%">所属分类</td>
            <td width="83%"> 
                <%
sql="select * from jscat where jscat_id="&rs("jscat_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
%><%=rs2("jscat_name")%> 　</td>
          </tr>
          <tr align="center" class=lanyuqs> 
            <td colspan="2"> 
              <input name="isbest" type="checkbox" class="textarea" id="isbest" value="1" <%if rs("isbest")=1 then response.write "checked" end if%>>
              重要 
              <input name="Submit" type="submit" class="button" id="Submit" value="确定删除">
              [<a href="admin_js.asp?action=js">返回</a>] </td>
          </tr>
          <input type="hidden" name="id" value="<%=rs("js_id")%>">
          <input type="hidden" name="action" value="deljs">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
<%end if
end if
%>