%owen=request("id")%>
<%
id=cstr(request("id"))
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sql="update news set hits=hits+1 where id="&id
conn.execute sql
sql="select * from news where id="&owen
rsnews.Open sql,conn,1,1
title=rsnews("title")
if rsnews.eof and rsnews.bof then
response.Write("数据库出错")
else
%>
|
|
|
|
|
 |
|
|
<%
set rs_fy=server.createobject("adodb.recordset")
sqltext4="select * from SmallClass_New where BigClassName='公司介绍'"
rs_fy.open sqltext4,conn,1,1
do while not rs_fy.eof
%>
|
|
<%
rs_fy.movenext
loop
rs_fy.close
%>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<%
end if
rsnews.close
set rsnews=nothing
%>