menu.asp

来自「一套比较完整的内部技术支持全部源代码,请大家共同分享」· ASP 代码 · 共 90 行

<!--#include file="../Connections/tar.asp" -->
<%
Dim rs_CLASS
Dim rs_CLASS_numRows

Set rs_CLASS = Server.CreateObject("ADODB.Recordset")
rs_CLASS.ActiveConnection = MM_tar_STRING
rs_CLASS.Source = "SELECT * FROM dbo.CLASS ORDER BY ID DESC"
rs_CLASS.CursorType = 0
rs_CLASS.CursorLocation = 2
rs_CLASS.LockType = 1
rs_CLASS.Open()

rs_CLASS_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rs_CLASS_numRows = rs_CLASS_numRows + Repeat1__numRows
%>
<%
if session("username")<>"" then
%><table width="96%" border="0">
  <tr>
    <td align="center"><a href="pwd.asp">更改密码</a></td>
  </tr>
  <tr>
    <td align="center"><a href="profile.asp">个人信息</a></td>
  </tr>
  <%
While ((Repeat1__numRows <> 0) AND (NOT rs_CLASS.EOF))
%>
  <tr>
    <td align="center"><a href="class.asp?id=<%=rs_class("ID")%>" title="<%=(rs_CLASS.Fields.Item("CLASS_TITLE").Value)%>"><%=(rs_CLASS.Fields.Item("CLASS_NAME").Value)%></a></td>
  </tr>
  <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs_CLASS.MoveNext()
Wend
%>
  <tr>
    <td align="center"><a href="tar.asp">问题解决</a></td>
  </tr>
  <tr>
    <td align="center"><a href="lyb/" target="_blank">用户留言</a></td>
  </tr>
  <tr>
    <td align="center"><a href="logout.asp">退出登录</a></td>
  </tr>
</table>
<%
else
%>
<form name="form1" method="post" action="login.asp">
  <table width="96%" border="0">
    <tr align="center">
      <td colspan="2">用户登录</td>
    </tr>
    <tr align="center">
      <td>用户名</td>
      <td>
        <input name="username" type="text" id="username" size="10"></td>
    </tr>
    <tr align="center">
      <td>密码</td>
      <td>
        <input name="password" type="password" id="password" size="10"></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit" value="登录"></td>
    </tr>
    <tr align="center">
      <td><!--<a href="reg.asp">注册</a>--></td>
      <td><a href="lostpwd.asp">丢失密码</a></td>
    </tr>
  </table>
</form>
<%
end if
%>
<%
rs_CLASS.Close()
Set rs_CLASS = Nothing
%>