% if Hour(NOW)>0 and Day(Application("createTop20Time"))<>Day(NOW) then file_path="/glsms/include/top20.js" set conn=server.createobject("adodb.connection") Conn.Open application("sms_write") set rs=server.createobject("adodb.recordset") sql="select top 20 username,subscibepeople,nickname from dbo.wm_subscibe_daily_top10 order by subscibepeople desc" rs.open sql,conn,3 Set fso = CreateObject("Scripting.FileSystemObject") Set textFile = fso.CreateTextFile(server.MapPath(file_path),true) textFile.WriteLine("document.write(""
昵称 (用户名) | "")") textFile.WriteLine("document.write(""订阅 人数 |
"&i&" " & rs("nickname") & "(" & rs("username") & ") | "")")
textFile.WriteLine("document.write(""" & rs("subscibepeople") & "人 | "")") textFile.WriteLine("document.write(""
|