x_nntup.asp

人事管理系统。。。 包括了所有的基本功能

<!--#include file="x_top.asp" -->
<!--#include file="fun/nntup.asp" -->
<% 
select case request("chuli")
'////////////////////////////////////////////////
case "c_upshezhi"
xianshi1="<"&"%"&vbcrlf
xianshi2=""&vbcrlf&"%"&">"
gengxindata="nntup_upname="""&Trim(Request.Form("nntup_upname"))&""""&vbcrlf
gengxindata=gengxindata&"nntup_uppass="""&Trim(Request.Form("nntup_uppass"))&""""&vbcrlf
gengxindata=gengxindata&"nntup_uptime="""&nntup_uptime&""""&vbcrlf
gengxindata=gengxindata&"nntup_v="""&nntup_v&""""&vbcrlf

call SaveText("fun/sys_nntup.asp",xianshi1&gengxindata&xianshi2)
call cnerror("升级ID设置完毕！",1)

'/////////////////////////////////////////////////
case "updow"
upid=cnshu(Trim(Request.QueryString("upid")),10,9,"升级补丁编号",2)
Server.ScriptTimeout=9999999
upxinxi="<div>系统正在连接"&upid&"升级包！</div>"
dim imgUp '传输对象
dim GetStrUrl 'URL
dim iSaveName '要保存的名字
dim iSavePath '要保存的虚拟路径
dim iSaveMode '保存的模式 1 为图像 0 为任意文件 2是 文本
upxinxi=upxinxi&"<div>系统正在通过官方下载此升级包信息......</div>"
getstrurl="http://oa.nnt.cn/user/nnt_oa_upfile/"&upid&".mdb"
isavename=upid&".mdb"
isavepath="upfile"
isavemode="0"
CALL saveUpload(GetStrUrl,iSavePath,iSaveName,iSaveMode)
IF TESTFILe("upfile/"&upid&".mdb")=true then

'连接数据库读出文件名
Set Connsys=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("upfile/"&upid&".mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Connsys.Open connstr
if err then 
err.clear
upxinxi=upxinxi&"<div>已经下载数据，连接 upfile/"&upid&".mdb 数据库时失败,无法进行升级，请梢后再次升级此更新</div>"
else
upxinxi=upxinxi&"<div>已经下载数据， upfile/"&upid&".mdb 数据连接成功！</div>"
'----------------------------
upxinxi=upxinxi&"<br><div style='width=100%;border:solid 1px #FF9999; background-color:#FFECF5;padding:5px;'>此次升级改动以下文件，大家有需要可提前做好备份,然后点下方自动更新红字。<br>"
sql="SELECT *  FROM [booshopnew]  " 
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,connsys,1,1

for sd=1 to int(rs.recordcount)
if (sd mod 8)=0 then huanhang="<br>"
upxinxi=upxinxi&""&rs("boopath")&""&rs("booname")&" "&huanhang
huanhang=""
rs.movenext
next
rs.close
set rs=nothing

upxinxi=upxinxi&"</div><br>"
upxinxi=upxinxi&"<div  class='uptdheng' ><img src='skins/uptishi.gif' align=absmiddle><a href='?chuli=anzhuang&upid="&upid&"'><font color=#ff0000>"&upid&"升级包下载完毕，点此进行下一步自动安装</font></a></div>"
end if
connsys.close
set connsys=nothing
else
upxinxi=upxinxi&"<div>"&upid&"<img src='skins/tishi.gif' align=absmiddle>升级包下载下载失败，请梢后在试......</div>"
end if

'///////////////////////////////////////////////////
case "anzhuang"
upid=cnshu(Trim(Request.QueryString("upid")),10,9,"升级补丁编号",2)
Server.ScriptTimeout=9999999
On Error Resume Next
upxinxi="<div>系统正在建立数据库连接！</div>"
Set Connsys=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("upfile/"&upid&".mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Connsys.Open connstr
if err then 
err.clear
upxinxi=upxinxi&"<div>系统连接 upfile/"&upid&".mdb 数据库失败,无法进行升级，请梢后再次升级此更新</div>"
else
upxinxi=upxinxi&"<div>系统连接 upfile/"&upid&".mdb 数据库成功,正在更新中......</div><br>"
'----------------------------
sql="SELECT *  FROM [booshopnew]  " 
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,connsys, 1, 1
'=======================
DBZS_file=DB2FILE(RS)
'写文件完毕！
upxinxi=upxinxi&"<div  class='uptdheng'><img src='skins/uptishi.gif' align=absmiddle><a href='?'><font color=#ff0000>本次升级更新了 "&DBZS_file-1&" 个文件，升级完毕！点此回到检测页</font></a></div>"
rs.close
'开始更新数据库
'################################
sql="SELECT *  FROM [upweb]  " 
rs.Open sql,connsys, 1, 1
asprs=rs("upwebnei")
if asprs<>"" then
call SaveText("nntup_temp_up.asp",asprs)
upxinxi=upxinxi&"<script src='nntup_temp_up.asp'></script>"
end if
rs.close
set asprs=nothing

shengjiwenjian=ReadText("fun/sys_nntup.asp")
call SaveText("fun/sys_nntup.asp",replace(replace(shengjiwenjian,nntup_v,upid),nntup_uptime,now()))
end if
'/////////////////////////////////////////////
case ""
upurl="http://oa.nnt.cn/user/nntup_oa_userup.asp?upname="&nntup_upname&"&uppass="&nntup_uppass&"&uptime="&nntup_v&""
chuliok=GetmyWebData(upurl)
'Response.Write(chuliok)
if instr(chuliok,"webok||@@||")>0 then
upxinxi="<div>官方升级接口连接成功！</div>"
chulioks=split(chuliok,"||@@||")
for uc=0 to ubound(chulioks)
next
if chulioks(1)="userok" then
upxinxi=upxinxi&"<div>检测您的升级ID与操作码完全正确，通过认证。</div><br>"
if chulioks(2)="upno" then
upxinxi=upxinxi&"<div>检测升级文件，检测到您的系统目前为最新版本。</div>"
else
updow=split(chulioks(2),"|@|")
for ux=0 to ubound(updow)
if updow(ux)<>"" then
if ux=0 then
upxinxi=upxinxi&"<div class='uptdheng'><img src='skins/uptishi.gif' align=absmiddle><a href='?chuli=updow&upid="&updow(ux)&"' onclick='uptishi()'><font color=ff0000> 检测到升级补丁"&ux+1&"："&updow(ux)&" 点击升级</font></a></div>"
else
upxinxi=upxinxi&"<div class='uptdheng' ><img src='skins/uptishi2.gif' align=absmiddle><font color=009900> 检测到升级补丁"&ux+1&"："&updow(ux)&" 等待升级...</font></div>"
end if
end if
next
end if
else
upxinxi=upxinxi&"<div>检测您的升级ID与操作码时，不正确，无法继续。</div>"
end if
else
upxinxi="暂时无法检测，网络原因或其他原因引起，请稍后在试......"
end if
end select
 %>
 <style type="text/css">
<!--
.uptdheng {
	border: 1px solid #CCCCCC;
	width: 400px;
	margin:2px;
	height=30px;
	padding:5px 5px 5px 5px;
}
-->
</style>
<table width="100%" height="282" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="200" valign="top">
	<% call zuo_kuaijie("系统升级中心","系统升级主页面,?")
	 %>
	</td>
    <td valign="top"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td colspan="3"></td>
      </tr>
      <tr>
        <td width="1%"><img src="skins/list/l1.gif" width="7" height="9" /></td>
        <td width="98%" background="skins/list/l2.gif"></td>
        <td width="1%"><img src="skins/list/l8.gif" width="8" height="9" /></td>
      </tr>
      <tr>
        <td background="skins/list/l3.gif">&nbsp;</td>
        <td height="400" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="4">
          <% if Trim(Request.QueryString("chuli"))="" then %><tr>
            <td colspan="2">通过本页,您可以查看您系统目前的状态,并可以通过自动更新检测将您的系统升级更新到最安全最优秀的版本!</td>
          </tr><tr>
            <td colspan="2" class="td_heng"><b>您的升级ID信息</b></td>
          </tr><tr>
            <td colspan="2">
              <table width="100%" border="0" cellspacing="0" cellpadding="4">
              <form id="form1" name="form1" method="post" action="?chuli=c_upshezhi"><tr>
                <td>升级ID</td>
                <td><input name="nntup_upname" type="text" class="nnt_input" id="nntup_upname" value="<%=nntup_upname%>" /></td>
                <td>升级操作码</td>
                <td><input name="nntup_uppass" type="password" class="nnt_input" id="nntup_uppass" value="<%=nntup_uppass%>" /></td>
                <td><input name="Submit" type="submit" class="nnt_submit" value="保存" /></td>
                <td>&nbsp;</td>
              </tr>  </form>
            </table>
            
              </td>
          </tr>
          <tr>
            <td colspan="2" ><b>您的系统版本信息</b></td>
          </tr>
          <tr>
            <td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="4">
              <tr>
                <td>您系统当前版本: <a href="http://oa.nnt.cn" target="_blank"><font color="#009900">NNT公司管理系统 V<%= nntup_v %></font></a></td>
                <td>&nbsp;</td>
                <td>您上次自动升级时间: <font color="#009900"><%= nntup_uptime %> </font></td>
                <td>&nbsp;</td>
              </tr>
              <tr>
                <td>系统官方地址: <a href="http://oa.nnt.cn" target="_blank"><font color="#FF3300"><u>http://oa.nnt.cn</u></font></a> </td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
              </tr>
            </table></td>
          </tr><% End If %>
          <tr>
            <td colspan="2" class="td_heng"><strong>系统自动升级更新检测：</strong></td>
          </tr>
          <tr>
            <td colspan="2"><%= upxinxi %>&nbsp;</td>
          </tr>
          
        </table></td>
        <td background="skins/list/l7.gif">&nbsp;</td>
      </tr>
      <tr>
        <td><img src="skins/list/l4.gif" width="7" height="8" /></td>
        <td background="skins/list/l5.gif"></td>
        <td><img src="skins/list/l6.gif" width="8" height="8" /></td>
      </tr>
    </table></td>
  </tr>
</table><script language="JavaScript" type="text/javascript">
function uptishi(){
tishi_qp_kai('<img src=skins/loading.gif> 正在下载升级包，请不要操作。大概需要15秒至1分钟，请耐心等待！<br>',1);
}
</script>

<!--#include file="x_di.asp" -->