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

    <!--#include file="admin_scripts.asp" -->
<!--#include file="admin_top.asp" -->
<%
dim myParam
myParam = Session("CurrentPage")
if (Request.Form("ID") <> "") then
  myParam = Request.Form("ID")
end if
%>
<%
dim ItemMenu, ItemMenu_numRows
set ItemMenu = Server.CreateObject("ADODB.Recordset")
ItemMenu.ActiveConnection = MM_oConn_STRING
ItemMenu.Source = "SELECT * FROM ac_item WHERE ID = "& myParam & ""
ItemMenu.CursorType = 0
ItemMenu.CursorLocation = 2
ItemMenu.LockType = 1
ItemMenu.Open()
ItemMenu_numRows = 0
%>
<table width="100%" border="0" cellpadding="5" cellspacing="0">
  <tr> 
  <td><img src="../images/blank.gif" width="18" height="6" alt="" /></td></tr>
  <tr valign="baseline"><td class="ac_admin_main"><%= adminHeading(2,lang_admin_default_001,"icons/document_view_24.gif",ItemMenu.Fields.Item("Title").Value,null) %></td></tr>
  <tr><td class="ac_contentarea_view" colspan="4"><%=(ItemMenu.Fields.Item("Content").Value)%></td></tr>
</table>

<%
ItemMenu.Close()
%>

<!--#include file="admin_bottom.asp" -->