民主路小学赵智红校长、张学营书记携全校2300名师生祝大家新年快乐!
进入主页
<% response.Write "" & vbcrlf response.Write "
" & vbcrlf response.Write AD_title response.Write "
" response.Write "
" response.Write "" & vbcrlf end if rsPic.close end sub sub GetPicArticleTitle1(intTitleLen,intImgWidth,intImgHeight,i) dim FileType,TitleStr FileType=right(lcase(rsPic("DefaultPicUrl")),3) TitleStr=gotTopic(rsPic("Title"),intTitleLen) strPic=strPic & "bannerADlink[" & cStr(i) & "]=""" & rsPic("LayoutFileName") & "?ArticleID=" & rsPic("ArticleID") & """;" & vbcrlf if fileType="jpg" or fileType="bmp" or fileType="png" or fileType="gif" then strPic=strPic & "bannerAD[" & cStr(i) & "]=""" & rsPic("DefaultPicUrl") & """;" & vbcrlf else strPic=strPic & "bannerAD[" & cStr(i) & "]=""images/NoPic2.jpg"";" & vbcrlf end if strPic=strPic & "bannerADtitle[" & cStr(i) & "]=""" & TitleStr & """;" & vbcrlf end sub %>