📄 asp4.asp

📁 超市进销存管理系统学生学籍管理系统 1、把源代码解压到适当的目录下（教材讲到的目录）。 2、1-9章打开对应章节例子代码复制到命令窗口

💻 ASP

字号:

<%
Sql=Session("sql")
Sql1=Session("sql1")
Ps="provider=microsoft.Jet.oledb.4.0;data source=C:\My Documents\设计\db2.mdb"
Set cnn=server.Createobject("ADODB.connection")
Cnn.open ps

'创建rst
set rst1=server.createobject("adodb.recordset")
rst1.open sql,cnn,2,1
set rst=server.createobject("adodb.recordset")
rst.open sql1,cnn,2,1

while rst1.eof
  response.redirect "asp3.asp"
 wend
 
while rst.eof
 response.write "数据库中没有相关的记录！请核对后再次输入！"
 response.end
wend

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>查询结果</title>
<meta name="Microsoft Theme" content="expeditn 011">
</head>
<body bgcolor="#FFFFFF" background="exptextb.jpg" text="#000000" link="#993300" vlink="#666600" alink="#CC3300">
<!--mstheme--><font face="宋体">
<center>
<!--mstheme--></font>
<h2><!--mstheme--><font face="宋体" color="#660033">查询结果<!--mstheme--></font><!--mstheme--><font face="宋体">
<!--msthemeseparator--><p align="center"><img src="exphorsa.gif"></p>
<!--mstheme--></font>
<table border=1>
<tr bgcolor=#00ffaa>
<%
 for i=0 to rst.fields.count-1
 response.write"<td>" & rst(i).name & "</td>"
 next
 %>
 </TR>
 <%
 rst.movefirst 
 while not rst.eof
 x="<tr>"
  for i=0 to rst.fields.count-1
  x=x & "<td>" & rst(i) & "</td>"
next
  response.write x & "</tr>"
  rst.movenext
wend
%>

<!--mstheme--><font face="宋体"><!--mstheme--></font>

</body>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -