shopadmin1.asp

来自「vb的一个事例,简单了一点,但实用的一个电子超市系统」· ASP 代码 · 共 72 行

<!--#include file="shop$DB.asp"-->
<!--#include file="shopa_tools.asp"-->
<%
If Session("ShopAdmin")="" Then
	response.redirect "shopadmin.asp"
End If
%>
<%
AdminPageHeader
DisplayTable
AdminPageTrailer

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="1" cellspacing="1" width="90%" cellpadding="0" bordercolorlight="#666666" bordercolordark="#CCCCFF" align="center">
  <tr>
      <td width="50%">
        
      <p align="center"><b> 功能</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%" height="18">
<p align="center"><b>
<a href="<%=url%>"><NOBR><%=name%></NOBR></a></b>
</td>
    <td width="50%" height="18"><%=comment%></td>
  </tr>
<% 
End Sub
Sub FormatTrailer
%>
</table>
<%
end sub

%>