<%
sqlstr = "SELECT linkUrl.LinkType, classify.Explain FROM linkUrl INNER JOIN"
sqlstr = sqlstr & " classify ON Cstr(linkUrl.LinkType) = classify.DataInfo WHERE (classify.TabName = 'LinkUrl')"
sqlstr = sqlstr & " AND (classify.ColName = 'LinkType') AND (linkUrl.State = 1) AND (classify.State = 1)"
sqlstr = sqlstr & " GROUP BY linkUrl.LinkType, classify.Explain"
set rslk=server.CreateObject("adodb.recordset")
rslk.Open sqlstr,conn,1,1
if not rslk.BOF and not rslk.EOF then
for iLinkType = 1 to rslk.RecordCount
%>
<%
rslk.MoveNext
if rslk.EOF then exit for
next
else
%>
<%
end if
rslk.Close
set rslk=nothing
%>
当前位置 → 通知公告
