hits.asp

嘉缘人才6.0精简 ,很好用的人才系统

<!--#include file="../conn/conn.asp"-->
<%
Action=trim(Request("Action"))
Select Case Action
	Case "Article"
		Call Articlehits()
End Select
Conn.Close
Set Conn=Nothing
Sub Articlehits()
newsid=Replace(request.querystring("id"),"'","")
conn.execute("update JOB_hrnews set hits=hits+1 where newsid="&newsid&"")
set rshits=conn.execute("select * from JOB_hrnews where newsid="&newsid&"")
if rshits.eof then
response.write "0"
else
response.write ""&rshits("hits")&""
end if
rshits.close
set rshits=nothing
End Sub
%>