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>
	  <br>
	  <%
	  id_user=session("id_user")
	  id_webboard=request("id_webboard")
	  sql_w="select * from webboard_n where id_webboard="&id_webboard&" "
	  set ors_w=server.createobject("adodb.recordset")
	  ors_w.open sql_w,conn,1,3
	  if not ors_w.eof then
	  response.write "<h3>"&ors_w("n_webboard")&"</h3>"
	  end if
	  
	  %>
	
	  
	  <tr>
  
  <tr> 
    
    <td align=right>	[<a href=indexwebboard.asp>˹���á</a>]<%if id_user="" then%>
	[<a href=login.asp?subject_no=<%=subject_no%>&id_webboard=<%=id_webboard%>>LogiN</a>]
	<%
	else
	%>
		[<a href=logout.asp>LogouT</a>][<a href=add_subject_form.asp?id_webboard=<%=id_webboard%>>������Ǣ�͡�з��</a>]

<%
	end if
	%>

<table width="100%" border="0" cellspacing="0">
   <tr bgcolor="#F7F9E1"><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>�ӹǹ�ӵͺ<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> 
        <%
	set ors5=server.createobject("adodb.recordset")
	 sql5="select * from subject_n where id_webboard='"&id_webboard&"' order by subject_no desc"
	 ors5.open sql5,Conn,1,3
	 'a=0
	 if not ors5.eof then
	 cou=0
	ors5.movefirst
	do while not ors5.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 ors5("subject_no")
	response.write "<td>"
 	response.write "<a href=indexanswer.asp?subject_no="&ors5("subject_no")&"&id_webboard="&id_webboard&">"&ors5("subject_name")&"</a>"
	response.write "<td>"
 	response.write ors5("subject_datetime")
	response.write "<td>"
	subject_by=ors5("subject_by")
	if subject_by<>"" then
	sql1="select * from username_ where id_user="&subject_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 ors5("subject_by")
	response.write "<td>"
	sqla="select * from answers where subject_no='"&ors5("subject_no")&"'"
	set orsa=server.createobject("adodb.recordset")
	orsa.open sqla,conn,1,3
	a=0
	if not orsa.eof then
			orsa.movefirst
			do while not orsa.eof
			a=a+1
			orsa.movenext
			loop
	end if
	response.write a
	response.write "<td>"
	response.write ors5("subject_read")
	%> </div>
         
            <%

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_subject.asp?subject_no=<%=ors5("subject_no")%>&id_webboard=<%=id_webboard%> onclick="return confirm('Are You Sure');">Del</a>]
					<%end if	
			end if
end if
		ors5.movenext
		loop
		else
		response.write "<tr><td>No Subject"
		end if
	%> </td>
      
        </tr>
        
      </table></div>

</td>
  </tr>

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

File Manager

Editing: webboard/indexsubject.asp