<%
dim theid
theid=request("id")
sql="select * from news where logid="&theid
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
set rs1=conn.execute("update [news] set iis=iis+1 where logid="&theid)
Dim trs
Set trs=Server.CreateObject("Adodb.Recordset")
trs.Open "Select classid,classname From class ",conn,1,3
%>
闲情偶寄---新起点工作室--- 图书出版人之家
