最新公告
Function IndexPicNews() dim indexpicnews_pic,indexpicnews_url,indexpicnews_text,newspic sql="select top "&indexnewsnum&" news_id,news_pic,news_title from Ft_news where news_pic<>'' order by news_id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 indexpicnews_pic="" indexpicnews_url="" indexpicnews_text="" if not rs.eof then k=1 Num_total=rs.recordcount for i=1 to Num_total newspic=rs(1) indexpicnews_pic=indexpicnews_pic+newspic+"|" indexpicnews_url=indexpicnews_url+"shownews.asp?id="&rs(0)&"|" indexpicnews_text=indexpicnews_text+""&left(replaceText(rs(2)),30)&"|" rs.movenext k=k+1 next else indexpicnews_pic=""&signimgpath&"/nopicnews.gif|"&signimgpath&"/nopicnews.gif" indexpicnews_url="http://www.tumu163.cn/|http://www.tumu163.cn/" indexpicnews_text=""&webname&"|designbyfeitecstudio" end if rs.close:set rs=nothing indexpicnews_pic=left(indexpicnews_pic,len(indexpicnews_pic)-1) indexpicnews_url=left(indexpicnews_url,len(indexpicnews_url)-1) indexpicnews_text=left(indexpicnews_text,len(indexpicnews_text)-1) indexpicnews=""&VbCrLf IndexPicNews=indexpicnews End Function
关于我们 | 超级搜索 
 
Copyright© 2011-2012 江西理工大学党委统一战线工作部, All rights reserved。
地址:江西省赣州市红旗大道86号 邮编:341000
赣备 2-4-3-2002318
 
超酷素材-江西理工大学党委统一战线工作部
 最新公告
Function IndexPicNews() dim indexpicnews_pic,indexpicnews_url,indexpicnews_text,newspic sql="select top "&indexnewsnum&" news_id,news_pic,news_title from Ft_news where news_pic<>'' order by news_id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 indexpicnews_pic="" indexpicnews_url="" indexpicnews_text="" if not rs.eof then k=1 Num_total=rs.recordcount for i=1 to Num_total newspic=rs(1) indexpicnews_pic=indexpicnews_pic+newspic+"|" indexpicnews_url=indexpicnews_url+"shownews.asp?id="&rs(0)&"|" indexpicnews_text=indexpicnews_text+""&left(replaceText(rs(2)),30)&"|" rs.movenext k=k+1 next else indexpicnews_pic=""&signimgpath&"/nopicnews.gif|"&signimgpath&"/nopicnews.gif" indexpicnews_url="http://www.tumu163.cn/|http://www.tumu163.cn/" indexpicnews_text=""&webname&"|designbyfeitecstudio" end if rs.close:set rs=nothing indexpicnews_pic=left(indexpicnews_pic,len(indexpicnews_pic)-1) indexpicnews_url=left(indexpicnews_url,len(indexpicnews_url)-1) indexpicnews_text=left(indexpicnews_text,len(indexpicnews_text)-1) indexpicnews=""&VbCrLf IndexPicNews=indexpicnews End Function
关于我们 | 超级搜索 
 
Copyright© 2011-2012 江西理工大学党委统一战线工作部, All rights reserved。
地址:江西省赣州市红旗大道86号 邮编:341000
赣备 2-4-3-2002318
 
超酷素材-江西理工大学党委统一战线工作部
 最新公告
Function IndexPicNews() dim indexpicnews_pic,indexpicnews_url,indexpicnews_text,newspic sql="select top "&indexnewsnum&" news_id,news_pic,news_title from Ft_news where news_pic<>'' order by news_id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 indexpicnews_pic="" indexpicnews_url="" indexpicnews_text="" if not rs.eof then k=1 Num_total=rs.recordcount for i=1 to Num_total newspic=rs(1) indexpicnews_pic=indexpicnews_pic+newspic+"|" indexpicnews_url=indexpicnews_url+"shownews.asp?id="&rs(0)&"|" indexpicnews_text=indexpicnews_text+""&left(replaceText(rs(2)),30)&"|" rs.movenext k=k+1 next else indexpicnews_pic=""&signimgpath&"/nopicnews.gif|"&signimgpath&"/nopicnews.gif" indexpicnews_url="http://www.tumu163.cn/|http://www.tumu163.cn/" indexpicnews_text=""&webname&"|designbyfeitecstudio" end if rs.close:set rs=nothing indexpicnews_pic=left(indexpicnews_pic,len(indexpicnews_pic)-1) indexpicnews_url=left(indexpicnews_url,len(indexpicnews_url)-1) indexpicnews_text=left(indexpicnews_text,len(indexpicnews_text)-1) indexpicnews=""&VbCrLf IndexPicNews=indexpicnews End Function
关于我们 | 超级搜索 
 
Copyright© 2011-2012 江西理工大学党委统一战线工作部, All rights reserved。
地址:江西省赣州市红旗大道86号 邮编:341000
赣备 2-4-3-2002318
 
超酷素材-江西理工大学党委统一战线工作部
 最新公告
Function IndexPicNews() dim indexpicnews_pic,indexpicnews_url,indexpicnews_text,newspic sql="select top "&indexnewsnum&" news_id,news_pic,news_title from Ft_news where news_pic<>'' order by news_id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 indexpicnews_pic="" indexpicnews_url="" indexpicnews_text="" if not rs.eof then k=1 Num_total=rs.recordcount for i=1 to Num_total newspic=rs(1) indexpicnews_pic=indexpicnews_pic+newspic+"|" indexpicnews_url=indexpicnews_url+"shownews.asp?id="&rs(0)&"|" indexpicnews_text=indexpicnews_text+""&left(replaceText(rs(2)),30)&"|" rs.movenext k=k+1 next else indexpicnews_pic=""&signimgpath&"/nopicnews.gif|"&signimgpath&"/nopicnews.gif" indexpicnews_url="http://www.tumu163.cn/|http://www.tumu163.cn/" indexpicnews_text=""&webname&"|designbyfeitecstudio" end if rs.close:set rs=nothing indexpicnews_pic=left(indexpicnews_pic,len(indexpicnews_pic)-1) indexpicnews_url=left(indexpicnews_url,len(indexpicnews_url)-1) indexpicnews_text=left(indexpicnews_text,len(indexpicnews_text)-1) indexpicnews=""&VbCrLf IndexPicNews=indexpicnews End Function
关于我们 | 超级搜索 
 
Copyright© 2011-2012 江西理工大学党委统一战线工作部, All rights reserved。
地址:江西省赣州市红旗大道86号 邮编:341000
赣备 2-4-3-2002318
 
超酷素材-江西理工大学党委统一战线工作部
 最新公告
Function IndexPicNews() dim indexpicnews_pic,indexpicnews_url,indexpicnews_text,newspic sql="select top "&indexnewsnum&" news_id,news_pic,news_title from Ft_news where news_pic<>'' order by news_id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 indexpicnews_pic="" indexpicnews_url="" indexpicnews_text="" if not rs.eof then k=1 Num_total=rs.recordcount for i=1 to Num_total newspic=rs(1) indexpicnews_pic=indexpicnews_pic+newspic+"|" indexpicnews_url=indexpicnews_url+"shownews.asp?id="&rs(0)&"|" indexpicnews_text=indexpicnews_text+""&left(replaceText(rs(2)),30)&"|" rs.movenext k=k+1 next else indexpicnews_pic=""&signimgpath&"/nopicnews.gif|"&signimgpath&"/nopicnews.gif" indexpicnews_url="http://www.tumu163.cn/|http://www.tumu163.cn/" indexpicnews_text=""&webname&"|designbyfeitecstudio" end if rs.close:set rs=nothing indexpicnews_pic=left(indexpicnews_pic,len(indexpicnews_pic)-1) indexpicnews_url=left(indexpicnews_url,len(indexpicnews_url)-1) indexpicnews_text=left(indexpicnews_text,len(indexpicnews_text)-1) indexpicnews=""&VbCrLf IndexPicNews=indexpicnews End Function
关于我们 | 超级搜索 
 
Copyright© 2011-2012 江西理工大学党委统一战线工作部, All rights reserved。
地址:江西省赣州市红旗大道86号 邮编:341000
赣备 2-4-3-2002318
 
超酷素材-江西理工大学党委统一战线工作部
 最新公告
Function IndexPicNews() dim indexpicnews_pic,indexpicnews_url,indexpicnews_text,newspic sql="select top "&indexnewsnum&" news_id,news_pic,news_title from Ft_news where news_pic<>'' order by news_id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 indexpicnews_pic="" indexpicnews_url="" indexpicnews_text="" if not rs.eof then k=1 Num_total=rs.recordcount for i=1 to Num_total newspic=rs(1) indexpicnews_pic=indexpicnews_pic+newspic+"|" indexpicnews_url=indexpicnews_url+"shownews.asp?id="&rs(0)&"|" indexpicnews_text=indexpicnews_text+""&left(replaceText(rs(2)),30)&"|" rs.movenext k=k+1 next else indexpicnews_pic=""&signimgpath&"/nopicnews.gif|"&signimgpath&"/nopicnews.gif" indexpicnews_url="http://www.tumu163.cn/|http://www.tumu163.cn/" indexpicnews_text=""&webname&"|designbyfeitecstudio" end if rs.close:set rs=nothing indexpicnews_pic=left(indexpicnews_pic,len(indexpicnews_pic)-1) indexpicnews_url=left(indexpicnews_url,len(indexpicnews_url)-1) indexpicnews_text=left(indexpicnews_text,len(indexpicnews_text)-1) indexpicnews=""&VbCrLf IndexPicNews=indexpicnews End Function
关于我们 | 超级搜索 
 
Copyright© 2011-2012 江西理工大学党委统一战线工作部, All rights reserved。
地址:江西省赣州市红旗大道86号 邮编:341000
赣备 2-4-3-2002318
 
超酷素材-江西理工大学党委统一战线工作部
 最新公告
Function IndexPicNews() dim indexpicnews_pic,indexpicnews_url,indexpicnews_text,newspic sql="select top "&indexnewsnum&" news_id,news_pic,news_title from Ft_news where news_pic<>'' order by news_id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 indexpicnews_pic="" indexpicnews_url="" indexpicnews_text="" if not rs.eof then k=1 Num_total=rs.recordcount for i=1 to Num_total newspic=rs(1) indexpicnews_pic=indexpicnews_pic+newspic+"|" indexpicnews_url=indexpicnews_url+"shownews.asp?id="&rs(0)&"|" indexpicnews_text=indexpicnews_text+""&left(replaceText(rs(2)),30)&"|" rs.movenext k=k+1 next else indexpicnews_pic=""&signimgpath&"/nopicnews.gif|"&signimgpath&"/nopicnews.gif" indexpicnews_url="http://www.tumu163.cn/|http://www.tumu163.cn/" indexpicnews_text=""&webname&"|designbyfeitecstudio" end if rs.close:set rs=nothing indexpicnews_pic=left(indexpicnews_pic,len(indexpicnews_pic)-1) indexpicnews_url=left(indexpicnews_url,len(indexpicnews_url)-1) indexpicnews_text=left(indexpicnews_text,len(indexpicnews_text)-1) indexpicnews=""&VbCrLf IndexPicNews=indexpicnews End Function
关于我们 | 超级搜索 
 
Copyright© 2011-2012 江西理工大学党委统一战线工作部, All rights reserved。
地址:江西省赣州市红旗大道86号 邮编:341000
赣备 2-4-3-2002318
 
超酷素材-江西理工大学党委统一战线工作部
 最新公告
Function IndexPicNews() dim indexpicnews_pic,indexpicnews_url,indexpicnews_text,newspic sql="select top "&indexnewsnum&" news_id,news_pic,news_title from Ft_news where news_pic<>'' order by news_id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 indexpicnews_pic="" indexpicnews_url="" indexpicnews_text="" if not rs.eof then k=1 Num_total=rs.recordcount for i=1 to Num_total newspic=rs(1) indexpicnews_pic=indexpicnews_pic+newspic+"|" indexpicnews_url=indexpicnews_url+"shownews.asp?id="&rs(0)&"|" indexpicnews_text=indexpicnews_text+""&left(replaceText(rs(2)),30)&"|" rs.movenext k=k+1 next else indexpicnews_pic=""&signimgpath&"/nopicnews.gif|"&signimgpath&"/nopicnews.gif" indexpicnews_url="http://www.tumu163.cn/|http://www.tumu163.cn/" indexpicnews_text=""&webname&"|designbyfeitecstudio" end if rs.close:set rs=nothing indexpicnews_pic=left(indexpicnews_pic,len(indexpicnews_pic)-1) indexpicnews_url=left(indexpicnews_url,len(indexpicnews_url)-1) indexpicnews_text=left(indexpicnews_text,len(indexpicnews_text)-1) indexpicnews=""&VbCrLf IndexPicNews=indexpicnews End Function
关于我们 | 超级搜索 
 
Copyright© 2011-2012 江西理工大学党委统一战线工作部, All rights reserved。
地址:江西省赣州市红旗大道86号 邮编:341000
赣备 2-4-3-2002318
 
超酷素材-江西理工大学党委统一战线工作部
 最新公告
Function IndexPicNews() dim indexpicnews_pic,indexpicnews_url,indexpicnews_text,newspic sql="select top "&indexnewsnum&" news_id,news_pic,news_title from Ft_news where news_pic<>'' order by news_id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 indexpicnews_pic="" indexpicnews_url="" indexpicnews_text="" if not rs.eof then k=1 Num_total=rs.recordcount for i=1 to Num_total newspic=rs(1) indexpicnews_pic=indexpicnews_pic+newspic+"|" indexpicnews_url=indexpicnews_url+"shownews.asp?id="&rs(0)&"|" indexpicnews_text=indexpicnews_text+""&left(replaceText(rs(2)),30)&"|" rs.movenext k=k+1 next else indexpicnews_pic=""&signimgpath&"/nopicnews.gif|"&signimgpath&"/nopicnews.gif" indexpicnews_url="http://www.tumu163.cn/|http://www.tumu163.cn/" indexpicnews_text=""&webname&"|designbyfeitecstudio" end if rs.close:set rs=nothing indexpicnews_pic=left(indexpicnews_pic,len(indexpicnews_pic)-1) indexpicnews_url=left(indexpicnews_url,len(indexpicnews_url)-1) indexpicnews_text=left(indexpicnews_text,len(indexpicnews_text)-1) indexpicnews=""&VbCrLf IndexPicNews=indexpicnews End Function
关于我们 | 超级搜索 
 
Copyright© 2011-2012 江西理工大学党委统一战线工作部, All rights reserved。
地址:江西省赣州市红旗大道86号 邮编:341000
赣备 2-4-3-2002318
 
超酷素材-江西理工大学党委统一战线工作部
 最新公告
Function IndexPicNews() dim indexpicnews_pic,indexpicnews_url,indexpicnews_text,newspic sql="select top "&indexnewsnum&" news_id,news_pic,news_title from Ft_news where news_pic<>'' order by news_id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 indexpicnews_pic="" indexpicnews_url="" indexpicnews_text="" if not rs.eof then k=1 Num_total=rs.recordcount for i=1 to Num_total newspic=rs(1) indexpicnews_pic=indexpicnews_pic+newspic+"|" indexpicnews_url=indexpicnews_url+"shownews.asp?id="&rs(0)&"|" indexpicnews_text=indexpicnews_text+""&left(replaceText(rs(2)),30)&"|" rs.movenext k=k+1 next else indexpicnews_pic=""&signimgpath&"/nopicnews.gif|"&signimgpath&"/nopicnews.gif" indexpicnews_url="http://www.tumu163.cn/|http://www.tumu163.cn/" indexpicnews_text=""&webname&"|designbyfeitecstudio" end if rs.close:set rs=nothing indexpicnews_pic=left(indexpicnews_pic,len(indexpicnews_pic)-1) indexpicnews_url=left(indexpicnews_url,len(indexpicnews_url)-1) indexpicnews_text=left(indexpicnews_text,len(indexpicnews_text)-1) indexpicnews=""&VbCrLf IndexPicNews=indexpicnews End Function
关于我们 | 超级搜索 
 
Copyright© 2011-2012 江西理工大学党委统一战线工作部, All rights reserved。
地址:江西省赣州市红旗大道86号 邮编:341000
赣备 2-4-3-2002318
 
超酷素材-江西理工大学党委统一战线工作部
 最新公告
Function IndexPicNews() dim indexpicnews_pic,indexpicnews_url,indexpicnews_text,newspic sql="select top "&indexnewsnum&" news_id,news_pic,news_title from Ft_news where news_pic<>'' order by news_id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 indexpicnews_pic="" indexpicnews_url="" indexpicnews_text="" if not rs.eof then k=1 Num_total=rs.recordcount for i=1 to Num_total newspic=rs(1) indexpicnews_pic=indexpicnews_pic+newspic+"|" indexpicnews_url=indexpicnews_url+"shownews.asp?id="&rs(0)&"|" indexpicnews_text=indexpicnews_text+""&left(replaceText(rs(2)),30)&"|" rs.movenext k=k+1 next else indexpicnews_pic=""&signimgpath&"/nopicnews.gif|"&signimgpath&"/nopicnews.gif" indexpicnews_url="http://www.tumu163.cn/|http://www.tumu163.cn/" indexpicnews_text=""&webname&"|designbyfeitecstudio" end if rs.close:set rs=nothing indexpicnews_pic=left(indexpicnews_pic,len(indexpicnews_pic)-1) indexpicnews_url=left(indexpicnews_url,len(indexpicnews_url)-1) indexpicnews_text=left(indexpicnews_text,len(indexpicnews_text)-1) indexpicnews=""&VbCrLf IndexPicNews=indexpicnews End Function
关于我们 | 超级搜索 
 
Copyright© 2011-2012 江西理工大学党委统一战线工作部, All rights reserved。
地址:江西省赣州市红旗大道86号 邮编:341000
赣备 2-4-3-2002318