<% 'Set conn = Server.CreateObject("ADODB.Connection") 'DSNtemp="DRIVER={SQL Server};SERVER=x250svr1;UID=sa;PWD=sa;DATABASE=asp" 'conn.open DSNtemp %> <% 'sql="update count1 set hit=hit+1" 'conn.Execute(sql) 'sql = "select * from count1 " 'set rs=conn.execute(sql) %> <% sql= "select * from count1" set rs=server.createobject("adodb.recordset") rs.open sql,conn application.lock application("hit")=rs("hit") application.unlock %> <% application.lock application("hit")=application("hit")+1 application.unlock sql="update count1 set hit=hit+1" conn.Execute(sql) 'conn.close set rs=nothing 'set conn=nothing %>

白 云 鄂 博 作 品 欣 赏
	散文 地质勘探者的幸福 永远在前线 送 狗 回访白云鄂博 高山变盆地 成戈壁树林 回访白云鄂博有感 小 城 的 故 事 圆 梦 杼 怀				诗歌 旧地重游有感 庆贺 祝愿 重返白云鄂博有感