📄 hx_function.asp
字号:
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_SystemSetnetvoteinfo")=1 then response.Write "<tr><td class='include1' align='center'><a href='netvoteinfo.asp' target='right' class='menu1'>网络调查设置</a></td></tr>"
if WS_S.MemberPriv("WS_SystemSetlawrule")=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_SystemSettel")=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_SystemSetweburl")=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_SystemSetInterviewControl")=1 then response.Write "<tr><td class='include1' align='center'><a href='SystemInterviewControl.asp' target='right' class='menu1'>系统访问控制</a></td></tr>"
if WS_S.MemberPriv("WS_SystemSetOperation")=1 then response.Write "<tr><td class='include1' align='center'><a href='Operation.asp' target='right' class='menu1'>系统日志管理</a></td></tr>"
if WS_S.MemberPriv("WS_SystemSetWSOADATABASEMANAGE")=1 then response.Write "<tr><td class='include1' align='center'><a href='WSOADATABASEMANAGE.ASP' target='right' class='menu1'>数据库管理</a></td></tr>"
response.write "</table></td></tr><tr><td width='100%' align='center' height='10'></td></tr></table>"
End Sub
Sub HX_ChangUserSet()
action=request("action"):ColumnName="":Tablename="HX_CompanyUser"
if action="saveinfo" then
Orderby=" where WS_Uid="&loginuid&" and WS_PassWord='"&MD5(request.form("Oldpassword"))&"'"
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if rs.recordcount<=0 then
msg="<script>alert('旧密码错误！');window.opener.location.reload();window.close();</script>"
else
rs("WS_password")=MD5(request.form("password")):rs.update
if MD5(request.form("Oldpassword"))<>MD5(request.form("password")) then msg="<script>alert('设置成功！\n密码已更改需重新登录！');window.opener.location.reload();window.close();</script>" else msg="<script>alert('设置成功！\n密码未更改无需重新登录！');window.close();</script>"
end if
response.write msg:response.end
end if
response.write "<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>个人设置</title><link rel=stylesheet type=text/css href='HXinclude/HX_Css.css'></head><body topmargin='10' leftmargin='0' bottommargin='10'><script language='JavaScript'>function amsub(form){if (form.OldPassword.value==''){ alert('请输入旧密码!'); form.OldPassword.focus(); return false;}if ((form.password.value=='')||(form.password.value!=form.repassword.value)){ alert('密码不能为空或二次密码不一致!'); form.repassword.focus(); return false;}return true;}</sc⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -