<%
Set Conn = Server.CreateObject("ADODB.Connection")
Application("ConnString")="driver=sql server;server=aaa365;database=aaa365;uid=aaa;password=w522z98-1230786;"
Conn.Open Application("ConnString")
sqlstring="select * from thetext where sub='fushouhenum'"
set rs=server.createobject("adodb.recordset")
rs.source=sqlstring
rs.activeconnection=Conn
rs.cursortype=3
rs.open
sqlstring1="update thetext set con='"&cint(trim(rs("con")))+1&"' where sub='fushouhenum'"
set rs1=server.createobject("adodb.recordset")
rs1.source=sqlstring1
rs1.activeconnection=Conn
rs1.cursortype=3
rs1.open %>
老年用品_老年健康用品_轮椅_手杖_拐杖_座厕椅_助行器_护理床_制氧机_血压计_血糖仪_助听器_护理用品等
