<% @ Language=VBScript CodePage=65001%>
<% Session.CodePage = 65001
response.charset="utf-8"%>
<!-- #include file ="../dbinfo.asp" -->
<!-- #include file ="../kaguya.asp" -->
<%
	'計數和導向網頁
	AutoID=reqNum(request("ID"))
	sql="select NewsUrl from T_News where AutoID=" & AutoID
	set rs=conn.execute(sql)
	sql2="update T_News set HitCount=HitCount+1 where AutoID=" & AutoID
	set rs2=conn.execute(sql2)
	NewsUrl=rs("NewsUrl")

	set rs=nothing
	set rs2=nothing
	response.Redirect NewsUrl
	response.End()
%>