{$9$}

新闻搜索

{$10$}

友情链接

<% ssql="select top 8 * from THT_link where THT_Link_IsShow=true order by THT_Link_Type desc,THT_Link_ID desc" Set objRS = objConn.THT_SetRS(sSql) Do While Not objRS.EOF tname=objRS("THT_Link_Title") LinkType=objRS("THT_Link_Type") Linkwebsize=objRS("THT_Link_websize") if LinkType=true then %>

<% else response.write("

"&THTSoft.THT_LeftStr(tname,14)&"

") end if objRS.MoveNext Loop objConn.THT_CloseRS rs %>

{$4$}

{$6$}

{$5$}

{$7$}

{$8$}

{$1$} {$2$}

{$3$}