📄 yyw_preview_change.asp.bak

📁 自动化网络办公系统全部源码officeanywheresystem
💻 BAK
字号:
 
<%'--------------------------------------------------------------------------
'      Project: AMBER-SOFT网络办公系统
'      Module : 总务管理
'      By: imafar
'      Discription: 资产管理列表演示-
'--------------------------------------------------------------------------%>
<%response.expiresabsolute=#jan 01,1980 00:00:00#
if session("userid")="" then
	response.write "<SCRIPT LANGUAGE='JavaScript'>"&chr(13)
			response.write "<!--"&chr(13)
			response.write "parent.location.href=""/error/error.htm"""&chr(13)&chr(13)
			response.write "//-->"&chr(13)
			response.write "</SCRIPT>"&chr(13)
end if
%>
<!--#include virtual="/_inc/GeneralADO.asp"-->



<html>
<head>
<title>资产管理列表演示-</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="<%=session("css")%>operation.css" type="text/css">
<SCRIPT LANGUAGE="JavaScript" src="/js/popwin.js">
</SCRIPT>

<SCRIPT LANGUAGE="JavaScript">
<!--
function popwin(iParam,jParam){
Win1=window.open("yyw_view.asp?id="+iParam+"&name="+jParam,"","fullscreen=1,toolbar=0,location=0,directories=0,status=0,menubar=0,resizable=0");
			var windowX = window.screen.width ;
			var windowY = window.screen.height;
			Win1.resizeTo(425,383);
			Win1.moveTo((windowX-720)/2,(windowY-420)/2);
			Win1.focus();
}





//-->
</SCRIPT>

</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<%
	priv1=request("priv1")
	priv2=request("priv2")
	priv3=request("priv3")
	priv4=request("priv4")
	priv5=request("priv5")
	priv6=request("priv6")
	priv7=request("priv7")
	priv8=request("priv8")
	priv9=request("priv9")
	priv10=request("priv10")
KEY_BEGIN=request("begin")
	KEY_END=request("end")
	KEY_Class=request("class")
	KEY_bm=request("bm")
	KEY_product=request("product")
	KEY_user=request("user")
	submitit=request("submitit")

'response.write key_product
'response.write KEY_user
'response.end

	if submitit<>"yes" then
		priv1=1
		priv2=1
		priv3=1
		priv4=1
		priv5=1
		priv6=1
		priv7=1
		priv8=1
		priv9=1
		
	end if


'response.write priv1


	SqlWhere="YW_TABLE.STATE='未成功'and YW_TABLE.LBID=YW_LB.LBID AND YW_TABLE.PRODUCTID=YW_PRODUCT.PRODUCTID AND   yw_danwei.id=yw_product.danweiid AND YW_TABLE.Creator_id=USERINFO.ID AND YW_TABLE.BMID=[GROUP].ID and [GROUP].TYPE=1"





	'------------- SELECT 框 类型 ---------
	If KEY_Class <> "" Then	'类别筛选条件
		if len(SqlWhere)>0 then 
	SqlWhere=sqlwhere &" and LBNAME='" & Str2vbStr(KEY_Class) & "'"
		else
			SqlWhere=SqlWhere & " LBNAME='" & Str2vbStr(KEY_class) & "'"
		end if
	end if

	

	'------------- SELECT 框 类型 ---------
	If KEY_bm <> "" Then	'类别筛选条件
		if len(SqlWhere)>0 then 
			SqlWhere=SqlWhere & " AND [GROUP].NAME='" & Str2vbStr(KEY_bm)& "'"
		else
			SqlWhere=SqlWhere & " [GROUP].NAME='" & Str2vbStr(KEY_bm) & "'"
		end if
	end if

	'------------- TEXT 框 类型 ---------
	If KEY_product <> "" Then	'类别筛选条件
		if len(SqlWhere)>0 then 
			SqlWhere=SqlWhere & " AND PRODUCTNAME like '%" & Str2vbStr(KEY_product) & "%'"
		else
			SqlWhere=SqlWhere & " PRODUCTNAME like '%" & Str2vbStr(KEY_product) & "%'"
		end if
	end if


	'------------- TEXT 框 类型 ---------
	If KEY_user <> "" Then	'类别筛选条件
		if len(SqlWhere)>0 then 
			SqlWhere=SqlWhere & " AND USERINFO.NAME like '%" & Str2vbStr(KEY_user) & "%'"
		else
			SqlWhere=SqlWhere & " USERINFO.NAME like '%" & Str2vbStr(KEY_user) & "%'"
		end if
	end if

    Set oTBL = CreateObject("Amber.Table")
	otbl.setconnection oCon
	otbl.pagesize=10
	'otbl.debugsql=true

	'otbl.setsql "SELECT yw_danwei.name as dname, yw_id,USERINFO.NAME AS UNAME,clintid,LBNAME,PRODUCTNAME,[GROUP].NAME AS GNAME ,YW_TABLE.SL AS YSL,YW_TABLE.PRICE AS YPRICE,STATE, YW_TABLE.SL*YW_TABLE.PRICE as total FROM yw_danwei, YW_TABLE, YW_LB,YW_PRODUCT,USERINFO,[GROUP] ",sqlWhere
	response.write sqlwhere
response.end
	otbl.tablestyle.stylestring=" width=""100%"" border=""1"" cellspacing=""0"" cellpadding=""0"" bordercolorlight=""#C1C1C1"" bordercolordark=""#FFFFFF"""

	'-----------		chaxun ----------------

	otbl.querystring.add "priv1",priv1
	otbl.querystring.add "priv2",priv2
	otbl.querystring.add "priv3",priv3
	otbl.querystring.add "priv4",priv4
	otbl.querystring.add "priv5",priv5
	otbl.querystring.add "priv6",priv6
	otbl.querystring.add "priv7",priv7
	otbl.querystring.add "priv8",priv8
	otbl.querystring.add "priv9",priv9
	'otbl.querystring.add "priv10",priv10
otbl.querystring.add "begin", KEY_BEGIN
otbl.querystring.add "end", KEY_END
	otbl.querystring.add "Class", KEY_Class
	otbl.querystring.add "bm", KEY_bm
	otbl.querystring.add "product", KEY_product
	otbl.querystring.add "user", KEY_user
	otbl.querystring.add "submitit",submitit

	'----------------------------------------
	otbl.title.intable=true
	otbl.title.style.stylestring="align=""center"""
    'oTBL.Footer.value = "<hr>%&_RECCOUNT_% contact(s).<br>"
    oTBL.Header.Style.stylestring=" align=""center"" bgcolor=""#E3E2DB"""
	'oTBL.turnPage.Style.bgcolor="#CCFFFF"
	'oTBL.Footer.Style.bgcolor="#CCFFFF"
	'oTBL.AddDefaultCols "bgcolor=#CCFFFF"
	'otbl.addcolumn "Click","&nbsp;","<img  onClick=""parent.location.href='contact.asp?contact_id=%&Contact_id%'"" src=""/images/images/amend.gif"" border=0>","width=""1%"" bgcolor=""#EEEDE8"""
if priv1="1" then otbl.addcolumn "ID","编 号","%&_RECNO_%"," align=""center""  bgcolor=""#F4F3F0""width=12% "

		if priv2="1" then otbl.addcolumn "GNAME","部 门","%&GNAME%"," align=""center""  bgcolor=""#F4F3F0""width=16%"

		if priv3="1" then otbl.addcolumn "uname","人 员","%&UNAME%"," align=""center"" bgcolor=""#F4F3F0""width=16%"

		if priv4="1" then otbl.addcolumn "lbname","类 别","<span title=""%&lbname%""><Function>left(%&lbname%,10,<font color=#FF0000>.</font>,3,5)</Function></span>"," align=""center"" bgcolor=""#F4F3F0"" width=20%"

		if priv5="1" then otbl.addcolumn "PRODUCTNAME","产 品","<span title=""%&PRODUCTNAME%""><Function>left(%&PRODUCTNAME%,10,<font color=#FF0000>.</font>,3,5)</Function></span>"," align=""center"" bgcolor=""#F4F3F0"""

		if priv6="1" then otbl.addcolumn "YPRICE","单 价（元）","%&YPRICE%"," align=""center"" bgcolor=""#F4F3F0"""

		if priv7="1" then otbl.addcolumn "YSL","数 量","%&YSL%（%&dname%）"," align=""center"" bgcolor=""#F4F3F0"""

		'if priv7="1" then otbl.addcolumn "merchant_price","合 计","%&merchant_price%","align=""center"" bgcolor=""#F4F3F0"""

		if priv8="1" then otbl.addcolumn "total","金 额（元）","%&total%","align=""center"" bgcolor=""#F4F3F0"""

		if priv9="1" then 
		if sbPageAuthority("YWGL_1_3","mod",session("userid"))="" then
		otbl.addcolumn "state","状 态","<A HREF=""#"" onclick=""popwin('%&yw_id%','<Function>Str2JSStr(%&PRODUCTNAME%)</Function>');"">%&state%</A>"," align=""center"" bgcolor=""#F4F3F0""width=20%"
		else
otbl.addcolumn "state","状 态","%&state%"," align=""center"" bgcolor=""#F4F3F0"""
		end if
		end if

		if priv1="1" then 
			'otbl.cols("ID").sort=true											'排序
			'otbl.cols("ID").sortfield1="id"										'排序

			'otbl.cols("ID").sortfield2="total"
			'otbl.cols("ID").statcaption="统计"
		end if
		if priv2="1" then
		otbl.cols("GNAME").sort=true					'如果把它们隐藏,就不能单独排序,即点击它就会跳到首列
			otbl.cols("GNAME").sortfield1="GNAME"           '如果把它们隐藏,就不能单独排序,即点击它就会跳到首列
			otbl.cols("GNAME").sortfield2="[GROUP].NAME"

		end if
		if priv3="1" then
		otbl.cols("uname").sort=true					'如果把它们隐藏,就不能单独排序,即点击它就会跳到首列
			otbl.cols("uname").sortfield1="USERINFO.NAME"           '如果把它们隐藏,就不能单独排序,即点击它就会跳到首列
'			otbl.cols("uname").sortfield2="total"

		end if
		if priv4="1" then
			otbl.cols("lbname").sort=true
			otbl.cols("lbname").sortfield1="lbname"
			'if priv9="1" then
			'	otbl.cols("lbname").sortfield2="total"
			'else
			'	otbl.cols("lbname").sortfield2="YSL"
			'end if
			'otbl.cols("lbname").statcaption="类别统计"
		end if
		if priv5="1" then
		otbl.cols("PRODUCTNAME").sort=true
		otbl.cols("PRODUCTNAME").sortfield1="PRODUCTNAME"
'			if priv9="1" then
'				otbl.cols("PRODUCTNAME").sortfield2="total"
'			else
'				otbl.cols("PRODUCTNAME").sortfield2="YSL"
'			end if
'			otbl.cols("PRODUCTNAME").statcaption="踪迹"
		end if

if priv6="1" then 
			otbl.cols("YPRICE").sort=true											'排序
			otbl.cols("YPRICE").sortfield1="YPRICE"										'排序

			'otbl.cols("ID").sortfield2="total"
			'otbl.cols("ID").statcaption="统计"
		end if
		
if priv7="1" then 
			otbl.cols("YSL").sort=true											'排序
			otbl.cols("YSL").sortfield1="YSL"										'排序

			'otbl.cols("ID").sortfield2="total"
			'otbl.cols("ID").statcaption="统计"
		end if
if priv8="1" then 
			otbl.cols("total").sort=true											'排序
			otbl.cols("total").sortfield1="total"										'排序

			'otbl.cols("ID").sortfield2="total"
			'otbl.cols("ID").statcaption="统计"
		end if
if priv9="1" then 
			otbl.cols("state").sort=true											'排序
			otbl.cols("state").sortfield1="state"										'排序

			'otbl.cols("ID").sortfield2="total"
			'otbl.cols("ID").statcaption="统计"
		end if

	'otbl.space="（无）"
	'otbl.statcaption="小蓟"
	otbl.imagePath="/images/amber-table/002/"	
	'otbl.cols("delete").caption="删除"
	
	'otbl.keyfield="id"
	'otbl.delconfirm="确定要删除么?"
	oTBL.company=""
	'oTBL.createtable

	'otbl.displaytable
	otbl.writetable
	'otbl.writereport
	set otbl=nothing

	''''''	if priv1="1" then 
	''报''		otbl.cols("ID").sort=true
	''''''		otbl.cols("ID").sortfield1="id"
	''表''		otbl.cols("ID").sortfield2="total"
	''''''		otbl.cols("ID").statcaption="统计"
	''''''	end if
%>
</body>
</html>
⌨️ 快捷键说明

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