您现在的位置是：网站首页> 编程资料编程资料
pjblog实现类似CMS的首页调用_应用技巧_
2023-05-25
355人已围观
简介 pjblog实现类似CMS的首页调用_应用技巧_
呵呵比较有意思可以看http://5e8.com/blog/index.asp
效果就是那样的转自http://pjblog.yyld.net/article.asp?id=31
修改default.asp，建议修改前先复制一份作为备份。
找到：
效果就是那样的转自http://pjblog.yyld.net/article.asp?id=31
修改default.asp，建议修改前先复制一份作为备份。
找到：
修改为
修改完成后的总代码是
复制代码 代码如下:
<%=content_html_Top_default%>
<%'主體部分!%>
<%
if request("cateid")="" then%>
Dim CateRS
Dim Trd
Set CateRS=Server.CreateObject("Adodb.RecordSet")
SQL="Select * FROM blog_category where cate_outlink=0"
CateRS.Open SQL,Conn,1,1
If CateRS.Eof And CateRS.Bof Then
Response.Write("服务器数据读取失败！")
Else
Response.Write("
Do While Not CateRS.Eof
If int(trd/2)=trd/2 and trd<>0 then Response.Write("
%>
<%Dim RS,row
row=0
Set RS=Server.CreateObject("Adodb.RecordSet")
SQL="Select * FROM blog_Content where log_cateId="&CateRS("cate_id")&" order by log_posttime desc"
RS.Open SQL,Conn,1,1
SQLQueryNums=SQLQueryNums+1
If RS.Eof And RS.Bof Then
Response.Write("None")
Else
Dim log_Weather,log_ID
Do While Not RS.Eof
log_ID=RS("log_ID")
Response.Write("
Response.Write("
")
RS.Movenext
row=row+1
if row=10 then
Exit do
end if
Loop
End If
RS.Close
Set RS=Nothing%>
<%
trd=trd+1
' if trd=10 then
' Exit do
'end if
CateRS.Movenext
Loop
End if
CateRS.Close
Set CateRS=Nothing
%>
<%else%><%ContentList%>
<%end if%>
<%=content_html_Bottom_default%>
<%Side_Module_Replace '处理系统侧栏模块信息%>
<%=side_html_default%>
大家是不是注意到
SQL="Select * FROM blog_Content where log_cateId="&CateRS("cate_id")&" order by log_posttime desc"
把
SQL="Select * FROM blog_Content where log_cateId="&CateRS("cate_id")
替换成
SQL="Select * FROM blog_Content where log_cateId="&CateRS("cate_id")&" order by log_posttime desc"
这是随机显示方法
相关内容
点击排行
本栏推荐
