setup.asp

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

		case else conn.execute("delete from "&cleartablearr(i)&"")
	  end select
	  msg=msg&"<tr><td width='50%' bgcolor=F1F1F1>&nbsp;&nbsp;&nbsp;&nbsp;表<font color=red> "&cleartablearr(i)&"</font> </td><td width='50%' bgcolor=F1F1F1>清空完毕！</td></tr>"
	 next
	 msg=msg&"<tr><td colspan=2 bgcolor=F1F1F1>&nbsp;&nbsp;&nbsp;&nbsp;共清空 <font color=blue>"&ubound(cleartablearr)+1 &"</font> 个表</td></tr>"
     %>
	<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="1" cellpadding="3" >
  <form name="form1" method="post" action="?action=step2">
  <%=msg%>
  <tr>
    <td colspan="2" bgcolor=F1F1F1 align=center>
	<input type="button" name="Submit2" value=" 上一步 " onClick="location.href='?action=step1';">
	<input type="submit" name="Submit" value=" 下一步 ">
	<input type="hidden" name="action" value="step2"></td>
    </tr></form>
</table> 
<%else
   HX_GoBack "请选择要清空的表！","?action=step1"
end if
end sub

sub step2()
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
       WS_downpath=rs("WS_downpath")
       REGISTER=rs("REGISTER")
	   RegFlag=rs("RegFlag")
       WS_Bulletin=rs("WS_Bulletin")
       GETPASSWORD=rs("GETPASSWORD")
	   WS_ConfigInternetEmail=rs("WS_ConfigInternetEmail")
       WS_ConfigInternetPOP3=rs("WS_ConfigInternetPOP3")
       WS_ConfigInternetSMTP=rs("WS_ConfigInternetSMTP")
       WS_ConfigInternetSendName=rs("WS_ConfigInternetSendName")
       WS_ConfigInternetPassword=rs("WS_ConfigInternetPassword")
       WS_ConfigInternetContent=rs("WS_ConfigInternetContent")
	   end if
%>	
<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=step2save">
   <tr bgcolor="#A1BBE0" class="td4">
    <td height="25" colspan="2" align="left">功能设置</td>
   </tr>
  <tr bgcolor="#f1f1f1">
    <td align="right">自行注册：</td>
    <td>
	  <input type="radio" name="REGISTER" value="True" <%if REGISTER="" or REGISTER=True then response.write "checked"%> style="background-color:F1F1F1; border:0; cursor:hand;" id="REGISTER"><label for="REGISTER">是</label>
      <input type="radio" name="REGISTER" value="False" <%if REGISTER=False then response.write "checked"%> style="background-color:F1F1F1; border:0; cursor:hand;" id="REGISTER1"><label for="REGISTER1">否</label></td>
  </tr>
  <tr bgcolor="#f1f1f1">
    <td align="right">注册审核：</td>
    <td><input type="radio" name="RegFlag" value="True" <%if RegFlag="" or RegFlag=True then response.write "checked"%> style="background-color:F1F1F1; border:0; cursor:hand;" id="RegFlag"><label for="RegFlag">是</label>
      <input type="radio" name="RegFlag" value="False" <%if RegFlag=False then response.write "checked"%> style="background-color:F1F1F1; border:0; cursor:hand;" id="RegFlag1"><label for="RegFlag1">否</label></td>
  </tr>
  <tr bgcolor="#f1f1f1">
    <td align="right">找回密码：</td>
    <td><input type="radio" name="GETPASSWORD" value="True" <%if GETPASSWORD="" or GETPASSWORD=True then response.write "checked"%> style="background-color:F1F1F1; border:0; cursor:hand;" id="GETPASSWORD"><label for="GETPASSWORD">是</label>
      <input type="radio" name="GETPASSWORD" value="False"<%if GETPASSWORD=False then response.write "checked"%> style="background-color:F1F1F1; border:0; cursor:hand;" id="GETPASSWORD1"><label for="GETPASSWORD1">否</label></td>
  </tr>
    <tr bgcolor="#f1f1f1">
    <td align="right">登录公告：</td>
    <td><input type="text" name="WS_Bulletin" size="60" value="<%=WS_Bulletin%>"></td>
  </tr>
  <tr bgcolor="#A1BBE0" class="td4">
    <td height="25" colspan="2" align="left">路径设置</td>
  </tr>
  <tr bgcolor="#f1f1f1">
    <td width="27%" align="right">外部邮件下载路径：</td>
    <td width="74%"><input type="text" name="WS_downpath" size="60" value="<%=WS_downpath%>"><br>
	系统默认路径：<font color=red><%=server.MapPath("HXPersonalOffice/Emailannex")%>\</font></td>
  </tr>
  <tr bgcolor="#A1BBE0" class="td4">
    <td height="25" colspan="2" align="left">默认邮件设置</td>
    </tr>
  <tr bgcolor="#f1f1f1">
    <td width="27%"><div align="right">电子邮箱(E_mail)：</div></td>
                            <td width="74%">
                              <input type="text" name="WS_ConfigInternetEmail" size="40" value="<%=WS_ConfigInternetEmail%>"></td>
          </tr>
                          <tr bgcolor="#f1f1f1"> 
                            <td><div align="right">接收服务器(POP3)：</div></td>
                            <td> 
                            <input type="text" name="WS_ConfigInternetPOP3" size="40" value="<%=WS_ConfigInternetPOP3%>">                            </td>
                          </tr>
                          <tr bgcolor="#f1f1f1">
                            <td><div align="right">发送服务器(SMTP)：</div></td>
                            <td><input type="text" name="WS_ConfigInternetSMTP" size="40" value="<%=WS_ConfigInternetSMTP%>">                            </td>
                          </tr>
                          <tr bgcolor="#f1f1f1">
                            <td><div align="right">登录账户(用户名)：</div></td>
                            <td><input type="text" name="WS_ConfigInternetSendName" size="40" value="<%=WS_ConfigInternetSendName%>"></td>
                          </tr>
                          <tr bgcolor="#f1f1f1"> 
                            <td> <div align="right">登录密码(密　码)：</div></td>
                            <td><input type="password" name="WS_ConfigInternetPassword" size="40" value="<%=WS_ConfigInternetPassword%>"> 
                            
                            </td>
        </tr>
                          <tr bgcolor="#f1f1f1"> 
                            <td valign="top"><div align="right">发送信件模版：</div></td>
                            <td><textarea name="WS_ConfigInternetContent" cols="80" rows="20" class="bgline"><%=WS_ConfigInternetContent%></textarea></td>
  </tr>
  <tr bgcolor="#f1f1f1">
    <td colspan="2" align="center"><input type="button" name="Submit2" value=" 上一步 " onClick="location.href='?action=step1';">
	  <input type="submit" name="Submit" value=" 下一步 ">
      <input type="button" name="Submit2" value=" 跳 过 " onClick="location.href='?action=step3';"></td>	
    </tr></form>
</table>

<%end sub
sub step3()
ColumnName="":Tablename="HX_InteFaceSet":Orderby=""
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if rs.recordcount>0 then
       WS_InterNetExploertop=rs("WS_InterNetExploertop")
	   WS_InterNetExploerStatus=rs("WS_InterNetExploerStatus") 
	   WS_ICOWidth=rs("WS_ICOWidth") 
	   WS_ICOHeight=rs("WS_ICOHeight") 
end if
%>	
<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="1" cellpadding="6">
     <form name="form1" method="post" action="?action=step3save"> <tr bgcolor="#f1f1f1">
        <td width="31%"><div align="right">浏览器窗口标题栏文字：</div></td>
        <td width="69%"><input name="WS_InterNetExploertop" type="text" size=60 maxlength="60" value="<%=WS_InterNetExploertop%>"></td>
      </tr>
      <tr bgcolor="#f1f1f1">
        <td><div align="right">浏览器窗口状态栏文字：</div></td>
        <td><input name="WS_InterNetExploerStatus" type="text" size=60 maxlength="60" value="<%=WS_InterNetExploerStatus%>"></td>
      </tr>
      <tr bgcolor="#f1f1f1">
        <td><div align="right">主界面-顶部图标宽度：</div></td>
        <td><input name="WS_ICOWidth" type="text" size=10 maxlength="4" style="ime-mode:disabled" onKeyPress="event.returnValue=IsDigit();" value="<%=WS_ICOWidth%>">
        像素</td>
      </tr>
      <tr bgcolor="#f1f1f1">
        <td><div align="right">主界面-顶部图标高度：</div></td>
        <td><input name="WS_ICOHeight" type="text" size=10 maxlength="4" style="ime-mode:disabled" onKeyPress="event.returnValue=IsDigit();" value="<%=WS_ICOHeight%>">
          像素(建议大小设为673*79)</td>
      </tr>
      <tr bgcolor="#f1f1f1">
        <td colspan="2" align=center>
          <input type="button" name="Submit2" value=" 上一步 " onClick="location.href='?action=step2';">
	  <input type="submit" name="Submit" value=" 下一步 ">
      <input type="button" name="Submit2" value=" 跳 过 " onClick="location.href='?action=step4';">
        </td>
        </tr></form>
    </table>
<%end sub
sub step4()
ColumnName="":Tablename="HX_Module":Orderby=" ORDER BY WS_Mid DESC"
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
    if rs.recordcount>0 then
       WS_CompanyName=rs("WS_CompanyName")
       WS_LinkTel=rs("WS_LinkTel")
       WS_LinkFax=rs("WS_LinkFax")
       WS_WebUrl=rs("WS_WebUrl")
       WS_Post=rs("WS_Post")
       WS_Address=rs("WS_Address")
       WS_CompanyIntr=rs("WS_CompanyIntr")
	end if
%>		
		<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>

<script language="javascript">
<!--
function modulecheck(){
var frm=document.form1;
if(frm.WS_CompanyName.value=="")
 {
  alert('公司名称不能为空!');
  frm.focus();
  return false;
  }
return true;
}
-->
</script>
<table width="100%"  border="0" cellspacing="1" cellpadding="3">
  <form name="form1" method="post" action="?action=step4save" onSubmit="return modulecheck();"><tr bgcolor="#f1f1f1">
    <td width="27%" align="right">公司名称：</td>
    <td width="73%"><input type="text" name="WS_CompanyName" size="35" value="<%=WS_CompanyName%>"></td>
  </tr>
  <tr bgcolor="#f1f1f1">
    <td align="right">公司电话：</td>
    <td><input type="text" name="WS_LinkTel" size="35" value="<%=WS_LinkTel%>"></td>
  </tr>
  <tr bgcolor="#f1f1f1">
    <td align="right">公司传真：</td>
    <td><input type="text" name="WS_LinkFax" size="35" value="<%=WS_LinkFax%>"></td>
  </tr>
  <tr bgcolor="#f1f1f1">
    <td align="right">网站地址：</td>
    <td><input type="text" name="WS_WebUrl" size="35" value="<%=WS_WebUrl%>"></td>
  </tr>
  <tr bgcolor="#f1f1f1">
    <td align="right">邮政编码：</td>
    <td><input type="text" name="WS_Post" size="35" value="<%=WS_Post%>"></td>
  </tr>
  <tr bgcolor="#f1f1f1">
    <td align="right">公司地址：</td>
    <td><input type="text" name="WS_Address" size="35" value="<%=WS_Address%>"></td>
  </tr>
  <tr bgcolor="#f1f1f1">
    <td align="right" valign=top>公司简介：</td>
    <td><textarea name="WS_CompanyIntr" cols="65" rows="15" class="bgline"><%=WS_CompanyIntr%></textarea></td>
  </tr>
  <tr bgcolor="#f1f1f1">
    <td height="26" colspan="2" align="center"><input type="button" name="Submit2" value=" 上一步 " onClick="location.href='?action=step3';">
	  <input type="submit" name="Submit" value=" 下一步 ">
      <input type="button" name="Submit2" value=" 跳 过 " onClick="location.href='?action=step5';"></td>
    </tr></form>
</table>
<%end sub
sub step5()
dim actionstep,cnt
columnName="":Tablename="HX_Department":action=request("action"):actionstep=request("actionstep")
WS_Did=request("WS_Did")
if WS_Did<>"" and isnumeric(WS_Did) then