admin_index.asp

来自「于毕业设计与论文以及做课题用-MSK Simulink simulation p」· ASP 代码 · 共 21 行

<%
If session("admin")="admin" Then 
%>
<!-- #include file="include/conn.asp" -->
<%
  set rs = server.CreateObject("adodb.recordset")
  sql = "select * from contents order by id desc"
  rs.Open sql,conn,1,1
  Do While Not rs.eof
      response.write ("<table><tr><td>留言者姓名:"&rs("name")&"</td></tr>") 
      response.write ("<tr><td>留言:"&rs("content")&"</td></tr></table><br/>")
      response.write ("<a href=modify.asp?id="&rs("id")&" >修改</a>      <a href=delete.asp?id="&rs("id")&" >删除</a>")
	  rs.movenext
	  Loop
	  rs.close
	  Set rs = Nothing
      response.write ("<br><br><br><br><br><a href=login_out.asp>退出</a>")
  else
      response.redirect("index.asp")
  End If 
%>