<!--#include file="cn.asp"-->
<%if session("admin")="" then 
response.Write "<script language='javascript'>alert('請先登錄！');window.location.replace('login.asp');</script>"
response.End
cn.close
set cn=nothing
end if
id=trim(request.QueryString("id"))
umane=trim(request.QueryString("name"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from message  where id="&id
rs.open sql,cn,1,1
if not rs.eof then
%><style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#B1C3D9">
  <!--DWLayoutTable-->
  <tr>
    <td width="600" height="20" align="center" valign="top">用戶<font color="#FF6600"><%=umane%></font>的詳細信息</td>
  </tr>
  <tr>
    <td height="32" valign="top">
	<form name="form1" method="post" action="changeuser.asp?id=<%=id%>">
	<table width="600" border="0" cellpadding="0" cellspacing="2" bgcolor="#C8D5E4">
	  <!--DWLayoutTable-->
      <tr>
        <td width="60" height="20" valign="top">標題：</td>
        <td width="534" align="center" valign="top"><input name="post" type="text" id="post" value="<%=rs("title")%>" size="30"></td>
        </tr>
      <tr>
        <td height="94" valign="top">內容：</td>
        <td align="center" valign="top"><textarea name="address" cols="50" rows="7" id="address"><%=rs("inf")%></textarea></td>
        </tr>
      
      
      
      
      
      
      <tr>
        <td height="24" valign="top">注冊時間：</td>
        <td valign="top"><input name="addtime" type="text" id="addtime"  readonly="true"value="<%=left(rs("addtime"),10)%>" size="20">
          發布人：
            <input name="addtime2" type="text" id="addtime2"  readonly="true"value="<%=rs("man")%>" size="15" /></td>
        </tr>
	    <tr>
		<td height="53" colspan="2" align="center" valign="top" bgcolor="#CCD8E6"><label></label>
		  <label></label>
		  <label>
		  <input type="button" name="Submit3" value="返回上頁" onclick="history.go(-1)" />
		  </label></td>
        </tr>
    </table>
	</form></td>
  </tr>
</table>
<%
else
response.Redirect("alluser.asp")
end if
%>