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> </p> <% CategoryView.Close %> <!--#include file="admin_bottom.asp" -->