set_config_zd.asp

这个系统是企业管理系统

      <td colspan="3" class="tdbg">&nbsp;</td>
    </tr>
    
    

    
    

    <tr bgcolor="#FFFFFF"> 
      <td colspan="4" align="center" background="../images/bg/6/14.gif" bgcolor="#FFFFFF" class="tdbg"><input type="button" name="Submit2" value="保存设置" onClick="subsave()"style="width:100;background-color: #FFCC66; color: #000000; border: 1 solid #00CC00" <% If ObjInstalled=false Then response.write "disabled" %>>
　
 <div  style="display:none"> <input type="button" name="Submit3" value="恢复默认设置" onClick="subsavedefault()"style="width:100;background-color: #FFCC66; color: #000000; border: 1 solid #00CC00" <% If ObjInstalled=false Then response.write "disabled" %>></div>

<input name="operate" type="hidden" id="operate"></td>
    </tr>
    <%
If ObjInstalled=false Then
	Response.Write "<tr class='tdbg'><td height='40' colspan='3'><b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能。<br>请直接修改“Inc/config.asp”文件中的内容。</font></b></td></tr>"
End If
%>
  </table>
  <p>
    <%
end sub
%>
</p>
  <p>&nbsp;  </p>
</form>
</body>
</html>
<%'检测不能含有空格回车
function checkstr(varstr,errzd)
if trim(varstr)<>"" then
if Instr(varstr," ")+Instr(varstr,"　")<>0 then
 errinfo="空格 "
 end if
if Instr(varstr,chr(13))<>0 then
if errinfo="" then
 errinfo=errinfo&"回车"
else
 errinfo=errinfo&"、回车"
 end if
 end if
if errinfo<>""then
	response.write "<script language=JavaScript>{window.alert('报错：操作失败！\n\n原因是：　“"&errzd&"”中录入了  "&errinfo&"，\n\n注意,字段设置中任何地方（中间及最后）都不允许出现空格与回车！\n\n如内容较多，则让它自动换行，而不能手动强行换行！\n\n请按“确定”返回后核实!');window.history.go(-1);}</script >"
response.end
end if
end if
end function


sub SaveConfig_zd()

call checkstr(trim(request("zhicheng_setconst")),"职称")
call checkstr(trim(request("zhicheng_jibie_setconst")),"级别")
call checkstr(trim(request("xueke_setconst")),"学科")
call checkstr(trim(request("bumen_setconst")),"部门")
call checkstr(trim(request("xueli_setconst")),"学历")
call checkstr(trim(request("bianzhi_setconst")),"编制")
call checkstr(trim(request("zhengzhimianmao_setconst")),"政治面貌")
call checkstr(trim(request("hunyinzhuangkuang_setconst")),"婚姻状况")
call checkstr(trim(request("zaizhizhuangtai_setconst")),"在职状态")
call checkstr(trim(request("bianzhileibie_setconst")),"编制类别")
call checkstr(trim(request("xuelifangshi_setconst")),"学历取得方式")
call checkstr(trim(request("xuewei_setconst")),"学位")
call checkstr(trim(request("xuelixuezhi_setconst")),"学制")
call checkstr(trim(request("renshidaili_setconst")),"是否人事代理")
call checkstr(trim(request("xingzhengzhiwu_setconst")),"行政职务")


call checkstr(trim(request("jiarugongsiyuanyin_setconst")),"加入公司原因")
call checkstr(trim(request("xianrenzhibumen_setconst")),"现任职部门")
call checkstr(trim(request("dengji_setconst")),"等级")
call checkstr(trim(request("kechengmingcheng_setconst")),"课程")
call checkstr(trim(request("jiaoshi_setconst")),"助教级别")



	If ObjInstalled=false Then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>你的服务器不支持 FSO(Scripting.FileSystemObject)! </li>"
		exit sub
	end if
	dim fso,hf
	set fso=Server.CreateObject("Scripting.FileSystemObject")
	set hf=fso.CreateTextFile(Server.mappath("../inc/Config_zd.asp"),true)
	hf.write "<" & "%" & vbcrlf
	hf.write "    '在不解此页的功能的时候，请不要修改此页任何地方，否则会出错，出错请联系13507959978，请用“,”号或“|”号分隔各项" & vbcrlf
		hf.write "zhicheng_setconst=" & chr(34) & Replace(Replace(Replace(trim(request("zhicheng_setconst")),"，",","),"|",","),"｜",",") & chr(34) & "        '职称" & vbcrlf
	hf.write "zhicheng_jibie_setconst=" & chr(34) &Replace(Replace(Replace(trim(request("zhicheng_jibie_setconst")),"，",","),"|",","),"｜",",") & chr(34) & "        '级别" & vbcrlf
	hf.write "xueke_setconst=" & chr(34) & Replace(Replace(Replace(trim(request("xueke_setconst")),"，",","),"|",","),"｜",",")& chr(34) & "        '学科" & vbcrlf
	hf.write "bumen_setconst=" & chr(34) &Replace(Replace(Replace(trim(request("bumen_setconst")),"，",","),"|",","),"｜",",") & chr(34) & "        '部门" & vbcrlf
	hf.write "xueli_setconst=" & chr(34) & Replace(Replace(Replace(trim(request("xueli_setconst")),"，",","),"|",","),"｜",",") & chr(34) & "        '学历" & vbcrlf
	hf.write "bianzhi_setconst=" & chr(34) & Replace(Replace(Replace(trim(request("bianzhi_setconst")),"，",","),"|",","),"｜",",") & chr(34) & "        '编制" & vbcrlf
 
 	hf.write "zhengzhimianmao_setconst=" & chr(34) & Replace(Replace(Replace(trim(request("zhengzhimianmao_setconst")),"，",","),"|",","),"｜",",") & chr(34) & "        '政治面貌" & vbcrlf
	hf.write "hunyinzhuangkuang_setconst=" & chr(34) & Replace(Replace(Replace(trim(request("hunyinzhuangkuang_setconst")),"，",","),"|",","),"｜",",") & chr(34) & "        '婚姻状况" & vbcrlf
		hf.write "zaizhizhuangtai_setconst=" & chr(34) & Replace(Replace(Replace(trim(request("zaizhizhuangtai_setconst")),"，",","),"|",","),"｜",",") & chr(34) & "        '在职状态" & vbcrlf
		hf.write "bianzhileibie_setconst=" & chr(34) & Replace(Replace(Replace(trim(request("bianzhileibie_setconst")),"，",","),"|",","),"｜",",") & chr(34) & "        '编制类别" & vbcrlf
		hf.write "xuelifangshi_setconst=" & chr(34) & Replace(Replace(Replace(trim(request("xuelifangshi_setconst")),"，",","),"|",","),"｜",",") & chr(34) & "        '学历取得方式" & vbcrlf

		hf.write "xuewei_setconst=" & chr(34) & Replace(Replace(Replace(trim(request("xuewei_setconst")),"，",","),"|",","),"｜",",") & chr(34) & "        '学位" & vbcrlf
		hf.write "xuelixuezhi_setconst=" & chr(34) & Replace(Replace(Replace(trim(request("xuelixuezhi_setconst")),"，",","),"|",","),"｜",",") & chr(34) & "        '学制" & vbcrlf
		hf.write "renshidaili_setconst=" & chr(34) & Replace(Replace(Replace(trim(request("renshidaili_setconst")),"，",","),"|",","),"｜",",") & chr(34) & "        '是否人事代理" & vbcrlf
		hf.write "xingzhengzhiwu_setconst=" & chr(34) & Replace(Replace(Replace(trim(request("xingzhengzhiwu_setconst")),"，",","),"|",","),"｜",",") & chr(34) & "        '行政职务" & vbcrlf


    hf.write "jiarugongsiyuanyin_setconst=" & chr(34) & Replace(Replace(Replace(trim(request("jiarugongsiyuanyin_setconst")),"，",","),"|",","),"｜",",")& chr(34) & "        '加入公司原因" & vbcrlf	
	hf.write "xianrenzhibumen_setconst=" & chr(34) & Replace(Replace(Replace(trim(request("xianrenzhibumen_setconst")),"，",","),"|",","),"｜",",") & chr(34) & "        '现任职部门" & vbcrlf
	hf.write "dengji_setconst=" & chr(34) & Replace(Replace(Replace(trim(request("dengji_setconst")),"，",","),"|",","),"｜",",") & chr(34) & "        '等级" & vbcrlf
	

	hf.write "%" & ">"
	hf.close
	set hf=nothing
	set fso=nothing

	
end sub
%>
<%
sub SaveConfig_default()
	If ObjInstalled=false Then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>你的服务器不支持 FSO(Scripting.FileSystemObject)! </li>"
		exit sub
	end if
	dim fso_default,hf_default
	set fso_default=Server.CreateObject("Scripting.FileSystemObject")
	set hf_default=fso_default.CreateTextFile(Server.mappath("../inc/Config_zd.asp"),true)
	hf_default.write "<" & "%" & vbcrlf
	hf_default.write "    '在不解此页的功能的时候，请不要修改此页任何地方，否则会出错，出错请联系13507959978，请用“,”号或“|”号分隔各项" & vbcrlf
	hf_default.write "zhicheng_setconst=""入学,升级,留级,休学,保留职工,复学,退学,转入,转出,调班""        '职称" & vbcrlf
	hf_default.write "zhicheng_jibie_setconst=""统招,择校,扩招,借读,其他""        '学历" & vbcrlf
	hf_default.write "nianji_setconst=""健康,良好,不合格""        '年级" & vbcrlf
	hf_default.write "zhekou_setconst=""是,否,特殊照顾""        '折扣优惠" & vbcrlf
	hf_default.write "xiangmumingcheng_setconst=""是,否,特殊照顾""        '项目" & vbcrlf
	
	
	hf_default.write "%" & ">"
	hf_default.close
	set hf_default=nothing
	set fso_default=nothing	
end sub
%>

<script language="javascript">
 
//
function subsave()
{
    if (window.confirm('真要保存修改吗？'))
     {
	  form.action="set_config_zd.asp";
	  form.operate.value="SaveConfig_zd";
	  
       form.submit();//提交该表单; 
	   alert("保存完毕");
     }
    
}
//
function subsavedefault()
{
    if (window.confirm('真的要恢复默认的设置吗？'))
     {
	  form.action="set_config_zd.asp";
	  form.operate.value="savedefault";
       form.submit();//提交该表单; 
     }
    
}

</script>
<SCRIPT LANGUAGE="JavaScript">
<!-- 
function admin_Size(num,objname)
{
	var obj=document.getElementById(objname)
	if (parseInt(obj.rows)+num>=1) {
		obj.rows = parseInt(obj.rows) + num;	
	}
	if (num>0)
	{
		obj.width="90%";
	}
}
 -->
</script>