File Manager

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

</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0">
<tr>
  <td width="892" align="left" valign="top">
	<div align="center"><font size=2><strong> 
      ��ª��͡�дҹ������������<br><tr>
  
  <tr> 
    
    <td align=right>
	<%id_user=session("id_user")%>
	[<a href=indexwebboard.asp>˹���á</a>]
	<%if id_user="" then%>
	[<a href=login.asp>LogiN</a>]
	<%
	else
	%>
		[<a href=logout.asp>LogouT</a>][<a href=add_webboard_form.asp>������дҹ�������</a>]

<%
	end if
	%>
<table width="100%" border="0" cellspacing="0">
   <tr bgcolor="#F9B2BC"><td><div align="center"><strong>����<td><div align="center"><strong>����<td><div align="center"><strong>�ѹ������ҧ<td><div align="center"><strong>������ҧ<td><div align="center"><strong>�ӹǹ��Ǣ��

<%
	sql_group="select * from webboard_n"
	set ors_group=server.createobject("adodb.recordset")
	ors_group.open sql_group,conn,1,3
	if not ors_group.eof then

%>	
<tr>

<br> 
        <%
	cou=0
	ors_group.movefirst

do while not ors_group.eof 
	       cou1=cou mod 2
		   if cou1=0 then
		   colo="#EDEDEd"
		   else
		   colo="#ffffff"
		   end if
	response.write "<tr bgcolor="&Colo&"><td>"
			cou=cou+1
	response.write ors_group("id_webboard")
	response.write "<td>"
 	response.write "<a href=indexsubject.asp?id_webboard="&ors_group("id_webboard")&">"&ors_group("n_webboard")&"</a>"
	response.write "<td>"
 	response.write ors_group("cd_webboard")
	response.write "<td>"
 	'response.write ors_group("by_webboard")
ans_by=ors_group("by_webboard")
		if ans_by<>"" then
	sql1="select * from username_ where id_user="&ans_by&""
			set ors1=server.createobject("adodb.recordset")
			'response.write sql1
			ors1.open sql1,conn,1,3
			if not ors1.eof then
			username=ors1("username")
			surname=ors1("surname")
			response.write username&" "&surname

end if
		end if	
	response.write "<td>"

%> </div>
         
            <%
	id_webboard=ors_group("id_webboard")
	set ors5=server.createobject("adodb.recordset")
	 sql5="select * from subject_n where id_webboard='"&id_webboard&"'"
	 ors5.open sql5,Conn,1,3
	 a=0
	 if not ors5.eof then
	 
	ors5.movefirst
	do while not ors5.eof

a=a+1
		ors5.movenext
		loop
		end if
		response.write a
if id_user<>"" then
				sql2="select * from username_ where id_user="&id_user&""
			set ors2=server.createobject("adodb.recordset")
			ors2.open sql2,conn,1,3
			if not ors2.eof then
	 		response.write "<td>"
			permiss=ors2("permiss")
					if permiss=1 then
					%>
						[<a href=del_webboard.asp?id_webboard=<%=id_webboard%> onclick="return confirm('Are You Sure');">Del</a>]
					<%end if	
			end if
end if

ors_group.movenext
		loop
		else 
		response.write "<tr><td>No Webboard"
		end if
	%> </td>
      
        </tr>
        
      </table></div>

</td>
  </tr>

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

File Manager

Editing: webboard/indexwebboard.asp.bak