打印

将夏茂政府网2.1去掉OA办公子模块的办法

本主题由 haohao 于 2008-7-11 08:12 AM 置顶

haohao

数据125

系统光盘专员

Rank: 7 Rank: 7 Rank: 7

UID: 3
帖子: 808
精华: 94
积分: 3384
福德: 2453
金钱: 0
身份
阅读权限: 90
性别: 男
来自: 福建
在线时间: 89 小时
注册时间: 2006-6-19
最后登录: 2008-8-26

Medal No.1

发短消息
加为好友
当前离线

1^# 大中小发表于 2008-7-11 08:07 AM 只看该作者

将夏茂政府网2.1去掉OA办公子模块的办法

1、以admin身份登入管理后台，系统设置－权限设置处，对网站高级管理员、网站中级管理员、网站初级管理员的权限进行设置，将公共事务、个人办公、销售管理、合同管理、公文管理、信息交流、附件程序、系统管理、人力资源的权限全部去除，我的办公桌只留下人力资源权限，前台管理权限不变。这样以这三种身份登陆后台时，将只看到前台管理、我的办公桌。
2.修改/HX_managemain.asp文件
查找

复制内容到剪贴板

代码:

<frameset framespacing="0" border="false" rows="104,*,20" frameborder="0" scrolling="no">

<frame name="top" scrolling="no" noresize="noresize" src="HX_managemain.asp?Action=HXManage_top">

<frameset id="frame" framespacing="0" border="false" cols="160,*" frameborder="0" scrolling="no">

<frame name="left" scrolling="auto" noresize="noresize" marginwidth="0" marginheight="0" 



src="HX_managemain.asp?Action=HXManage_left"> 

<frame name="right" scrolling="auto" src="HX_managemain.asp?Action=HXManage_main">

</frameset>

<frame name="down" scrolling="no" noresize="noresize" marginwidth="0" marginheight="0" 



src="HX_managemain.asp?Action=HXManage_Down"> 

</frameset>

</frameset>

改为

复制内容到剪贴板

代码:

<frameset framespacing="0" border="false" rows="104,*,20" frameborder="0" scrolling="no">

<frame name="top" scrolling="no" noresize="noresize" src="HX_managemain.asp?Action=HXManage_top">

<frameset id="frame" framespacing="0" border="false" cols="160,*" frameborder="0" scrolling="no">

  <frame name="left" scrolling="auto" noresize="noresize" marginwidth="0" marginheight="0" 

src="admin/index.asp">  

                <frame name="right" scrolling="auto" src="admin/Admin_Default.asp">

        </frameset>

        <frame name="down" scrolling="no" noresize="noresize" marginwidth="0" marginheight="0"  

src="HX_managemain.asp?Action=HXManage_Down">     

        </frameset>

</frameset>

3. 修改HXINCLUDE/HX_FUNCTION.ASP文件
查找

复制内容到剪贴板

代码:

Sub HXManage_left()

   response.write "<body bgcolor=065485><div align=center><table width=100% cellspacing cellpadding align=center  

class=Titletd><tr><td width=100% height=10></td></tr><tr valign=top align=right><td width='100%'><table width=""118"" 

cellspacing=""10"" cellpadding align=""center"" border=""0"">"

   if WS_S.MemberPriv("WS_DeskMyoffice")=1 then response.write "<tr><td width=""100%"" align=""center""  

class=""include1""><a href=""HXPersonalOffice/index.asp"" 

onclick=""top.right.location='HXPersonalOffice/MyMessage.asp';""><font color=""#FFFFFF"">个人办公</font></a></td></tr>"

   if WS_S.MemberPriv("WS_DeskMyWORKFLOW")=1 then response.write "<tr><td width=""100%"" class=""include1"" 

align=""center""><a href=""HXWORKFLOW/index.asp"" onclick=""top.right.location='HXWORKFLOW/WorkFlowWaitList.asp';""><font 

color=""#FFFFFF"">公文管理</font></a></td></tr>"

   if WS_S.MemberPriv("WS_DeskMyPublicAffairs")=1 then response.write "<tr><td width=""100%"" class=""include1"" 

align=""center""><a href=""HXPublicAffairs/index.asp"" onclick=""top.right.location='HXPublicAffairs/viewdocument.asp';"" 

target=""left""><font color=""#FFFFFF"">公共事务</font></a></td></tr>"

   if WS_S.MemberPriv("WS_DeskMyManpowerResource")=1 then response.write "<tr><td width=""100%"" class=""include1"" 

align=""center""><a href=""HXManpowerResource/index.asp"" onclick=""top.right.location='HXManpowerResource/modify.asp';"" 

target=""left""><font color=""#FFFFFF"">人力资源</font></a></td></tr>"

   if WS_S.MemberPriv("WS_DeskMyInfoChange")=1 then response.write "<tr><td width=""100%"" class=""include1"" 

align=""center""><a href=""HXInfoChange/index.asp"" onclick=""top.right.location='HXInfoChange/hxtalkear.asp';"" 

target=""left""><font color=""#FFFFFF"">企业社区</font></a></td></tr>"

   'if WS_S.MemberPriv("WS_DeskMyHeareat")=1 then response.write "<tr><td width=""100%"" class=""include1"" 

align=""center""><a href=""HXPersonalOffice/Heareat.asp"" target=""right""><font 

color=""#FFFFFF"">我要定餐</font></a></td></tr>"   

   response.write "<tr> <td width=""100%"" class=""include1"" align=""center""><a href=""javascript:"" 

onClick=""openwin(430,200,'HX_ChangeUser.asp');""><font color=""#FFFFFF"">个人设置</font></a></td></tr><tr><td width=""100%"" 

class=""include1"" align=""center""><a href=""HXPersonalOffice/AttendanceOutEnrol.asp"" target=""right""><font 

color=""#FFFFFF"">外出登记</font></a></td></tr><tr><td width=""100%"" class=""include1"" align=""center""><a 

href=""HXPersonalOffice/AttendanceLeaveEnrol.asp"" target=""right""><font 

color=""#FFFFFF"">请假登记</font></a></td></tr><tr><td width=""100%"" class=""include1"" align=""center""><a 

href=""HXPersonalOffice/AttendanceEvectionEnrol.asp"" target=""right""><font 

color=""#FFFFFF"">出差登记</font></a></td></tr><tr><td width=""100%"" class=""include1"" align=""center""><a 

href=""HXPersonalOffice/AttendanceDutyEnrol.asp"" target=""right""><font 

color=""#FFFFFF"">上下班登记</font></a></td></tr></table></td></tr><tr><td width='100%' align='center' 

height='20'></td></tr></table></div>"

End Sub

改为

复制内容到剪贴板

代码:

Sub HXManage_left()

   response.write "<body bgcolor=065485><div align=center><table width=100% cellspacing cellpadding align=center  

class=Titletd><tr><td width=100% height=10></td></tr><tr valign=top align=right><td width='100%'><table width=""118"" 

cellspacing=""10"" cellpadding align=""center"" border=""0"">"

   if WS_S.MemberPriv("WS_DeskMyoffice")=1 then response.write "<tr><td width=""100%"" align=""center""  

class=""include1""><a href=""HXPersonalOffice/index.asp"" 

onclick=""top.right.location='HXPersonalOffice/MyMessage.asp';""><font color=""#FFFFFF"">个人办公</font></a></td></tr>"

   if WS_S.MemberPriv("WS_DeskMyWORKFLOW")=1 then response.write "<tr><td width=""100%"" class=""include1"" 

align=""center""><a href=""HXWORKFLOW/index.asp"" onclick=""top.right.location='HXWORKFLOW/WorkFlowWaitList.asp';""><font 

color=""#FFFFFF"">公文管理</font></a></td></tr>"

   if WS_S.MemberPriv("WS_DeskMyPublicAffairs")=1 then response.write "<tr><td width=""100%"" class=""include1"" 

align=""center""><a href=""HXPublicAffairs/index.asp"" onclick=""top.right.location='HXPublicAffairs/viewdocument.asp';"" 

target=""left""><font color=""#FFFFFF"">公共事务</font></a></td></tr>"

   if WS_S.MemberPriv("WS_DeskMyManpowerResource")=1 then response.write "<tr><td width=""100%"" class=""include1"" 

align=""center""><a href=""HXManpowerResource/index.asp"" onclick=""top.right.location='HXManpowerResource/modify.asp';"" 

target=""left""><font color=""#FFFFFF"">人力资源</font></a></td></tr>"

   if WS_S.MemberPriv("WS_DeskMyInfoChange")=1 then response.write "<tr><td width=""100%"" class=""include1"" 

align=""center""><a href=""HXInfoChange/index.asp"" onclick=""top.right.location='HXInfoChange/hxtalkear.asp';"" 

target=""left""><font color=""#FFFFFF"">企业社区</font></a></td></tr>"

   'if WS_S.MemberPriv("WS_DeskMyHeareat")=1 then response.write "<tr><td width=""100%"" class=""include1"" 

align=""center""><a href=""HXPersonalOffice/Heareat.asp"" target=""right""><font 

color=""#FFFFFF"">我要定餐</font></a></td></tr>"   

   response.write "<tr> <td width=""100%"" class=""include1"" align=""center""><a href=""javascript:"" 

onClick=""openwin(430,200,'HX_ChangeUser.asp');""><font color=""#FFFFFF"">个人设置</font></a></td></tr><tr><td width='100%' 

align='center' height='20'></td></tr></table></div>"

End Sub

查找

复制内容到剪贴板

代码:

Sub HXManage_Down()

   STATUSSET=request("STATUSSET")

   if WS_S.HX_ISNUM(STATUSSET) then  conn.execute("update HX_Online set WS_Staus="&STATUSSET&" where 

WS_Userid="&loginuid):WS_S.HX_Redirect "HX_managemain.asp?Action=HXManage_Down"

   WSOASCOMSTR="<script Language=JavaScript>function 

ChangeMemberStatus(){if(document.getElementById('ONSTATUS').style.display=='none')  

document.getElementById('ONSTATUS').style.display=''; else document.getElementById('ONSTATUS').style.display='none';}"

   WSOASCOMSTR=WSOASCOMSTR&"function 

MyOnStatus(){location='HX_managemain.asp?Action=HXManage_Down&STATUSSET='+document.getElementById('ONSTATUS').value;}</script

>"

   WSOASCOMSTR=WSOASCOMSTR&"<body bgcolor=065485 class='statusbar' topmargin='0' leftmargin='0' marginwidth='0' 

marginheight='0' onunload='CloseOpen(event)'><bgsound id='psd' name='psd' src='' loop='1'><table width='100%' cellspacing 

cellpadding><tr><td width='100%' height='20' class='Titletd'><table width='100%' cellspacing cellpadding class='td4'>"

   WSOASCOMSTR=WSOASCOMSTR&"<tr style=""color:#FFFFFF;filter:dropshadow(color=#666666,offx=1,offy=1,positive=1); WIDTH: 

100%;FONT-WEIGHT: bold;"">"

   WSOASCOMSTR=WSOASCOMSTR&"<td width='146' align='center'><b><font id='onlinecount' color='FFC0FF'></font></b></td><td 

width='32' align='center'><img onClick=""switchBar(this)"" src='HXIMAGES/HX_top_close.gif' title='关闭左边管理菜单' 

style='cursor:hand'></td><td width='90' align='center'><a href=""javascript:show_WEBSMS();"" class='menu' 

title='开启即时通'><img src='hximages/Websms/userface.gif' id='websms' name='websms' align='absmiddle' 

border='0'>即时通</a></td><td width='90' align='center'><a href='HX_WEBSMS/allsmsview.asp' target='right' class='menu' 

title='发短信'><img src='hximages/websms/websms.gif' id='comesms' name='comesms' align='absmiddle' border='0'>短 

信</a></td><td width='90' align='center'><a href='HXPersonalOffice/MyMessage.asp' target='right' class='menu'><img 

src='hximages/websms/change.gif' id='comesms' name='comesms' align='absmiddle' border='0'>邮 件</a></td><td><font 

color='#FFFFFF' title='更改状态'>您的登录身份："

   Call WS_S.HX_OutUserInfo(LOGINUID)

   WSOASCOMSTR=WSOASCOMSTR&Outdepartment&OutAppointment

   WSOASCOMSTR=WSOASCOMSTR&"　目前状态： <a onclick='ChangeMemberStatus()' 

style='cursor:hand'>"&WS_S.HX_OutStaus(WS_S.HX_OutOnline(2))&"</a></font>　<select class='SmallSelect' name='ONSTATUS' 

id='ONSTATUS' onchange='MyOnStatus()' style='display:none'><option value='0' "

   if WS_S.HX_OutOnline(2)=0 then WSOASCOMSTR=WSOASCOMSTR&"selected"

   WSOASCOMSTR=WSOASCOMSTR&">联机</option>     <option value='1' "

   if WS_S.HX_OutOnline(2)=1 then WSOASCOMSTR=WSOASCOMSTR&"selected"

   WSOASCOMSTR=WSOASCOMSTR&">忙碌</option> <option value='2' "

   if WS_S.HX_OutOnline(2)=2 then WSOASCOMSTR=WSOASCOMSTR&"selected"

   WSOASCOMSTR=WSOASCOMSTR&">离开</option> </select></td></tr></table></td></tr></table><iframe src='hxinclude/refresh.asp' 

width='0' marginwidth='0' height='0' marginheight='0' scrolling='no' hspace='0' vspace='0'></iframe>"

   RESPONSE.WRITE WSOASCOMSTR

End Sub

改为

复制内容到剪贴板

代码:

Sub HXManage_Down()

   STATUSSET=request("STATUSSET")

   if WS_S.HX_ISNUM(STATUSSET) then  conn.execute("update HX_Online set WS_Staus="&STATUSSET&" where 

WS_Userid="&loginuid):WS_S.HX_Redirect "HX_managemain.asp?Action=HXManage_Down"

   WSOASCOMSTR="<script Language=JavaScript>function 

ChangeMemberStatus(){if(document.getElementById('ONSTATUS').style.display=='none')  

document.getElementById('ONSTATUS').style.display=''; else document.getElementById('ONSTATUS').style.display='none';}"

   WSOASCOMSTR=WSOASCOMSTR&"function 

MyOnStatus(){location='HX_managemain.asp?Action=HXManage_Down&STATUSSET='+document.getElementById('ONSTATUS').value;}</script

>"

   WSOASCOMSTR=WSOASCOMSTR&"<body bgcolor=065485 class='statusbar' topmargin='0' leftmargin='0' marginwidth='0' 

marginheight='0' onunload='CloseOpen(event)'><bgsound id='psd' name='psd' src='' loop='1'><table width='100%' cellspacing 

cellpadding><tr><td width='100%' height='20' class='Titletd'><table width='100%' cellspacing cellpadding class='td4'>"

   WSOASCOMSTR=WSOASCOMSTR&"<tr style=""color:#FFFFFF;filter:dropshadow(color=#666666,offx=1,offy=1,positive=1); WIDTH: 

100%;FONT-WEIGHT: bold;"">"

   WSOASCOMSTR=WSOASCOMSTR&"<td width='146' align='center'><b><font id='onlinecount' color='FFC0FF'></font></b></td><td 

width='32' align='center'><img onClick=""switchBar(this)"" src='HXIMAGES/HX_top_close.gif' title='关闭左边管理菜单' 

style='cursor:hand'></td><td><font color='#FFFFFF' title='更改状态'>您的登录身份："

   Call WS_S.HX_OutUserInfo(LOGINUID)

   WSOASCOMSTR=WSOASCOMSTR&Outdepartment&OutAppointment

   WSOASCOMSTR=WSOASCOMSTR&"　目前状态： <a onclick='ChangeMemberStatus()' 

style='cursor:hand'>"&WS_S.HX_OutStaus(WS_S.HX_OutOnline(2))&"</a></font>　<select class='SmallSelect' name='ONSTATUS' 

id='ONSTATUS' onchange='MyOnStatus()' style='display:none'><option value='0' "

   if WS_S.HX_OutOnline(2)=0 then WSOASCOMSTR=WSOASCOMSTR&"selected"

   WSOASCOMSTR=WSOASCOMSTR&">联机</option>     <option value='1' "

   if WS_S.HX_OutOnline(2)=1 then WSOASCOMSTR=WSOASCOMSTR&"selected"

   WSOASCOMSTR=WSOASCOMSTR&">忙碌</option> <option value='2' "

   if WS_S.HX_OutOnline(2)=2 then WSOASCOMSTR=WSOASCOMSTR&"selected"

   WSOASCOMSTR=WSOASCOMSTR&">离开</option> </select></td></tr></table></td></tr></table><iframe src='hxinclude/refresh.asp' 

width='0' marginwidth='0' height='0' marginheight='0' scrolling='no' hspace='0' vspace='0'></iframe>"

   RESPONSE.WRITE WSOASCOMSTR

End Sub

查找

复制内容到剪贴板

代码:

Sub HXManage_main() 

   response.Write "<body topmargin='20' leftmargin='0' bottommargin='20' bgcolor='f1f1f1'>"

   set Nrs=WS_S.HX_SetRSD("top 20 *","HX_Notify"," where WS_NotifyToMan="&loginuid&" or WS_NotifyToMan=0 order by 

WS_NotifyDate desc")

   Orderby=" where WS_WorkFlowToMan="&loginuid&" and WS_WorkFlowFlag=1 and WS_WorkFlowQT=0 order by WS_WorkFlowDate desc"

   set Waitrs=WS_S.HX_SetRSD("top 50 *","HX_WorkFlow",Orderby)

   set mailrs=WS_S.HX_SetRSD("top 10 *","HX_MailChit"," where WS_MailToUid="&loginuid&" and WS_MailToDel=0 order by 

WS_MailSendDate desc")

   set ours=WS_S.HX_SetRSD("","HX_AttendanceOutEnrol"," where WS_AttendanceOutEnrolLEADERID="&loginuid&" and 

WS_AttendanceOutEnrolDate=#"&date&"# and WS_AttendanceOutEnrolFlag=1 order by WS_AOID asc")

   set urlrs=WS_S.HX_SetRSD("top 10 *","HX_WebUrlSearch","")  

   set rs=WS_S.HX_SetRSD("WS_VQID,WS_QuestionTitle,WS_QuestionVote","HX_VoteQuestion"," where WS_QuestionStartDate<= #" & 

Date() & "# and WS_QuestionEndDate>= #" & Date() & "# ")

   if rs.recordcount>0 then

N_Quest = rs("WS_QuestionTitle")

WS_QuestionID = Cint(rs("WS_VQID"))

if session("poll" & WS_QuestionID)<>"" and isnumeric(session("poll" & WS_QuestionID)) then PollNum = 

Cint(session("poll" & WS_QuestionID))

    set ars=WS_S.HX_SetRSD("","HX_VoteAnswer"," WHERE WS_VQID=" & WS_QuestionID)

C=ars.recordcount

ReDim A_Count(c)

  i=65

  p_total=0

  For N=1 to C

   A_Count(N)=ars("WS_VoteCount")

   WS_Void = ars("WS_Void")

   WS_AnswerTitle = ars("WS_AnswerTitle")

   p_total=p_total+A_Count(N)

         Content1=Content1 & "[" & chr(i) & "]<input type=""radio"" name=""poll"" checked class=""radio"" 

id="&chr(i)&" value=""" & WS_Void & """><label for="&chr(i)&">"

         Content1=Content1 & WS_AnswerTitle & "</label><br>"

  ars.MoveNext

  i=i+1

  Next

i=65

For N=1 to C

  if A_Count(N) = 0 then

   p_percent = 0

  Else

   p_percent = (A_Count(N)/p_total) * 100

  End If  

  Content20=Content20 & "<tr><td align=""right"" valign=""bottom"">[" & chr(i) & "]</td></tr>"

   Content21=Content21 & "<tr><td valign=""bottom""> <img src=""../HXimages/netvote/p1.gif"" width=""" & 

p_percent & """ height=""8"">  <font color=""#7C96B8"">" & FormatNumber(p_percent,2) & "% [" & A_Count(N) & 

"人]</font></td></tr>"

  Content30=Content30 & "<td width=""40"" valign=""bottom"" align=""center""><font color=""#7C96B8"">" & 

FormatNumber(p_percent,2) & "%</font><br><img src=""../HXimages/netvote/p2.gif"" width=""8"" height=""" & p_percent & """ 

vspace=""1""></td>"

  Content31=Content31 & "<td width=""40"" align=""center"">[" & chr(i) & "]</td>"

  i=i+1

Next

end if

    response.Write "<table width='99%'  border='0' cellspacing='0' cellpadding='0' align='center'><tr><td valign='top'><table 

width='100%' cellspacing=1 cellpadding=0 bgcolor='#CCCCCC'><tr><td width='100%' bgcolor='FFFFFF'><table width='100%' 

cellspacing=0 cellpadding=0><tr> <td height='23' background='hximages\titlebg.gif'> <img src='HXIMAGES/notify.gif' 

align='absmiddle'> <font color=FFFFFF>通知公告</font></td></tr>"

if Nrs.recordcount<=0 then

response.write "<tr><td background='hximages/line.gif' height='25'> 暂时还没有通知公告</td></tr>"

else

      ii=1

    do until Nrs.eof

  response.Write "<tr><td background='hximages/line.gif' height='20'> "&ii&"、<a href='javascript:'  

title='"&Nrs("WS_NotifyTitle")&"' 

onClick=""openwin(630,490,'HXPersonalOffice/ReadNotify.asp?WS_NNID="&Nrs("WS_NNID")&"')"">"&left(Nrs("WS_NotifyTitle"),20)&"<

/a></td></tr>"

  ii=ii+1

     Nrs.movenext

  loop

  end if

  response.Write "<tr><td height='20' align='right'><a href='HXPersonalOffice/Notify.asp'><font 

color=red>全部>></font></a> </td></tr></table></td></tr><tr><td width='100%' bgcolor='FFFFFF'><table width='100%' cellspacing 

cellpadding><tr> <td height='23' background='hximages\titlebg.gif'> <img src='hximages/erp.gif' align='absmiddle'>  

<font color=FFFFFF>待办公文</font></td></tr><tr> <td width='100%' align=center><table width='100%'  border='0' 

cellspacing='1' cellpadding='3' bgcolor=ffffff><form method='post' 

action='HXWORKFLOW/WorkFlowWaitList.asp?action=del&page="&page&"' name='form1'><tr bgcolor='#A1BBE0' class='td4'><td 

width='20' align=center><input type='checkbox' name='checkall' value='checkbox' onClick='chkall(this)' class='radio' 

style='background-color:A1BBE0;'></td><td width='117' align='center'>办文编号</td><td width='114' 

align='center'>标　　题</td><td width='63' align='center'>公文类别 </td><td width='117' align='center'>正　　文 </td><td 

width='68' align='center'>拟办意见</td><td width='52' align='center'>保密级别</td><td width='35' align='center'>附件</td><td 

width='62' align='center'>收文日期</td><td width='48' align='center'>状态</td><td width='61' align='center'>发文人</td></tr>"

if Waitrs.recordcount<=0 then

response.Write "<tr><td colspan=11  background='hximages/line.gif' height=25 align=center>暂时还没有待办公文！</td></tr>"

else

do while not Waitrs.EOF    

    response.Write "<tr bgcolor='#ECF2F2' onmouseover=javascript:this.bgColor='#F9F8F2' 

onmouseout=javascript:this.bgColor='#ECF2F2'> <td width='28' align=center><input type='checkbox' name='MAID' 

value='"&Waitrs("WS_FCID")&"' class='radio' style='background-color:ECF2F2;'></td><td 

width='140'>"&Waitrs("WS_WorkFlowNumber")&"</td><td width='156'>"&Waitrs("WS_WorkFlowTitle")&"</td><td width='61' 

align=center>"&WS_S.HX_OutWorkFlowType(Waitrs("WS_WorkFlowFlowType"))&"</td><td width='145' 

title='"&Waitrs("WS_WorkFlowContent")&"'>"&left(Waitrs("WS_WorkFlowContent"),10)&"</td><td width='83' 

title='"&Waitrs("WS_WorkFlowBrief")&"'>"&left(Waitrs("WS_WorkFlowBrief"),10)&"</td><td width='61' 

align=center>"&Waitrs("WS_WorkFlowGrade")&"</td><td width='33' align=center>"

    if Waitrs("WS_WorkFlowAnnex")<>"" then response.write "<a href='"&Waitrs("WS_WorkFlowAnnex")&"' 

target='_blank'><img src='../HXIMAGES/Message/sign.gif' border=0></a>"

    response.Write "</td><td width='80' align=center>"&Waitrs("WS_WorkFlowDate")&"</td><td width='55' align=center>"

    if Waitrs("WS_WorkFlowQT")=0 then response.Write "<font color=red>未签收</font>" else response.Write "<font 

color=blue title='签收日期："&Waitrs("WS_WorkFlowQTDate")&"'>已签收</font>"

    response.write "</td><td width='67' align=center>"

    Call WS_S.HX_OutUserInfo(Waitrs("WS_WorkFlowMan")):response.Write OutName

    response.Write "</td></tr>"

Waitrs.movenext

    loop

response.Write "<tr bgcolor='#A1BBE0' class='td4'><td colspan='15' height='30'> <input type='checkbox' 

name='checkall' value='checkbox' onClick='chkall(this)' id='checkall' class='radio' style='background-color:A1BBE0;'><label 

for='checkall'>全选</label> 将选中全部 <input name='del' type='submit' value='签收' style='font-size: 

12px;color:#FFFFFF;border: 1px solid #000000;background-color: #A1BBE0; '>      </tr>"

end if

response.Write "</form></table></td></tr></table></td></tr></table></td><td width='3' valign='top'></td><td 

width='14%' valign='top'><table width='100%' cellspacing=1 cellpadding=0 bgcolor='#CCCCCC'><tr><td width='100%' height='24' 

bgcolor='BDD6F7' align=center><script>calenderout();</script></td></tr><tr><td width='100%' bgcolor='FFFFFF'><table 

width='100%' cellspacing=0 cellpadding=0><tr> <td height='23' background='hximages\titlebg.gif'> <img 

src='HXIMAGES/Message/newmail.GIF'><font color=FFFFFF>内部邮件</font></td></tr>"

  if mailrs.recordcount<=0 then

    response.write "<tr><td background='hximages/line.gif' height='25'> 暂时还没有收到邮件</td></tr>"

  else

   ii=1

   do until mailrs.eof 

     response.Write "<tr> <td background='hximages/line.gif' height='20'> "&ii&"、<a 

href='javascript:'  title='"&mailrs("WS_MailObject")&"' 

onClick=""openwin(630,490,'HXPersonalOffice/Readmessage.asp?MAID="&mailrs("WS_MAID")&"')"">"&left(mailrs("WS_MailObject"),20)

&"</a></td></tr>"

   ii=ii+1

   mailrs.movenext

   loop

   end if

   response.Write "<tr> <td height='20' align='right'><a href='HXPersonalOffice/SendMessage.asp'><font 

color=red>撰写>></font></a> </td></tr></table></td></tr><tr><td width='100%' bgcolor='FFFFFF'><table width='100%' cellspacing 

cellpadding><tr> <td height='23' background='hximages\titlebg.gif'> <img src='hximages/calendar.gif'><font color=FFFFFF>

工作日程</font></td></tr><tr> <td width='100%' align=center><iframe src='HXDdesk/HX_yeardate.asp' width='160' height='160' 

frameborder='0'></iframe> </td></tr></table></td></tr><tr><td width='100%' bgcolor='FFFFFF'>                    <table 

width='100%' cellspacing cellpadding><tr> <td height='23' background='hximages\titlebg.gif'> <img 

src='hximages/attendance.gif'>  <font color=FFFFFF>外出人员公告牌</font></td></tr><tr> <td width='100%' align=center>  <table 

width='100%'  border='0' cellspacing='1' cellpadding='0' bgcolor='A1BBE0'><tr bgcolor='F1f1f1'><td width='29%' height='24'>姓

名</td><td width='38%'>外出时间</td><td width='33%'>归来时间</td></tr>"

    if ours.recordcount<=0 then

     response.Write "<tr><td bgcolor=ffffff colspan=3 align=center background='hximages/line.gif' height='25'> 暂

时无人外出</td></tr>"

   else

     do until ours.eof

   Call WS_S.HX_OutUserInfo(ours("WS_AttendanceOutEnrolReplyID"))

   response.Write "<tr bgcolor='FFFFFF'> <td 

height='22'>"&OutName&"</td><td>"&ours("WS_AttendanceOutEnrolTime1")&"</td><td>"&ours("WS_AttendanceOutEnrolTime2")&"</td></t

r>"

        ours.movenext

        loop  

  end if

  response.Write "</table></td></tr></table></td></tr><tr><td width='100%' bgcolor='FFFFFF'>                    

<table width='100%' cellspacing=0 cellpadding=0><tr> <td height='23' background='hximages\titlebg.gif'> <img 

src='hximages/bookmark.gif'><font color=FFFFFF>常用网址</font></td></tr>"

   if urlrs.recordcount<=0 then

          response.Write "<tr><td align=center background='hximages/line.gif' 

height='25'> 暂无常用网址</td></tr>"

          else

      ii=1

      do until urlrs.eof

       response.Write "<tr> <td background='hximages/line.gif' height='20'> "&ii&"、<a 

href='http://"&replace(urlrs("WS_WebSearchUrl"),"http://","")&"' target='_blank'>"&urlrs("WS_WebSearchName")&"</a></td></tr>"

      ii=ii+1

      urlrs.movenext

        loop

  end if

  response.Write "<tr><td height='20' align='right'><a href='HXAnnexProgram/weburlsearch.asp'><font color=red>

全部>></font></a> </td></tr></table></td></tr><tr><td width='100%' height='24' bgcolor='ffffff' align=center> <table 

width='100%'  border='0' cellspacing='0' cellpadding='0'><form action='HXInfoChange/netvoteinfo.asp?action=sendvote' 

method='post'><input type='hidden' name='WS_QuestionID' value='"&WS_QuestionID&"'><input type='hidden' name='N_Question' 

value='"&N_Quest&"'><tr><td height='23' background='hximages\titlebg.gif'> <img src='hximages/vote.gif'><font 

color='#ffffff'>在线调查</font></td></tr>     <tr><td bgcolor='#FFFFFF'>"&Content1&"</td></tr> <tr><td bgcolor='#FFFFFF'> 

<input type='submit' value=' 提 交 ' "

  If PollNum = WS_QuestionID Then response.write "disabled"

    response.Write "<input type='reset' name='Submit3' value=' 重 选 '></td></tr></form></table> </td></tr></table> 

</td></tr></table>" 

   End Sub

改为

复制内容到剪贴板

代码:

Sub HXManage_main()

response.Write "<body topmargin='20' leftmargin='0' bottommargin='20' bgcolor='f1f1f1'><table width='80%'  border='0' 

cellspacing='0' cellpadding='0' align='center'><tr><td 

align='top'>个人设置-－修改密码<br><br>人力资源--修改个人信息</td></tr></table>

   End Sub

[ 本帖最后由 haohao 于 2008-7-11 08:08 AM 编辑 ]

夏茂政务网2.0正式发布，并提供演示http://gov.125a.net/site1/index.asp 管理员账号：admin 密码：admin 空间采用http://www.shoppes.cn