📄 myweb.asp

📁 使用asp+sqlserver2000编写的学生管理系统

💻 ASP

字号:


<!--#include file="inc/adovbs.inc" -->
<!--#include file="showbypage.asp" -->
<% 
  dim conn,cmd,rs,sqlstr
  dim sno,major
  set conn= Server.CreateObject("adodb.connection")
  conn.connectionstring="provider=sqloledb;server=(local);database=xscj;uid=sa;pwd=;"
  conn.open
  set rs=Server.CreateObject("adodb.recordset")
  rs.cursortype=adOpenStatic
  rs.locktype=adLockReadOnly
  rs.pagesize=10
  sno=request("sno")
  major=request("major")
  sqlstr="select * from xs "
  if (sno<>"") then
     sqlstr=sqlstr&" where xh='"&sno&"'"
  else
     if (major<>"")	  then
	 sqlstr=sqlstr&" where zy='"&major&"'"
	 end if
  end if
  rs.open sqlstr,conn	 
  if rs.eof=false then
    page=cint(request("page"))
	
	if page<=0 then page=1
	if page>rs.pagecount then page=rs.pagecount
	 showbypage rs,page
	 else
	 response.Write("<center><font color=red>无记录</font></center>")
	 response.End
  end if
  %>
  <body>
  <form name="form1" method="post" action="myweb.asp">
<p align="center">
  <% 
 if page<>1 then
  response.Write("<a href=search.asp?page=1>第一页</a>")
  response.Write("&nbsp;&nbsp;&nbsp;")
  response.Write("<a href=search.asp?page="&(page-1)&">上一个</a>")
 end if
 if page<>rs.pagecount then
  response.Write("&nbsp;&nbsp;&nbsp;")
  response.Write("<a href=search.asp?page="&(page+1)&">下一个</a>")
  response.Write("&nbsp;&nbsp;&nbsp;")
  response.Write("<a href=search.asp?page="&(rs.pagecount)&">最后一个</a>")
 end if
 %>
  请输入页码：
  <label>
    <input name="page" type="text" id="page" size="6">
    </label>
  页码：<font color="#FF0000"><%= page %>/<%= rs.pagecount %></font></p>
</form>
<% 
rs.close
conn.close
set rs=nothing
set conn=nothing
 %>
  </body>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -