📄 about.asp

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

💻 ASP

字号:

<!--#include file=conn.asp-->
<html>
<head>
<title>关于渐飞商务信息更新系统</title>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
a {font-family:"verdana", "arial", "helvetica", "sans-serif"; font-size:12px; color:#505050; text-decoration:none;;}
a:hover {text-decoration:none; color:#4397C5;}
.white_bg {COLOR: #4397C5; FONT-SIZE: 12px}
.t{LINE-HEIGHT: 1.4}
BODY{FONT-FAMILY: 宋体; FONT-SIZE: 12px;
SCROLLBAR-HIGHLIGHT-COLOR: buttonface;
SCROLLBAR-SHADOW-COLOR: buttonface;
SCROLLBAR-3DLIGHT-COLOR: buttonhighlight;
SCROLLBAR-TRACK-COLOR: #cccccc;
SCROLLBAR-DARKSHADOW-COLOR: buttonshadow}
TD,DIV,form ,OPTION,P,TD,BR{FONT-FAMILY: 宋体; FONT-SIZE: 12px} 
</style>
<%
set rs=conn.execute("select RegisterNumber from Config")
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=TempContent
wend
if UpDateLog<>"" then
  UpDateLog=replace(UpDateLog,chr(13),",")
  UpDateLog=replace(UpDateLog,chr(10),"")
end if
%>
<body bgcolor=menu topmargin="0" leftmargin="0" onSelectStart="event.returnValue=false;" onConTextMenu="event.returnValue=false">
<table border="0" cellspacing="0" cellpadding="0" width="90%" align="center">
  <tr><td height="10"></td></tr>
  <tr>
    <td height="10"><a href="http://www.xunt.net"><img border="0" src="../images/logo.gif" width="88" height="31" style="border:1 groove buttonface;"></a><br>
    </td>
    <td height="10"> <fieldset style="line-height:13pt;"><legend>授权</legend> 
      <font color=red>&nbsp;&nbsp;</font>网站：<%=lcase(Request.ServerVariables("SERVER_NAME"))%> </fieldset> </td>
  </tr>
  <tr>
    <td colspan="2" height="49"><br>
      SN：<font color=red><%=rs("RegisterNumber")%></font><br>版本：2.5 build <%=UpDateLog%>&nbsp;&nbsp;<br>
      作者：<a href=mailto:rijcm@netease.com>渐飞</a> &nbsp;&nbsp;&nbsp;&nbsp;技术支持QQ：3184853
      <br>
       (c) 2002-2003, <a href=http://www.xunt.net>渐飞工作室</a> 保留所有权利。
      </td>
  </tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -