<%zanzhulist="" i=0 Set rs=getrs(applicationmdb,"select * from zanzhushang where huodong=479 and zanzhuleixing = '首席赞助' order by paixu") Do While Not rs.eof i=i+1 '赞助商logo Set rs_img=getrs(applicationmdb,"select ID,yid,PName,UserPhoto from NT_Yel_Base where id="&rs("zanzhumingcheng")&"") If rs_img("UserPhoto")<>"" Then imgurl=Replace(rs_img("UserPhoto"),"/{@dirfile}/","http://www.trainingmag.com.cn/files/") imgurl=Replace(imgurl,"/{@ndirfile}/","http://www.trainingmag.com.cn/files2/") PName=rs_img("PName") Else imgurl="http://www.trainingmag.com.cn/" PName=rs_img("PName") End If targeturl="http://www.trainingmag.com.cn/Training/OrganizationDetail/"&rs_img("yid")&".aspx" Set rs_img=nothing '/{@dirfile}/photo/[34-39]jinzhanming.jpg zanzhulist=zanzhulist&""&PName&"" rs.movenext Loop Set rs=Nothing If i Mod 5<>0 Then j=5-(i Mod 5) zanzhulist=zanzhulist&"" End if %> <%response.write zanzhulist%>
首席赞助:
<%zanzhulist="" i=0 Set rs=getrs(applicationmdb,"select * from zanzhushang where huodong=479 and zanzhuleixing = '钻石赞助' order by paixu") Do While Not rs.eof i=i+1 '赞助商logo Set rs_img=getrs(applicationmdb,"select ID,yid,PName,UserPhoto from NT_Yel_Base where id="&rs("zanzhumingcheng")&"") If rs_img("UserPhoto")<>"" Then imgurl=Replace(rs_img("UserPhoto"),"/{@dirfile}/","http://www.trainingmag.com.cn/files/") imgurl=Replace(imgurl,"/{@ndirfile}/","http://www.trainingmag.com.cn/files2/") PName=rs_img("PName") Else imgurl="http://www.trainingmag.com.cn/" PName=rs_img("PName") End If targeturl="http://www.trainingmag.com.cn/Training/OrganizationDetail/"&rs_img("yid")&".aspx" Set rs_img=Nothing If i<6 Then Select Case i Mod 5 Case 1 zanzhulist=zanzhulist&"钻石赞助:"&PName&"" Case 0 zanzhulist=zanzhulist&""&PName&"" Case Else zanzhulist=zanzhulist&""&PName&"" End Select Else Select Case i Mod 5 Case 1 zanzhulist=zanzhulist&""&PName&"" Case 0 zanzhulist=zanzhulist&""&PName&"" Case Else zanzhulist=zanzhulist&""&PName&"" End Select End If rs.movenext Loop Set rs=Nothing If i Mod 5<>0 Then j=5-(i Mod 5) zanzhulist=zanzhulist&"" End if %> <%response.write zanzhulist%>
<%zanzhulist="" i=0 Set rs=getrs(applicationmdb,"select * from zanzhushang where huodong=479 and zanzhuleixing = '铂金赞助' order by paixu") Do While Not rs.eof i=i+1 '赞助商logo Set rs_img=getrs(applicationmdb,"select ID,yid,PName,UserPhoto from NT_Yel_Base where id="&rs("zanzhumingcheng")&"") If rs_img("UserPhoto")<>"" Then imgurl=Replace(rs_img("UserPhoto"),"/{@dirfile}/","http://www.trainingmag.com.cn/files/") imgurl=Replace(imgurl,"/{@ndirfile}/","http://www.trainingmag.com.cn/files2/") PName=rs_img("PName") Else imgurl="http://www.trainingmag.com.cn/" PName=rs_img("PName") End If targeturl="http://www.trainingmag.com.cn/Training/OrganizationDetail/"&rs_img("yid")&".aspx" Set rs_img=Nothing If i<6 Then Select Case i Mod 5 Case 1 zanzhulist=zanzhulist&"铂金赞助:"&PName&"" Case 0 zanzhulist=zanzhulist&""&PName&"" Case Else zanzhulist=zanzhulist&""&PName&"" End Select Else Select Case i Mod 5 Case 1 zanzhulist=zanzhulist&""&PName&"" Case 0 zanzhulist=zanzhulist&""&PName&"" Case Else zanzhulist=zanzhulist&""&PName&"" End Select End If rs.movenext Loop Set rs=Nothing If i Mod 5<>0 Then j=5-(i Mod 5) zanzhulist=zanzhulist&" " End if %> <%response.write zanzhulist%>
<%zanzhulist="" i=0 Set rs=getrs(applicationmdb,"select * from zanzhushang where huodong=479 and zanzhuleixing = '黄金赞助' order by paixu") Do While Not rs.eof i=i+1 '赞助商logo Set rs_img=getrs(applicationmdb,"select ID,yid,PName,UserPhoto from NT_Yel_Base where id="&rs("zanzhumingcheng")&"") If rs_img("UserPhoto")<>"" Then imgurl=Replace(rs_img("UserPhoto"),"/{@dirfile}/","http://www.trainingmag.com.cn/files/") imgurl=Replace(imgurl,"/{@ndirfile}/","http://www.trainingmag.com.cn/files2/") PName=rs_img("PName") Else imgurl="http://www.trainingmag.com.cn/" PName=rs_img("PName") End If targeturl="http://www.trainingmag.com.cn/Training/OrganizationDetail/"&rs_img("yid")&".aspx" Set rs_img=Nothing If i<6 Then Select Case i Mod 5 Case 1 zanzhulist=zanzhulist&"黄金赞助:"&PName&"" Case 0 zanzhulist=zanzhulist&""&PName&"" Case Else zanzhulist=zanzhulist&""&PName&"" End Select Else Select Case i Mod 5 Case 1 zanzhulist=zanzhulist&""&PName&"" Case 0 zanzhulist=zanzhulist&""&PName&"" Case Else zanzhulist=zanzhulist&""&PName&"" End Select End If rs.movenext Loop Set rs=Nothing If i Mod 5<>0 Then j=5-(i Mod 5) zanzhulist=zanzhulist&"" End if %> <%response.write zanzhulist%>