toguidangfor有ren.asp

来自「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」· ASP 代码 · 共 411 行 · 第 1/2 页

<%  
Response.ExpiresAbsolute=now()-1
Response.CacheControl="no-cache"
%>
<%
MM_authorizedUsers=""
MM_authFailedURL="../../index.asp"
MM_grantAccess=false
If Session("userssdfgfhtrh") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="../../Connections/oavbsconn.asp" -->
<%function DbCombox1() 
Dim r1
Dim r1_numRows

Set r1 = Server.CreateObject("ADODB.Recordset")
r1.ActiveConnection = MM_oavbsconn_STRING
r1.Source = "SELECT *  FROM 归档类别  WHERE 开关='是'  ORDER BY 排序 asc"
r1.CursorType = 0
r1.CursorLocation = 2
r1.LockType = 1
r1.Open()
while not r1.eof 
msg = msg & "<option value=""" &r1("归档名称") & """>" & r1("归档名称") & "</option>" 
r1.movenext 
wend 
r1.close 
set r1 = nothing 
DbCombox1 = msg 
End function 

r1_numRows = 0
%>
<%
Dim r11__d
r11__d = "1"
If (request("id") <> "") Then 
  r11__d = request("id")
End If
%>
<%
Dim r11__u
r11__u = "1"
If (Session("userssdfgfhtrh") <> "") Then 
  r11__u = Session("userssdfgfhtrh")
End If
%>
<%
Dim r11
Dim r11_numRows

Set r11 = Server.CreateObject("ADODB.Recordset")
r11.ActiveConnection = MM_oavbsconn_STRING
r11.Source = "SELECT shouwenfiles.文件名,shouwenfiles.文件路径,shouwenfiles.id,shouwenfiles.邮件编号,文件上传时间,上传人姓名,上传人部门  FROM shouwen inner join shouwenfiles on shouwenfiles.邮件编号=shouwen.id  WHERE 添加人帐号 ='" + Replace(r11__u, "'", "''") + "' and 拟稿人删除<>'是' and shouwen.id=" + Replace(r11__d, "'", "''") + "  ORDER BY shouwen.id desc"
r11.CursorType = 0
r11.CursorLocation = 2
r11.LockType = 1
r11.Open()

r11_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
r11_numRows = r11_numRows + Repeat1__numRows
%>




<%
function DbCombox() 
Dim Recordset3
Dim Recordset3_numRows

Set Recordset3 = Server.CreateObject("ADODB.Recordset")
Recordset3.ActiveConnection = MM_oavbsconn_STRING
Recordset3.Source = "SELECT 部门  FROM sms部门表  WHERE 开关='开' and 部门<>'对所有人群发'  ORDER BY 排序 asc"
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()
while not Recordset3.eof 
msg = msg & "<option value=""" &Recordset3("部门") & """>" & Recordset3("部门") & "</option>" 
Recordset3.movenext 
wend 
Recordset3.close 
set Recordset3 = nothing 
DbCombox = msg 
End function 

Recordset3_numRows = 0
%>
<%
Dim bumen
Dim bumen_numRows

Set bumen = Server.CreateObject("ADODB.Recordset")
bumen.ActiveConnection = MM_oavbsconn_STRING
bumen.Source = "SELECT 部门  FROM sms部门表  WHERE 开关='开' and 部门<>'对所有人群发'  ORDER BY 排序 asc"
bumen.CursorType = 0
bumen.CursorLocation = 2
bumen.LockType = 1
bumen.Open()

bumen_numRows = 0
%>
<%
Dim Repeat111__numRows
Dim Repeat111__index

Repeat111__numRows = -1
Repeat111__index = 0
bumen_numRows = bumen_numRows + Repeat111__numRows
%>
<script language ="javascript" > 
Citys = new Array(); 

<%
Dim shi
Dim shi_numRows

Set shi = Server.CreateObject("ADODB.Recordset")
shi.ActiveConnection = MM_oavbsconn_STRING
shi.Source = "SELECT names,部门 FROM usertertggbng where idzhuangtai='开通'  ORDER BY 排序 ASC"
i = 0 
shi.CursorType = 0
shi.CursorLocation = 2
shi.LockType = 1
shi.Open()
while not shi.eof 
shi_numRows = 0
%>
Citys[<%=i%>] =new Array("<%=shi("部门")%>","<%=shi("names")%>"); 
<% 
i = i + 1 
shi.movenext 
wend 
shi.close 
set shi = nothing 
%>
function changeselect(selvalue){ 
var selvalue = selvalue; 
var i; 
document.form1.City.length = 0 ; 
document.form1.City.options[document.form1.City.length] = new Option("请选择对象",""); 
for (i = 0 ;i <Citys.length;i++){ 
if(Citys[i][0]==selvalue){ 
document.form1.City.options[document.form1.City .length] = new Option(Citys[i][1],Citys[i][1]); 
} 
} 
} 
</script> 

<script language=JavaScript>
function ds(sstr)
{
 var dstr="";
 
 for (i=0;i<sstr.length;i++)
 {   if (sstr.charAt(i)!=' ') dstr+=sstr.charAt(i);
 }
 return dstr;
}
function oninput()
{
var rid,title;
rid=ds(document.form1.vattend.value);
title=ds(document.form1.vtitle.value);
//显示日期
document.form1.vtime.value ="";
document.form1.vtime.value +=document.form1.fYear.value + "-" 
document.form1.vtime.value +=document.form1.fMonth.value + "-" 
document.form1.vtime.value +=document.form1.fDay.value + " " 
document.form1.vtime.value +=document.form1.fHour.value + ":" 
document.form1.vtime.value +=document.form1.fMinute.value + ""
//对用户是否输入信息进行判断
if((rid=="")||(title==""))
rphtml('vtitle','vplace','vaim','vattendother','vattend','vcompere','vspeaker');
document.form1.submit();
}
function add_users(to)
{
var return_value;
return_value=showModalDialog("../../../toall/gw/userdeptlist.asp?muilt=yes&to=" + to,null,"dialogWidth:25;dialogHeight:16;dialogTop:250;dialogLeft:260;status:no;scrollbars:no;help:no");
if((typeof(return_value)=="undefined") ||(return_value=="*") || (return_value==""))
  return;
else
  var str1="";