📄 hx_function.asp
字号:
if WS_S.MemberPriv("WS_PublicAffairsPropertyManage")=1 then
response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 资产管理</font><strong></a></strong></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsPropertyView")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='propertylist.asp'><font color='#FFFFFF'>>> 资产清单</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsPropertyModify")=1 then response.Write " <tr><td bgcolor='#678DC0'> <a target='right' href='propertyadd.asp'><font color='#FFFFFF'>>> 资产登记</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsPropertyModify")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='propertymanage.asp'><font color='#FFFFFF'>>> 资产管理</font></a></td></tr>"
if WS_S.MemberPriv("WS_PublicAffairsPropertySearch")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='searchproperty.asp'><font color='#FFFFFF'>>> 资产查询</font></a></td></tr>"
end if
response.Write "</table></td></tr><tr><td height='20' align='center'></td></tr></table>"
End Sub
Sub HX_PersonalOffice()
response.write "<link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><body bgcolor=065485><table width='100%' cellspacing cellpadding class='Titletd' align='center'><tr><td height='10'></td></tr><tr valign='top'><td><table width='90%' border='0' cellspacing='1' cellpadding='5' bgcolor='#065485' align='center'>"
if WS_S.MemberPriv("WS_PersonalOfficeMessage")=1 then response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 内部邮件</font></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='SendMessage.asp'><font color='#FFFFFF'>>> 发邮件</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='MyListSave.asp'><font color='#FFFFFF'>>> 草稿箱</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='MyMessage.asp'><font color='#FFFFFF'>>> 收件箱</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='MySendedMessage.asp'><font color='#FFFFFF'>>> 发件箱</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='MyDelMessage.asp'><font color='#FFFFFF'>>> 垃圾箱</font></a></td></tr>"
if WS_S.MemberPriv("WS_PersonalOfficeInternetEmail")=1 then response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 外部邮件</font><strong></a></strong></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='setinternetemail.asp'><font color='#FFFFFF'>>> 创建账号</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='internetinbox.asp'><font color='#FFFFFF'>>> 收 件 箱</font></a></td></tr>"
if WS_S.MemberPriv("WS_PersonalOfficeSchEdule")=1 then response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 日程安排</font></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='SchEduleWait.asp'><font color='#FFFFFF'>>> 待办事宜 </font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='SchEduleNewCreate.asp'><font color='#FFFFFF'>>> 新建日程</font> </a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='SchEduleEverymonth.asp'><font color='#FFFFFF'>>> 按月查看</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='SchEduleEveryweek.asp'><font color='#FFFFFF'>>> 按周查看</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='SchEduleSearch.asp'><font color='#FFFFFF'>>> 日程检索</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='SchEduleSetSort.asp'><font color='#FFFFFF'>>> 日程设置</font></a></td></tr>"
if WS_S.MemberPriv("WS_PersonalOfficePDA")=1 then response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 通 迅 录</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='PersonalListPDA.asp'><font color='#FFFFFF'>>> 个人通迅录</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='CompanyListPDA.asp'><font color='#FFFFFF'>>> 企业通迅录</font></a></td></tr><tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 我的文档</font><strong></a></strong></td></tr>"
if WS_S.MemberPriv("WS_PersonalOfficeDocument")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='newcreatedocument.asp'><font color='#FFFFFF'>>> 新建文档</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='documentshow.asp'><font color='#FFFFFF'>>> 查看文档</font></a></td></tr><tr><td bgcolor='#678DC0'> <a target='right' href='searchdocument.asp'><font color='#FFFFFF'>>> 检索文档</font></a></td></tr>"
response.write "</table></td></tr><tr><td height='20' align='center'></td></tr></table>"
End Sub
Sub HX_Bargain()
response.write "<link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><body bgcolor=065485><table width='100%' cellspacing cellpadding class='Titletd' align='center'><tr><td width='100%' height='10'></td></tr><tr valign='top'><td width='100%'><table width='118' cellspacing='10' cellpadding align='center' border='0'>"
if WS_S.MemberPriv("WS_Bargaintype")=1 then response.Write "<tr><td width='100%' align='center' class='include1'><a href='bargaintype.asp' target='right' class='menu1'>类别管理</a></td></tr>"
if WS_S.MemberPriv("WS_BargainAdd")=1 then response.Write "<tr><td class='include1' align='center'><a href='addbargain.asp' target='right' class='menu1'>合同录入</a></td></tr>"
if WS_S.MemberPriv("WS_Bargainmanage")=1 then response.Write "<tr><td class='include1' align='center'><a href='bargainmanage.asp' target='right' class='menu1'>合同管理</a></td></tr>"
response.Write "</table></td></tr><tr><td width='100%' align='center' height='20'></td></tr></table>"
End Sub
Sub HX_BargainType()
if WS_S.MemberPriv("WS_Bargaintype")<>1 then HX_GoBack "对不起!您的权限不够!",""
ColumnName="":Tablename="HX_bargaintype":action=request("action"):WS_Tid=request("WS_Tid")
if WS_Tid<>"" and isnumeric(WS_Tid) then Orderby=" where WS_Tid="&WS_Tid else Orderby=" ORDER BY WS_OrderBy ASC" end if
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
WS_bargaintypename=WS_S.HX_Replace(request.form("WS_bargaintypename")):WS_OrderBy=WS_S.HX_Replace(request.form("WS_OrderBy"))
if WS_OrderBy="" then WS_OrderBy=1
select case action
case "addsaveinfo"
WS_S.HX_Isnull "类别名称不能为空",WS_bargaintypename
set SERS=WS_S.HX_SetRSD(ColumnName,Tablename," where WS_bargaintypename='"&WS_bargaintypename&"'")
If SERS.recordcount>0 then
HX_GoBack "添加失败:\n此类别已存在!",""
End If
Call WS_S.HX_RSClose(SERS)
msg="“"&WS_bargaintypename&"”类别添加成功!"
rs.addnew
rs("WS_bargaintypename")=WS_bargaintypename
rs("WS_OrderBy")=WS_OrderBy
rs.update
Call WS_S.SaveAdminLog(LOGINUSERNAME,LogAppointment,msg)
HX_GoBack msg,"bargaintype.asp"
case "editsaveinfo"
WS_S.HX_Isnull "类别名称不能为空",WS_bargaintypename
set SERS=WS_S.HX_SetRSD(ColumnName,Tablename," where WS_bargaintypename='"&WS_bargaintypename&"' and WS_Tid<>"&WS_Tid)
If SERS.recordcount>0 then
HX_GoBack "修改失败:\n此类别已存在!",""
End If
msg="“"&rs("WS_bargaintypename")&"”类别修改成功!"
rs("WS_bargaintypename")=WS_bargaintypename:rs("WS_OrderBy")=WS_OrderBy:rs.update
call WS_S.SaveAdminLog(LOGINUSERNAME,LogAppointment,msg)
HX_GoBack msg,"bargaintype.asp"
case "del"
msg="“"&rs("WS_bargaintypename")&"”类别删除成功"
conn.execute("delete from HX_bargaintype where WS_Tid="&WS_Tid)
call WS_S.SaveAdminLog(LOGINUSERNAME,LogAppointment,msg)
HX_GoBack msg,"bargaintype.asp"
end select
End Sub
Sub HX_BargainManage()
if WS_S.MemberPriv("WS_Bargainmanage")<>1 then HX_GoBack "对不起!您的权限不够!",""
action=request("action"):WS_Uid=request("WS_Uid"):WS_id=request("WS_id"):DESCORASC=request("DESCORASC"):ColumnName="":Tablename="HX_compactinfo":Orderby=""
if WS_Uid<>"" and isnumeric(WS_Uid) then Orderby=" where WS_Uid="&WS_Uid
if WS_id<>"" and isnumeric(WS_id) then Orderby=" where WS_id="&WS_id
if DESCORASC<>"" then Orderby=" order by "&DESCORASC
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if action="editcompactsave" then
rs("WS_statetime")=request("byys")&"-"&request("bmms")&"-"&request("bdds"):rs("WS_overtime")=request("byyo")&"-"&request("bmmo")&"-"&request("bddo"):rs("WS_register")=request("byy")&"-"&request("bmm")&"-"&request("bdd"):rs("WS_state")=request("WS_state"):rs("WS_brief")=request("WS_brief"):rs("WS_notice")=request("WS_notice"):rs("WS_Annex")=request("WS_Annex"):rs("WS_Uid")=WS_Uid:rs.update
response.redirect "bargainmanage.asp":response.end
elseif action="del" then
conn.execute("delete from HX_compactinfo where WS_id="&WS_id)
response.redirect "bargainmanage.asp"
response.end
end if
End Sub
Sub HX_BargainAdd()
if WS_S.MemberPriv("WS_BargainAdd")<>1 then HX_GoBack "对不起!您的权限不够!",""
action=request("action"):WS_Uid=request("WS_Uid"):ColumnName="":Tablename="HX_compactinfo":Orderby=""
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if action="addcompact" then
if (WS_Uid<>"" and not isnumeric(WS_Uid)) or WS_Uid="" or isnull(WS_Uid) then HX_GoBack "参数错误",""
rs.addnew:rs("WS_statetime")=request("byys")&"-"&request("bmms")&"-"&request("bdds"):rs("WS_overtime")=request("byyo")&"-"&request("bmmo")&"-"&request("bddo"):rs("WS_register")=request("byy")&"-"&request("bmm")&"-"&request("bdd"):rs("WS_state")=request("WS_state"):rs("WS_brief")=request("WS_brief"):rs("WS_notice")=request("WS_notice"):rs("WS_Annex")=request("WS_Annex"):rs("WS_Uid")=WS_Uid:rs.update
HX_GoBack "录入成功！","bargainmanage.asp"
end if
End Sub
Sub HX_WorkFlow()
response.write "<link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><body bgcolor=065485><table width='100%' cellspacing cellpadding class='Titletd' align='center'><tr><td height='10'></td></tr><tr valign='top'><td><table width='90%' border='0' cellspacing='1' cellpadding='5' bgcolor='#065485' align='center'><tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 公文管理</font></td></tr>"
if WS_S.MemberPriv("WS_WorkFlowWaitList")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='WorkFlowWaitList.asp'><font color='#FFFFFF'>>> 待办公文 </font></a></td></tr>"
if WS_S.MemberPriv("WS_WORKFLOWIndex")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='WorkFlowIndex.asp'><font color='#FFFFFF'>>> 已发公文 </font> </a></td></tr>"
if WS_S.MemberPriv("WS_WORKFLOWNews")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='WorkFlowNews.asp'><font color='#FFFFFF'>>> 发文起草</font></a></td></tr>"
if WS_S.MemberPriv("WS_WORKFLOWAdd")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='WorkFlow.asp'><font color='#FFFFFF'>>> 收文登记</font></a></td></tr>"
if WS_S.MemberPriv("WS_WORKFLOWNewNiBan")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='WorkFlowNewNiBan.asp'><font color='#FFFFFF'>>> 收文拟办</font></a></td></tr>"
if WS_S.MemberPriv("WS_WORKFLOWSearch")=1 then response.Write "<tr><td bgcolor='#678DC0'> <a target='right' href='WorkFlowSearch.asp'><font color='#FFFFFF'>>> 公文检索</font></a></td></tr>"
response.write "</table></td></tr><tr><td height='20' align='center'></td></tr></table>"
End Sub
Sub HX_InfoChange()
response.Write "<link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><body bgcolor=065485><table width='100%' cellspacing cellpadding class='Titletd' align='center'><tr><td width='100%' height='10'></td></tr><tr valign='top'> <td width='100%'><table width='118' cellspacing='10' cellpadding align='center' border='0'>"
if WS_S.MemberPriv("WS_InfoChangeTalkEAR")=1 then response.Write "<tr><td class='include1' align='center'><a href='hxtalkear.asp' target='right' class='menu1'>讨 论 区</a></td></tr>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -