hits.asp

html生成静态页的小程序

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Const dbdns=""%>
<!--#include file="AppCode/Conn.asp"-->
<%
ID = Cdbl(Request.QueryString("ID"))
Sql="select ID,Hits from Ok3w_Article where ID=" & ID
Rs.Open Sql,Conn,1,3
Rs("Hits") = Rs("Hits") + 1
Rs.Update
Hits = Rs("Hits")
Rs.Close

Set Rs = Nothing
Call CloseConn()
%>

<script language="javascript">
parent.News_Hits.innerHTML = "<%=Hits%>";
</script>