checkright.asp

来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 1,233 行 · 第 1/4 页

ASP
1,233 行
字号
1234
'=============================================================================================
sub  ModifyData(strSql,strConn,strSuccessInfo)
	on error resume next
	strConn.execute(strSql)
	if strConn.Errors.Count>0 then
		PutModErrInf()
	else
		call PutPromptInfo(strSuccessInfo)
		call ModiReload ()
	end if
end sub

'=============================================================================================

'=============================================================================================
sub  DeleteData(strSql,strConn,strSuccessInfo)
	on error resume next
	strConn.execute(strSql)
	if strConn.Errors.Count>0 then
		PutDelErrInf()
	else
		call PutPromptInfo(strSuccessInfo)
	end if
end sub

'=============================================================================================

'=============================================================================================
SUB ModiReload()
	response.write "<script language=""JavaScript"">" & chr(13)
	response.write "window.close();" & chr(13)
	response.write "window.opener.document.location.reload();" & chr(13)
	response.write "</script>" & chr(13)
	response.end
END SUB

'=============================================================================================

'=============================================================================================
SUB ReloadParentWindow()
	response.write "<script language=""JavaScript"">" & chr(13)
	response.write "window.opener.document.location.reload();" & chr(13)
	response.write "</script>" & chr(13)
END SUB

'=============================================================================================

'=============================================================================================
SUB PutDelErrInf()
		response.write "<script language='JavaScript'>" & chr(13)
	    response.write "  alert('错误提示\n================================================\n\n可能的原因是其它的数据中有用到该数据的地方！\n\n在此你不能删除该数据，否则会造成数据的不完整或数据错误！');"
		response.write " history.back();"
	    response.write "</script>" & chr(13)
END SUB

'=============================================================================================

'=============================================================================================
SUB PutModErrInf()
		response.write "<script language='JavaScript'>" & chr(13)
	    response.write "  alert('错误提示\n================================================\n\n可能的原因是输入的数字过大或字串过长！\n\n在此你不能完成创建或修改操作，请检查你的数据错误！');"
		response.write " history.back();"
	    response.write "</script>" & chr(13)
END SUB

'=============================================================================================

'=============================================================================================
SUB PutInsertErrInf()
		'response.write "<br><table width='600' border='0' cellspacing='0' cellpadding='5' bordercolorlight='#000000' bordercolordark='#FFFFFF' align='center'>"
		'response.write "  <tr bgcolor='#EEEEEE'> "
		'response.write "    <td width='30' align='right'><image src='../images/error.gif'></td>"
		'response.write "    <td width='570'><font color='red'>操作错误：</font>可能的原因是输入的数字过大或字串过长！<br><br>　　　　　在此你不能完成创建或修改操作，请检查你的数据错误！</td>"
		'response.write "  </tr>"
		'response.write "</table>"

		response.write "<script language='JavaScript'>" & chr(13)
	    response.write "  alert('错误提示\n================================================\n\n可能的原因是输入的数字过大或字串过长！\n\n在此你不能完成创建或修改操作，请检查你的数据错误！');"
		response.write " history.back();"
	    response.write "</script>" & chr(13)		

		'response.write "<script language='JavaScript'>" & chr(13)
	    'response.write "  alert('╳ 操作错误！');"
		'response.write " history.back();"
	    'response.write "</script>" & chr(13)
		
		'response.end
END SUB

'=============================================================================================
'     f
'=============================================================================================
SUB check_date(vy1,vm1,vd1,errorthing)
select case vm1
case "1","3","5","7","8","10","12"
	cursor_days1=31
case "4","6","9","11"
	cursor_days1=30
case "2"
	if cint(vy1) mod 4=0 and cint(vy1) mod 100<>0 or cint(vy1) mod 400=0 then
		cursor_days1=29
	else
		cursor_days1=28
	end if
end select

if cint(vd1)>cursor_days1 then
		response.write "<br><table width='600' border='0' cellspacing='0' cellpadding='5' bordercolorlight='#000000' bordercolordark='#FFFFFF' align='center'>"
		response.write "  <tr bgcolor='#EEEEEE'> "
		response.write "    <td width='30' align='right'><image src='../images/error.gif'></td>"
		response.write "    <td width='570'><font color='red'>时间操作错误：</font><b>" & errorthing & "</b>中<font color=red>"&vy1&"</font>年<font color=red>"&vm1&"</font>月最多才<font color=red>"&cursor_days1&"</font>天！而你选择了<font color=red>"&vd1&"</font>天！</td>"
		response.write "  </tr>"
		response.write "</table>"
        
		response.write "<script language='JavaScript'>" & chr(13)
	    response.write "  alert('╳ 时间操作错误！');"
		response.write " history.back();"
	    response.write "</script>" & chr(13)

		response.end
end if
END SUB

'*******************************************************************************************************
'                                           私有   函数
'*******************************************************************************************************

'=============================================================================================
'     f
'=============================================================================================
function  getMingCheng(strSql,strConn)
	set rs = strConn.execute(strSql)
		if not rs.eof then
			getMingCheng= rs(0)	
		else
			getMingCheng= "无信息"
		end if
	set rs =nothing
end function

'=============================================================================================
'     f
'=============================================================================================
function ReplaceLineCarry(str)
	if str <> "" then
	ReplaceLineCarry = Replace(str," ","<br>")
	end if
end function

'=============================================================================================
'     f
'=============================================================================================
function ReplaceSpace(str)
	if str <> "" then
	ReplaceSpace = Replace(str," ","&nbsp;")
	end if
end function

'=============================================================================================
'     f
'=============================================================================================
function ReplaceQoute(str)
	if str <> "" then
		str = replace(str,"""","“")
	end if
end function

'=============================================================================================
'     f
'=============================================================================================
function HavenRight(nFileID,nUserID,strConn)
	sql = "select a.xinxiid from xinxishangbao a, ShangBaoBuMen b,usergroup c,[user] d where a.xinxiid = b.xinxiid and b.mingcheng=c.usergroup and c.usergroupid = d.usergroupid and a.xinxiid="& nfileid &" and d.userid=" & nUserID
	'Response.Write sql
	set rs = strConn.execute(sql)
		if not rs.eof then
			HavenRight=true
		else
			HavenRight = false
		end if
	set rs = nothing
end function

'=============================================================================================
'     f
'=============================================================================================

Function GetUser
if session("CurrentUserID") <> "" then
	sql = "select FullName from [user] where userid='"& session("CurrentUserID") &"'"
	set rs= conn.execute(sql)
	if not rs.eof then
	   GetUser= trim(rs("FullName"))
	else
	   GetUser="匿名用户"
	end if
	set rs= nothing
else
	GetUser="匿名用户"
end if
END FUNCTION

'=============================================================================================
'     f
'=============================================================================================
Function GetDepartment
if session("CurrentUserID") <> "" then
	sql = "select usergroup from [user] a, usergroup b where a.usergroupid = b.usergroupid and a.userid='"& session("CurrentUserID") &"'"
	set rs= conn.execute(sql)
	if not rs.eof then
	   GetDepartment= trim(rs("usergroup"))
	else
	   GetDepartment="匿名部门"
	end if
	set rs= nothing
else
	GetDepartment="匿名部门"
end if
End Function

'=============================================================================================
'     f
'=============================================================================================
function SelPeople(id)
selpeople = "<input type=hidden name='hidden"& id & "' value=''><input class=buttoncss value='选择人员' type=button name=subsel  onclick=""OpenNewWin('SelPeople.asp?txtid="& id & "','searfilewin','left=50,top=50,width=650,height=400,resizable=0,scrollbars=1,titlebar=0,status=0')"">"
end function

'=============================================================================================
'     f
'=============================================================================================
Function ReplaceTitle(title)
		ReplaceTitle = Replace (title,"、","<br>")
end function

'=============================================================================================
'     f
'=============================================================================================
Function ConvertTime(time)
ConvertTime = year(time) & "年" &month(time) & "月" & day(time)&"日"
End Function


'*******************************************************************************************************
'                                           私有   过程
'*******************************************************************************************************

'=============================================================================================
'     s
'=============================================================================================
Sub PrintCurrentUser (ModuleId)
    Response.Write("<font  color=Red>【当前用户】：</font>" & GetUser & "------你当前工作位置：首页>>")

    select case cint(ModuleId)
    case 1
	     Response.Write("今日工作")
	case 2
	     Response.Write("电子邮件")
	case 3
		 Response.Write("收文管理")
	case 4
	     Response.Write("发文管理")
	case 5
	     Response.Write("会议管理")
	case 6
	     Response.Write("领导活动")
	case 7
	     Response.Write("大事记")
	case 8
	     Response.Write("共用信息")
	case 9
		 Response.Write("系统设置")
	case 10
		 Response.Write("帮助系统")
	end Select
End Sub
''''''''''''''''''''审批人员'''''''''''''''''''''''''
'parameters: id as integer which suffixs to the textbox name and the  id hidden botton name
'role      : print the select botton and  people textbox
'description: names of textbox and hidden botton are dynamic .you can get the by this method
'txtval = request("txt" & id)
'hiddenval = request("hidden" & id)

'=============================================================================================
'     s
'=============================================================================================
sub WriteSelPeople(id)
      Response.Write("<input  class=noborder type=textbox name='chuliren"& id &"' size=10 readonly>" & "<input type=hidden name='hiddenchuliren"& id & "' value=''><input class=buttoncss value='选择人员' type=button name=subsel  onclick=""OpenNewWin('SelPeople.asp?txtid="& id & "','searfilewin','left=50,top=50,width=650,height=400,resizable=0,scrollbars=1,titlebar=0,status=0')"">")
end sub

'=============================================================================================
'     s
'=============================================================================================
sub SearcFile(intTableWidth,intTableheight,intdoctype)
	wz= request("wz")
	xh= request("xh")
	wjz = request("wjz")
	wjh = request("wjh")
	bt =  request("bt")
	ztc =  request("ztc")
	doctype=request.form("doctype")
	if doctype="" then
		doctype=100
	end if
    'response.write wz
	Response.Write("<table border=0 cellspacing=0 cellpadding=3 height="& intTableheight &"	width="& intTableWidth &" align=center>")
	Response.Write("<tr><td align=center colspan=2>公文查询</td></tr>")
	Response.Write("<tr><td>公文种类：<select name=wz><option value=-1>不限</option>")
	if intdoctype =-1 then
		sql="select gongwenzhongleiid as id,mingcheng from gongwenzhonglei  where doctype <> 2 "
	else
1234

checkright.asp - 源码说明

本页面展示了「投资管理系统, asp+ mssql server」中的 checkright.asp 源码文件，采用 ASP 编程语言编写，共 1,233 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与投资管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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