<%
dim letterKind
letterKind=request("letterKind")
if letterKind="" then
letterKind=83
else letterKind=request("letterKind")
kindname=request.QueryString("关于我们")
end if
set rs=server.CreateObject("adodb.recordset")
sqlcmd="select top 1 id,title,smallImg,content from letter where letterKind="&letterKind&" and is_show order by id desc"
rs.open sqlcmd,conn,1,1,1
if rs.eof then
response.write "
对不起,暂无内容!"
else
%>
<%end if
rs.close
set rs=nothing
conn=close
'set conn=nothing
%> |
|
|
|
|