myweb.asp

来自「使用asp+sqlserver2000编写的学生管理系统」· ASP 代码 · 共 65 行

ASP
65 行
字号 

<!--#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>

myweb.asp - 源码说明

本页面展示了「使用asp+sqlserver2000编写的学生管理系统」中的 myweb.asp 源码文件，采用 ASP 编程语言编写，共 65 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?