%
ID = Cint(Request("ID"))
ClassID = Cint(Request("ClassID"))
ClassID = Cint(Request("ClassID"))
if ClassID <> "" then
sql = "select * from T_NewsClass where ID = " & ClassID
Set rs = Conn.Execute(sql)
if not rs.eof then
ClassName = rs("ClassName")
end if
rs.close
end if
if ID = "" then alertmGo("参数错误!")
sql = "update T_News Set Hits = Hits + 1 where ID = " & ID
Conn.Execute(sql)
sql = "select * from T_news where ID = " & ID
Set rs = Conn.Execute(sql)
%>