copyright.asp

简单的企业人事工资管理系统,已经修正bug和简单化美观化, 适合于管理等学院的课程设计

<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">&nbsp;</td>
    <td align="right" width="39">&nbsp;</td>
    <td width="200">&nbsp;</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">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;版权所有：<a href="http://www.ahut.edu.cn" target="_blank">安徽工业大学管理学院</a><em><font face="Arial, Helvetica, sans-serif"><b><a href="mailto:[e-mail]"></a></b></font></em><br>
<br>
    Copyright &copy 2009 吴晓凤</td>
</tr>
<tr>
<td height="25">
<div align="center">为保证最佳的浏览及打印效果，请使用IE5.0以上版本，1024*768以上分辨率观看</div>
</td>
</tr>
</table>