ASP怎樣循環(huán)讀取數(shù)據(jù)庫記錄-創(chuàng)新互聯(lián)

這篇文章給大家介紹ASP怎樣循環(huán)讀取數(shù)據(jù)庫記錄，內(nèi)容非常詳細，感興趣的小伙伴們可以參考借鑒，希望對大家能有所幫助。

創(chuàng)新互聯(lián)建站專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務，包含不限于網(wǎng)站設計、成都做網(wǎng)站、烏蘇網(wǎng)絡推廣、小程序制作、烏蘇網(wǎng)絡營銷、烏蘇企業(yè)策劃、烏蘇品牌公關、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等，從售前售中售后，我們都將竭誠為您服務，您的肯定，是我們大的嘉獎；創(chuàng)新互聯(lián)建站為所有大學生創(chuàng)業(yè)者提供烏蘇建站搭建服務，24小時服務熱線：13518219792，官方網(wǎng)址：www.cdcxhl.com

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage = 936%> 








<%
	Set conn= Server.CreateObject("ADODB.Connection") 
	connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=
	      "&Server.MapPath("\database\Scale3DCIP.mdb") 
	conn.Open connstr 
	
	Set rs = Server.CreateObject ("ADODB.Recordset") 
	sql = "Select * from custom order by id desc" 
	rs.Open sql,conn,1,1 
	
	do while not rs.eof  
%>
    
	
	<%=rs("keyid")%>
	<%=rs("IPAddress")%>
	<%=rs("Area")%>
	<%=rs("LoginTime")%>
	
	<%
	    rs.movenext
	 loop
	 
	 rs.close()
	 set rs = nothing
	 
	 conn.close()
	 set conn = nothing
	%>
	

寫入數(shù)據(jù)庫

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%> 






 




    <%
	     dim keyid
	     keyid = request.QueryString("keyid")
		 if IsEmpty(keyid) then
		    Response.End()
		 end if
	%>
	<%'創(chuàng)建連接對象
        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")
	%>

	<%'創(chuàng)建記錄對象
         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
	%>

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

關于ASP怎樣循環(huán)讀取數(shù)據(jù)庫記錄就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。

另外有需要云服務器可以了解下創(chuàng)新互聯(lián)scvps.cn，海內(nèi)外云服務器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務器、裸金屬服務器、高防服務器、香港服務器、美國服務器、虛擬主機、免備案服務器”等云主機租用服務以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務可用性高、性價比高”等特點與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應用場景需求。

本文題目：ASP怎樣循環(huán)讀取數(shù)據(jù)庫記錄-創(chuàng)新互聯(lián)
文章起源：http://m.jiaotiyi.com/article/deiopo.html