<!--#include file="include/conn.asp"-->
<!--#include file="menu.asp"-->
<%
Dim ProId 
ProId = Trim(request("ProId"))
If ProId="" Then
	Call alert("参数错误,返回首页.","/")
End If
'本页
Set v= oConn.Execute("SELECT top 1 Id,ProTaobao FROM [LstPro] where Id ="&ProId)
If v.bof And v.eof Then
	Call BackUrl("/Index.html")
End If
oConn.Execute("UPDATE [LstPro] SET Phits = Phits+1 where Id ="&ProId)

Call BackUrl(""&v(1)&"")
%>
