%@ LANGUAGE = VBScript %> <% infoid=trim(request("infoid")) if infoid<>"" and isnumeric(infoid) then set rs=server.createobject("adodb.recordset") sql="select * from IM_info where infoid="&infoid&" and isshow=1" rs.open sql,conn,1,1 if not rs.eof then classid=rs("classid") columnid=rs("columnid") title=rs("title") content=htmlencode(rs("content")) src=rs("src") author=rs("author") addtime=formatdt(rs("addtime"),5) keyword=rs("keyword") pageno=rs("pageno") lasthittime=rs("lasthittime") else rs.close set rs=nothing conn.close set conn=nothing response.end end if rs.close sql="select * from IM_column,IM_class where IM_class.classid="&classid&" and IM_column.columnid="&columnid&"" rs.open sql,conn,1,1 if not rs.eof then columnname=rs("columnname") classname=rs("classname") else rs.close set rs=nothing response.end end if rs.close set rs=nothing else conn.close set conn=nothing response.end end if %>
![]() |
||
![]() |
||
|
|
||
|
www.ithard.com
www.ithard.com
www.ithard.com
www.ithard.com
www.ithard.com
www.ithard.com
www.ithard.com
www.ithard.com
www.ithard.com
|
|
|
版权所有 Copyright © 2001--2002
www.ITHARD.net All Rights Reserve
|
||