File Manager

<%response.cachecontrol="private"%>

<%
		  pern=session("username")
		  per="2"
		  tb="research"
		  sqlnc="select * from tb_permission where id_staff='"&pern&"' and tb_edit='"&per&"' and tb_name='"&tb&"'"
		  set orsnc=server.createobject("adodb.recordset")
		  orsnc.open sqlnc,conn,1,3
				'if not orsnc.eof then
		  %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<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">SWU</a> | <a href="http://bsri.swu.ac.th">BSRI</a> 
        |<a href="log_out.asp">Log Out </a></strong></font>|</div></td>
  </tr>
  <tr> 
 
    <td width="77%" align="left" valign="top">
      <div align="center">
        <p><strong>˹ѧ������¹ ��Ъ�����ѹ�� ���ء��ҹ��Һ<br>
       [<a href="http://bsris.swu.ac.th/letin_public.asp?id=1">˹ѧ������¹-��Ъ�����ѹ��</a>]
        [<a href="http://bsris.swu.ac.th/letin_public.asp?id=10">�ع�Ԩ��</a>]
       [<a href="http://bsris.swu.ac.th/letin_public.asp?id=11">�ع����֡��</a>]
       <p>
		<%
id=request("id")
' �֧�����Ũҡ�ҹ������
if id=0 then
		id=1
end if
set rs=server.createobject("adodb.recordset")

sql = "Select * From letterin where statusletter=1 and id_typeletin='"&id&"' Order By yreceive desc, id_letter  Desc"
rs.Open sql, conn, 1, 3
'response.write sql
' �ӡ����˹��
pageno = 1
If Request.QueryString("pageno") <> "" Then
  pageno = Request.QueryString("pageno")
End If

On Error Resume Next
rs.pagesize=30
totalpage = rs.PageCount
If pageno < 1 or Cint(pageno) > Cint(totalpage) Then pageno = 1 End if
rs.AbsolutePage = pageno
%>
<table width="100%" border="1" cellspacing="0" cellpadding="0">

<br>
        </p>
        
          <tr>
            <td bgcolor="#669900"><div align="center" class="style1">�Ţ���˹ѧ���</div></td>
            <td bgcolor="#669900"><div align="center" class="style1">�Ţ����Ѻ</div></td>
            <td bgcolor="#669900"><div align="center" class="style1">�ѹ ��͹ �� </div></td>
			<td bgcolor="#669900"><div align="center" class="style1">�ҡ</div></td>
            <td bgcolor="#669900"><div align="center" class="style1" >����ͧ</div></td>
            
         
            
          </tr>
    <%
	i=1
' �ӡ���ʴ���
For a=1 to rs.PageSize
  If rs.EOF Then Exit For 
 ' Response.Write rs("id_letter")&"<br>"
 ii=i mod 2
					 if ii=0 then
					 bgc="#ccffcc"
					 else
					 bgc="#ffffff"
					 end if
  %>
<tr bgcolor=<%=bgc%>><td>
          <%
		  i=i+1
		  response.write rs("id_sent")&"</td>"
		  response.write "<td>"
		 response.write rs("id_letter")
		  response.write "<td>"
		  response.write rs("dletter")&"/"&rs("mletter")&"/"&rs("yletter")&"[˹ѧ���]<br>"
		  
		  response.write rs("dreceive")&"/"&rs("mreceive")&"/"&rs("yreceive")&"[�Ѻ]</td>"
		   response.write "<td>"
		  response.write rs("originletter")&"</td>"
		   response.write "<td>"
   response.write rs("titleletter")
	response.write "[<a href=countletin.asp?id="&rs("id_letter")&">"&rs("filename")&"</a>]<span class=style2>[��:"&rs("hitc")&" ����]</span> </td>"
		   
		   'response.write "[<a href=/letinup/"&rs("filename")&">"&rs("filename")&"</a>]</td>"

response.write "</tr>"
		  
  rs.MoveNext
Next
response.write "</table>"
' �ӡ���ʴ��Ţ˹��
							If pageno <> 1 and pageno <> 2 Then
							  Response.Write "[<a href='letin_public.asp?id="&id&"'>˹���á</a>] "
							End If 
							if pageno <> 1 Then
							  Response.Write "[<a href='letin_public.asp?pageno="&pageno-1&"&id="&id&"'>��͹˹��</a>]  "
							End if
For b =1 To totalpage 
						  If b = Cint(pageno) Then 
							Response.Write "<b> ["&b&"] </b>"
						  Else
							Response.Write "<a href='letin_public.asp?pageno="&b&"&id="&id&"'>"&b&"</a>"
						  End If
		  If b <> totalpage Then
			 Response.Write " | " 
		  End If
Next
					If Cint(pageno) <> totalpage Then
					 Response.Write " [<a href='letin_public.asp?pageno="&pageno+1&"&id="&id&"'>�Ѵ�</a>]"
					End If
If Cint(pageno) <> totalpage Then
  Response.Write " [<a href='letin_public.asp?pageno="&totalpage&"&id="&id&"'>˹���ش����</a>]"
End If
%>
          
          
        </p>
        <p></p>
		<p></p>
  </div>
 </td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif">&nbsp;</td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: letin_public.asp