📄 index.asp

📁 绿叶ＯＡ　一个功能比较全面的办公OA系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@LANGUAGE="VBSCRIPT"%>
<%Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"%>
<!--#include file="../../../Connections/oavbsconn.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
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="../../../toall/fengge/config.asp" -->

<%
Dim webtiles
Dim webtiles_numRows
Set webtiles = Server.CreateObject("ADODB.Recordset")
webtiles.ActiveConnection = MM_oavbsconn_STRING
webtiles.Source = "SELECT 页面名称  FROM webtitles  WHERE 模块名称 = '文件传输' and 描述='文件传输系统'"
webtiles.CursorType = 0
webtiles.CursorLocation = 2
webtiles.LockType = 1
webtiles.Open()
if not webtiles.eof or not webtiles.bof then
dim webtilesname
webtilesname=webtiles("页面名称")
webtiles.Close()
Set webtiles = Nothing
else
webtiles.Close()
Set webtiles = Nothing
response.write "页面标题不完整，请管理员在后台补充。"
end if
webtiles_numRows = 0
%>

<%
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
%>
<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 usersdsfg56,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>
<html>
<head>
<script language="JavaScript">
<!--
function dis(){
document.form1.submit.value=' 发送..'
document.form1.submit.disabled=true;
return true;
}
function check() {
if (document.form1.bumen.value=="请选择部门") {
window.alert ("请您选择部门！")
return false
}

if ((form1.City.value=="请选择对象")||(form1.City.value=="")) {
window.alert ("请选择接收对象！")

return false
}
if (document.form1.file1.value=="" && document.form1.file2.value=="" &&document.form1.file3.value=="" &&document.form1.file4.value==""
&&document.form1.file5.value=="" &&document.form1.file6.value=="") 
{
window.alert ("请选择上传文件！")
document.form1.file1.focus()
return false
}
if (document.form1.fuyan.value.length>65535) {
window.alert ("附言需要65535位以内字符 ！")
document.form1.fuyan.focus()
return false
}
return true
}
//-->
</SCRIPT>
<script language=VBScript>
function tof_Click()
if document.all("tof").checked Then
    document.all("his").style.display="inline"
Else
    document.all("his").style.display="none"
End IF
end function
</script>
<script>
function SummaryFromText(){
	if (iEditorType==0)
	{
		var Summary = content1.getHTML();
	}
	else{
		var Summary = a1.content.value;
	}
	Summary=Summary.substring(1,250)
	Summary=cleanHtml(Summary);
	
	a1.summary.value=Summary;
}
</SCRIPT>
<script>
function change(obj,i) {
he=parseInt(obj.style.height);
if (he>=80&&he<=400)
   obj.style.height=he+i+'px';
else 
   obj.style.height='80px';
}
</script><script language="JavaScript">
<!--
function dis(){
document.form1.submit.value=' 发送..'
document.form1.submit.disabled=true;
return true;
}
function check() {
if (form1.bumen.value=="请选择部门") {
window.alert ("请您选择部门。")
return false
}
if (form1.City.value=="") {
window.alert ("请选择接收对象。")
return false
}
if (document.form1.file1.value=="" && document.form1.file2.value=="" &&document.form1.file3.value=="" &&document.form1.file4.value==""
&&document.form1.file5.value=="" &&document.form1.file6.value=="") 
{
window.alert ("请选择上传文件。")
document.form1.file1.focus()
return false
}
if (document.form1.fuyan.value.length>65535) {
window.alert ("备注需要65535位以内字符 ！")
document.form1.fuyan.focus()
return false
}
return true
}
//-->
</SCRIPT>
<script language=VBScript>
function tof_Click()
if document.all("tof").checked Then
    document.all("his").style.display="inline"
Else
    document.all("his").style.display="none"
End IF
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -