list_news.asp

来自「本程序系统完全实现了医院网站程序的全部功能的前台和后台程序」· ASP 代码 · 共 34 行

<%@language="VBscript"%>
<%Response.Expires=0%>
<!--#include file="./checkuser.asp" -->
<!--#include file="../../include/db_conn.asp" -->
<%
 m_ver = "big5"
 tmpUrl="../../big5/news_detail.asp"
%>
<!--#include file="../../include/search_code.asp" --> 
<%
'Response.Write sqlstr
set myrs=server.CreateObject("adodb.recordset")
myrs.Open sqlstr,conn,1,1
%>
<!--#include file="./header.asp" --> 
<script language="javascript">
  function count_checked_items() {
  var number_checked=0;
  var box_count=document.frm_list.news_id.length;
  if ( box_count==null ) {
  if ( document.frm_list.news_id.checked==true ) {
  number_checked=1;}else {
  number_checked=0;}}
  else {
  for ( var i=0; i < (box_count); i++ ) {
  if ( document.frm_list.news_id[i].checked==true ) {
  number_checked++;}}}return number_checked;}
  function add_to_edit() {
      if (count_checked_items()>0){
          document.frm_list.action="edit_news.asp";
          document.frm_list.submit();         
      }
      else
          alert('叫眤