📄 writetzr.asp

📁 绿叶oa系统办公自动化 2008.工作日志管理,文件管理
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../Connections/oavbsconn.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="1"
MM_authFailedURL="../../wrong.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (false 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
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT 部门名  FROM 部门用户关系  group by 部门名,排序  ORDER BY 排序,部门名 desc"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim getemailid__varuser
getemailid__varuser = "yp"
If (Session("userssdfgfhtrh")  <> "") Then 
  getemailid__varuser = Session("userssdfgfhtrh") 
End If
%>
<%
Dim getemailid
Dim getemailid_numRows
Set getemailid = Server.CreateObject("ADODB.Recordset")
getemailid.ActiveConnection = MM_oavbsconn_STRING
getemailid.Source = "SELECT max(ID)+1 as emailid  FROM infoall  WHERE 发送人帐号='" + Replace(getemailid__varuser, "'", "''") + "'"
getemailid.CursorType = 0
getemailid.CursorLocation = 2
getemailid.LockType = 1
getemailid.Open()
getemailid_numRows = 0
%>
<%
Dim user__MMColParam
user__MMColParam = "服装院"
If (Session("choosedbumenming") <> "") Then 
  user__MMColParam = Session("choosedbumenming")
End If
%>
<%
Dim user
Dim user_numRows

Set user = Server.CreateObject("ADODB.Recordset")
user.ActiveConnection = MM_oavbsconn_STRING
user.Source = "SELECT *  FROM 部门用户关系  WHERE 部门名 = '" + Replace(user__MMColParam, "'", "''") + "'"
user.CursorType = 0
user.CursorLocation = 2
user.LockType = 1
user.Open()

user_numRows = 0
%>
<% if not getemailid.eof or not getemailid.bof then 
session("maxemailid")=getemailid("emailid")
end if 
%>

<html>
<head>
<SCRIPT language=JavaScript>
function changecity(){
index = globe.state.options.selectedIndex-1;
globe.city.length = city[index].length;
for(var i = 0;i<city[index].length;i++)
{
var text = city[index][i].split("-");
globe.city.options[i].text = text[0];
globe.city.options[i].value =text[1];
}
}
</SCRIPT>
<SCRIPT language=JavaScript>
var city = new Array(
new Array("合肥-合肥","芜湖-芜湖","蚌埠-蚌埠","巢湖-巢湖","滁州-滁州","淮南-淮南","安庆-安庆","宣州-宣州","马鞍山-马鞍山","黄山-黄山","铜陵-铜陵","宿州-宿州","淮北-淮北","阜阳-阜阳","六安-六安","贵池-贵池"),
new Array("澳门-澳门"),
new Array("北京-北京"),
new Array("重庆-重庆"),
new Array("福州-福州","泉州-泉州","三明-三明","漳州-漳州","南平-南平","宁德-宁德","龙岩-龙岩","莆田-莆田","厦门-厦门"),
new Array("兰州-兰州","武威-武威","嘉峪关-嘉峪关","金昌-金昌","白银-白银","张掖-张掖","酒泉-酒泉","天水-天水","西峰-西峰","平凉-平凉","定西-定西","陇南-陇南","合作-合作","临夏-临夏"),
new Array("广州-广州","深圳-深圳","佛山-佛山","中山-中山","江门-江门","惠州-惠州","东莞-东莞","汕头-汕头","湛江-湛江","茂名-茂名","肇庆-肇庆","韶关-韶关","阳江-阳江","珠海-珠海","清远-清远","河源-河源","潮州-潮州","梅州-梅州","揭阳-揭阳","汕尾-汕尾","云浮-云浮"),
new Array("南宁-南宁","桂林-桂林","柳州-柳州","梧州-梧州","贵港-贵港","玉林-玉林","钦州-钦州","北海-北海","防城港-防城港","凭祥-凭祥","百色-百色","河池-河池","贺州-贺州"),
new Array("贵阳-贵阳","六盘水-六盘水","遵义-遵义","毕节-毕节","铜仁-铜仁","安顺-安顺","凯里-凯里","都匀-都匀","兴义-兴义"),
new Array("海口-海口","三亚-三亚","琼山-琼山","文昌-文昌","琼海-琼海","万宁-万宁","通什-通什","东方-东方","儋州-儋州"),
new Array("石家庄-石家庄","邯郸-邯郸","承德-承德","衡水-衡水","秦皇岛-秦皇岛","唐山-唐山","沧州-沧州","廊坊-廊坊","保定-保定","张家口-张家口","邢台-邢台"),
new Array("郑州-郑州","三门峡-三门峡","洛阳-洛阳","焦作-焦作","鹤壁-鹤壁","安阳-安阳","商丘-商丘","濮阳-濮阳","开封-开封","漯河-漯河","南阳-南阳","信阳-信阳","济源-济源","周口-周口","驻马店-驻马店","新乡-新乡","许昌-许昌","平顶山-平顶山"),
new Array("哈尔滨-哈尔滨","大庆-大庆","黑河-黑河","伊春-伊春","鹤岗-鹤岗","双鸭山-双鸭山","齐齐哈尔-齐齐哈尔","佳木斯-佳木斯","七台河-七台河","鸡西-鸡西","绥化-绥化","牡丹江-牡丹江","加格达奇-加格达奇"),
new Array("武汉-武汉","襄樊-襄樊","宜昌-宜昌","荆州-荆州","黄石-黄石","黄冈-黄冈","孝感-孝感","鄂州-鄂州","荆州-荆州","荆门-荆门","恩施-恩施","咸宁-咸宁","十堰-十堰"),
new Array("长沙-长沙","株州-株州","岳阳-岳阳","常德-常德","湘潭-湘潭","娄底-娄底","怀化-怀化","永州-永州","衡阳-衡阳","邵阳-邵阳","郴州-郴州","益阳-益阳","张家界-张家界","吉首-吉首"),
new Array("长春-长春","吉林-吉林","四平-四平","延吉-延吉","松原-松原","白山-白山","通化-通化"),
new Array("南京-南京","无锡-无锡","宿迁-宿迁","镇江-镇江","南通-南通","扬州-扬州","盐城-盐城","徐州-徐州","淮阴-淮阴","连云港-连云港","常州-常州","泰州-泰州","苏州-苏州"),
new Array("南昌-南昌","九江-九江","景德镇-景德镇","鹰潭-鹰潭","新余-新余","萍乡-萍乡","赣州-赣州","上饶-上饶","临川-临川","宜春-宜春","吉安-吉安"),
new Array("沈阳-沈阳","大连-大连","阜新-阜新","辽阳-辽阳","丹东-丹东","营口-营口","盘锦-盘锦","抚顺-抚顺","本溪-本溪","鞍山-鞍山","锦州-锦州","葫芦岛-葫芦岛","铁岭-铁岭","朝阳-朝阳"),
new Array("呼和浩特-呼和浩特","包头-包头","乌海-乌海","赤峰-赤峰","海拉尔-海拉尔","乌兰浩特-乌兰浩特","通辽-通辽","锡林浩特-锡林浩特","集宁-集宁","东胜-东胜","临河-临河","阿拉善左旗-阿拉善左旗"),
new Array("银川-银川","大武口-大武口","吴忠-吴忠","固原-固原"),
new Array("西宁-西宁","平安-平安","海晏-海晏","共和-共和","同仁-同仁","玛沁-玛沁","玉树-玉树","德令哈-德令哈"),
new Array("济南-济南","聊城-聊城","德州-德州","淄博-淄博","青岛-青岛","日照-日照","东营-东营","潍坊-潍坊","泰安-泰安","烟台-烟台","威海-威海","枣庄-枣庄","滨州-滨州","临沂-临沂","济宁-济宁","莱芜-莱芜","菏泽-菏泽"),
new Array("太原-太原","大同-大同","运城-运城","朔州-朔州","阳泉-阳泉","长治-长治","晋城-晋城","忻州-忻州","离石-离石","榆次-榆次","临汾-临汾"),
new Array("西安-西安","咸阳-咸阳","延安-延安","铜川-铜川","渭南-渭南","宝鸡-宝鸡","汉中-汉中","榆林-榆林","商州-商州","安康-安康"),
new Array("上海-上海"),
new Array("成都-成都","广元-广元","广安-广安","遂宁-遂宁","泸州-泸州","德阳-德阳","乐山-乐山","绵阳-绵阳","宜宾-宜宾","自贡-自贡","攀枝花-攀枝花","内江-内江","南充-南充","巴中-巴中","达川-达川","资阳-资阳","眉山-眉山","雅安-雅安","康定-康定","马尔康-马尔康","西昌-西昌"),
new Array("台北-台北","台中-台中","台南-台南","高雄-高雄","基隆-基隆","宜兰-宜兰","桃园-桃园","新竹-新竹","丰原-丰原","彰化-彰化","嘉义-嘉义","凤山-凤山","屏东-屏东","花莲-花莲","台东-台东"),
new Array("天津-天津"),
new Array("拉萨-拉萨","那曲-那曲","昌都-昌都","林芝-林芝","乃东-乃东","日喀则-日喀则","噶尔-噶尔"),
new Array("香港-香港"),
new Array("乌鲁木齐-乌鲁木齐","昌吉-昌吉","伊宁-伊宁","克拉玛依-克拉玛依","石河子-石河子","喀什-喀什","阿克苏-阿克苏","和田-和田","吐鲁番-吐鲁番","哈密-哈密","阿图什-阿图什","博乐-博乐","库尔勒-库尔勒","奎屯-奎屯","塔城-塔城","阿勒泰-阿勒泰"),
new Array("昆明-昆明","大理-大理","曲靖-曲靖","玉溪-玉溪","丽江-丽江","昭通-昭通","思茅-思茅","临沧-临沧","保山-保山","潞西-潞西","泸水-泸水","中甸-中甸","楚雄-楚雄","个旧-个旧","文山-文山","景洪-景洪"),
new Array("杭州-杭州","宁波-宁波","温州-温州","绍兴-绍兴","台州-台州","嘉兴-嘉兴","湖州-湖州","金华-金华","丽水-丽水","衢州-衢州","舟山-舟山"),
new Array("国外-国外")
);
</SCRIPT>
<SCRIPT language=JavaScript>
function changecity(){
index = globe.state.options.selectedIndex-1;
globe.city.length = city[index].length;
for(var i = 0;i<city[index].length;i++)
{
var text = city[index][i].split("-");
globe.city.options[i].text = text[0];
globe.city.options[i].value =text[1];
}
}
</SCRIPT>


<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>短消息发送</title>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
-->
12 下一页
⌨️ 快捷键说明

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