📄 scanupdate.asp

📁 天创商务网客户资源管理系统 v1,asp+Access,iis5

💻 ASP

字号:

<!--#include file = include.asp-->
<!--#include file = CheckPurview.asp-->
<head>
<body background="images/BLogo.gif">
<style type="text/css"> 
<!--
body,td {  font-size: 9pt} 
a {  color: #000000; text-decoration: none} 
a:hover {  text-decoration: underline} 
INPUT {color: #336699; border:1px #7C96B8 solid;}
.h1 {  color: #5A7DDE;font-size: 15px} 
-->
</style>
</head>
<%
set FileObj=Server.CreateObject("Scripting.FileSystemObject")
set OpFile=FileObj.OpenTextFile(Server.MapPath(".")&"\UpdateLog.txt",1,true)
while not OpFile.AtEndOfStream
  TempContent=OpFile.ReadLine
  if TempContent<>"" then UpDateLog=UpDateLog&","&TempContent
wend
if UpDateLog<>"" then
  UpDateLog=replace(UpDateLog,chr(13),",")
  UpDateLog=replace(UpDateLog,chr(10),"")
end if

HostUrl="http://"&Request.Servervariables("server_name")& replace(Request.Servervariables("url"),"scanupdate.asp","ClienteleUpdate.asp",1,-1,1)
set rs=conn.execute("select UpdateNO from Config")
%>
<DIV class="h1"><b>程序更新及Service Pack</b></DIV>
<b>查找到以下您未更新项目.</b><BR>
可根据说明选择是否进行更新.
<table border="0" height="300" width="500" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%" height="300">
    <hr width="100%" noshade size="1" color="#0049b5">
    暂时不支持在线更新
    </td>
  </tr>
</table>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -