www.gusucode.com > 站长俱乐部新闻发布系统精简版 1.01源码程序 > admin/admin_cat_view.asp

    <!--#include file="admin_scripts.asp" -->
<!--#include file="admin_top.asp" -->

<%
dim myParam
myParam = "1"
if (Request.Form("ID") <> "") then
  myParam = Request.Form("ID")
end if
%>
<%
dim CategoryView
set CategoryView = Server.CreateObject("ADODB.Recordset")
CategoryView.ActiveConnection = MM_oConn_STRING
CategoryView.Source = "SELECT * FROM ac_category WHERE ID = "& myParam & ""
CategoryView.CursorType = 0
CategoryView.CursorLocation = 2
CategoryView.LockType = 1
CategoryView.Open()
'Category_numRows = 0
%>

<table width="100%" border="0" cellpadding="5" cellspacing="0">
  <tr> 
  <td><img src="images/blank.gif" width="4" height="6"></td></tr>
    <tr valign="baseline"><td><%= adminHeading(2,lang_admin_default_001,"icons/window_view_24.gif",CategoryView.Fields.Item("Name").Value,null) %></td></tr>
  <tr> 
    <td class='contentarea' colspan=4>

        <TABLE width="100%" align=center border=0>
        <TR>
	<TD><IMG height=1 src="images/blank.gif" width=153></TD></TR>
	<TR>
          <tr valign="baseline"> 
            <td align="right" nowrap class="content_titles">名称:</td>
            <td class="content_right3" width="100%"><%=(CategoryView.Fields.Item("Name").Value)%></td>
          </tr>
          <tr valign="baseline"> 
            <td align="right" class="content_titles">排序:</td>
            <td class="content_right3" width="100%"><%=(CategoryView.Fields.Item("VerticalPosition").Value)%></td>
          </tr>
</table>  
     </td> </tr>

    </table>

<p>&nbsp;</p>
<%
  CategoryView.Close
%>
<!--#include file="admin_bottom.asp" -->