📄 list4.asp

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

💻 ASP

字号:

<HTML>
  <HEAD><title>职工工资</title></HEAD>
  <BODY>
    <FORM METHOD='POST' ACTION='list4.asp?YesNo=yes'>
      <table border=1 align=center cellspacing=0 cellpadding=4 height=390>
        <TR><td width=100><td width=195>
<%
  Sub ShowPage(objRS,no)
    objRS.AbsolutePosition=no
      ' 显示单记录
    For J=0 To objRS.Fields.Count-1
      Data="<TR><td >" & objRS.Fields(j).name
      Data=Data & "<td>" & objRS.Fields(j).Value
      Response.Write data
    Next
  End Sub
  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")
  rs.open "职工工资",conn,1,2,2
  if  Request("YesNo") = "yes" Then
    n=Session("no")
    RS.AbsolutePosition=n
    rs.delete
    rs.update
  end if
  If Session("no") = "" Then Session("no")=1
  if Session("no")>RS.RecordCount then Session("no")=RS.RecordCount
  ShowPage RS, Session("no")
  Response.write "</table>"
  RS.close
  set RS=nothing
  conn.close
  set conn=nothing
%>
      <table border=0 align=center height=50>
        <tr><td><INPUT type=submit value="确定删除">
      </table>
    </FORM>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -