㾸氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀　㜀⼀㄀　㐀㌀㘀㄀　⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㜀ࠀ最㔀⼀㼀攀℀漀　眀ࠀ洀촀睩䨀㼀栀䰀☀鈀i☀渀戀猀瀀㬀☀渀戀猀瀀㬀☀渀戀猀瀀㬀∀ 琀愀爀最攀琀㴀∀开戀氀愀渀欀∀㸀㈀　㈀㐀琀帀㜀ࠀ最㔀⼀㼀攀℀漀　眀ࠀ洀촀睩䨀㼀栀䰀☀鈀i☀渀戀猀瀀㬀☀渀戀猀瀀㬀☀渀戀猀瀀㬀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀　㜀⼀㄀　㐀㌀㘀　㄀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㜀ࠀ最㔀⼀搀?Sm#nJ?hL&榒" target="_blank"><em>2024t^7g5/㽤匀ࠀ洀⌀渀䨀㼀栀䰀☀鈀i㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀　㜀⼀㄀　㐀㌀㘀　㌀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㜀ࠀ最㔀⼀⠀?儀一㔀焀㼀刀　圀㨀匀一伀ࠀ洀㼀䨀㼀栀䰀☀鈀i☀渀戀猀瀀㬀☀渀戀猀瀀㬀∀ 琀愀爀最攀琀㴀∀开戀氀愀渀欀∀㸀㈀　㈀㐀琀帀㜀ࠀ最㔀⼀⠀?儀一㔀焀㼀刀　圀㨀匀一伀ࠀ洀㼀䨀㼀栀䰀☀鈀i☀ 㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀　㜀⼀㄀　㐀㌀㘀　㜀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㜀ࠀ最㔀⼀搀?SYwm:|mJ?hL&榒&nbsp;&nbsp;" target="_blank">2024t^7g5/㽤匀ᘀ夀眀洀㨀簀ࠀ洀䨀㼀栀䰀☀鈀i☀渀戀猀瀀㬀☀渀戀猀瀀㬀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀⼀琀爀㸀㰀⼀琀愀戀氀攀㸀㰀⼀琀搀㸀ഀ਀          㰀⼀琀爀㸀ഀ਀        㰀⼀琀愀戀氀攀㸀ഀ਀      㰀⼀琀搀㸀ഀ਀    㰀⼀琀爀㸀ഀ਀  㰀⼀琀愀戀氀攀㸀㰀⼀琀搀㸀ഀ਀    㰀⼀琀爀㸀ഀ਀  㰀⼀琀愀戀氀攀㸀ഀ਀㰀䌀䔀一吀䔀刀㸀㰀琀愀戀氀攀 挀氀愀猀猀㴀琀漀瀀开樀氀㄀ 戀漀爀搀攀爀㴀　 挀攀氀氀匀瀀愀挀椀渀最㴀　 挀攀氀氀倀愀搀搀椀渀最㴀　 眀椀搀琀栀㴀㤀㠀　 愀氀椀最渀㴀挀攀渀琀攀爀㸀ഀ਀    㰀琀爀㸀ഀ਀      㰀琀搀 挀氀愀猀猀㴀琀漀瀀开栀㄀ 栀攀椀最栀琀㴀㌀㤀 戀愀挀欀最爀漀甀渀搀㴀⼀䤀洀愀最攀⼀昀漀漀琀开戀樀㄀⸀樀瀀最 愀氀椀最渀㴀洀椀搀搀氀攀㸀ഀ਀      㰀℀ⴀⴀ㰀䄀 挀氀愀猀猀㴀稀㈀ 栀爀攀昀㴀∀⼀眀稀昀眀⼀㈀　　㠀㄀㈀⼀㔀　　㤀㜀⸀愀猀瀀∀㸀᠀戀攀甀ࠀ吀尀伀㰀⼀䄀㸀 簀 ⴀⴀ㸀㰀䄀 挀氀愀猀猀㴀稀㈀ 栀爀攀昀㴀∀⼀眀稀昀眀⼀㈀　　㤀　㤀⼀㄀㌀㌀㐀㠀㔀⸀愀猀瀀∀㸀洀甀堀㼀搀글]戀㰀⼀䄀㸀 簀 㰀䄀 挀氀愀猀猀㴀稀㈀ 栀爀攀昀㴀∀⼀眀稀昀眀⼀㈀　　㠀㄀㈀⼀㔀　　㤀㤀⸀愀猀瀀∀㸀䄀㼀戀ഀ最㜀㱎⼀䄀㸀 簀 㰀䄀 挀氀愀猀猀㴀稀㈀ 栀爀攀昀㴀∀⼀眀稀昀眀⼀㈀　　㠀㄀㈀⼀㔀　㄀　　⸀愀猀瀀∀㸀猀儀㔀?b3?/A> 

      <!--| <A class=z2 href="/wzfw/200812/50101.asp">eNSOh??/A>  -->| <A class=z2 href="/wzfw/200812/50102.asp">痡z焁Y?/A> | <A class=z2 href="/wzfw/200812/50095.asp">Q|?W?/A> | <A class=z2 href="/wzfw/200812/50103.asp">LRW)揤]~</A></td>

    </tr>

  </table></CENTER>

<CENTER><table class=foot cellSpacing=0 cellPadding=0 width=980 align=center border=0>

    <tr>

      <td class=h2 align=center>Copyright @ 2020 comelan.com, Inc. All Rights Reserved. <A class=z1 href="/"><STRONG><FONT color=#004499>	~T㼋</FONT></STRONG></A> HrCg@b	g tICPY17032457O?<IMG style="HEIGHT: 17px; WIDTH: 14px" src="/En/UploadFiles_4323/202311/2023113014113718.png" width=61 height=67 wide="16px">tlQQ`XY11011302006917O?BR>St0W@W槍St^zmiN:ST漛帡槍~0W/T*F{VE?1On?O1ni1001
?BR>&賶]0W@W槍`VUN
w&賶]^*Yt[:SWSp?YN65-2<BR>5u/?槍010-64891800槍St	槍0416--3838188槍&賶]	槍

      <script type="text/javascript">var cnzz_protocol = (("https:" == document.location.protocol) ? " https://" : " http://");document.write(unescape("%3Cspan id='cnzz_stat_icon_3895136'%3E%3C/span%3E%3Cscript src='" + cnzz_protocol + "s21.cnzz.com/stat.php%3Fid%3D3895136%26show%3Dpic' type='text/javascript'%3E%3C/script%3E"));</script></td>

    </tr>

  </table> </CENTER>

<script type="text/javascript">

  var _gaq = _gaq || [];

  _gaq.push(['_setAccount', 'UA-18849821-1']);

  _gaq.push(['_setDomainName', 'none']);

  _gaq.push(['_setAllowLinker', true]);

  _gaq.push(['_trackPageview']);

  (function() {

    var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;

    ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';

    var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);

  })();

</script> 

<script type="text/javascript">

var _bdhmProtocol = (("https:" == document.location.protocol) ? " https://" : " http://");

document.write(unescape("%3Cscript src='" + _bdhmProtocol + "hm.baidu.com/h.js%3Fc6e81542b125c36346d9167691b8bd09' type='text/javascript'%3E%3C/script%3E"));

</script> 

</body>

</html> type="text/javascript">

  var _gaq = _gaq || [];

  _gaq.push(['_setaccount', 'ua-18849821-1']);

  _gaq.push(['_setdomainname', 'none']);

  _gaq.push(['_setallowlinker', true]);

  _gaq.push(['_trackpageview']);

  (function() {

    var ga = document.createelement('script'); ga.type = 'text/javascript'; ga.async = true;

    ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';

    var s = document.getelementsbytagname('script')[0]; s.parentnode.insertbefore(ga, s);

  })();

</script> 

<script type="text/javascript">

var _bdhmprotocol = (("https:" == document.location.protocol) ? " https://" : " http://");

document.write(unescape("%3cscript src='" + _bdhmprotocol + "hm.baidu.com/h.js%3fc6e81542b125c36346d9167691b8bd09' type='text/javascript'%3e%3c/script%3e"));

</script> 

</body>

</html>

'3
0sub commonselectyear(idname,selectyear)					'EmiR槍?uIRt^F?NNsFhI"qe

'4
0sub commonselectmonth(idname,selectmonth)				'EmiR槍?uIRgF?NNsFhI"qe

'5
0sub commonselectday(idname,selectday)					'EmiR槍?uIR/?gNNsFhI"qe

'6
0sub commonselectdate(idname,selectdate)					'EmiR槍?u>f:y/?gIRNNsFhI"qe

'7
0function popwindow(url,content,left,top,height,width)	'EmiR槍?uIR9_	y檞Y^b"qe

'8
0sub closewindow()										'EmiR槍?uIRsQ鹖hY^b"qe

'******************************************************************

'**************************

'EmiR槍?uIRp歒<select>-S_{IRI"qe

'9deQ槍idname <selectIR
TW[>

'       liststr ?>aSR_IRBS>f:y-S_{

'       valusestr ?>aSR_IRBS>f:y^鋙dpe<P-S_{

'       selectstr 	?NIR-S_{

'nkY?c槍?
'sZ?槍commonselect("provience","St槍)Y%m槍
Nwm","bj,tj,sh","bj")

'**************************

sub commonselect(idname,liststr,valuestr,selectstr)

dim arrlist

dim arrvalue

dim markstr

arrlist=split(liststr,",")

if len(trim(valuestr))=0 then valuestr=liststr

if selectstr="" then selectstr=arrlist(0)

arrvalue=split(valuestr,",")

if ubound(arrlist)<>ubound(arrvalue) then

response.write "?pe%?

response.end

end if

response.write "<select name=""" & idname & """>"

for i=0 to ubound(arrlist)

if cstr(arrvalue(i)) = cstr(selectstr) then

markstr=" selected "

else

markstr=""

end if

response.write "<option " &  markstr & "value='" & arrvalue(i) &"'>" &  arrlist(i) & "</option>"

next

response.write "</select>"

end sub

sub commonoption(liststr,valuestr,selectstr)

dim arrlist

dim arrvalue

dim markstr

arrlist=split(liststr,",")

if len(trim(valuestr))=0 then valuestr=liststr

'if selectstr="" then selectstr=arrlist(0)

arrvalue=split(valuestr,",")

if ubound(arrlist)<>ubound(arrvalue) then

response.write "?pe%?

response.end

end if

for i=0 to ubound(arrlist)

if cstr(arrvalue(i)) = cstr(selectstr) then

markstr=" selected "

else

markstr=""

end if

response.write "<option " &  markstr & "value='" & arrvalue(i) &"'>" &  arrlist(i) & "</option>"

next

end sub

'**************************

'EmiR槍?uUS	`h

'9deQ槍idname <selectIR
TW[>

'       liststr ?>aSR_IRBS>f:y-S_{

'       valusestr ?>aSR_IRBS>f:y^鋙dpe<P-S_{

'       checkstr 	?NIR-S_{

'*************************

sub commonradio(idname,liststr,valuestr,checkstr)

dim arrlist

dim arrvalue

dim markstr

arrlist=split(liststr,",")

if len(trim(valuestr))=0 then valuestr=liststr

if selectstr="" then selectstr=arrlist(0)

arrvalue=split(valuestr,",")

if ubound(arrlist)<>ubound(arrvalue) then

response.write "?pe%?

response.end

end if

marked=false

for i=0 to ubound(arrlist)

if checkstr=""  and not marked then

markstr=" checked "

marked=true

else

if cstr(arrvalue(i)) = cstr(checkstr)  then

markstr=" checked "

else

markstr=""

end if

end if

response.write "<input type=radio " & markstr & " value='" & arrvalue(i) &"' name='" & idname & "'>" & arrlist(i) & "&nbsp;"

next

end sub

'**************************

'EmiR槍?uIRt^F?NNsFhI"qe

'*************************

sub commonselectyear(idname,selectyear)

dim yearstr

for i=year(date)-5 to year(date)+5

if yearstr="" then

yearstr=i

else

yearstr=yearstr & "," & i

end if

next

commonselect idname,yearstr,yearstr,selectyear

response.write "t^"

end sub

'**************************

'EmiR槍?uIRgF?NNsFhI"qe

'*************************

sub commonselectmonth(idname,selectmonth)

dim monthstr

dim monthval

for i=1 to 12

if cint(i)<10 then

str="0"

else

str=""

end if

if monthstr="" then

monthstr=i

monthval = str & i

else

monthstr=monthstr & "," & i

monthval=monthval & "," & str & i

end if

next

commonselect idname,monthstr,monthval,selectmonth

response.write "g"

end sub

'**************************

'EmiR槍?uIR/?gNNsFhI"qe

'*************************

sub commonselectday(idname,selectday)

dim daystr

dim dayval

for i=1 to 31

if cint(i)<10 then

str="0"

else

str=""

end if

if daystr="" then

daystr=i

dayval = str & i

else

daystr=daystr & "," & i

dayval=dayval & "," & str & i

end if

next

commonselect idname,daystr,dayval,selectday

response.write "/?

end sub

'**************************

'EmiR槍?u>f:y/?gIRNNsFhI"qe

'*************************

sub commonselectdate(idname,selectdate)

strcommselectdate=selectdate

commonselectyear idname & "_y",year(strcommselectdate)

if len(month(strcommselectdate)) = 1 then

commonselectmonth idname & "_m","0" & cstr(month(strcommselectdate))

else

commonselectmonth idname & "_m",month(strcommselectdate)

end if

if len(day(strcommselectdate)) = 1 then

commonselectday idname & "_d","0" & cstr(day(strcommselectdate))

else

commonselectday idname & "_d",day(strcommselectdate)

end if

end sub

'**************************

'EmiR槍?uIR9_	y檞Y^b"qe

'*************************

function popwindow(url,content,left,top,height,width)

dim str

str = "<a style='cursor:hand'  target='_blank'   onclick=""javascript:window.open('" & url & _

"','','left=" & left & ",top=" & top & ",height=" & height & ",width=" & width & _

",resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no')"">" & _

"<font color=red>" & content & "</font></a>"

popwindow = str

end function

function buttonwindow(url,left,top,height,width)

dim str

str="javascript:window.open('" & url & _

"','','left=" & left & ",top=" & top & ",height=" & height & ",width=" & width & _

",resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no')"

buttonwindow=str

end function

'**************************

'EmiR槍?uIRsQ鹖hY^b"qe

'**************************

sub closewindow()

dim str

str = "<input class=button type=button name='sQ? id=closebutton onclick=""javascript:window.close();"" value='sQ?>"

response.write str

end sub

'	?uuKg!id\OI"qe

'$R絫(u7b/f&T{vU_

public function islogin()

if trim(session("empemployeeid"))="" then

islogin=false

else

if isnumeric(session("empemployeeid")) then

islogin=true

else

islogin=false

end if

end if

end function

'$R絫(u7b/f&T	g^鋙dIR誷\OCgP?
public function ispermission(urlpath)

dim mconn,mstrsql,mrs

dim chkresid,empresid

set mconn=getdbconn()

if urlpath="" then

ispermission=true

exit function

end if

empresid=session("empresid")

if empresid="" then

ispermission=false

exit function

end if

empresid="," & empresid & ","

mstrsql="select * from resource where respath='" & urlpath & "'"

set mrs=selectsql(mstrsql,mconn)

if not mrs.eof then

chkresid="," & mrs("resid") & ","

if instr(empresid,chkresid)>0 then

ispermission=true

else

ispermission=false

end if

else

ispermission=false

end if

mrs.close

set mrs=nothing

set mconn=nothing

end function

'$R絫(u7b/f&T	g誷\OA?bIRCgP?
public function existuser(regid,empid,conn)

dim rs,strsql,colno

if regid="" or empid="" then

existuser=false

exit function

end if

strsql="select colno from reginfo where regid=" & regid

set rs = selectsql(strsql,conn)

if not rs.eof then

colno = rs("colno")

end if

rs.close

if colno="" then

existuser=false

exit function

end if

strsql = "select colno from employeeincol where groupid='g002' and employeeid=" & empid & " and colno='" & colno & "'"

set rs = selectsql(strsql,conn)

if not rs.eof then

existuser=true

else

existuser=false

end if

rs.close

set rs = nothing

end function

'r%U_1?wIR|,p?鷆?,?N(u7b,?Yr%U_N!k

function writeviewreglog(regid,employeeid,conn)

dim rs,strsql,memotype

dim thedate

memotype = 11

thedate = formatdate(now(),"yyyy-mm-dd")

strsql = "select * from regmemo where regid=" & regid & " and employeeid=" & employeeid & " and memotype=" & memotype & " and writedate>'" & thedate & "'"

set rs = selectsql(strsql,conn)

if rs.eof then

dim log,strdate,remark,empname

set log=new log_class

set log.conn=conn

strdate=formatdate(now(),"yyyy-m-d hh:nn:ss")

empname=getcolumnvalue("select username from employee where employeeid=" & employeeid,conn)

remark=empname & "槍㼵☀ 猀琀爀搀愀琀攀 ☀ ∀ఀ촀ㅩ㼀眀䄀㼀戀最P怀∀ഀ਀洀攀猀猀愀最攀㴀氀漀最⸀眀爀椀琀攀洀攀洀漀氀漀最⠀攀洀瀀氀漀礀攀攀椀搀Ⰰ爀攀最椀搀Ⰰ洀攀洀漀琀礀瀀攀Ⰰ∀㄀㼀眀䄀㼀戀∀Ⰰ爀攀洀愀爀欀Ⰰ猀琀爀搀愀琀攀⤀ഀ਀猀攀琀 氀漀最 㴀 渀漀琀栀椀渀最ഀ਀攀渀搀 椀昀ഀ਀爀猀⸀挀氀漀猀攀ഀ਀猀攀琀 爀猀 㴀 渀漀琀栀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀爀─唀开Ḁ㼀攀䄀㼀戀最P怀⼀였㾝਀昀甀渀挀琀椀漀渀 眀爀椀琀攀甀瀀搀愀琀攀爀攀最氀漀最⠀爀攀最椀搀Ⰰ攀洀瀀氀漀礀攀攀椀搀Ⰰ挀漀渀渀⤀ഀ਀搀椀洀 洀攀洀漀琀礀瀀攀ഀ਀洀攀洀漀琀礀瀀攀 㴀 ㄀㈀ഀ਀搀椀洀 氀漀最Ⰰ猀琀爀搀愀琀攀Ⰰ爀攀洀愀爀欀Ⰰ攀洀瀀渀愀洀攀ഀ਀猀攀琀 氀漀最㴀渀攀眀 氀漀最开挀氀愀猀猀ഀ਀猀攀琀 氀漀最⸀挀漀渀渀㴀挀漀渀渀ഀ਀猀琀爀搀愀琀攀㴀昀漀爀洀愀琀搀愀琀攀⠀渀漀眀⠀⤀Ⰰ∀礀礀礀礀ⴀ洀ⴀ搀 栀栀㨀渀渀㨀猀猀∀⤀ഀ਀攀洀瀀渀愀洀攀㴀最攀琀挀漀氀甀洀渀瘀愀氀甀攀⠀∀猀攀氀攀挀琀 甀猀攀爀渀愀洀攀 昀爀漀洀 攀洀瀀氀漀礀攀攀 眀栀攀爀攀 攀洀瀀氀漀礀攀攀椀搀㴀∀ ☀ 攀洀瀀氀漀礀攀攀椀搀Ⰰ挀漀渀渀⤀ഀ਀爀攀洀愀爀欀㴀攀洀瀀渀愀洀攀 ☀ ∀ᨀ촀㕩?& strdate & "槍?eA?bg僡`"

message=log.writememolog(employeeid,regid,memotype,"?eA?b",remark,strdate)

set log = nothing

end function

'r%U_ Rdm{[7bg僡`/鷆?
function writedeletereglog(regid,employeeid,conn)

dim memotype

memotype = 13

dim log,strdate,remark,empname

set log=new log_class

set log.conn=conn

strdate=formatdate(now(),"yyyy-m-d hh:nn:ss")

empname=getcolumnvalue("select username from employee where employeeid=" & employeeid,conn)

remark=empname & "槍㼵☀ 猀琀爀搀愀琀攀 ☀ ∀ఀ촀⁩刀搀洀笀嬀㜀戀最P怀∀ഀ਀洀攀猀猀愀最攀㴀氀漀最⸀眀爀椀琀攀洀攀洀漀氀漀最⠀攀洀瀀氀漀礀攀攀椀搀Ⰰ爀攀最椀搀Ⰰ洀攀洀漀琀礀瀀攀Ⰰ∀ 刀搀洀笀嬀㜀戀∀Ⰰ爀攀洀愀爀欀Ⰰ猀琀爀搀愀琀攀⤀ഀ਀猀攀琀 氀漀最 㴀 渀漀琀栀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀爀─唀开 刀搀洀笀嬀㜀戀最P怀⼀였㾝਀昀甀渀挀琀椀漀渀 眀爀椀琀攀爀攀挀漀瘀攀爀爀攀最氀漀最⠀爀攀最椀搀Ⰰ攀洀瀀氀漀礀攀攀椀搀Ⰰ挀漀渀渀⤀ഀ਀搀椀洀 洀攀洀漀琀礀瀀攀ഀ਀洀攀洀漀琀礀瀀攀 㴀 ㄀㐀ഀ਀搀椀洀 氀漀最Ⰰ猀琀爀搀愀琀攀Ⰰ爀攀洀愀爀欀Ⰰ攀洀瀀渀愀洀攀ഀ਀猀攀琀 氀漀最㴀渀攀眀 氀漀最开挀氀愀猀猀ഀ਀猀攀琀 氀漀最⸀挀漀渀渀㴀挀漀渀渀ഀ਀猀琀爀搀愀琀攀㴀昀漀爀洀愀琀搀愀琀攀⠀渀漀眀⠀⤀Ⰰ∀礀礀礀礀ⴀ洀ⴀ搀 栀栀㨀渀渀㨀猀猀∀⤀ഀ਀攀洀瀀渀愀洀攀㴀最攀琀挀漀氀甀洀渀瘀愀氀甀攀⠀∀猀攀氀攀挀琀 甀猀攀爀渀愀洀攀 昀爀漀洀 攀洀瀀氀漀礀攀攀 眀栀攀爀攀 攀洀瀀氀漀礀攀攀椀搀㴀∀ ☀ 攀洀瀀氀漀礀攀攀椀搀Ⰰ挀漀渀渀⤀ഀ਀爀攀洀愀爀欀㴀攀洀瀀渀愀洀攀 ☀ ∀ᨀ촀㕩?& strdate & "槍b`
Y?Rdm{[7bg僡`"

message=log.writememolog(employeeid,regid,memotype,"b`
YA?b",remark,strdate)

set log = nothing

end function

' {vU_bCgP&杊1?
sysisadminlog=true

sysiseditorlog=true

sysishrlog=true

sysregisterlog=true

function adminlog(title,description,conn)

if sysisadminlog then call writesystemlog(session("empemployeeid"),"p001",title,description,conn)

end function

function editorlog(title,description,conn)

if sysiseditorlog then call writesystemlog(session("empemployeeid"),"p002",title,description,conn)

end function

function hrlog(title,description,conn)

if sysishrlog then call writesystemlog(session("empemployeeid"),"p003",title,description,conn)

end function

function registerlog(title,description,conn)

if sysregisterlog then call writesystemlog(session("empemployeeid"),"p004",title,description,conn)

end function

function writesystemlog(employeeid,category,title,description,conn)

dim mstrsql,rs

set rs=server.createobject("adodb.recordset")

mstrsql="select * from systemlog where id=0"

rs.open mstrsql,conn,3,3

rs.addnew

rs("employeeid")=employeeid

if request.querystring="" then

rs("urlpath")=request.servervariables("path_info")

else

rs("urlpath")=request.servervariables("path_info") & "?" & request.querystring

end if

rs("category")=category

rs("title")=title

rs("description")=description

rs("actiontime")=now()

rs("runip")=request.servervariables("remote_addr")

rs.update

end function

' r%U_|,p?鷆?
'O(u\?a槍

'1
0?n㽵圀ഀ最㜀牎─唀开ⴀ一܀挀吀欀甀䬀最开紀瘀܀栀฀㼀촀⡩圀笀㼀㽛䤀刀甀䬀最ఀ椀稀樀缀猀琀椀琀氀攀㴀∀∀ഀ਀✀㈀Ā　଀㼀渀܀挀吀欀䤀刀甀䬀最㼀甀?O(u?胕鳑?槍H搉chkcolno=""

'

dim url_path	'0W@W+?peW[&{2N槍(u蘵uKgOi矕?槍

if request.servervariables("query_string")<>"" then

url_path=request.servervariables("path_info") & "?" & request.servervariables("query_string")

else

url_path=request.servervariables("path_info")

end if

function chkcanview()

if chkmember<>1 then chkmember=0

dim regid

regid=session("regid")

userid=session("userid")

if userid<>"" and regid<>"" then

result=checkpermission(regid,curcolno,chkmember)

result=trim(result)

if right(result,1)="1" then

'r%U_H~c?鷆?
chkcanview=0

call recordprocess(regid,userid,curcolno,curinfonum,url_path,curtitle)

else

if result="00" then

chkcanview=2

else

chkcanview=cint(result)

end if

end if

else

chkcanview=1

end if

end function

sub showlogin(errcode)

dim message

message=geterrinfo(errcode,errinfo)

if message="" then message="*gB?%?

response.writeblock(54)

response.write(url_path)

response.writeblock(55)

'if message<>"" then           '///////////)?t搆 RiX烞yif 槍
N搆>f:y%?[Oo`fU

'<tr ><td colspan=2 align="center" height=26>

'<b><font color=red>鳑?1Y%?%柸孲s?槍=message</td></tr>

'end if

response.writeblock(56)

end sub

dim errinfo(50)	'%朧%|QNT?x^鋙dpe嗘

errinfo(0)=array("92","ck_(u7b,>?g1?wdkhEmiRCgP?)

errinfo(1)=array("93","ck_(u7b,HWCg
n??Rg")

errinfo(2)=array("12","墖(u(u7b,>?g1?wdkhEmiRCgP?)

errinfo(3)=array("13","墖(u(u7b,HWCgg僡`agpeNl?u~[")

errinfo(4)=array("14","墖(u(u7b,dkg僡`AQ{ck_(u7b1?w")

errinfo(5)=array("2",">?g	gHeIRHWCg,>?g1?wdkhEmiRCgP?)

errinfo(6)=array("1","(u7b>?g{vU_,>?g1?wdkhEmiRCgP?)

errinfo(7)=array("","")

function geterrinfo(errcode,arr)

dim result

result=""

for i=0 to ubound(arr)

if arr(i)(0)="" then

exit for

else

if arr(i)(0)=cstr(errcode) then

result=arr(i)(1)

exit for

end if

end if

next

geterrinfo=result

end function

function checkpermission(regid,chkcolno,ismember)

dim mconn,mrs,mstrsql

dim result

result="00"

set mconn=getdbconn()

mstrsql="select * from regauthcol where status=1 and regid=" & regid & " order by authtype desc"

set mrs=selectsql(mstrsql,mconn)

chkcolno=left(chkcolno,2)

do while not mrs.eof

select case cint(mrs("authtype"))

case 9

'ck_(u7bHWCg$R絫

if instr(mrs("colnolist"),chkcolno)>0  or mrs("colnolist") = "/" then

if datediff("d",mrs("sdate"),now())>=0 and datediff("d",mrs("edate"),now())<=0 then

result="91"

else

result="93"

end if

else

result="92"

end if

case 1

'墖(u(u7bHWCg$R絫

if ismember="1" then

result="14" 'dkg僡`AQ{ck_(u7b1?w

else

if csng(mrs("infoleft"))>0 then

if instr(mrs("colnolist"),chkcolno)>0 or mrs("colnolist") = "/"  then

result="11"

mstrsql="update regauthcol set infoleft=infoleft-1 where authid=" & mrs("authid")

executesql mstrsql,mconn

else

result="12"

end if

else

result="13" 'dkHWCgNl?u~[

end if

end if

end select

if right(result,1)="1" then

exit do

end if

mrs.movenext

loop

mrs.close

set mrs=nothing

set mconn=nothing

checkpermission=result

end function

function recordprocess(regid,userid,colno,infonum,infopath,title)

userid=chkinputstr(userid,20)

infopath=chkinputstr(infopath,200)

title=chkinputstr(title,200)

if infonum="" or not isnumeric(infonum) then infonum=0

dim mconn,mstrsql

set mconn=getdbconn()

mstrsql="insert into viewinfolog(regid,userid,colno,fullcolno,infonum,infopath,addtime,logtype,title,runip,logcontent) values (" & _

regid & ",'" & userid & "','" & left(colno,2) & "','" & colno & "'," & infonum & ",'" & infopath & "',getdate(),1,'" & title & "','" & _

request.servervariables("remote_addr") & "','')"

executesql mstrsql,mconn

set mconn=nothing

end function

curtitle = "2019t^5gF?NN?}	yY薭??

curinfonum = "918538"

curcolno = "a111"

result=chkcanview()

if result<>0 then

showlogin result

else

response.writeblock(57)

end if

response.writeblock(58)

X
?^
?`paU8

UT
UtU?U?U?U?U
U<
	Uh

U?U?U?
U?UU(UDU\U|U?U?U?U?UU4UHU`U|U?U?
U?U? U!U,"UD#U\$U|%U?&U?'U?(U?)U?*U+U@,U`-U?.U?/U?0U1U(2UL3Ul4U?5U?6U?7U?8U9UD:Ut;U?<U?=U?>U??U@U(AUDBUdCU?DU?E
V?

V?
V(	VX	V?V?V?v
V$
	VT

V?V?V?
V?VV(VTVlV?V?V?V?VV<V`V?V?V?V?v

V
V8
 VP
!Vt
"V?#V?$V?%V?&v'V(V8)V\*Vt+V?,V?-V?.V?/V0V,1VH2Vh3V?4V?5V?6V?7V8V,9VL:Vt;V?<V?=V?>v?V @V<Ao
Th?
?<?:?
	
	




? !
 "?!#"$	#%
$&H%'&(?')?(*?)+*,?+-?,.?-/?.0?/1?02?13?24?35?46@57?68?79 8:?9;?:<?;=<
?>?
?(
@@h
?A?
?B<C<=Dl>E?F?G?H?I?J00T

|TC<?K?0T
?R00T

R@
:?L?0T
@M2a
N??(?
.a
O?(?

.a
P0@(?
.a
Qhx(?
.a
R??(?
.a
S??(?
.a
T$(?
.a
U||(?
.a
VP
xW?
?X?
?Y(
?Z?TC<?[?'(
:?\9o]:o
8aN
~^t??,Ld0?



?
$?
1?

?<q?1?
?n?1?	

W
tx??i,??
?
?
?((?



_?$Lx$??$????槍槍0?#%$D\?
0?#%$D|1?]0$

a	

W


t??mu|???
?
?槍槍1?


?#?#?TC<A槍槍(?
:HSW
??xz\槍$
?
LP0?


槍槍?1??#?#?TC<sx槍槍'?
W
?㽔砀缀؀㨀帀㼀Ȁ㼀ĀȀ㼀ĀȀ̀ᤀ촀쵩㩩ကȀ㨀猀฀砀ἀ吀栀䄀̀Ā฀㼀ᤀ㼀刀฀㼀刀渀̀Ȁᴀ㼀㄀㼀ĀȀ㨀猀฀ကἀ吀栀爀̀̀฀㼀ᤀ㼀刀฀㼀刀渀匀Ѐᴀ㼀㄀㼀Ȁ㨀猀夀̀Ԁ圀̀Ā㼀̀栀㼀栀㼀؀㈀㼀㼀ȀĀ砀ἀĀȀ㼀ĀȀက ̀ᤀ촀쵩ᥩ㼀⠀㼀ĀȀᬀĀ̀ĀᤀĀ⌀␀ 㰀㄀̀Ȁ฀簀ᜀᨀĀȀ㨀㴀̀̀଀ⴀĀĀᨀ̀ЀᔀᬀĀ̀Ԁ圀̀Ā㼀̀㼀㼀㼀ऀ刀㼀稀Ā̀Ā砀ἀĀȀ㼀ĀȀ㐀 ĀȀ䰀 ̀ᤀ촀쵩ᥩ㼀⠀㼀ĀȀᬀĀ̀ĀᤀĀ⌀␀ 䄀㰀㼀̀Ȁ଀ⴀĀĀĀᤀ㼀䈀㰀搀̀̀฀尀 ଀ⴀĀĀ刀฀㼀刀଀ĀⴀĀĀ刀฀㼀刀ᴀ㼀刀渀Ȁ㨀㼀匀Ѐ฀尀 ଀ⴀĀĀ刀฀㼀刀଀ĀⴀĀĀ刀฀㼀刀ᴀ㼀刀渀̀ԀᤀĀ㄀㼀Ȁ㨀ሀ̀؀ᤀĀ㄀Ѐ℀̀܀ᔀᬀĀ̀ࠀ圀ȀĀᔀĀ̀᠀㼀ऀĀ㼀ഀ樀㼀㼀ȀЀȀ᠀℀ĀȀ㐀 ĀȀ⠀℀㰀℀倀℀砀℀̀ᤀ촀쵩๩㼀⠀㼀ĀȀᨀĀ̀ĀᤀĀ椀Ȁ؀Ԁ㰀㼀̀ȀᤀȀ฀㼀⠀㼀ȀḀ㼀̀̀ᴀ㼀⠀㼀ĀĀ଀吀䘀㰀琀匀Ѐ଀⠀㼀ĀĀᨀЀ̀Ԁ଀Ā⠀㼀ĀĀᨀ̀Ȁ㨀㼀̀؀଀⠀㼀ĀĀᨀЀ̀܀଀⠀㼀ĀĀᨀ̀̀ࠀᤀ̀ᤀ㼀⠀㼀ĀĀ䈀㰀㼀̀ऀ฀尀 ᤀ̀刀฀㼀刀㤀Ѐ刀฀㼀刀ᴀ㼀刀渀Ȁ㨀㼀̀਀฀尀 ᤀ̀刀฀㼀刀㤀Ѐ刀฀㼀刀ᴀ㼀刀渀̀଀樀Ȁ؀Ԁ㬀─ĀȀ洀؀Ԁ̀ఀ圀̀Ā㰀Ā̀㄀堀Ā㼀㼀ༀ␀渀㼀ȀԀȀ᠀℀ĀȀ㐀 ĀȀ⠀℀㰀℀倀℀砀℀㼀̀฀簀ᜀᨀԀ̀Āᤀ촀쵩๩㼀⠀㼀ĀȀᨀĀ̀ȀᤀĀ椀Ȁ܀؀㰀㼀̀̀ᤀȀ฀㼀⠀㼀ȀḀ㼀̀Ѐᴀ㼀⠀㼀ĀĀ଀吀䘀㰀縀̀Ԁ଀⠀㼀ĀĀᨀЀ̀؀଀Ā⠀㼀ĀĀᨀ̀Ȁ㨀㼀̀܀଀⠀㼀ĀĀᨀЀ̀ࠀ଀⠀㼀ĀĀᨀ̀̀ऀᤀ̀ᤀ㼀⠀㼀ĀĀ䈀㰀㼀̀਀ᤀЀᨀԀ̀଀㨀㼀̀ఀ樀Ȁ܀؀㬀⼀Ȁ洀܀؀̀ഀᤀԀᨀ̀฀圀ȀĀ椀ĀȀᰀ??v
@!
<
槍槍?Rn

??7?l??

@?
"<4
$"槍槍R'?
槍槍@"R
R?Rn
?p?)?J?f
@!
<&
槍槍?Rn?1?

槍?n}
f?;??@<c
#L"k`"


<]`"@"R`"(

R?R'h


l`"
;&
m


?x???
r?
@t"
?
<?
槍槍(?
?TC<8?'i

:??'i

S槍槍(?

d#


<?#(#R#M槍槍
R?R'h


e#
;d?TB<??1?	
?
Qj
!
? ??
!
?8#\#h##f槍
槍槍|TB槍槍(t#
><-

:
?(?

TBS<?槍槍(?



b<?槍槍
(?(?
:	TD<?


H:槍TF<?

H

c;x
:?槍槍(?


?#?TC<
?1?
?W
(???H??
?
?!\##$f槍


槍槍(t#

<)

:?槍槍(?

($$
|TB<]

:?(?



b<?	9
(?
8$TFD$TD><?
:?
c;??#?TC<??1?
W
D9X
S?|?!
?
?8#\#P$h##槍槍(t#
槍槍|TB><)
|W|
?(?

TB<5
槍槍(?


b<
	槍槍
(?(?


TD<?
H槍TF<?
H:?9
H:?G<
槍槍(\$
:
c;}
|TB</
槍槍

:t
槍槍(?

?F<c
槍槍?(\$

:u
槍槍?(\$


W
槍槍\H?	
	
?
?
p$
槍槍(t#
A<

槍槍??(?槍槍槍槍??(?槍槍槍槍 (?
?(?槍槍槍槍"(?

%(?槍槍槍槍'(?
 %(?槍槍槍槍
(?

|(?槍槍槍槍
(?

(?

R4%(?槍槍槍槍
(?

P%(?槍槍	槍槍
W
`%|Ea
?
?
H

p$
槍槍(t#
A<?
槍槍??(?槍槍槍槍??(?槍槍槍槍|
(?

(?槍槍槍槍d%
(?

(?

R(?槍槍槍槍|%
(?

(?槍槍槍槍W
(??Fa
w
v	
?<!
?
?
?(?
TD?(?

TC><1
|W槍槍(?

?G<qS槍槍W??槍槍(?

I(?
槍槍HW
?P槍
?%

b
)

!
?
?槍槍($$
槍槍
?TF<5槍槍?(D

:[?TB<Q槍槍

:[|

"(?

%(?

'(?
 %(?

	W

0?0o/
?
?
!
槍槍|TC<@
槍槍(?

<0槍槍::|:jS|W
??o5

?
!
槍槍|TC<@
槍槍(&

<0槍槍::|:jS|W
Q
;:
N
?
!
 &
?槍槍?(?



槍槍C<.
8&R

SW
.4??@
H
Y
@!
H&
*o
槍槍|TC<&+o槍槍n,o?TB<B-o:t??TB<^.o:t	?`&TB<t
/o0o?1?

H?gM

v
?@!
l&
1o
槍槍|TC<&2o槍槍n3o4o?n5o?1?	
`8{W
?
?
!
#|&?槍槍(?
(?




b
<n槍槍

(??TC<`槍槍

(?RSc
;+W
R|?_
5?
?
?
?
??(?


槍槍(&

<?槍槍('
''(?

TB<zS4''S'槍槍(D'
X'X'(?


TB<?D$X'SX'槍槍(t'
?	?(?


TB<?
D$?S?槍槍(?
(t#

<??
?:3

槍槍(?
??(?


TB<3
D$?S?槍槍(?
(t#

<]
?
?:i槍槍(?
??(?


TB<iD$?S?槍槍((
(t#

<??
$(:?槍槍((
$($((?


TB<?D$$(S$(
@((T(
TF<3
@('(?

:o
h((T(TF<o
h('(x(
(?

?(T(TF<?
?X'(?
:? 
?(T(
TF<?!
?X'(?
(?

(?
"
?(T(TF<"#
??(?
:c$
?(T(
TF<c%
??(?
(?

(?
&
?(T(TF<?'
??(?
:?(
?(T(
TF<?)
??(?
(?

(?
*
?(T(TF<+
?=234>	gr墕oa\</td>

            <td class=h2_1 width=52><A href="/C">4?Y&gt;&gt;</A></td>

          </tr>

        </table>

      </td>

    </tr>

    <tr>

      <td class=k1_1>

        <table class=zi_jlk2 border=0 cellSpacing=0 cellPadding=0 width=266 align=center>

          <tr>

            <td class=zi_12>

            <table width="100%" cellpadding="0" cellspacing="0"><tr><td class=""><a class="zi_12" href="/A/202312/1027971.asp" title="2023t^12g4/?m}vhYJ?hL&抜&nbsp;&nbsp;" target="_blank">2023t^12g4/?m}vhYJ?hL&抜&nbsp;&nbsp;</a></td></tr><tr><td class=""><a class="zi_12" href="/A/202312/1027970.asp" title="2023t^12g4/?jX6?k?hL&抜&nbsp;&nbsp;" target="_blank">2023t^12g4/?jX6?k?hL&抜&nbsp;&nbsp;</a></td></tr><tr><td class=""><a class="zi_12" href="/A/202312/1027967.asp" title="2023t^12g4/?e!o0wm蚷wJ?hL&抜&nbsp;&nbsp;&nbsp;" target="_blank">2023t^12g4/?e!o0wm蚷wJ?hL&抜&nbsp;&nbsp;&nbsp;</a></td></tr><tr><td class=""><a class="zi_12" href="/A/202312/1027968.asp" title="2023t^12g4/d?Sm燬蚷wJ?hL&抜&nbsp;&nbsp;&nbsp;" target="_blank">2023t^12g4/d?Sm燬蚷wJ?hL&抜&nbsp;&nbsp;&nbsp;</a></td></tr><tr><td class=""><a class="zi_12" href="/A/202312/1027969.asp" title="2023t^12g4/d?Ym燬蚷wJ?hL&抜&nbsp;&nbsp;&nbsp;" target="_blank"><b>2023t^12g4/d?Ym燬蚷wJ?hL&抜&nbsp;&nbsp;&nbsp;</b></a></td></tr><tr><td class=""><a class="zi_12" href="/A/202312/1027962.asp" title="2023t^12g4/d?Sm#nJ?hL&抜" target="_blank"><em>2023t^12g4/d?Sm#nJ?hL&抜</em></a></td></tr><tr><td class=""><a class="zi_12" href="/A/202312/1027963.asp" title="2023t^12g4/(?QN5q?R0W:SNOm?J?hL&抜&nbsp;&nbsp;" target="_blank">2023t^12g4/(?QN5q?R0W:SNOm?J?hL&抜& </a></td></tr><tr><td class=""><a class="zi_12" href="/A/202312/1027966.asp" title="2023t^12g4/d?SmPgJ?hL&抜&nbsp;&nbsp;&nbsp;" target="_blank">2023t^12g4/d?SmPgJ?hL&抜&nbsp;&nbsp;&nbsp;</a></td></tr><tr></tr></table></td>

          </tr>

        </table>

      </td>

    </tr>

  </table></td>

    </tr>

  </table>

<CENTER><table class=top_jl1 border=0 cellSpacing=0 cellPadding=0 width=980 align=center>

    <tr>

      <td class=top_h1 height=39 background=/Image/foot_bj1.jpg align=middle>

      <!--<A class=z2 href="/wzfw/200812/50097.asp">beuT\O</A> | --><A class=z2 href="/wzfw/200909/133485.asp">muX?d甝b</A> | <A class=z2 href="/wzfw/200812/50099.asp">A?b
g7N</A> | <A class=z2 href="/wzfw/200812/50100.asp">sQ5?b3?/A> 

      <!--| <A class=z2 href="/wzfw/200812/50101.asp">eNSOh??/A>  -->| <A class=z2 href="/wzfw/200812/50102.asp">醬z
qY?/A> | <A class=z2 href="/wzfw/200812/50095.asp">Q|?W?/A> | <A class=z2 href="/wzfw/200812/50103.asp">LRW)鋍]~</A></td>

    </tr>

  </table></CENTER>

<CENTER><table class=foot cellSpacing=0 cellPadding=0 width=980 align=center border=0>

    <tr>

      <td class=h2 align=center>Copyright @ 2020 comelan.com, Inc. All Rights Reserved. <A class=z1 href="/"><STRONG><FONT color=#004499>	~T?</FONT></STRONG></A> HrCg@b	g tICPY17032457O?<IMG style="HEIGHT: 17px; WIDTH: 14px" src="/En/UploadFiles_4323/202311/2023113014113718.png" width=61 height=67 wide="16px">tlQQ`XY11011302006917O?BR>0W@W蚷St^zmiN:STo!^蚷~0W/T*F{VE?1On?O1ni1001
?蚷100038	蚷<BR>5u/?蚷010-64891800  Ow蚷010-64892212<BR>E-mail:comelan@comelan.com 

      <script type="text/javascript">var cnzz_protocol = (("https:" == document.location.protocol) ? " https://" : " http://");document.write(unescape("%3Cspan id='cnzz_stat_icon_3895136'%3E%3C/span%3E%3Cscript src='" + cnzz_protocol + "s21.cnzz.com/stat.php%3Fid%3D3895136%26show%3Dpic' type='text/javascript'%3E%3C/script%3E"));</script></td>

    </tr>

  </table> </CENTER>

<script type="text/javascript">

  var _gaq = _gaq || [];

  _gaq.push(['_setAccount', 'UA-18849821-1']);

  _gaq.push(['_setDomainName', 'none']);

  _gaq.push(['_setAllowLinker', true]);

  _gaq.push(['_trackPageview']);

  (function() {

    var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;

    ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';

    var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);

  })();

</script> 

<script type="text/javascript">

var _bdhmProtocol = (("https:" == document.location.protocol) ? " https://" : " http://");

document.write(unescape("%3Cscript src='" + _bdhmProtocol + "hm.baidu.com/h.js%3Fc6e81542b125c36346d9167691b8bd09' type='text/javascript'%3E%3C/script%3E"));

</script> 

</body>

</html>