conn.asp

派出所案件管理系统 20080728 用于派出所内部管理案件信息

<%If SqlIn<>0 Then%>
<!--#Include File="Neeao_SqlIn.Asp"-->
<%
End If
'on error resume next
dim SxangDB,LouConn,ConnStr,db,RQ,L_InStr,CanShu

'设置数据库'1为Sql2000 2为Access
SxangDB=2

If SxangDB=1 Then 'MS_SQL2000
'startime=timer()
  ConnStr = "Driver={SQL Server};Description=sqldemo;SERVER=192.168.1.5;UID=sa;PWD=;DATABASE=LHB_SXYY" 
  Set LouConn = Server.CreateObject("ADODB.Connection")
  LouConn.open ConnStr
L_InStr="CharIndex"
RQ="'"

ElseIf SxangDB=2 Then 'MS_Access2003
  db="..\sxang_Data\sxang.mdb" 
  Set LouConn = Server.CreateObject("ADODB.Connection")
  ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
  LouConn.Open ConnStr
L_InStr="InStr"
RQ="#"
End If

dim FuLei_Sex_XuHao : FuLei_Sex_XuHao = 1 '性别序号
dim FuLei_KeiShi_XuHao : FuLei_KeiShi_XuHao = 2 '科室序号
dim FuLei_Office_XuHao : FuLei_Office_XuHao = 3 'Office功能模块序号
    dim ZiLei_ZiChanGL : ZiLei_ZiChanGL = 11 'office资产管理
        dim FuLei_ZiChanLY_XuHao : FuLei_ZiChanLY_XuHao = 26 '资产（设备）来源
        dim FuLei_ZiChanLX_XuHao : FuLei_ZiChanLX_XuHao = 22 '资产类型——资产管理
    dim FuLei_GongZuoRZ_XuHao : FuLei_GongZuoRZ_XuHao = 14 '工作日志管理
        dim L_Y : L_Y = Year(date) '(工作日志)取得当前时间的年份,成绩排名的开始年份
        dim L_M : L_M = Month(date) '(工作日志) 取得当前时间的月份,成绩排名的开始月份
        dim sXang_Start : sXang_Start = FormatDateTime(L_Y&"-"&L_M,vbShortDate) '(工作日志)成绩排名开始日期
        dim sXang_End : sXang_End = Date() '(工作日志)成绩排名结束日期
    dim FuLei_ZhiBanBiao_XuHao : FuLei_ZhiBanBiao_XuHao = 1 '值班表管理系统
    dim ZiLei_WenJianGui_KSWJJ : ZiLei_WenJianGui_KSWJJ = 15 'Office文件柜－增删科室文件夹
    dim ZiLei_WenJianGui_ZSKSWJ : ZiLei_WenJianGui_ZSKSWJ = 16 'Office文件柜－增删科室文件
    dim ZiLei_CaiWuGL_LSZ : ZiLei_CaiWuGL_LSZ=17 '财务管理——添加流水账
dim FuLei_JianYanJG_XuHao : FuLei_JianYanJG_XuHao = 5 '检验结果序号
dim FuLei_TiJianJG_XuHao : FuLei_TiJianJG_XuHao = 7 '体检结果序号
dim FuLei_JiShuLB_XuHao : FuLei_JiShuLB_XuHao = 8 '技术类别——个人档案
dim FuLei_ZhiWuDJ_XuHao : FuLei_ZhiWuDJ_XuHao = 9 '职务等级——个人档案
dim FuLei_JiShuZC_XuHao : FuLei_JiShuZC_XuHao = 10 '技术职称——个人档案
dim FuLei_YongGongXZ_XuHao : FuLei_YongGongXZ_XuHao = 11 '用工性质——个人档案
dim FuLei_ZhuanYe_XuHao : FuLei_ZhuanYe_XuHao = 12 '专业－个人档案
dim FuLei_MinZhu_XuHao : FuLei_MinZhu_XuHao = 13 '民族——个人档案
dim FuLei_JiGuan_XuHao : FuLei_JiGuan_XuHao = 14 '籍贯——个人档案
dim FuLei_XueLi_XuHao : FuLei_XueLi_XuHao = 15 '学历——个人档案
dim FuLei_XueWei_XuHao : FuLei_XueWei_XuHao = 16 '学位——个人档案
dim FuLei_ZiGeZS_XuHao : FuLei_ZiGeZS_XuHao = 17 '资格证书（执业资格）——个人档案
dim FuLei_JiShuZCJB_XuHao : FuLei_JiShuZCJB_XuHao = 18 '技术职称级别——个人档案
dim FuLei_ZhengZiMM_XuHao : FuLei_ZhengZiMM_XuHao = 19 '政治面貌——个人档案
dim FuLei_WEB_XuHao : FuLei_WEB_XuHao = 20 'WEB功能模块序号
dim FuLei_TonXunLB_XuHao : FuLei_TonXunLB_XuHao = 21 '个人通迅信息类别
dim FuLei_CaiWuGKFL_XuHao : FuLei_CaiWuGKFL_XuHao = 23 '财务公开分类序号——财务公开
dim FuLei_Group_XuHao : FuLei_Group_XuHao = 24 '角色序号
dim FuLei_HouTai_XuHao : FuLei_HouTai_XuHao = 25 '后台功能

If Err then
Err.Clear
Set Louconn = Nothing
Response.Write "系统调整中......请稍候再试！！"
Response.End
End If

'--------------------从数据库中读取配置参数------------------
Set Lours=server.createobject("adodb.recordset")
CanShu="Select * From LHB_XiTong_CanShu"
Lours.Open CanShu,LouConn,1,1
If Not(Lours.BOF And Lours.EOF)Then
dim Manage_tr : Manage_tr = Lours("Manage_tr")'设定管理部门每行显示的科室数目
dim Page_Size : Page_Size = Lours("Page_Size")'每页显示的条数
dim sXang_YanZhengM_Off : sXang_YanZhengM_Off = Lours("sXang_YanZhengM_Off") '验证码功能开关，1开启 0:关闭
dim sXang_MD5_Off : sXang_MD5_Off = Lours("sXang_MD5_Off")'MD5码开关，1：开启　0：关闭
dim Table_Width : Table_Width = Lours("Table_Width")'表格宽度
dim sXang_Title : sXang_Title = Lours("sXang_Title")'OA标题(系统名称)
dim WenJianGui_FJLJ : WenJianGui_FJLJ = Lours("WenJianGui_FJLJ")'文件柜附件存放路径
dim WenJianGui_Type : WenJianGui_Type = Lours("WenJianGui_Type") '文件柜允许上传文件类型
dim CaiWuGongKai_FJLJ : CaiWuGongKai_FJLJ = Lours("CaiWuGongKai_FJLJ")'财务公开附件存放路径
dim sXang_ZiChanGL_User : sXang_ZiChanGL_User = Lours("sXang_ZiChanGL_User")'资产管理保管人　0：不能跨科室保管，1：可跨科室保管
dim Sxang_PiShi : Sxang_PiShi = Lours("Sxang_PiShi")'(工作日志)上级指示功能 1:打开 0:关闭
dim Sxang_ChengJi : Sxang_ChengJi = Lours("Sxang_ChengJi")'(工作日志)评分功能 1:打开 0:关闭
dim ChengJi_XiuGai : ChengJi_XiuGai = Lours("ChengJi_XiuGai")'(工作日志)分数评定后是否可更改 1:可更改　0:不可更改
dim Sxang_JiHua : Sxang_JiHua = Lours("Sxang_JiHua")'(工作日志)计划功能 1:打开 0:关闭
dim sXang_ChengJiPM_Off : sXang_ChengJiPM_Off = Lours("sXang_ChengJiPM_Off")'首页成绩排名显示开关 1：显示 0：不显示
dim sXang_ZhiBanBiao_KeShi : sXang_ZhiBanBiao_KeShi = Lours("sXang_ZhiBanBiao_KeShi")'值班表科室　1：另外维护 2：不另外维护
dim sXang_ZhiBanBiao_Tel : sXang_ZhiBanBiao_Tel = Lours("sXang_ZhiBanBiao_Tel") '值班表显示的电话号码类型
dim sXang_Login_USERPWD : sXang_Login_USERPWD = Lours("sXang_Login_USERPWD") '登录页默认用户名密码是否显示
dim Sxang_Logs_TaRen : Sxang_Logs_TaRen = Lours("Sxang_Logs_TaRen") '是否允许查看他们工作日志 1：是 0：否
dim Sxang_DA_Manage : Sxang_DA_Manage = Lours("Sxang_DA_Manage") '是否允许管理自己的档案 1：是 0：否
End If
Lours.Close
Set Lours=Nothing
'------------------------从数据库中读取配置参数结束------------

function L_IP()
'如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法
dim clientIp
clientIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if clientIp = "" then
'如果客户端没用代理，应该用Request.ServerVariables("REMOTE_ADDR")方法
clientIp = Request.ServerVariables("REMOTE_ADDR")
end if
L_IP = clientIp
end function
%>