copyright.asp

我们的课程设计是一个工资管理系统

<link href="home.css" rel="stylesheet" type="text/css"> <table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
  <%
Function Counts(CounterFile)
Dim objFSO,objTS
Application.Lock
set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile),1,True)
if not objTS.AtEndOFStream Then
Counts = CLng(objTS.ReadLine)
End if
Counts = Counts + 1
objTS.Close
set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile),2,True)
objTS.WriteLine(Counts)
objTS.Close
Application.Unlock
End Function
%>
  <%
  if session("counter") = Empty Then 
     session("counter") = Counts("counter.txt")
	 end if
	 %>
    <td align="center">您是自<font color="#0000CC">2004年12月1日</font>以来第 
      <%= session("counter")%>
    位光临本站的朋友</td>
    <td align="right" width="39"><img src="images/hudie.jpg" width="31" height="33"></td>
    <td width="200">&nbsp;设计制作：<i><a href="mailto:[e-mail]"><font face="Arial, Helvetica, sans-serif"><b>GZGLXT</b></font></a></i></td>
  </tr>
</table>
<table border=0 cellpadding=0 cellspacing=0 width=760 align="center">
<tbody>
<tr>
<td align=middle width="760"> ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::</td>
</tr>
</tbody>
</table>
<table width="760" border="0" align="center">
<tr>
    <td align="center" valign="middle"> | 系统优点 
      |<a href="bangzhu.asp" target="_blank"> 功能说明</a> | 操作向导 
      | 关于作者 | &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;版权所有：<a href="http://www.cumt.edu.cn">中国矿大</a> 
      <em><font face="Arial, Helvetica, sans-serif"><b><a href="mailto:[e-mail]">工资管理</a></b></font></em><br>
<br>
    Copyright &copy 2004 徐丽，李顺，黎海健，陈超，腾冬冬.    </td>
</tr>
<tr>
<td height="25">
<div align="center">为保证最佳的浏览及打印效果，请使用IE5.0以上版本，1024*768以上分辨率观看</div>
</td>
</tr>
</table>