<%
	dim conn
	dim connstr
	dim db
	dim sj
	dim sj_1
	dim sj_4
	dim sj_5
	id=Request("id")
	'定义一下时间的几种格式
	nowtime=now()  '取到当前的时间
    sj=cstr(year(nowtime))+"-"+right("0"+cstr(month(nowtime)),2)+"-"+right("0"+cstr(day(nowtime)),2)+" "+right("0"+cstr(hour(nowtime)),2)+":"+right("0"+cstr(minute(nowtime)),2)+":"+right("0"+cstr(second(nowtime)),2)  '时间格式化
	sj_1=cstr(year(nowtime))+"-"+right("0"+cstr(month(nowtime)),2)+"-"+right("0"+cstr(day(nowtime)),2) '时间格式化
	sj_4=cstr(year(nowtime))+"年"+right("0"+cstr(month(nowtime)),2)+"月"+right("0"+cstr(day(nowtime)),2)+"日"+right("0"+cstr(hour(nowtime)),2)+"点"+right("0"+cstr(minute(nowtime)),2)+"分" '时间格式化
	sj_5=cstr(year(nowtime))+"-"+right("0"+cstr(month(nowtime)),2)+"-"+right("0"+cstr(day(nowtime)),2) '时间格式化
	db="db/db1.mdb"  '数据库文件
	'--------------以下定义三种数据库接口-------------------------
	Set conn = Server.CreateObject("ADODB.Connection")
'	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
	connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
'	connstr="driver={SQL Server};server=localhost;UID=sa;PWD=stat;database=fd"  'Sql数据库用
	conn.Open connstr
    sql="update hit set hits=hits+1 where ID="&id
	conn.execute sql
	Response.Redirect("http://www.nd169.com/axiong2006_7_9.rar")
	Response.end()
%>