<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim Conn,Rs,Sql,color Set Conn = server.CreateObject("adodb.connection") Path = server.MapPath("count/inc/ip.asp") Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Path Set Rs = Server.CreateObject("adodb.recordset") %> <% Sqlclick = "Select * From total " Rs.Open Sqlclick,Conn,1,4 allclick = Rs("m_click") Rs.Close %> :::丹东华盛生物制药有限公司:::
建议使用：Microsoft Internet Explorer 5.0 以上浏览器
　　　　　Macromadie Flash 6.0 或更高版本
推荐配置：1024×768 分辨率 17英寸显示器
您是第<%=allclick%>位来访者，欢迎您！

辽ICP备05002816号