%
'显示内容标题列表
Sub ShowList(menuID,num,moreurl)
dim sql,rs,i,title,url,img
'on error resume next
Err.Clear
Set rs=Server.CreateObject("ADODB.Recordset")
sql = ""
sql = sql & "select * from tbl_content where mnCode='"&menuID&"' order by tbl_content.relativedate desc"
rs.Open sql,conn_sql,1,1
if err.number<>0 then
Response.Write "查询数据库时出错:"& err.Description
Err.Clear
Response.Write "查询数据库时出错"
end if
if rs.RecordCount>0 then
Response.Write "
"
for i=1 to num
if rs.EOF then
exit for
end if
title = rs("title")
img = rs("img")
url = rs("url")
if img="1" then
img = "(图文)"
else
img = ""
end if
Response.Write ""
Response.Write "· | "
Response.Write "" & title & "("&formatDateYYYYMMDD(rs("relativedate"))&") | "
Response.Write "
"
rs.MoveNext
next
Response.Write "更多... |
"
Response.Write "
"
else
Response.Write "暂无数据"
end if
rs.Close
set rs = nothing
End Sub
%>
<%
'显示子标题列表
Sub ShowTopicList(menuID)
dim sql,rs,i,title,url,rowCount
rowCount=2
i=0
Err.Clear
Set rs=Server.CreateObject("ADODB.Recordset")
sql = ""
sql = sql & "select * from tbl_menu where parentcode='"&menuID&"' order by sortNo"
rs.Open sql,conn_sql,1,1
if err.number<>0 then
Response.Write "查询数据库时出错:"& err.Description
Err.Clear
Response.Write "查询数据库时出错"
end if
if rs.RecordCount>0 then
Response.Write ""
do until rs.EOF
if i mod rowCount = 0 then
i=0
Response.Write ""
end if
title = rs("cnname")
url = rs("mncode")
Response.Write "· | "
Response.Write "" & title & " | "
rs.MoveNext
i=i+1
loop '内循环结束
i=i+1
'补齐td
if i< rowCount then
for j=0 to rowCount-i
Response.Write " | "
next
end if
Response.Write "
"
else
Response.Write "暂无数据"
end if
rs.Close
set rs = nothing
End Sub
%>
<%
'显示首页图片列表
Sub ShowImgList(menuID,num,moreurl)
dim sql,rs,i,title,url,img
'on error resume next
Err.Clear
Set rs=Server.CreateObject("ADODB.Recordset")
sql = ""
sql = sql & "select top 6 * from tbl_content where mnCode='"&menuID&"' and img='1' order by tbl_content.relativedate desc"
rs.Open sql,conn_sql,1,1
if err.number<>0 then
Response.Write "查询数据库时出错:"& err.Description
Err.Clear
Response.Write "查询数据库时出错"
end if
if rs.RecordCount>0 then
Response.Write ""
Response.Write " |
"
for i=1 to num
if rs.EOF then
exit for
end if
title = rs("title")
img = rs("img")
url = rs("url")
contentID = rs("ID")
if img="1" then
strsql2="select * from tbl_img where contentID='" & contentID & "' and imgType='小图'"
set rs_newBook1=conn_sql.execute(strsql2)
if not rs_newBook1.eof then
imgPath=rs_newBook1("path")
Response.Write ""
Response.Write " | "
Response.Write "
"
Response.Write ""
Response.Write " | "
Response.Write "
"
end if
else
img = "没有图片"
end if
rs.MoveNext
next
Response.Write "更多... |
"
Response.Write "
"
else
Response.Write "暂无数据"
end if
rs.Close
set rs = nothing
End Sub
%>