<%
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
%>老年用品_福寿和专卖_老年鞋帽专卖_老年用品专卖店_中国老年人用品网
