?<!--#include file="../66hc.asp"--><!--#include file="admin.asp"-->
<card id="main" title="分類管理" >
<p>
數字小的在前面<br/>
<%
id=request("id")
if id="" then id="0"
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from [66hc_class] where [66hc_id]="&id
rs.open rsstr,conn,1,2
if rs.eof then 
response.write("無此分類<br/>")
else
%>
分類名稱<input name='name<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("66hc_name"))%>'/><br/>
排列順序<input name='pid<%=minute(now)%><%=second(now)%>' format='*N' maxlength='6' value='<%=ubb(rs("66hc_pid"))%>' size='2' emptyok='false'/><br/>
是否換行<select name='br<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("66hc_br"))%>'>
<option value="0">無須換行</option>
<option value="1">自動換行</option>
</select><br/>
是否顯示在上部<select name='xs<%=minute(now)%><%=second(now)%>' value='<%=ubb(rs("66hc_xs"))%>'>
<option value="0">顯示在上部</option>
<option value="1">顯示在下部</option>
</select><br/>
<anchor>[確定編輯]<go href='66hcflsz.asp' method='post' accept-charset='utf-8'>
<postfield name='name' value='$(name<%=minute(now)%><%=second(now)%>)'/>
<postfield name='pid' value='$(pid<%=minute(now)%><%=second(now)%>)'/>
<postfield name='br' value='$(br<%=minute(now)%><%=second(now)%>)'/>
<postfield name='xs' value='$(xs<%=minute(now)%><%=second(now)%>)'/>
<postfield name='id' value='<%=id%>'/>
<postfield name='sb' value='<%=sb%>'/>
</go></anchor>
<%
end if
'rsp.update
rs.close
set rs=nothing%>
<%
response.write "<br/>----------<br/><a href='tjfl.asp?sb="&sb&"'>增加分類</a><br/>"
%>
----------<br/>
<a href="66hc_fl.asp?sb=<%=sb%>">返回分類管理</a><br/>
<a href="d_i.asp?sb=<%=sb%>">返回管理首頁</a><br/>
<a href="/?sb=<%=sb%>">返回網站首頁</a><br/>
報時:<%=time%>
</p></card></wml>