هاها ، يمكنك قراءة http://5e8.com/blog/index.asp
التأثير مثل هذا. تم استنساخه من http://pjblog.yyld.net/article.asp؟id=31
تعديل default.asp ، يوصى بنسخ نسخة واحدة كنسخة احتياطية قبل التعديل.
دُر:
<vivclass = "content-top"> <vivclass = "contentLeft"> </viv> <h1class = "contentTitle"> <hhref = "" default.asp؟ id = "& caters (" cate_id ") &"> <٪ = caters ("cate_name") ٪> </a1> </div>
تعديل ل
<vivclass = "content-top"> <vivclass = "contentLeft"> </viv> <h1class = "contentTitle" "> <hhref =" default.asp؟ cateid = <٪ = caters ("cate_id") ٪> "<٪ = caters (" cate_name ") ٪> </h1/h1> </div"
الكود الكلي بعد التعديل هو
<!-#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"> </viv>
<٪ = content_html_top_default ٪>
<vivid = "content_contentlist" class = "content-width">
<٪ 'الجزء الرئيسي! ٪>
<٪
ifrequest ("cateid") = "" ثم ٪>
<tablewidth = 100 ٪> <٪
dimcaters
Dimtrd
setCaters = server.createObject ("adodb.recordset")
SQL = "SELECT*FROMBLOG_CATEGORYWHERECATE_OUTLINK = 0"
Caters.Opensql ، Conn ، 1،1
ifcaters.eofandcaters.bofthen
استجابة. write ("فشلت قراءة بيانات الخادم!")
آخر
استجابة. write ("<tr>")
dowhilenotcaters.eof
ifint (trd/2) = trd/2andtrd <> 0thenResponse.write ("</tr> <tr>")
٪>
<tdwidth = 50 ٪ valign = "top" style = "Padding-Right: 5px ؛">
<divclass = "content">
<vivclass = "content-top"> <vivclass = "contentLeft"> </viv> <h1class = "contentTitle" "> <hhref =" default.asp؟ cateid = <٪ = caters ("cate_id") ٪> "<٪ = caters (" cate_name ") ٪> </h1/h1> </div"
<divclass = "content-body">
<٪ dimrs ، صف
صف = 0
setRs = server.createObject ("adodb.recordset")
sql = "SELECT*fromblog_contentwherelog_cateid =" & caters ("cate_id") و "orderbylog_posttimedesc"
Rs.Opensql ، Conn ، 1،1
sqlquerynums = sqlquerynums+1
ifrs.eofandrs.bofthen
الرد. write ("لا شيء")
آخر
dimlog_weather ، log_id
dowhilenotrs.eof
log_id = rs ("log_id")
Response.write ("<imgsrc =" "الصور/code.gif" "> <hhref =" "default.asp؟ id =" & log_id & ""> "& htmlencode (cutstr (rs (" log_title ") ، 42)) &" </a>)
الرد. write ("<br>")
Rs.Movenext
صف = صف+1
ifrow = 10then
exitdo
Endif
حلقة
Endif
Rs.close
setRs = Nothing ٪> <br> </viv> </td>
<٪
TRD = TRD+1
'IFTRD = 10then
'Exitdo
'Endif
Caters.Movenext
حلقة
Endif
Caters.Close
setCaters = لا شيء
٪>
</table>
<٪ else ٪> <٪ contentlist ٪>
<٪ endif ٪> </div>
<٪ = content_html_bottom_default ٪>
<divid = "maincontent-bottomimg"> </viv>
</div>
</div>
<٪ side_module_replace 'تعامل مع نظام الشريط الجانبي
<divid = "sidebar">
<divid = "InnersideBar">
<vivid = "sidebar-topimg"> <!-صورة شريط الأدوات-> </viv>
<٪ = side_html_default ٪>
<divid = "sidebar-bottomimg"> </viv>
</div>
</div>
<divstyle = "clear: كلاهما ؛ الارتفاع: 1px ؛ تجاوز: مخفي ؛ الهامش: -1px ؛"> </div>
</div>
<!-#includefile = "footer.asp"->
