Haha, Anda dapat membaca http://5e8.com/blog/index.asp
Efeknya seperti itu. Ini direproduksi dari http://pjblog.yyld.net/article.asp?id=31
Ubah Default.asp, disarankan untuk menyalin satu salinan sebagai cadangan sebelum memodifikasi.
muncul:
<DivClass = "Content-Top"> <DivClass = "ContentLeft"> </Div> <h1class = "contentTitle"> <ahref = "" default.asp? id = "& melayani (" Cate_id ") &" "> <%= caters (" Cate_name ")%> </a> </h1> </h1> </h1>
Dimodifikasi menjadi
<DivClass = "Content-Top"> <DivClass = "ContentLeft"> </div> <h1class = "ContentTitle" "> <ahref =" default.asp? CateId = <%= melayani ("Cate_id")%> "> <%= caters (" cate_name ")%> </a> </h1 </h1 </div
Kode total setelah modifikasi adalah
Salinan kode adalah sebagai berikut:
<!-#includeFile = "BlogCommon.asp"->
<!-#includeFile = "header.asp"->
<!-#includeFile = "common/modset.asp"->
<!-#includeFile = "plugins.asp"->
<!-#includeFile = "class/cls_default.asp"->
<!-#includeFile = "class/cls_logaction.asp"->
<Divid = "tbody">
<Divid = "MainContent">
<Divid = "InnermainContent">
<Divid = "MainContent-Topimg"> </div>
<%= content_html_top_default%>
<divid = "content_contentlist" class = "content-width">
<%'Bagian utama!%>
<%
ifRequest ("CateID") = "" lalu%>
<tableWidth = 100%> <%
Dimcaters
Dimtrd
SetCaters = server.CreateObject ("adodb.recordset")
Sql = "pilih*fromblog_categorywherecate_outlink = 0"
Melayani.opensql, Conn, 1,1
Ifcaters.eofandcaters.bofthen
Response.write ("Pembacaan Data Server Gagal!")
Kalau tidak
Response.write ("<tr>")
Dowhilenotcaters.eof
Ifint (trd/2) = trd/2andtrd <> 0thenresponse.write ("</tr> <tr>")
%>
<tdwidth = 50%valign = "TOP" style = "Padding-Right: 5px;">
<DivClass = "Content">
<DivClass = "Content-Top"> <DivClass = "ContentLeft"> </div> <h1class = "ContentTitle" "> <ahref =" default.asp? CateId = <%= melayani ("Cate_id")%> "> <%= caters (" cate_name ")%> </a> </h1 </h1 </div
<DivClass = "Konten-Body">
<%Dimrs, baris
baris = 0
SetRs = server.CreateObject ("adodb.recordset")
Sql = "pilih*fromblog_contentwherelog_cateid =" & melayani ("cate_id") & "orderbylog_posttimedesc"
Rs.opensql, Conn, 1,1
Sqlquerynums = sqlquerynums+1
Ifrs.eofandrs.bofthen
Response.write ("none")
Kalau tidak
DIMLOG_WEATHER, LOG_ID
Dowhilenotrs.eof
log_id = rs ("log_id")
Response.write ("<imgsrc =" "gambar/code.gif" "> <ahref =" "default.asp? Id =" & log_id & "" ">" & htmlencode (cutstr (rs ("log_title"), 42) & "</a>")
Response.write ("<br>")
Rs.movenext
baris = baris+1
ifrow = 10then
Exitdo
endif
Lingkaran
Endif
Rs.close
SetRs = Nothing%> <br> </div> </td>
<%
TRD = TRD+1
'iftrd = 10then
'Exitdo
'Endif
Melayani.Movenext
Lingkaran
Endif
Melayani. Close
SetCaters = tidak ada
%>
</boable>
<%else%> <%ContentList%>
<%endif%> </div>
<%= content_html_bottom_default%>
<Divid = "MainContent-Bottomimg"> </div>
</div>
</div>
<%Side_module_replace 'menangani informasi modul sidebar sistem%>
<Divid = "sidebar">
<Divid = "InnersideBar">
<Divid = "sidebar-topimg"> <!-Toolbar Top Image-> </div>
<%= side_html_default%>
<Divid = "sidebar-bottomimg"> </div>
</div>
</div>
<divstyle = "CLEAR: keduanya; tinggi: 1px; overflow: tersembunyi; margin-top: -1px;"> </div>
</div>
<!-#includeFile = "footer.asp"->