dim sqlStr,dbConn,connstr,a,rs
set dbConn = Server.CreateObject("ADODB.Connection")
connstr="DSN=HT;UID=xxx;PWD=xxxxxx"//数据源
dbConn.open connstr
set rs = Server.CreateObject("ADODB.RecordSet")
sqlStr= "select ip from device where deviceno='1002'"//sql语句
rs.open sqlStr,dbConn,1,3
rs("ip").value="2222"
rs.update
rs.close
这样