欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

一个审核有关问题

更新时间: 2014-01-05 00:56:04 责任编辑: Author_N1

 

一个审核问题!
<script language="javascript">
function AreaWin(url) {
  var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
  oth = oth+",width=400,height=300";
  var AreaWin=window.open(url,"AreaWin",oth);
  AreaWin.focus();
  return false;
}

function SELECTChk()
{
var s=false;
var auto_id,n=0;
var strid,strurl;
var nn = self.document.all.item("area")
for (j=0;j<nn.length;j++)
{
if (self.document.all.item("area",j).checked)
{
n = n + 1;
s=true;
auto_id = self.document.all.item("area",j).id+"";
if(n==1)
{
strid = auto_id;
}
else
{
strid = strid + "," + auto_id;
}
}
}

strurl = "paicheng_Delt.asp?id=" + strid;
if(!s) {
alert("请选择要删除的排程!");
return false;
}
if ( confirm("你确定要删除这些排程吗?")) {
form1.action = strurl;
form1.submit();
}
}
function SELECTChk1()
{
var s=false;
var auto_id,n=0;
var strid,strurl;
var nn = self.document.all.item("area")
for (j=0;j<nn.length;j++)
{
if (self.document.all.item("area",j).checked)
{
n = n + 1;
s=true;
auto_id = self.document.all.item("area",j).id+"";
if(n==1)
{
strid = auto_id;
}
else
{
strid = strid + "," + auto_id;
}
}
}

strurl = "paicheng_checked.asp?id=" + strid;
if(!s) {
alert("请选择要审核的排程!");
return false;
}
if ( confirm("你确定要审核这些排程吗?")) {
form1.action = strurl;
form1.submit();
}
}
function sltAll()
{
var nn = self.document.all.item("area");
for(j=0;j<nn.length;j++)
{
self.document.all.item("area",j).checked = true;
}
}
function sltNull()
{
var nn = self.document.all.item("area");
for(j=0;j<nn.length;j++)
{
self.document.all.item("area",j).checked = false;
}
}
</script>
</head>
<body link="#000080" vlink="#080080">
<form id="form1" name="form1" method="POST">
<%
  Dim rs
  Set rs = Server.CreateObject("ADODB.RecordSet")
%>
<p align=center><font style='FONT-SIZE:12pt' color="#000080"><b>排 程 管 理</b></font></p>
<p align="center"> 
<%
Response.Write"&nbsp;<a href=""paicheng_tj.asp"">继续添加</a>&nbsp;"
Response.Write"&nbsp;<a href=""index.asp"">返回首页</a>&nbsp;"
Response.Write"&nbsp;<a href=""logout.asp""&nbsp;>退出系统</a>&nbsp;"
%>      
</p>              
<table align=center border="1" cellspacing="0" width="88%" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF">
  <tr>
   <td width="20%" align="center" bgcolor="#BEDCFA"><strong>部门</strong></td>
   <td width="10%" align="center" bgcolor="#BEDCFA"><strong>日期</strong></td>
   <td width="35%" align="center" bgcolor="#BEDCFA"><strong>会议主题</strong></td>
   <td width="15%" align="center" bgcolor="#BEDCFA"><strong>时间</strong></td>
   <td width="10%" align="center" bgcolor="#BEDCFA"><strong>地点</strong></td>
   <td width="5%" align="center"  bgcolor="#BEDCFA"><strong>修改</strong></td>
   <td width="5%" align="center"  bgcolor="#BEDCFA"><strong>选择</strong></td>
  </tr>

<%
  '读取并显示个人排程
  if Session("pass_userid")="002140" OR Session("pass_userid")="W1064" then
    sqlType1 = "SELECT top 50 * FROM gspaicheng where pc_check=0 order by pc_date "
  else
    sqlType1 = "SELECT top 50 * FROM gspaicheng where pc_check=0 and pc_userid='"&Session("pass_userid")&"' order by pc_date " 
  end if
  rs.Open sqlType1, Conn, 1, 1
%>
<tr>
<%
  Do While Not rs.EOF
%>
    <td align="center" ><%=rs("pc_department")%> <%=rs("pc_department1")%>&nbsp; </td>
<td align="center"><%=rs("pc_date")%>&nbsp;</td>
<td align="center"><%=rs("pc_title")%>&nbsp;</td>
<td align="center"><%=rs("pc_time")%>-<%=rs("pc_time1")%>&nbsp;</td>
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 00:56:04
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/1534/
本文WWW.DOC100.NET DOC100.NET版权所有。