<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'取访问人数
sql1="select * from vistor where id=1"
rs.open sql1,Conn,1,2
vistor_num=rs("num")+1
'response.Write(vistor_num)
sql="update vistor set num= " & vistor_num & " where id=1"
Conn.execute(sql)
'显示Top11的新闻
sql1="select top 11 * from news order BY news_date desc"
set rs1=CreateObject("adodb.recordset")
rs1.open sql1,Conn,1,2
%>
:::Welcome to Shangde Experimental School!:::
我是一个兵
