Ха -ха, вы можете прочитать http://5e8.com/blog/index.asp
Эффект такой. Он воспроизводится с http://pjblog.yyld.net/article.asp?id=31
Измените default.asp, рекомендуется скопировать одну копию в качестве резервной копии перед изменением.
оказаться:
<divclass = "content-top"> <divclass = "contityLeft"> </div> <h1class = "contentTitle"> <ahref = "" default.asp? Id = "& caters (" cate_id ") &" "> <%= caters (" cate_name ")%> </a> </h1> </div>
Модифицирован на
<divclass = "content-top"> <divclass = "contityLeft"> </div> <h1class = "contentTitle" "> <ahref =" default.asp? cateid = <%= catts ("cate_id")%> "> <%= caters (" cate_name ")%> </a> </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"> </div>
<%= content_html_top_default%>
<divid = "content_contentlist" class = "witidth">
<%'Основная часть!%>
<%
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
Response.write ("Чтение данных сервера не удалось!")
Еще
Response.write ("<tr>")
Dowhilenotcaters.eof
Ifint (trd/2) = trd/2andtrd <> 0thenresponse.write ("</tr> <tr>")
%>
<tdwidth = 50%valign = "top" style = "adding-right: 5px;">
<divclass = "content">
<divclass = "content-top"> <divclass = "contityLeft"> </div> <h1class = "contentTitle" "> <ahref =" default.asp? cateid = <%= catts ("cate_id")%> "> <%= caters (" cate_name ")%> </a> </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
Response.write («Нет»)
Еще
Dimlog_weather, log_id
Dowhilenotrs.eof
log_id = rs ("log_id")
Response.write ("<imgsrc =" "Images/code.gif" "> <ahref =" "default.asp? Id =" & log_id & ""> "& htmlencode (cutstr (rs (" log_title "), 42)) &" </a> ")
Response.write ("<br>")
Rs.movenext
ряд = ряд+1
ifrow = 10then
Выход
эндиф
Петля
Эндиф
Rs.close
Setrs = ничего%> <br> </div> </td>
<%
trd = trd+1
'iftrd = 10then
'Выход
'endif
Caters.movenext
Петля
Эндиф
CATERS.Close
SetCaters = ничего
%>
</table>
<%Else%> <%ContentList%>
<%endif%> </div>
<%= content_html_bottom_default%>
<divid = "maincontent-bottomimg"> </div>
</div>
</div>
<%Side_module_replace 'обрабатывает системную модуль модуля системы%>
<divid = "боковая панель">
<divid = "Innersidebar">
<divid = "боковая панель-topimg"> <!-Top Panebar Top Image-> </div>
<%= side_html_default%>
<divid = "боковая панель-bottomimg"> </div>
</div>
</div>
<divStyle = "clear: оба; высота: 1px; переполнение: скрыто; маржа-stop: -1px;"> </div>
</div>
<!-#includefile = "cool.asp"->
