ASP怎样循环读取数据库记录

技术ASP怎样循环读取数据库记录这篇文章给大家介绍ASP怎样循环读取数据库记录,内容非常详细,感兴趣的小伙伴们可以参考借鉴,希望对大家能有所帮助。<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"

这篇文章给大家介绍动态服务器页面怎样循环读取数据库记录,内容非常详细,感兴趣的小伙伴们可以参考借鉴,希望对大家能有所帮助。

% @ LANguage=' VBscript ' CodePage=' 936 ' %

%会话。代码页=936%

!DOCTYPEhtmlPUBLIC '-//W3C//DTDXHTML 1.0 transitional//EN '

http://www .w3。org/TR/XHTML 1/DTD/XHTML 1-过渡性。' DTD '

html xmlns=' http://www。w3。org/1999/XHTML '

meta http-equiv=' Content-Type ' Content=' text/html;charset=gb2312 '

元名称=“视口”内容=“宽度=设备宽度,初始比例=1.0,

最小规模=1.0,最大规模=1.0,用户可扩展=否'

titleScale3DC2018Read/title

/head

身体

%

Setconn=服务器CreateObject('ADODB .连接)

“提供商=微软.喷气机。OLEDB.4.0数据源=

服务器. MapPath('数据库\ Scale 3 CiP . MDB’)

conn.Openconnstr

Setrs=服务器CreateObject('ADODB .记录集)

sql='从customorderbyiddesc中选择*

卢比.Opensql,conn,1,1

与此同时

%

tableborder=1

tr

td%=rs('keyid')%/td

td%=rs('IPAddress')%/td

td%=rs('面积)%/td

td%=rs('LoginTime')%/td

/tr

%

rs.movenext

rs.close()

setrs=无

conn.close()

setconn=无

%

/table

/body写入数据库

% @ LANguage=' VBscript ' CodePage=' 936 ' %

%会话。代码页=936%

!-# include file=' web \ \ global。Inc -

!DOCTYPEhtmlPUBLICnb

sp;"-//W3C//DTD XHTML 1.0 Transitional//EN" 
      "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312" >
<!--meta http-equiv="Content-Type" content="text/html; charset=utf-8" /--> 
<meta  name="viewport" content="width=device-width, initial-scale=1.0,
     minimum-scale=1.0, maximum-scale=1.0, user-scalable=no" >
<title>Scale3DC2018</title>
</head>
<body>
    <%
     dim keyid
     keyid = request.QueryString("keyid")
 if IsEmpty(keyid) then
    Response.End()
 end if
%>
<%'创建连接对象
        set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
        DBPath =Server.MapPath("database/Scale3DCIP.mdb")
        dbconnection.Open  "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>
IP 地址
<%
        dim ipStr   
        ipStr = getip()
      'Response.Redirect("http://api.map.baidu.com/location/ip?ip=
               "+getip()+"&ak=v6j7koi0ywtlK1RxZR47KSvkmmSzqIdn&coor=bd09ll")
%>
<%'创建记录对象
         Set rs =Server.CreateObject("ADODB.Recordset")
 '打开记录表
 dim stime
 stime = Now()
 rs.open "select * from Custom where IPAddress='"&ipStr&"'",dbconnection,1,3
 if  rs.eof then
    rs.close()
    rs.Open "insert into Custom(KeyID,IPAddress,Area,loginTime)values 
           ('"&keyid&"','"&ipStr&"','','"&stime&"')", dbconnection,1, 3
 else
    rs.close()
    rs.Open "update Custom set loginTime ='"&stime&"' where KeyID =
         '"&ipStr&"'", dbconnection,adOpenDynamic, 3
 end if
%>
<%
    'rs.close 无返回不需要此句
        set rs=nothing
        dbconnection.close
        set dbconnection=nothing
%>
</body>

%后面最好不要加注释,注释加到其他行

关于ASP怎样循环读取数据库记录就分享到这里了,希望

内容来源网络,如有侵权,联系删除,本文地址:https://www.230890.com/zhan/129585.html

(0)

相关推荐

  • animation

    技术animation animationanimation一般是与 @keyframes一起用,来制作网页动画。但animation有很多参数,每种参数对应的属性有不同含义。参数类型如下:animat

    礼包 2021年11月22日
  • MSSQL2005数据附加失败报错3456的解决办法

    技术MSSQL2005数据附加失败报错3456的解决办法MSSQL2005数据附加失败报错3456的解决办法,很多新手对此不是很清楚,为了帮助大家解决这个难题,下面小编将为大家详细讲解,有这方面需求的人可以来学习下,希望

    攻略 2021年12月1日
  • 基于App SDK和API搭建无人自习室等无人场景有哪些

    技术基于App SDK和API搭建无人自习室等无人场景有哪些本篇文章给大家分享的是有关基于App SDK和API搭建无人自习室等无人场景有哪些,小编觉得挺实用的,因此分享给大家学习,希望大家阅读完这篇文章后可以有所收获,

    攻略 2021年12月10日
  • 怎么使用JavaScript异步操作中串行和并行

    技术怎么使用JavaScript异步操作中串行和并行这篇文章主要讲解了“怎么使用JavaScript异步操作中串行和并行”,文中的讲解内容简单清晰,易于学习与理解,下面请大家跟着小编的思路慢慢深入,一起来研究和学习“怎么

    攻略 2021年11月19日
  • 聚焦近义词,“盯着”的近义词是什么

    技术聚焦近义词,“盯着”的近义词是什么见、视、瞧、瞥、瞄、目、相、窥、探、扫、白、瞪、望、盼、眺、睇、睨。“看”的口语化俗语,普通话有“瞧”、“瞅”等,粤语则是“睇”。“睇”字在香港随处听到,用的频率比“看”多百倍!其实

    生活 2021年10月30日
  • Shuffle原理及对应的Consolidation优化机制是怎样的

    技术Shuffle原理及对应的Consolidation优化机制是怎样的这篇文章给大家介绍Shuffle原理及对应的Consolidation优化机制是怎样的,内容非常详细,感兴趣的小伙伴们可以参考借鉴,希望对大家能有所

    攻略 2021年12月3日