hits.asp

xml缓存类试用版用于ASP

<!--#include file="inc/const.asp"-->
<%

Dim ID,SQLArr,rndstr
ID=Request("ID")
IF ID="" or (Not IsNumeric(ID)) Then
	Response.Write(" ")
	Response.End()
Else
	ID=CLng(ID)
End IF

Call openconn
showthemeHits
Call Closeconn

Function showthemeHits
	Conn.execute("update Win_Theme set hits=hits+1 where thmid="&ID)

	Dim sql,rs
	Set rs =Conn.execute("select hits from  Win_Theme  where thmid="&ID)
	If Not rs.eof Then 
		Response.Write("document.write('"&rs(0)&"');")
	End If 
	rs.close
	Set rs = nothing
End Function 
%>