Haha, vous pouvez lire http://5e8.com/blog/index.asp
L'effet est comme ça. Il est reproduit à partir de http://pjblog.yyld.net/article.asp?id=31
Modifier Default.asp, il est recommandé de copier une copie en tant que sauvegarde avant de modifier.
venez:
<divclass = "Content-top"> <divclass = "Mintidleft"> </div> <h1class = "contenttitle"> <href = "" Default.asp? Id = "& caters (" Cate_id ") &"> <% = caters ("Cate_name")%> </a> </h1> </v> (CATE_NAME ")%> </a> </h1> </v> (CATE_NAME")%> </a> </h1> </div>
Modifié à
<divclass = "Content-top"> <divclass = "MintizLeft"> </ Div> <H1Class = "ContentTitle" "> <href =" Default.asp? Cateid = <% = caters ("Cate_id")%> "> <% = caters (" Cate_name ")%> </a> </h1> </v>
Le code total après modification est
La copie de code est la suivante:
<! - # includeFile = "blogcommon.asp" ->
<! - # includeFile = "header.asp" ->
<! - # includeFile = "commun / modset.asp" ->
<! - # includeFile = "Plugins.asp" ->
<! - # includeFile = "class / cls_default.asp" ->
<! - # includeFile = "class / cls_logaction.asp" ->
<divid = "tbody">
<divid = "MainContent">
<divid = "InnerContent">
<divid = "MainContent-topimg"> </div>
<% = content_html_top_default%>
<divid = "content_contentlist" class = "content-width">
<% 'Partie principale!%>
<%
ifRequest ("cateid") = "" puis%>
<TableWidth = 100%> <%
Tabac
Dimtrd
SetCaters = server.createObject ("adodb.recordSet")
Sql = "select * fromblog_categorywherecate_outlink = 0"
Carers.openql, Conn, 1,1
Ifcaters.eofandcaters.bofthen
Response.Write ("La lecture des données du serveur a échoué!")
Autre
Réponse.write ("<tr>")
Dowhilenotcaters.eof
IfInt (trd / 2) = trd / 2andtrd <> 0ThenResponse.write ("</tr> <tr>")
%>
<tdwidth = 50% valign = "top" style = "padding-droite: 5px;">
<divClass = "Content">
<divclass = "Content-top"> <divclass = "MintizLeft"> </ Div> <H1Class = "ContentTitle" "> <href =" Default.asp? Cateid = <% = caters ("Cate_id")%> "> <% = caters (" Cate_name ")%> </a> </h1> </v>
<divClass = "Content-Body">
<% Dimrs, Row
Row = 0
Setrs = server.createObject ("adodb.recordSet")
Sql = "select * fromblog_contentwherelog_cateid =" & caters ("cate_id") & "orderByLog_posttimedecs"
Rs.OpenSQL, Conn, 1,1
SQLQueryNums = SqlQueryNums + 1
Ifrs.eofandrs.bofthen
Response.Write ("Aucun")
Autre
Dimlog_weather, log_id
Dowhilenotrs.eof
log_id = rs ("log_id")
Réponse.write ("<imgsrc =" "images / code.gif" "> <href =" "default.asp? Id =" & log_id & "" ">" & htmlencode (cutstr (rs ("log_title"), 42)) & "</a>")
Réponse.write ("<br>")
Rs.MovEnext
ligne = ligne + 1
ifrow = 10Then
Exitdo
endire
Boucle
Endire
Rs.Close
Setrs = rien%> <br> </div> </td>
<%
trd = trd + 1
'iftrd = 10Then
'Exitdo
'Endif
Care.movènext
Boucle
Endire
Caters.close
SetCaters = rien
%>
</ table>
<% else%> <% ContentList%>
<% endif%> </div>
<% = content_html_bottom_default%>
<divid = "MainContent-BottoMmg"> </div>
</div>
</div>
<% Side_module_replace 'Gire les informations du module de barre latérale système%>
<divid = "barre latérale">
<divid = "Innersidebar">
<divid = "la barre latérale-topimg"> <! - Image du top-outils -> </div>
<% = Side_html_default%>
<divid = "bar-bottomimg "> </div>
</div>
</div>
<vStyle = "Clear: les deux; hauteur: 1px; débordement: caché; marge-top: -1px;"> </div>
</div>
<! - # includeFile = "footer.asp" ->
