File Manager

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>

<title>�к����ʹ�����͡�ú�����</title>
 
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">

<link href="bsri2006.css" rel="stylesheet" type="text/css">
<link href="image/favicon.ico" rel="shortcut icon" type="image/x-icon">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0">
  <tr> 
    <td colspan="2"><div align="right"><img src="Image/head1.gif" width="800" height="61"></div></td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif"><div align="right"><font size="2" face="MS Sans Serif, Tahoma, sans-serif"><strong>| 
        <a href="http://www.swu.ac.th" target=_blank>SWU</a> | <a href="http://bsri.swu.ac.th" target=_blank>BSRI</a> 
        |<a href="chaPW.asp"><strong>Change 
        Password</strong></a>|<a href="log_out.asp">Log Out </a></strong></font>|</div></td>
  </tr>
  <tr> 
    <td width="20%" align="left" valign="top" bgcolor="#FFCCCC">
	
	
	
	</td>
    <td width="77%" align="left" valign="top">
	
<table width="100%" border="0" cellspacing="0">

</td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif">Contact Admin:: wassanaw@swu.ac.th 
      tel.02-649-5000 ext 17600</td>
  </tr>
  <tr><td colspan=2>Hits::</tr>
<tr><td colspan=2>

Function ConstructDigits(iValue)
  'This function accepts a single parameter, iValue, and
  'returns HTML containing a series of images representing
  'a graphical image of the value in iValue

'Start by ensuring iValue is a number
    If Not IsNumeric(iValue) then
      ConstructDigits = iValue & " IS NOT A NUMBER!"
      Exit Function
    End If

'Can't show decimals!
    If InStr(1, iValue, ".") then
      ConstructDigits = "CANNOT CONTAIN DECIMALS!"
      Exit Function
    End If

'Can't show negative numbers!
    If iValue < 0 then
      ConstructDigits = "CANNOT DISPLAY NEGATIVE NUMBERS!"
      Exit Function
    End If

Dim iLoop, strResults
    For iLoop = (Len(iValue) - 1) to 0 STEP -1
      strResults = strResults & "<img src=""/digits/" & _
          Mid(CStr(iValue),Len(iValue) - iLoop,1) & ".gif"" border=0>"
    Next

ConstructDigits = strResults
  End Function

Dim iNumber
  iNumber = Request("iNumber")

If Len(iNumber) > 0 then
    'Display iNumber
    Response.Write "<center>This page has been visited by:<br>" & _
                   ConstructDigits(iNumber) & _
                   "<br>visitors since September 28, 1998! <i>or whatever...</i></center>"
    Response.Write "<p><hr width=""75%""><p>"
  End If
   
%>

</tr>
</table>
</body>
</html>

File Manager

Editing: index_academic.asp