📄 gbmanage.asp

📁 北京市公交车查询,基于ASP的开发环境!数据库是ACCESS [成绩查询.rar] - 网上成绩查询系统把学生姓名成绩输入数据库...[

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
Set rs=Server.CreateObject("ADODB.Recordset")
number=session("number")
passwd=session("Passwd")
sql="select * from admin1 where number='"&number&"'and passwd='"&Passwd&"'"
rs.open sql,conn,3,3
if rs.eof then
response.redirect "index.asp"
response.end
end if
%> 
<%
key1=rs("oskey")
IF not(KEY1="super") THEN
	response.redirect "error.asp?id=065"
	response.end
END IF
%>

<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from gb ORDER by id"
rs.Open sql,conn,3,3
if not rs.eof then
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css">
<title>理学院成绩查询系统-学生列表</title>
<style type="text/css">
<!--
.style1 {color: #0000FF}
.style3 {color: #0099FF}

-->
</style>
</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr><td><div align="right"><a href="manage.asp"><font color="red">返回管理首页</font></a>&nbsp;&nbsp;&nbsp;</div></td></tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#316395" vspace="0" hspace="0" bordercolor="#316395" bordercolordark="#FFFFFF" bordercolorlight="#316395" background="images/titbg.gIf" height="26" align="center">
  <tr>
    <td height="25"><div align="center"><a align="center">留言管理 </a></div></td>      
  </tr>
</table>
<% do while not rs.eof %>
<table width="760">
<tr><td>&nbsp;</td></tr></table>
<table width="760" border="0" cellspacing="0" align="center" cellpadding="0">
  <tr>
    <td height="20" background="images/red.gif"><span class="style3"> <%=rs("class")%> 班学号是 <%=rs("number")%> 的同学 <%=rs("studentname")%>说:</span></td>
  </tr>
  <tr>
    <td height="100" bgcolor="#F2F2F2">&nbsp;&nbsp;&nbsp;&nbsp;<%=rs("gbtext")%></td>
  </tr>
  <tr>
    <td height="20" bgcolor="#FFFFFF"><div align="right">时间:<%=rs("date")%> &nbsp;&nbsp;IP:<%=rs("ip")%>&nbsp;&nbsp;<a href="delgb.asp?id=<%=rs("id")%>">删除吧?</a>&nbsp;&nbsp;&nbsp;&nbsp;</div></td>
  </tr>
</table>
 <% i=i+0                                                                                                  
          rs.movenext                                                                                                  
          if i>=rs.PageSize then exit do 
		  loop                                                                    
          rs.close                                                                                                
          set rs=nothing                                                                                                
          conn.close                                                                                                
          set conn=nothing %>



</body>

</html>
<%
else
response.write "对不起,没有留言!"
end if%>
<!--#include file="bottom.asp"-->

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -