?? index_dh.asp
字號:
<div align="right">
<table border="0" cellpadding="0" cellspacing="0" height="28" width="620">
<tr>
<%
Dim TopSortSql,RsTopSort,daohang,hide
TopSortSql="select * from Sort where ((B_id=0 or daohang<>'') and hide<>true) and Hdaohang=true order by order_1"
Set RsTopSort=conn.execute (TopSortSql)
With RsTopSort
if .eof and .bof then
Response.write "<td align='center'>沒有欄目</td>"
else
do while not .eof
'==================
if RsTopSort("daohang")<>"" then
daohang=RsTopsort("daohang")
else
daohang=" ku_type.asp?SortID="&RsTopSort("ID")&" "
end if
'==================
response.write "<td>"
response.write "<div align=right>"
response.write "<table border=0 cellpadding=0 cellspacing=0 height=20>"
response.write "<tr>"
response.write "<td style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>"
response.write "<p align=center>"
if RsTopSort("blank")=true then
Response.Write("<A href='"&daohang&"' target='_blank'><FONT color=#1E1919><span style='letter-spacing: 2px'>" & RsTopSort("Names") & "</span></Font></a>")
response.write "|"
else
Response.Write("<A href='"&daohang&"'><b><span style='letter-spacing: 2px'>" & RsTopSort("Names") & "</span></b></a>")
response.write " "
end if
response.write "</td>"
response.write "<td width=5 ></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
.movenext
loop
end if
.close
End With
Set RsTopSort=Nothing
%>
</td>
</tr>
</table>
</div>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -