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="left"><font size=2><strong> 
      ��Ǣ�͡�з��<br>
	  <br>
	  <%
	  id_webboard=request("id_webboard")
	 subject_no=request("subject_no")
	 id_user=session("id_user")
		  response.write id_user
  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 ors_w("n_webboard")
	  end if
	  set ors4=server.createobject("adodb.recordset")
	 sql4="select * from subject_n where subject_no="&subject_no&" order by subject_no desc"
	 ors4.open sql4,Conn,1,3
	 'a=0
	 if not ors4.eof then
	response.write "</div><br>�Ӷ��<br><br><br>"
 	response.write ors4("subject_name")
	readn=ors4("subject_read")
	readn=readn+1

sql_read = "update subject_n set subject_read='"&readn&"' where  subject_no = "&subject_no&""
'response.write"��䢢������������º�������Ǩ��"
  set ors_read=server.createobject("adodb.recordset")
		ors_read.open sql_read,Conn,1,3

end if
	  %>
	
	  
	  <tr>
  
  <tr> 
    
    <td><div align="right">
	[<a href=indexwebboard.asp>˹���á</a>][<a href=indexsubject.asp?id_webboard=<%=id_webboard%>>˹�ҤӶ��</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_answer_form.asp?subject_no=<%=subject_no%>&id_webboard=<%=id_webboard%>>���������Դ���</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>

<tr>

<br> 
        <%
	
	sqla="select * from answers where subject_no='"&subject_no&"'"
	set orsa=server.createobject("adodb.recordset")
	orsa.open sqla,conn,1,3
	if not orsa.eof then
	cou=0

orsa.movefirst
			do while not orsa.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 orsa("ans_no")
	response.write "<td>"
	response.write orsa("ans_name")
	response.write "<td>"
	response.write orsa("ans_datetime")
		response.write "<td>"
		ans_by=orsa("ans_by")
		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 orsa("ans_by")
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_answer.asp?ans_no=<%=orsa("ans_no")%>&subject_no=<%=subject_no%>&id_webboard=<%=id_webboard%> onclick="return confirm('Are You Sure');">Del</a>]
					<%end if	
			end if
end if
	
	'response.write orsa("ans_read")
			orsa.movenext
			loop
	end if
	%> </div>
         
         </td>
      
        </tr>
        
      </table></div>

</td>
  </tr>

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

File Manager

Editing: webboard/indexanswer.asp.bak