<!--#include file="conn.asp" -->
<!--#include file="function.asp" -->
<!--#include file="functionrich.asp" -->

<%
ptype=Left(MyHtmlEncode(Trim(request.QueryString("ptype"))),50)

If ptype="about" Then
	ID=Left(MyHtmlEncode(Trim(request.QueryString("id"))),9)
	If ID<>"" Then
		Call ChkBlankJust(ID,"ID")
		Call ChkNumJust(ID,"ID")
		ID=CLng(ID)
		sql="select x_hits from [cq_about] where ID="&ID
		Set hitRs=Server.CreateObject("adodb.recordset")
		hitRs.open sql,Conn,1,3
		If Not hitRs.eof Then
			hitRs("x_hits")=hitRs("x_hits")+1
			hitRs.update
		End If
		Call CloseRs(hitRs)
	End If
End If


If ptype="news" Then
	ID=Left(MyHtmlEncode(Trim(request.QueryString("id"))),9)
	If ID<>"" Then
		Call ChkBlankJust(ID,"ID")
		Call ChkNumJust(ID,"ID")
		ID=CLng(ID)
		sql="select x_hits from [cq_news] where ID="&ID
		Set hitRs=Server.CreateObject("adodb.recordset")
		hitRs.open sql,Conn,1,3
		If Not hitRs.eof Then
			hitRs("x_hits")=hitRs("x_hits")+1
			hitRs.update
		End If
		Call CloseRs(hitRs)
	End If
End If

%>


<%
	Call CloseConn(Conn)
%>