📄 12_5_1.asp

📁 ASP 网页数据库短训教程源码

💻 ASP

字号:

<HTML>
  <HEAD><title>职工工资</title></HEAD>
  <BODY>
<%
  set conn=server.createobject("adodb.Connection")
  CS="Provider=Microsoft.jet.OLEDB.4.0;Data Source="
  conn.ConnectionString=CS & Server.MapPath("rsgl.mdb")
  conn.Open
  set rs=server.createobject("adodb.recordset")
' 从数据表中读取符合SQL语句的记录并存放在Recordset对象中
  Set RS = Server.CreateObject("ADODB.Recordset")
sSQL = "SELECT 姓名 as 同事姓名 FROM 职工工资 WHERE  姓名 not in ('赵强') and "
sSQL =sSQL & "部门= (SELECT 部门 FROM 职工工资 WHERE 姓名 in ('赵强'))"

  RS.Open sSQL, Conn, 1,1,1
  if rs.EOF then
    Response.Write "数据库中暂无资料!"
  else
    Response.write "<table border=1 align=center cellspacing=0 cellpadding=4>"
    Response.write "<tr align=center>"
      ' 读取Recordset的字段名称以作为表格的标题
    for i=0 to rs.fields.count-1
      Response.Write "<td>" & rs.fields(i).name
    next
    Response.Write "</tr>"
      ' 读取Recordset的字段作为表格的内容
    do while not rs.EOF
      data="<tr>"
      for i=0 to rs.fields.count-1
        data=data & "<td>" & rs.fields(i).value
      next
      Response.Write data & "</tr>"
      rs.MoveNext
    loop
  end if
  rs.Close
  set rs=nothing
  conn.Close
  set conn=nothing
%>
    </table>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -