<%
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)
%>
辽宁教育电子音像出版社
联系我们
<%
sql = "select * from T_NewsClass order by AddDate"
Set lrs = Conn.Execute(sql)
if not lrs.eof then
while not lrs.eof
%>
<% lrs.movenext
wend
end if
lrs.close
%>
