new_page_1.asp

来自「超市进销存管理系统 学生学籍管理系统 1、把源代码解压到适当的目录下(教材讲」· ASP 代码 · 共 92 行

ASP
92
字号
<%
Sql=Session("sql")
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 rst=server.createobject("adodb.recordset")
rst.open sql,cnn,2,1
 
while rst.eof
  response.redirect "asp1.htm"
 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>New Page 1</title>
</head>
<body bgcolor="#00ffff">
<center>
<h2>查询结果<HR>
<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
%>

</body>














































⌨️ 快捷键说明

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