setup.asp

精美OA网络办公系统,带PSD文件.可任意修改.

	  WS_oicq=rs("WS_oicq")
	end if
set aprs=WS_S.HX_SetRSD("WS_Aid,WS_AppointmentName,WS_Did","HX_Appointment"," order by WS_OrderBy asc")
if aprs.recordcount>0 then		    %>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
   count = 0
   do while not aprs.eof 
%>
subcat[<%=count%>] = new Array("<%= trim(aprs("WS_AppointmentName"))%>","<%= aprs("WS_Did")%>","<%= aprs("WS_Aid")%>");
<%
        count = count + 1
        aprs.movenext
        loop
		end if
call WS_S.HX_RSClose(aprs)        
%>
		
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.form1.WS_Appointment.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { //这句不是很理解
             document.form1.WS_Appointment.options[document.form1.WS_Appointment.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }    
</script>
<script language="JavaScript">
<!--

function amsub(form)
{
if (form.WS_name.value=="")
{ alert("请输入姓名!");
  form.WS_name.focus();
  return false
}
if (form.WS_username.value=="")
{ alert("请输入用户名!");
  form.WS_username.focus();
  return false
}
if (form.WS_Appointment.value=="")
{ alert("请选择职位!");
  form.WS_Appointment.focus();
  return false
}
return true
}
//-->
</script>		
		<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor=F1F1F1 background="hximages/titlelinebg.gif"><table width="500"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor=F1F1F1 height="25" background="hximages/titleline.gif"><font class="fontmenu">第六步：修改管理员资料</font></td>
  </tr>
</table></td>
  </tr>
</table>

<table width="100%"  border="0" cellspacing="2" cellpadding="3" >
  <form name="form1" method="post" action="?action=step7save" onSubmit="return amsub(this);">
   <tr>
    <td bgcolor=F1F1F1 width="27%" align="right">用户名：</td>
    <td bgcolor=F1F1F1 width="73%"><input type="text" name="WS_UserName" value="<%=WS_UserName%>"></td>
  </tr>
   <tr>
    <td bgcolor=F1F1F1 width="27%" align="right">密　码：</td>
    <td bgcolor=F1F1F1 width="73%"><input type="text" name="WS_PassWord"> <font color=red>为空不修改，初始密码为admin</font></td>
  </tr>
  <tr>
    <td bgcolor=F1F1F1 width="27%" align="right">姓　名：</td>
    <td bgcolor=F1F1F1 width="73%"><input type="text" name="WS_Name" value="<%=WS_Name%>"></td>
  </tr>
    <tr>
      <td bgcolor="#f1f1f1" align="right"> 性　别：</td>
       <td bgcolor="#f1f1f1"><select name="WS_sex">
        <option <%if WS_sex="男" then response.write "selected"%>>男</option>
        <option <%if WS_sex="女" then response.write "selected"%>>女</option>
        </select></td>
    </tr>
    <tr>
      <td bgcolor="#f1f1f1" align="right">电　话：</td>
      <td bgcolor="#f1f1f1"><input type="text" name="WS_phone" maxlength="50" size="16" value="<%=WS_phone%>"></td>
    </tr>
    <tr>
      <td bgcolor=F1F1F1 align="right">电子邮件</td>
      <td bgcolor=F1F1F1><input type="text" name="WS_email" maxlength="50" size="16" value="<%=WS_email%>"></td>
    </tr>
	<tr>
      <td bgcolor=F1F1F1 align="right">所在部门：</td>
      <td bgcolor=F1F1F1> <select name="WS_department" onChange="changelocation(document.form1.WS_department.options[document.form1.WS_department.selectedIndex].value)">
							  <%set ders=WS_S.HX_SetRSD("WS_DepartmentName,WS_Did","HX_Department"," order by WS_OrderBy asc")
							    if ders.recordcount>0 then
								sele=ders(1)
								do until ders.eof
								%>
                                <option value="<%=ders(1)%>" <%if ders(1)=rs("WS_department") then response.Write "selected"%>><%=ders(0)%></option>
                                <%
								ders.movenext
								loop
								end if
								call WS_S.HX_RSClose(ders)
								%>
                              </select></td>
    </tr>
    <tr>
      <td bgcolor=F1F1F1 align="right">职　务：</td>
      <td bgcolor=F1F1F1><select name="WS_Appointment">
                              <%
							    set aprs=WS_S.HX_SetRSD("WS_Aid,WS_AppointmentName","HX_Appointment"," where WS_Did="&sele&" order by WS_OrderBy asc")
							    if aprs.recordcount>0 then								
								do until aprs.eof
							  %>
                              <option value="<%=aprs(0)%>"><%=aprs(1)%></option>
                              <%
								aprs.movenext
								loop
								end if
							   call WS_S.HX_RSClose(aprs)
								%>
                            </select></td></tr>
    <tr>
      <td bgcolor=F1F1F1 align="right">Oicq：</td>
      <td bgcolor=F1F1F1><input type="text" name="WS_oicq" maxlength="12" size="16" value="<%=WS_oicq%>"></td>
    </tr>
    <tr>
    <td bgcolor=F1F1F1 align="right">&nbsp;</td>
    <td bgcolor=F1F1F1><input type="button" name="Submit2" value=" 上一步 " onClick="location.href='?action=step6';"> <input type="submit" name="Submit" value=" 完 成 ">
	  </td>
  </tr></form>
</table>

<%end sub%>	
</td>
  </tr>
</table>
<%
sub WSOASStep2Save()
WS_downpath=WS_s.HX_Replace(request.form("WS_downpath"))
REGISTER=WS_s.HX_Replace(request.form("REGISTER"))
WS_Bulletin=WS_s.HX_Replace(request.form("WS_Bulletin"))
GETPASSWORD=WS_s.HX_Replace(request.form("GETPASSWORD"))
RegFlag=WS_s.HX_Replace(request.form("RegFlag"))
WS_ConfigInternetEmail=WS_s.HX_Replace(request.form("WS_ConfigInternetEmail"))
WS_ConfigInternetPOP3=WS_s.HX_Replace(request.form("WS_ConfigInternetPOP3"))
WS_ConfigInternetSMTP=WS_s.HX_Replace(request.form("WS_ConfigInternetSMTP"))
WS_ConfigInternetSendName=WS_s.HX_Replace(request.form("WS_ConfigInternetSendName"))
WS_ConfigInternetPassword=WS_s.HX_Replace(request.form("WS_ConfigInternetPassword"))
WS_ConfigInternetContent=request.form("WS_ConfigInternetContent")
ColumnName="":Tablename="HX_WebOAConfig":Orderby=" ORDER BY WS_WEBID DESC":action=request("action")
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
    if rs.recordcount>0 then
       msg="功能设置成功!"
    else
       rs.addnew
       msg="功能添加成功!"
    end if
       rs("WS_downpath")=WS_downpath
       rs("REGISTER")=REGISTER
       rs("WS_Bulletin")=WS_Bulletin
	   rs("RegFlag")=RegFlag
       rs("GETPASSWORD")=GETPASSWORD
	   rs("WS_ConfigInternetEmail")=WS_ConfigInternetEmail
       rs("WS_ConfigInternetPOP3")=WS_ConfigInternetPOP3
       rs("WS_ConfigInternetSMTP")=WS_ConfigInternetSMTP
       rs("WS_ConfigInternetSendName")=WS_ConfigInternetSendName
       rs("WS_ConfigInternetPassword")=WS_ConfigInternetPassword
       rs("WS_ConfigInternetContent")=WS_ConfigInternetContent
       rs.update
       HX_GoBack msg,"setup.asp?action=step3"
end sub
sub WSOASStep3Save()
ColumnName="":Tablename="HX_InteFaceSet":Orderby=""
      set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
      if rs.recordcount<=0 then
       rs.addnew
      end if	 
       msg="界面设置修改成功!"
	   WS_InterNetExploertop=request("WS_InterNetExploertop")
	   WS_ICOWidth=request("WS_ICOWidth")
	   WS_ICOHeight=request("WS_ICOHeight")
	   WS_InterNetExploerStatus=request("WS_InterNetExploerStatus")
	   rs("WS_InterNetExploertop")=WS_InterNetExploertop
	   rs("WS_InterNetExploerStatus")=WS_InterNetExploerStatus
	   rs("WS_ICOWidth")=WS_ICOWidth
	   rs("WS_ICOHeight")=WS_ICOHeight
       rs.update
       HX_GoBack msg,"setup.asp?action=step4"  
end sub
sub WSOASStep4Save()
ColumnName="":Tablename="HX_Module":Orderby=" ORDER BY WS_Mid DESC"
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
WS_CompanyName=WS_s.HX_Replace(request.form("WS_CompanyName"))
WS_LinkTel=WS_s.HX_Replace(request.form("WS_LinkTel"))
WS_LinkFax=WS_s.HX_Replace(request.form("WS_LinkFax"))
WS_WebUrl=WS_s.HX_Replace(request.form("WS_WebUrl"))
WS_Post=WS_s.HX_Replace(request.form("WS_Post"))
WS_Address=WS_s.HX_Replace(request.form("WS_Address"))
WS_CompanyIntr=WS_s.HX_Replace(request.form("WS_CompanyIntr"))
    if rs.recordcount>0 then
       msg="单位修改成功!"
    else
       rs.addnew
       msg="单位添加成功!"
    end if
       rs("WS_CompanyName")=WS_CompanyName
       rs("WS_LinkTel")=WS_LinkTel
       rs("WS_LinkFax")=WS_LinkFax
       rs("WS_WebUrl")=WS_WebUrl
       rs("WS_Post")=WS_Post
       rs("WS_Address")=WS_Address
       rs("WS_CompanyIntr")=WS_CompanyIntr
       rs.update
       HX_GoBack msg,"setup.asp?action=step5"
end sub
sub step7save()
ColumnName="":Tablename="HX_CompanyUser":Orderby=""
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if rs.recordcount<=0 then rs.addnew
   rs("WS_name")=request("WS_name")
   rs("WS_Appointment")=request("WS_Appointment")
   rs("WS_sex")=request("WS_sex")
   rs("WS_phone")=request("WS_phone")
   rs("WS_department")=request("WS_department")
   rs("WS_username")=request("WS_username")
   if request("WS_password")<>"" then rs("WS_password")=MD5(request("WS_password"))
   rs("WS_email")=request("WS_email")
   rs("WS_oicq")=request("WS_oicq")
   rs.update
   if not WS_S.ChkObjInstalled("scripting.FileSystemObject") then
     msg="对不起，此服务器不支持FSO，删除失败，请手工删除此文件！以免带来安全隐患"
   else
     WS_S.CheckFile server.mappath("setup.asp"),true
	 msg="设置完成！您可以使用此软件了！"
   end if
   response.write "<script>alert('"&msg&"');close();</script>"
   response.end
end sub
%>