📄 hx_function.asp
字号:
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=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_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>"
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=065485 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;}</script><table width='400' border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td width='400' colspan='2' bgcolor=ffffff><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='hximages/titleline.gif'><font class='fontmenu'>用户个人设置</font></td></tr></table><table width='100%' border='0' cellspacing='1' cellpadding='3' bgcolor=f1f1f1><form name='form1' method='post' action='' onSubmit='return amsub(this);'><tr bgcolor='#FFFFFF'><td width='27%' align='right'>用 户 名：</td><td width='73%'><input name='WS_UserName' type='text' value='"&LOGINUSERNAME&"' size=21 readonly></td></tr><tr bgcolor='#FFFFFF'><td align='right'>旧 密 码：</td><td><input type='password' name='OldPassword' size=21></td></tr><tr bgcolor='#FFFFFF'><td align='right'>密 码：</td><td><input type='password' name='password' size=21></td></tr><tr bgcolor='#FFFFFF'><td align='right'>确认密码：</td><td><input type='password' name='repassword' size=21></td></tr><tr bgcolor='#FFFFFF'><td align='right'> </td><td><input type='submit' name='Submit' value=' 确定修改 '> <input type='reset' name='Submit2' value=' 重 置 '> <input type='hidden' name='action' value='saveinfo'></td></tr></form></table></td></tr></table>"
End Sub
Sub HX_MemberAdd()
rs("WS_name")=WS_s.HX_Replace(request.form("WS_name"))
rs("WS_Appointment")=WS_s.HX_Replace(request.form("WS_Appointment"))
rs("WS_native")=WS_s.HX_Replace(request.form("WS_native"))
rs("WS_sex")=WS_s.HX_Replace(request.form("WS_sex"))
rs("WS_born")=WS_s.HX_Replace(request.form("WS_byy"))&"-"&WS_s.HX_Replace(request.form("WS_bmm"))&"-"&WS_s.HX_Replace(request.form("WS_bdd"))
rs("WS_folk")=WS_s.HX_Replace(request.form("WS_folk"))
rs("WS_phone")=WS_s.HX_Replace(request.form("WS_phone"))
rs("WS_polity")=WS_s.HX_Replace(request.form("WS_polity"))
rs("WS_jobdate")=WS_s.HX_Replace(request.form("WS_wyy"))&"-"&WS_s.HX_Replace(request.form("WS_wmm"))&"-"&WS_s.HX_Replace(request.form("WS_wdd"))
rs("WS_marry")=WS_s.HX_Replace(request.form("WS_marry"))
rs("WS_address")=WS_s.HX_Replace(request.form("WS_address"))
rs("WS_Duty")=WS_s.HX_Replace(request.form("Duty"))
rs("WS_MPID")=WS_s.HX_Replace(request.form("MemberPriv"))
rs("WS_code")=WS_s.HX_Replace(request.form("WS_code"))
rs("WS_job")=WS_s.HX_Replace(request.form("WS_job"))
rs("WS_diploma")=WS_s.HX_Replace(request.form("WS_diploma"))
rs("WS_indentity")=WS_s.HX_Replace(request.form("WS_indentity"))
rs("WS_department")=WS_s.HX_Replace(request.form("WS_department"))
rs("WS_register")=WS_s.HX_Replace(request.form("WS_register"))
rs("WS_title")=WS_s.HX_Replace(request.form("WS_title"))
rs("WS_username")=WS_s.HX_Replace(request.form("WS_username"))
if WS_s.HX_Replace(request.form("WS_password"))<>"" then rs("WS_password")=MD5(WS_s.HX_Replace(request.form("WS_password"))) else rs("WS_password")=MD5("000000")
rs("WS_Appointment")=WS_s.HX_Replace(request.form("WS_Appointment"))
rs("WS_email")=WS_s.HX_Replace(request.form("WS_email"))
rs("WS_oicq")=WS_s.HX_Replace(request.form("WS_oicq"))
rs("WS_college")=WS_s.HX_Replace(request.form("WS_college"))
rs("WS_graduate_time")=WS_s.HX_Replace(request.form("WS_graduate_time"))
rs("WS_major")=WS_s.HX_Replace(request.form("WS_major"))
rs("WS_kincall1")=WS_s.HX_Replace(request.form("WS_kincall1"))
rs("WS_kincall2")=WS_s.HX_Replace(request.form("WS_kincall2"))
rs("WS_kinname1")=WS_s.HX_Replace(request.form("WS_kinname1"))
rs("WS_kinname2")=WS_s.HX_Replace(request.form("WS_kinname2"))
rs("WS_kin1")=WS_s.HX_Replace(request.form("WS_kin1"))
rs("WS_kin2")=WS_s.HX_Replace(request.form("WS_kin2"))
rs("WS_kindept1")=WS_s.HX_Replace(request.form("WS_kindept1"))
rs("WS_kindept2")=WS_s.HX_Replace(request.form("WS_kindept2"))
rs("WS_workname1")=WS_s.HX_Replace(request.form("WS_workname1"))
rs("WS_workname2")=WS_s.HX_Replace(request.form("WS_workname2"))
rs("WS_worktime1")=WS_s.HX_Replace(request.form("WS_worktime1"))
rs("WS_worktime2")=WS_s.HX_Replace(request.form("WS_worktime2"))
rs("WS_workdept1")=WS_s.HX_Replace(request.form("WS_workdept1"))
rs("WS_workdept2")=WS_s.HX_Replace(request.form("WS_workdept2"))
rs("WS_workduty1")=WS_s.HX_Replace(request.form("WS_workduty1"))
rs("WS_workduty2")=WS_s.HX_Replace(request.form("WS_workduty2"))
rs("WS_workman1")=WS_s.HX_Replace(request.form("WS_workman1"))
rs("WS_workman2")=WS_s.HX_Replace(request.form("WS_workman2"))
rs("WS_special")=WS_s.HX_Replace(request.form("WS_special"))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -