<%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%>
<%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("墨迹")%> |
|
|
|
|
| |
|
| |
|
| |
|