📄 hx_function.bak.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=613c25><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='#613c25' align='center'><tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 公文管理</font></td></tr>"
if WS_S.MemberPriv("WS_WorkFlowWaitList")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='WorkFlowWaitList.asp'><font color='#FFFBE8'>>> 待办公文 </font></a></td></tr>"
if WS_S.MemberPriv("WS_WORKFLOWIndex")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='WorkFlowIndex.asp'><font color='#FFFBE8'>>> 已发公文 </font> </a></td></tr>"
if WS_S.MemberPriv("WS_WORKFLOWNews")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='WorkFlowNews.asp'><font color='#FFFBE8'>>> 发文起草</font></a></td></tr>"
if WS_S.MemberPriv("WS_WORKFLOWAdd")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='WorkFlow.asp'><font color='#FFFBE8'>>> 收文登记</font></a></td></tr>"
if WS_S.MemberPriv("WS_WORKFLOWNewNiBan")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='WorkFlowNewNiBan.asp'><font color='#FFFBE8'>>> 收文拟办</font></a></td></tr>"
if WS_S.MemberPriv("WS_WORKFLOWSearch")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='WorkFlowSearch.asp'><font color='#FFFBE8'>>> 公文检索</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=613c25><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>"
if WS_S.MemberPriv("WS_InfoChangeNetChat")=1 then response.Write "<tr> <td class='include1' align='center'><a href='hxnetchat.asp' target='right' class='menu1'>网络会议</a></td></tr>"
if WS_S.MemberPriv("WS_InfoChangeNetDisk")=1 then response.Write "<tr><td class='include1' align='center'><a href='netdisk.asp' target='right' class='menu1'>网络硬盘</a></td></tr>"
if WS_S.MemberPriv("WS_InfoChangeNetVoteInfo")=1 then response.Write "<tr><td class='include1' align='center'><a href='netvoteinfo.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_AnnexProgram()
response.Write "<link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><body bgcolor=613c25><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_AnnexProgramCalendar")=1 then response.Write "<tr><td class='include1' align='center'><a href='Calendar.asp' target='right' class='menu1'>万 年 历</a></td></tr>"
if WS_S.MemberPriv("WS_AnnexProgramworldtime")=1 then response.Write "<tr><td class='include1' align='center'><a href='worldtime.asp' target='right' class='menu1'>世界时间</a></td></tr>"
response.Write "<tr><td class='include1' align='center'><a href='companyintr.asp' target='right' class='menu1'>公司简介</a></td></tr>"
response.Write "<tr><td class='include1' align='center'><a href='http://www.iciba.net' target='blank' class='menu1'>在线翻译</a></td></tr>"
if WS_S.MemberPriv("WS_AnnexProgramnetipsearch")=1 then response.Write "<tr><td class='include1' align='center'><a href='netipsearch.asp' target='right' class='menu1'>网络IP查询</a></td></tr>"
if WS_S.MemberPriv("WS_AnnexProgrammobilesearch")=1 then response.Write "<tr><td class='include1' align='center'><a href='mobilesearch.asp' target='right' class='menu1'>手机地址查询</a></td></tr>"
if WS_S.MemberPriv("WS_AnnexProgramlawrulesearch")=1 then response.Write "<tr><td class='include1' align='center'><a href='lawrulesearch.asp' target='right' class='menu1'>法律法规查询</a></td></tr>"
if WS_S.MemberPriv("WS_AnnexProgramtelsearch")=1 then response.Write "<tr><td width='100%' align='center' class='include1'><a href='telsearch.asp' target='right' class='menu1'>常用电话查询</a></td></tr>"
if WS_S.MemberPriv("WS_AnnexProgramweburlsearch")=1 then response.Write "<tr><td width='100%' align='center' class='include1'><a href='weburlsearch.asp' target='right' class='menu1'>常用网址查询</a></td></tr>"
if WS_S.MemberPriv("WS_AnnexProgrampostcardsearch")=1 then response.Write "<tr><td class='include1' align='center'><a href='postcardsearch.asp' target='right' class='menu1'>身份证号查询</a></td></tr>"
if WS_S.MemberPriv("WS_AnnexProgrampostcodesearch")=1 then response.Write "<tr><td class='include1' align='center'><a href='postcodesearch.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_SystemSet()
response.write "<link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><body bgcolor=613c25 topmargin='0' bottommargin='0'><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_SystemSetWebOAconfig")=1 then response.Write "<tr><td align='center' class='include1'><a href='WebOAconfig.asp' target='right' class='menu1'>功能设置</a></td></tr>"
if WS_S.MemberPriv("WS_SystemSetOAInterFaceSet")=1 then response.Write "<tr><td class='include1' align='center'><a href='OAInterFaceSet.asp' target='right' class='menu1'>界面设置</a></td></tr>"
if WS_S.MemberPriv("WS_SystemSetModule")=1 then response.Write "<tr><td width='100%' align='center' class='include1'><a href='Module.asp' target='right' class='menu1'>单位管理</a></td></tr>"
if WS_S.MemberPriv("WS_SystemSetDepartment")=1 then response.Write "<tr><td class='include1' align='center'><a href='Department.asp' target='right' class='menu1'>部门管理</a></td></tr>"
if WS_S.MemberPriv("WS_SystemSetAppointment")=1 then response.Write "<tr><td class='include1' align='center'><a href='Appointment.asp' target='right' class='menu1'>职位管理</a></td></tr>"
if WS_S.MemberPriv("WS_SystemSetMemberPriv")=1 then response.Write "<tr><td class='include1' align='center'><a href='MemberPriv.asp' target='right' class='menu1'>权限设置</a></td></tr>"
if WS_S.MemberPriv("WS_SystemSetAttendanceSet")=1 then response.Write "<tr><td class='include1' align='center'><a href='AttendanceSet.asp' target='right' class='menu1'>考勤设置</a></td></tr>"
if WS_S.MemberPriv("WS_SystemSettalkear")=1 then response.Write "<tr><td class='include1' align='center'><a href='hxtalkear.asp' target='right' class='menu1'>讨论区管理</a></td></tr>"
if WS_S.MemberPriv("WS_SystemSetNotifyManage")=1 then response.Write "<tr><td class='include1' align='center'><a href='hxNotifyManage.asp' target='right' class='menu1'>通知公告管理</a></td></tr>"
if WS_S.MemberPriv("WS_SystemSetWorkFlowType")=1 then response.Write "<tr><td class='include1' align='center'><a target='right' href='WorkFlowType.asp' class='menu1'>公文类别管理</a></td></tr>"
if WS_S.MemberPriv("WS_SystemSetnetv⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -