access_asp_data.asp

flash如何连接后台的数据库开发

<!--#include file="inc/VBScript_conn.asp" -->

<% 
  '  Option Explicit 
     
   ' Dim cn 
   
    Dim cmd 
    Dim rs 
    Dim cont 
     
   ' Set cn = Server.CreateObject("ADODB.Connection") 
   ' cn.ConnectionString = "db1" 
   ' cn.Open 
     
    Set cmd = Server.CreateObject("ADODB.Command") 
	
   ' cmd.ActiveConnection = cn 
   
	cmd.ActiveConnection =conn
	
    cmd.CommandType = 1 
    cmd.CommandText = "SELECT member, descri, memberaddress,picture FROM member" 
     
    Set rs = cmd.Execute 
    cont=0 
     
    Do Until rs.EOF 
        Response.Write "member"&cont&"="& rs("member") & "&" &"descri"&cont&"="& rs("descri") &"&" &"memberaddress"&cont&"="& rs("memberaddress") & "&" &"picture"&cont&"="& rs("picture")& "&" 
        cont = cont+1 
        rs.MoveNext 
    Loop 
     
    Response.Write "count="&cont 
     
    rs.Close 
  '  cn.Close 
	 conn.Close 
    %>