shopadmin1.asp

来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 68 行

<!--#include file="shop$DB.asp"-->
<!--#include file="shopa_tools.asp"-->
<%
'**********************************************************************
' Shop administration only
' Shopadmin.asp   forces relogin
' shopadmin1.asp  (this routine checks to see if you are already logdded in
'***********************************************************************   
If Session("ShopAdmin")="" Then
	response.redirect "shopadmin.asp"
End If
%>
<%
AdminPageHeader
DisplayTable
AdminPageTrailer
'******** Display table
Sub DisplayTable

%>
<p align="center">选择相应的项可以进行管理编辑</p>

<p>
<center>
<%
     Dim myconn
     ShopOpenDatabase myconn
     FormatHeader
     list = GetAccess(Session("ShopAdmin"), myconn)
     ac = Split(list,",")
     For each item in ac
	  SQL = "SELECT * FROM tblAccess WHERE fldAuto = " & cINT(item)
	  Set objRec = myconn.Execute(SQL)

         FormatRow objRec
      Next
      ShopCloseDatabase myconn
       FormatTrailer
end sub
Sub FormatHeader
%>
<table border="2" cellspacing="1" width="90%" bordercolor="#008080">
    <tr>
      <td width="50%">
        <p align="center"><b><font face="Verdana">功能</font></b></td>
      <td width="50%">
        <p align="center"><b><font face="Verdana">描述</font></b></td>
    </tr>
<%
end sub
Sub FormatRow (objRec)
dim name,url,comment
name = objRec("fldName")
url = objRec("fldURL")
Comment=objREC("fldComment")
%>
<tr><td width="50%"><p align="center"><b>
<a href="<%=url%>"><font size=4 face=arial><NOBR><%=name%></NOBR></font></a></b>
</td><td width="50%"><%=comment%></td></tr>
<% 
End Sub
Sub FormatTrailer
%>
</table>
<%
end sub

%>