白云岛资源网 Design By www.pvray.com
呵呵比较有意思可以看http://5e8.com/blog/index.asp
效果就是那样的转自http://pjblog.yyld.net/article.asp?id=31
修改default.asp,建议修改前先复制一份作为备份。
找到:
<div class="Content-top"><div class="ContentLeft"></div><h1 class="ContentTitle"><a href=""default.asp?ID="&CateRS("cate_id")&"""><%=CateRS("cate_Name")%></a></h1> </div>
修改为
<div class="Content-top"><div class="ContentLeft"></div><h1 class="ContentTitle""><a href="default.asp?cateID=<%=CateRS("cate_id")%>"><%=CateRS("cate_Name")%></a></h1> </div>
修改完成后的总代码是
复制代码 代码如下:
<!--#include file="BlogCommon.asp" -->
<!--#include file="header.asp" -->
<!--#include file="common/ModSet.asp" -->
<!--#include file="plugins.asp" -->
<!--#include file="class/cls_default.asp" -->
<!--#include file="class/cls_logAction.asp" -->
<div id="Tbody">
<div id="mainContent">
<div id="innermainContent">
<div id="mainContent-topimg"></div>
<%=content_html_Top_default%>
<div id="Content_ContentList" class="content-width">
<%'主體部分!%>
<%
if request("cateid")="" then%>
<table width=100%><%
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("<tr>")
Do While Not CateRS.Eof
If int(trd/2)=trd/2 and trd<>0 then Response.Write("</tr><tr>")
%>
<td width=50% valign="top" style="padding-right:5px;">
<div class="Content">
<div class="Content-top"><div class="ContentLeft"></div><h1 class="ContentTitle""><a href="default.asp?cateID=<%=CateRS("cate_id")%>"><%=CateRS("cate_Name")%></a></h1> </div>
<div class="Content-body">
<%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("<img src="/UploadFiles/2021-04-02/"> Response.Write("<br>")
RS.Movenext
row=row+1
if row=10 then
Exit do
end if
Loop
End If
RS.Close
Set RS=Nothing%><br></div></td>
<%
trd=trd+1
' if trd=10 then
' Exit do
'end if
CateRS.Movenext
Loop
End if
CateRS.Close
Set CateRS=Nothing
%>
</table>
<%else%><%ContentList%>
<%end if%></div>
<%=content_html_Bottom_default%>
<div id="mainContent-bottomimg"></div>
</div>
</div>
<%Side_Module_Replace '处理系统侧栏模块信息%>
<div id="sidebar">
<div id="innersidebar">
<div id="sidebar-topimg"><!--工具条顶部图象--></div>
<%=side_html_default%>
<div id="sidebar-bottomimg"></div>
</div>
</div>
<div style="clear: both;height:1px;overflow:hidden;margin-top:-1px;"></div>
</div>
<!--#include file="footer.asp" -->
大家是不是注意到
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"
这是随机显示方法
效果就是那样的转自http://pjblog.yyld.net/article.asp?id=31
修改default.asp,建议修改前先复制一份作为备份。
找到:
<div class="Content-top"><div class="ContentLeft"></div><h1 class="ContentTitle"><a href=""default.asp?ID="&CateRS("cate_id")&"""><%=CateRS("cate_Name")%></a></h1> </div>
修改为
<div class="Content-top"><div class="ContentLeft"></div><h1 class="ContentTitle""><a href="default.asp?cateID=<%=CateRS("cate_id")%>"><%=CateRS("cate_Name")%></a></h1> </div>
修改完成后的总代码是
复制代码 代码如下:
<!--#include file="BlogCommon.asp" -->
<!--#include file="header.asp" -->
<!--#include file="common/ModSet.asp" -->
<!--#include file="plugins.asp" -->
<!--#include file="class/cls_default.asp" -->
<!--#include file="class/cls_logAction.asp" -->
<div id="Tbody">
<div id="mainContent">
<div id="innermainContent">
<div id="mainContent-topimg"></div>
<%=content_html_Top_default%>
<div id="Content_ContentList" class="content-width">
<%'主體部分!%>
<%
if request("cateid")="" then%>
<table width=100%><%
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("<tr>")
Do While Not CateRS.Eof
If int(trd/2)=trd/2 and trd<>0 then Response.Write("</tr><tr>")
%>
<td width=50% valign="top" style="padding-right:5px;">
<div class="Content">
<div class="Content-top"><div class="ContentLeft"></div><h1 class="ContentTitle""><a href="default.asp?cateID=<%=CateRS("cate_id")%>"><%=CateRS("cate_Name")%></a></h1> </div>
<div class="Content-body">
<%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("<img src="/UploadFiles/2021-04-02/"> Response.Write("<br>")
RS.Movenext
row=row+1
if row=10 then
Exit do
end if
Loop
End If
RS.Close
Set RS=Nothing%><br></div></td>
<%
trd=trd+1
' if trd=10 then
' Exit do
'end if
CateRS.Movenext
Loop
End if
CateRS.Close
Set CateRS=Nothing
%>
</table>
<%else%><%ContentList%>
<%end if%></div>
<%=content_html_Bottom_default%>
<div id="mainContent-bottomimg"></div>
</div>
</div>
<%Side_Module_Replace '处理系统侧栏模块信息%>
<div id="sidebar">
<div id="innersidebar">
<div id="sidebar-topimg"><!--工具条顶部图象--></div>
<%=side_html_default%>
<div id="sidebar-bottomimg"></div>
</div>
</div>
<div style="clear: both;height:1px;overflow:hidden;margin-top:-1px;"></div>
</div>
<!--#include file="footer.asp" -->
大家是不是注意到
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"
这是随机显示方法
白云岛资源网 Design By www.pvray.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
白云岛资源网 Design By www.pvray.com
暂无评论...
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?