|
|
|
内画新闻动态
|
|
|
<%
M=1
Set rsMz=Server.CreateObject("Adodb.RecordSet")
strSql="Select Top 80 B.SecondClassName As SecondClassName,B.HtmlPage As HtmlPage From SecondClass B Left Join FirstClass A On A.FirstClassName=B.FirstClassName Order By A.Num,B.Num "
rsMz.Open strSql,oConn,3,3
If rsMz.RecordCount>0 Then
For I=1 To rsMz.RecordCount
If rsMz.Eof Then Exit For
If M Mod 2=0 Then
%>
| |
<%
Else
%>
<%
End If
If I Mod 8 =0 Then
response.write " "
M=M+1
End If
If I =80 Then
Exit For
End If
rsMz.MoveNext
Next
End If
%>
| 衡水内画被列入首批国家级非物质文化遗产名录 |
| 湖南同人内画笔筒定单--内画笔筒 |
| 世界500强企业OTIS电梯公司选择霁墨轩内画笔筒作为其高档礼品送给贵宾 |
| |
| 衡水市被文化部命名为“中国内画艺术之乡” |
| 衡水霁墨轩内画工艺品厂招聘内画画师 |
| 衡水霁墨轩内画工艺品厂参加第十六届北京国际礼品、工艺品展览会 |
| 名称解释：艺术内画、日用内画 |
| |
|
|
|
|
|
产品推荐 |
|
|
<%
Set rsKz=Server.CreateObject("Adodb.RecordSet")
strSql="Select FirstClassName From FirstClass Where KeyFlag='kzjx'"
rsKz.open strSql,oConn,3,3
strFirstClass=""
If rsKz.RecordCount=1 Then
strFirstClass=Trim(rsKz("FirstClassName"))
End If
M=1
Set rsMz=Server.CreateObject("Adodb.RecordSet")
strSql="Select Top 22 FirstClassName,SecondClassName,HtmlPage From SecondClass Where FirstClassName='" & Trim(strFirstClass) & "' Order By Num"
rsMz.Open strSql,oConn,3,3
If rsMz.RecordCount>0 Then
rsMz.MoveFirst
strFirstClass=""
strFirstClassUrl=""
For M=1 To rsMz.RecordCount
If rsMz.Eof Then Exit For
If M>22 Then Exit For
strFirstClass=Left(Trim(rsMz("SecondClassName")),6)
strFirstClassUrl=Trim(rsMz("HtmlPage"))
strString1="":strString2="":strString3="":strString4="":strString5="":strString6="":strString7="":strString8="":strString9="":strString10="":strString11="":strString12="":strString13="":strString14=""
strStringUrl1="":strStringUrl2="":strStringUrl3="":strStringUrl4="":strStringUrl5="":strStringUrl6="":strStringUrl7="":strStringUrl8="":strStringUrl9="":strStringUrl10="":strStringUrl11="":strStringUrl12="":strStringUrl13="":strStringUrl14=""
strMore="no"
strSql="Select top 6 Url,Name From Url Where FirstClassName='" & Trim(rsMz("FirstClassName")) & "' And SecondClassName='" & Trim(rsMz("SecondClassName")) & "' order By Num"
Set rsMzdh=Server.CreateObject("Adodb.RecordSet")
rsMzdh.Open strSql,oConn,3,3
If rsMzdh.RecordCount >0 Then
rsMzdh.MoveFirst
strMore="no"
strString1="":strString2="":strString3="":strString4="":strString5="":strString6="":strString7="":strString8="":strString9="":strString10="":strString11="":strString12="":strString13="":strString14=""
strStringUrl1="":strStringUrl2="":strStringUrl3="":strStringUrl4="":strStringUrl5="":strStringUrl6="":strStringUrl7="":strStringUrl8="":strStringUrl9="":strStringUrl10="":strStringUrl11="":strStringUrl12="":strStringUrl13="":strStringUrl14=""
For I=1 To rsMzdh.RecordCount
If rsMzdh.RecordCount>5 Then
strMore="yes"
Else
strMore="no"
End If
If rsMzdh.Eof Then Exit For
If I=6 Then Exit For
If I=1 Then
strString1=Left(Trim(rsMzdh("Name")),10)
strStringUrl1=Trim(rsMzdh("Url"))
End If
If I=2 Then
strString2=Left(Trim(rsMzdh("Name")),10)
strStringUrl2=Trim(rsMzdh("Url"))
End If
If I=3 Then
strString3=Left(Trim(rsMzdh("Name")),10)
strStringUrl3=Trim(rsMzdh("Url"))
End If
If I=4 Then
strString4=Left(Trim(rsMzdh("Name")),10)
strStringUrl4=Trim(rsMzdh("Url"))
End If
If I=5 Then
strString5=Left(Trim(rsMzdh("Name")),10)
strStringUrl5=Trim(rsMzdh("Url"))
End If
rsMzdh.MoveNext
Next
End If
If M Mod 2 = 0 Then
%>
<%
Else
%>
<%
End If
rsMz.MoveNext
Next
End If
For I=M To 22
If I Mod 2 = 0 Then
%>
<%
Else
%>
| |
|
|
|
|
|
|
<%
End If
Next
%>
|
 
|
|
|