<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 中国书法名家网

 

<%sub showtagname(lanmu) set rsldmj=server.CreateObject("adodb.recordset") sqlldmj="select n_fname,n_lanmus from t_news where n_tid=3 and n_lanmus like '"&lanmu&"|%' " rsldmj.open sqlldmj,MM_conn_news_STRING%> <%do while not rsldmj.eof%>
  • " ><%=split(rsldmj("n_lanmus"),"|")(1)%>
  •  
    • <%rsldmj.movenext loop rsldmj.close set rsgzgh=nothing end sub%>

    先

    秦
    甲骨文
      <% call showtagname("甲骨文")%>
    金文
      <% call showtagname("金文")%>
    刻石
    		 <% call showtagname("刻石")%>
    简帛
    		 <% call showtagname("简帛")%>
    秦

    汉
    秦朝
    		 <% call showtagname("秦朝")%>
    汉朝
    		 <% call showtagname("汉朝")%>
    名家
    		 <% call showtagname("名家")%>
    　

    三

    国

    两

    晋

    　　
    三国
    		 <% call showtagname("三国")%>
    <% call showtagname("钟繇")%>
    <% call showtagname("晋墓志")%>
    <% call showtagname("晋名家")%>
    <% call showtagname("王羲之")%>
    <% call showtagname("王献之")%>
    <% call showtagname("晋碑刻")%>
    <% call showtagname("墨迹")%>
    　

    南

    北

    朝

    书