asp_save_data.asp

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

<!--#include file="inc/conn.asp"-->
<%
  
  
  on error resume next
  
    Dim member, desc, address,image

  member = request.Form("member")
  desc = request.Form("descr")
  address =request.Form("address")
  image = request.Form("image")


'  member = "lsx99"
'   desc = "lsx99"
'   address ="lsx99"
'   image = "lsx99"


  
  
   dim objcmd 
   set objcmd=server.CreateObject("ADODB.Command")
   with objcmd
           '设置所述连接
           .ActiveConnection=conn
           '设置命令执行时间为直到命令执行完成
		   .CommandTimeout=0
		   '设置命令文本
         '  .CommandText="Insert into Score(学号,姓名,课程名,成绩,课程性质)"& _
'		                 "values('123','刘世兴','人工举升',98,1)"
						 
			
   
           .CommandText = "Insert into member (member, descri,memberaddress,picture) values('" & member & "','" & desc & "','" & address & "','" & Image & "')"    
   			 
			
						 
           '设置命令类型
		   .Commandtype=adcmdText+AdExecuteNoRecords
		   '执行命令
           .Execute
   end with
   '错误处理
   if conn.errors.count>0 then
         response.Write(objcmd.CommandText+"<br>")
        response.Write("有错误发生，"&conn.errors(0).Description)	
    else
	     response.Write("操作成功！")
	end if			   
  

  
   
   
   
%>