ASP批量更新数据代码

ASP批量更新数据代码

%>   

两个文件 ..cn.asp 连接数据库用的 ..cn3.asp 执行文件 .

cn.asp 源代码

<%

dim conn

dim dbpath

bb="base/qqw.asp"

   set conn=server.createobject "adodb.connection"

DBPath = Server.MapPath bb

conn.Open "driver={Microsoft Access Driver *.mdb };dbq=" & DBPath

%>

cn3.asp 源代码

<!--#includ file="cn.asp"--><%

set rs=server.CreateObject "adodb.recordset"    

conn,rs.open "select * from PE_Product ".1,3' 需要修改的数据表    

do while not rs.eof   

r "MY_zidongduijiaotim" =" 不支持自动对焦 "' 需要更新的数据和字段

r "MY_shouxieshuruchen" =" 不支持手写输入 "' 需要更新的数据和字段   

r "MY_Touchchumo" =" 不支持 Touch 触摸 "' 需要更新的数据和字段   

r "MY_WiFi" =" 不支持 WiFi 无线网络 "' 需要更新的数据和字段   

r "MY_GPS" =" 不支持 GPS 定位导航 "' 需要更新的数据和字段   

r "MY_zhonglifangxiang" =" 不支持重力方向感应 "' 需要更新的数据和字段

r "MY_FM" =" 不支持 FM"' 需要更新的数据和字段         

rs.update   

rs.movenext   

loop   

rs.close   

set rs=nothing   

Conn.Close   

Set Conn = Nothing  

response.writ "<script language=javascript>alert ' 操作胜利 ' ;history.go -1 ;</script>"  

response.End