mkcool.asp

来自「商务网站,信息分类,可以搜索加上ACCESS数据库」· ASP 代码 · 共 24 行

<%Option Explicit%>
<!--#include file="functions.asp"-->
<!--#include file="CONFIG.ASP"-->
<!--#include file="adoconn.asp"-->

<%
dim objRS,sql
dim referer

referer = Request.ServerVariables("HTTP_REFERER")

sql = "delete * from cool"
objConn.Execute(sql)

sql = "insert into cool(id,title,description,url,lang,whopost,thisdate,parentid,visitcount) "
sql = sql & " select top " & MAXCOOL & " id,stationname,description,stationurl,stationlang,whopost,thisdate,parentid,visitcount from stationinfo where ispass = TRUE order by visitcount DESC"
'Response.Write("sql: " & sql & "<br>")
objConn.Execute(sql)

mkhtml objConn,"cool","../cool.html",MAXCOOLSHOW
objConn.Close()
Set objConn = nothing
Response.Write("<script language=""JavaScript"">alert(""成功完成更新！"");location.replace(""" & referer & """);</script>")
%>