404 Not Found


nginx
<% Public Function IndexUnitsDocOpenListz(UnitID,CatalogID,SubIs,NumTr,NumWords,DateVis,HitVis) Str = "" sql = "select top "&NumTr&" docID,docTitle,docDateline,docHtmlUrl,docHits from tb_xxgk_contents where docCheckIn=1 and docType=2 and docIsDel=0 and docCatalogPath not like '/-010-042%'" if UnitID<>"" then sql = sql & " and docUnitsID="&UnitID end if if SubIs<>"" then if SubIs=1 and CatalogID<>"" and isnumeric(CatalogID) then sql = sql & " and docCatalogID in("&readclassid(CatalogID)&")" else sql = sql & " and docCatalogID="&CatalogID end if end if sql = sql & " order by docDateline desc" Set rs = LS.CreateRs(sql,1,1) rscount = rs.recordcount If rscount > NumTr Then rscount = NumTr If rscount > 0 Then str = str & "" Else rs.close:set rs=nothing response.Write "正在更新中..." End If If G_FLAGHTMLTYPE Then response.Write(str) Else IndexUnitsDocOpenListz = str End If End Function '====================================================================================================================== ' 首页信息公开分类文章检索(UnitID:单位ID,CatalogID:分类ID,NumTr:条数,NumWords:字数,DateVis:是否显示日期,HitVis:是否显示点击数) '====================================================================================================================== Public Function IndexDocOpenList_name(UnitID, SubIs ,CatalogIDs, NumTr, NumWords, DateVis, HitVis) Str = "" sql = "select top "&NumTr&" docID,docTitle,docDateline,docHtmlUrl,docHits from tb_xxgk_contents where docCheckIn=1 and docType=2 and docIsDel=0 and docCatalogPath not like '/-010-042%'" if UnitID<>"" then sql = sql & " and docUnitsID="&UnitID end if if SubIs<>"" then if SubIs=1 and CatalogIDs<>"" then sql = sql & " and docCatalogID in("&CatalogIDs&")" else sql = sql & " and docCatalogID="&CatalogID end if end if sql = sql & " order by docDateline desc" Set rs = LS.CreateRs(sql, 1, 1) rscount = rs.recordcount If rscount > NumTr Then rscount = NumTr If rscount > 0 Then Str = Str & "" Else rs.Close Set rs = Nothing response.Write "正在更新中..." End If If G_FLAGHTMLTYPE Then response.Write(Str) Else IndexDocOpenList_name = Str End If End Function '====================================================================================================================== ' 首页信息公开分类文章检索(UnitID:单位ID,CatalogID:分类ID,NumTr:条数,NumWords:字数,DateVis:是否显示日期,HitVis:是否显示点击数) '====================================================================================================================== Public Function IndexDocOpenList_new(UnitID, CatalogID, SubIs, NumTr, NumWords, DateVis, HitVis) Str = "" sql = "select top "&NumTr&" docID,docTitle,docDateline,docHtmlUrl,docHits from tb_xxgk_contents where docCheckIn=1 and docType=2 and docIsDel=0" If UnitID<>"" Then sql = sql & " and docUnitsID="&UnitID End If If SubIs<>"" And CatalogID<>"" And IsNumeric(CatalogID) Then sql = sql & " and docCatalogPath like '"&CReadSSPath(CatalogID)&"%'" Else sql = sql & " and docCatalogID="&CatalogID End If sql = sql & " order by docDateline desc" Set rs = LS.CreateRs(sql, 1, 1) rscount = rs.recordcount If rscount > NumTr Then rscount = NumTr If rscount > 0 Then Str = Str & "" Else rs.Close Set rs = Nothing response.Write "正在更新中..." End If If G_FLAGHTMLTYPE Then response.Write(Str) Else IndexDocOpenList_new = Str End If End Function '====================================================================================================================== ' 栏目页视频点播列表(PerNumRow:显示条数,ImgWid:图片宽度,ImgHig:图片高度,MemberIS:是否绑定会员,MemberSSID:绑定会员栏目ID,TitleNumWords:标题数字,DesNumWords:描述数字) '====================================================================================================================== Function VodList01(PerNumRow, ImgWid, ImgHig, MemberIS, MemberSSID, TitleNumWords, DesNumWords) Str = "" Application("VodMemIS") = MemberIS ' ------------------系统启用会员------------------------- If MemberIS = 1 Then Str = Str & "
" If Session("m_ID") = "" Then Str = Str & "" Str = Str & "  " Str = Str & "" Else Str = Str & "【当前用户:"&Session("m_Name")&"】" Str = Str & " 安全退出" Str = Str & " 修改资料" End If Str = Str & "
" End If ' ------------------验证Post------------------------- action = GetSafeStr(Request.Form("action")) If action = "logincheck" Then '验证会员登录 Call MemberLoginCheck(MemberSSID) Exit Function End If If action = "registercheck" Then '验证会员注册 Call MemberRegisterCheck(MemberSSID) Exit Function End If If action = "editcheck" Then '验证会员修改资料 Call MemberEditCheck(MemberSSID) Exit Function End If If action = "findpasscheckuser" Then '验证密码查询 Call MemberFindPassCheckUser() Exit Function End If If action = "findpasscheckanswer" Then '验证密码查询 Call MemberFindPassCheckAnswer() Exit Function End If ' ------------------验证Get------------------------- action = GetSafeStr(Request.QueryString("action")) If action = "login" Then '用户登录表单 %> 404 Not Found

404 Not Found


nginx
<% Exit Function End If If action = "register" Then '用户注册表单 %> 404 Not Found

404 Not Found


nginx
<% Exit Function End If If action = "View" Then '查看 response.Write OnlinePlay() Exit Function End If If action = "edit" Then '用户修改资料表单 Call MemberEdit() Exit Function End If If action = "findpass" Then '用户查询密码表单 Call MemberFindPass() Exit Function End If If action = "logout" Then '用户安全退出 Session("m_ID") = "" Session("m_Name") = "" Session("m_ForumRights") = "" Session("m_Level") = "" Session("m_LoginNow") = "" Response.Redirect NowSSURL&"?SS_ID="&NowSSID End If If NowSSSubItem = True Then sql = " VI_checkin=1 and VI_isdel=0 and SS_Path like '"&NowSSPath&"%'" Else sql = " VI_checkin=1 and VI_isdel=0 and SS_ID="&NowSSID&"" End If '默认分页样式名称 pagination With LS.DB .PageSize = cint(PerNumRow)'定义页数 .ListLong = 3'页数前后显示个数 .Pkey = "VI_ID"'主键 .Field = "VI_ID,VI_Name,VI_SmallImage,VI_Type,VI_Intro,VI_Hit,VI_Date"'字段,尽量不要用*号 .Table = "VodInfo"'表名 .Condition = sql '条件语句,不带用where .OrderBy = "VI_Date desc"'排序,不用带order by 'response.Write .getsql() .RecordCount = 0'默认0即可。 pages= .RecordCount Set oRs = .ResultSet strPage = .PageNav()'分页列表 End With If oRs.EOF Then oRs.Close response.Write "正在更新中..." Exit Function End If %> <% If Not oRs.EOF Then Str = Str & "
" Str = Str & strPage Str = Str & "
" End If Str = Str & "
" If pages>cint(PerNumRow) Then '文章列表多于1页 Str = Str & "
" Str = Str & strPage Str = Str & "
" End If oRs.Close:Set oRs = Nothing If G_FLAGHTMLTYPE = 1 Then response.Write(Str) Else VodList01 = Str End If End Function Function H_NowPlace_new(IndexURL,erjilanmu) PSS_ID = NowhdPSSID Response.write "首页 > " if erjilanmu<>"" then Response.write ""&erjilanmu&" > " end if OutStr = "" For i = 2 to NowhdSSPathNum - RootSSPathNum sql = "select SS_ID,SS_Name,SS_URL,PSS_ID,SS_LinkURL,SS_Type,SS_HtmlUrl from InteractStructure where SS_ID="&PSS_ID Set rs = LS.CreateRs(sql,1,1) If not rs.eof Then SS_ID = rs("SS_ID") SS_Name = rs("SS_Name") SS_URL = rs("SS_URL") PSS_ID = rs("PSS_ID") SS_LinkURL = rs("SS_LinkURL") SS_Type = rs("SS_Type") SS_HtmlUrl = rs("SS_HtmlUrl") If SS_Type < 4 and WebStyle = 2 Then SS_URL = SS_HtmlUrl '静态 .html Else SS_URL = SS_URL & "?SS_ID=" &SS_ID '动态 .shtml End If If SS_LinkURL <> "" Then If OutStr = "" Then OutStr = ""&SS_Name&" > " Else OutStr = ""&SS_Name&" > " & OutStr End If Else If OutStr = "" Then OutStr = ""&SS_Name&" > " Else OutStr = ""&SS_Name&" > " & OutStr End If End If End If rs.close:set rs=nothing Next 'Response.write OutStr & NowhdSSName If G_FLAGHTMLTYPE = 1 Then Response.write OutStr & NowhdSSName Else H_NowPlace_new = OutStr & NowhdSSName End If OutStr = "" End Function Function InterViewimg_cm(ss_id,Imgwid,Imghig) Str = "" If ss_id = "" Or IsNumeric(ss_id) = False Then Exit Function sql = "select top 1 IVS_LinkImage,IVS_Title,IVS_GuestSynopsis,IVS_linkurl,IVS_Date,IVS_ID,IVS_SS_ID,IVS_HtmlUrl,IVS_Zy,IVS_url from InterViewSort Where IVS_SS_ID="&SS_ID&" and IVS_Isdel=0 and IVS_Open=1 and IVS_ZT=1 order by IVS_OrderID asc,IVS_ID desc" Set rs = Ls.CreateRs(sql, 1, 1) If rs.EOF And rs.bof Then Response.Write("正在更新中...") Else IVS_LinkImage = rs("IVS_LinkImage") IVS_Title = rs("IVS_Title") IVS_GuestSynopsis = rs("IVS_GuestSynopsis") IVS_linkurl = rs("IVS_linkurl") IVS_Date = rs("IVS_Date") IVS_ID = rs("IVS_ID") SS_IDD = rs("IVS_SS_ID") IVS_HtmlUrl = rs("IVS_HtmlUrl") IVS_url = rs("IVS_url") if IVS_linkurl<>"" then IVS_HtmlUrl =IVS_linkurl end if IVS_Zy = rs("IVS_Zy") if IVS_url="" then IVS_url="正在更新中..." else IVS_url=IVS_url end if Str = Str & "
" Str = Str & "
" Str = Str & "
" Str = Str & "
" Str = Str & "
" Str = Str & "" Str = Str & "" Str = Str & "" Str = Str & "" Str = Str & "
往期回顾>>
" Str = Str & "
" End If rs.Close Set rs = Nothing If G_FLAGHTMLTYPE = 1 Then response.Write(Str) Else InterViewimg_cm = Str End If End Function Function H_VertSubNav01(NumWords,SS_ID) str = "" sqla = "select SS_ID,SS_Name,SS_Type,SS_URL,SS_SubItem,SS_Path,SS_LinkURL,SS_HtmlUrl from InteractStructure where pss_id=0 and SS_CheckIn=1 and SS_ID in ("&SS_ID&") order by SS_Path" Set rsa = LS.CreateRs(sqla,1,1) rscounta = rsa.recordcount If rscounta = 0 Then rsa.close Exit Function End If str = str & "" end if If G_FLAGHTMLTYPE = 1 Then response.Write(Str) Else H_VertSubNav01 = Str End If End Function Public Function IndexPicDocList_cm(SS_ID, SubIS, SSIDS, NumRow, OrderType, NumWords, DateVis, PicWid, PicHig, IsPicTitle, IsPicCont, NumPicTitle, NumPicCont) If SS_ID = "" Or IsNumeric(SS_ID) = False Or (SubIS <> 0 And SubIS <> 1) Or IsNumeric(NumRow) = False Then Exit Function Dim v_CacheName : v_CacheName = G_CACHENAME & "_IndexPicDocList_cm_" & SS_ID Str = "" If Not IsEmpty(Application(v_CacheName)) And G_ALLCACHE Then Str = Application(v_CacheName) Else '显示加标新闻 sql = "select top 1 d_ID,d_Title,d_linkimage,d_HtmlUrl,d_Author,d_Hit,d_HtmlPath,SS_SiteID from DocContents where d_Type=2 AND d_IsDel=0 AND d_CheckIn<>0 AND d_linkimage<>'' " If SSIDS <> "" Then sql = sql & " AND SS_ID in ("&SSIDS&")" ElseIf SubIS = 1 And SS_ID > 0 Then sql = sql & " AND SS_Path like '"&ReadSSPath(SS_ID)&"%'" Else sql = sql & " AND SS_ID="&SS_ID End If Select Case OrderType Case 0 sql = sql & " order by d_TopLock DESC,d_Date DESC,d_No DESC" Case 1 sql = sql & " order by d_TopLock DESC,d_No DESC,d_Date DESC" Case 2 sql = sql & " order by d_Hit DESC" End Select Set Rs = doSp(sql) If Not Rs.EOF Then Str = Str & "" Else top_ID = 0 End If Rs.Close '显示加标新闻 sql = "select top "&NumRow&" a.d_ID,a.d_Title,a.d_IsHot,a.d_IsTitle,a.d_TitleColor,a.d_HtmlPath,a.SS_SiteID" sql = sql & ",a.d_RedirectLink,a.d_Date,a.d_HtmlUrl,a.d_Author,a.d_Hit " sql = sql & " from DocContents as a left join SiteStructure as b " sql = sql & "on a.SS_ID=b.SS_ID where a.d_IsDel=0 AND a.d_Type=2 AND a.d_CheckIn<>0" If top_id<>"" And IsNumeric(top_id) Then sql = sql & " AND a.d_ID not in ("&top_ID&")" End If If SSIDS <> "" Then sql = sql & " AND a.SS_ID in ("&SSIDS&")" ElseIf SubIS = 1 And SS_ID > 0 Then sql = sql & " AND a.SS_Path like '"&ReadSSPath(SS_ID)&"%'" Else sql = sql & " AND a.SS_ID="&SS_ID End If Select Case OrderType Case 0 sql = sql & " order by a.d_TopLock DESC,a.d_Date DESC,a.d_No DESC" Case 1 sql = sql & " order by a.d_TopLock DESC,a.d_No DESC,a.d_Date DESC" Case 2 sql = sql & " order by a.d_Hit DESC" End Select Set Rs = Ls.CreateRs(sql, 1, 1) rscount = Rs.recordcount If rscount > NumRow Then rscount = NumRow If rscount > 0 Then Str = Str & "" Else Rs.Close Set Rs = Nothing response.Write "正在更新中..." End If If G_ALLCACHE Then Application.Lock Application(v_CacheName) = Str Application.UnLock End If End If If G_FLAGHTMLTYPE = 1 Then response.Write(Str) Else IndexPicDocList_cm = Str End If End Function Public Function IndexDocListNB1(SS_ID, SubIS, SSIDS, NumTr, OrderType, NumWords, DateVis, HitVis, ClassVis) Str = "" If (SS_ID <> "" And IsNumeric(SS_ID) = False) Or (SubIS <> 0 And SubIS <> 1) Or IsNumeric(NumTr) = False Then Exit Function sql = "select top "&NumTr&" d_ID,d_Title,d_TitleColor,d_RedirectLink" sql = sql & ",d_Date,d_HtmlUrl,d_Htmlpath,d_Author,d_Hit,d_IsHot,d_IsTitle,SS_SiteID,SS_ID" sql = sql & " from DocContents where d_IsDel=0 and d_CheckIn=1 AND d_Type=2 and d_istitle=0" If SSIDS <> "" Then sql = sql & " AND SS_ID in ("&SSIDS&")" ElseIf SubIS = 1 And SS_ID > 0 Then 'sql = sql & " AND SS_Path like '"&ReadSSPath(SS_ID)&"%'" sql = sql & " AND SS_ID in ("&CSCfg(SS_ID)&")" Else sql = sql & " AND SS_ID="&SS_ID End If Select Case OrderType Case 0 sql = sql & " order by d_TopLock DESC,d_No DESC,d_Date DESC" Case 1 sql = sql & " order by d_TopLock DESC,d_Date DESC,d_No DESC" Case 2 sql = sql & " order by d_IsHot DESC,d_Date DESC" Case 3 sql = sql & " order by d_Hit DESC,d_Date DESC" End Select Set oRs = doSp(sql) If Not oRs.Eof Then Set XMLDom_ = LS.RsToXml(oRs,"k","c") oRs.Close Set oRs = Nothing Dim SN_,SSN_ Set SN_ = XMLDom_.DocumentElement.SelectNodes("k") Str = Str & "" Set SN_ = Nothing Set XMLDom_ = Nothing Else oRs.Close Set oRs = Nothing Str = "正在更新中..." End If If G_FLAGHTMLTYPE = 1 Then Response.Write(Str) Else IndexDocListNB1 = Str End If End Function Sub AD_tu1(AS_ID,NumTr,RandomIS,RandomNum,IsVouch,TagName) If AS_ID = "" or IsNumeric(AS_ID) = False or RandomNum = "" Then Exit Sub With Response If RandomIS = 0 Then '不随机取 If NumTr = 0 Then Call OutScript("行数或列数不规范!") sql = "select top " & NumTr & " ADInfo.*,ADSort.AS_LogoIS as AS_LogoIS,ADSort.AS_LogoWidth as AS_LogoWidth," sql = sql&"ADSort.AS_LogoHeight as AS_LogoHeight from ADInfo inner join ADSort on ADInfo.AS_ID=ADSort.AS_ID where " sql = sql&"ADInfo.AS_ID="&AS_ID&" and ADInfo.AI_IsShow=1" If IsVouch = 1 Then sql = sql & " and ADInfo.AI_Vouch <> 0" sql = sql & " order by ADInfo.AI_Vouch"&OType&",ADInfo.AI_NO desc,ADInfo.AI_Date desc" Set rs = Ls.CreateRs(sql,1,1) rscount = rs.recordcount If rscount = 0 Then rs.close Exit Sub End If If rscount > NumTr Then rscount = NumTr AS_LogoIS = rs("AS_LogoIS") AS_LogoWidth = rs("AS_LogoWidth") AS_LogoHeight = rs("AS_LogoHeight") '.Write "" Else '随机取值 Dim tAI_ID(),tAI_Name(),tAI_LogoURL(),tAI_URL() sql = "select top " & RandomNum & " ADInfo.*,ADSort.AS_LogoIS as AS_LogoIS,ADSort.AS_LogoWidth as AS_LogoWidth," sql = sql & "ADSort.AS_LogoHeight as AS_LogoHeight from ADInfo inner join ADSort on ADInfo.AS_ID=ADSort.AS_ID where " sql = sql & "ADInfo.AS_ID="&AS_ID&" and ADInfo.AI_IsShow=1" If IsVouch = 1 Then sql = sql & " and ADInfo.AI_Vouch <> 0" sql = sql & " order by ADInfo.AI_Vouch"&OType&",ADInfo.AI_NO desc,ADInfo.AI_Date desc,ADInfo.AI_Time desc" Set rs = LsObject.CreateRs(sql,1,1) rscount = rs.recordcount If rscount = 0 Then rs.close Exit Sub End If If rscount > RandomNum Then rscount = RandomNum Redim Preserve tAI_ID(rscount),tAI_Name(rscount),tAI_LogoURL(rscount),tAI_URL(rscount) AS_LogoIS = rs("AS_LogoIS") AS_LogoWidth = rs("AS_LogoWidth") AS_LogoHeight = rs("AS_LogoHeight") For i = 1 to rscount tAI_ID(i) = rs("AI_ID") tAI_Name(i) = rs("AI_Name") tAI_LogoURL(i) = rs("AI_LogoURL") tAI_URL(i) = rs("AI_URL") rs.movenext Next rs.close Randomize Max = rscount Min = 1 ri = Round(Rnd * (Max - Min + 1) - 0.5) + Min '.Write "" End If End With End Sub Public Function IndexDocTitAndWords2(SS_ID, SubIS, SSIDS, TitleNumWords, ContentNumWords, MoreIs) If (SS_ID <> "" And IsNumeric(SS_ID) = False) Or (SubIS <> 0 And SubIS <> 1) Then Exit Function Str = "" sql = "select top 1 d_ID,d_Title,d_Hit,d_TitleColor,d_LinkImage,d_Date,d_HtmlUrl,d_Contents,d_RedirectLink,d_Htmlpath,ss_siteid" sql = sql & " from vDocContents where d_Type=2 AND d_IsDel=0 AND d_IsTitle<>0 AND d_CheckIn<>0" If SSIDS <> "" Then sql = sql & " AND SS_ID in ("&SSIDS&")" ElseIf SubIS = 1 And SS_ID > 0 Then 'sql = sql & " AND SS_Path like '"&ReadSSPath(SS_ID)&"%'" sql = sql & " AND SS_ID in ("&CSCfg(SS_ID)&")" Else sql = sql & " AND SS_ID="&SS_ID End If sql = sql & " order by d_Date DESC,d_No DESC" Set Rs = LS.CreateRs(sql, 1, 1) If Not Rs.EOF Then xd_ID = Rs("d_ID") except_ID = Rs("d_ID") xd_Title = Rs("d_Title") xd_Title2 = Rs("d_Title") xd_TitleColor = Rs("d_TitleColor") xd_LinkImage = Rs("d_LinkImage") xd_Date = Rs("d_Date") xd_Hit = Rs("d_Hit") xd_HtmlUrl = Rs("d_HtmlUrl") d_RedirectLink = Rs("d_RedirectLink") p_SiteID = Rs("ss_siteid") d_Htmlpath = Rs("d_Htmlpath") xd_Title = CutStr(xd_Title, TitleNumWords * 2) xd_Contents = rs("d_Contents") yy_Date=year(xd_Date) md_Date = Month(xd_Date) dd_Date = Day(xd_Date) If IsNull(d_RedirectLink) = False And d_RedirectLink<>"" Then DocURL = d_RedirectLink Else DocURL = DocHtmlDir &p_SiteID&"/"& d_Htmlpath&xd_HtmlUrl&STATICEXT End If If md_Date < 10 Then md_Date = "0" & md_Date If dd_Date < 10 Then dd_Date = "0" & dd_Date If xd_TitleColor <> "" Then xd_Title = ""&xd_Title&"" Str = Str & "
"&dd_Date&""&yy_Date&"-"&md_Date&"
" Str = Str & "
" Str = Str & "
" Str = Str & ""&xd_Title&"
" Str = Str & "
"&CutStr(MoveHTML(xd_Contents), ContentNumWords * 3) If MoreIs<>0 Then Str = Str & "[查看详情]" End If Str = Str &"
" Str = Str &"
" End If Rs.Close Set Rs = Nothing If G_FLAGHTMLTYPE = 1 Then response.Write(Str) Else IndexDocTitAndWords2 = Str End If End Function Function IndexSortDoc1(SS_ID, NumWords) Str = "" If SS_ID = "" Or IsNumeric(SS_ID) = False Then Exit Function sql = "select d_id,d_Hit from DocContents where d_IsDel=0 and d_Type=1 and SS_ID=" & SS_ID Set rs = LS.CreateRs(sql, 1, 3) If Not rs.EOF Then d_id = rs("d_id") d_Hit = rs("d_Hit") rs("d_Hit") = d_Hit + 1 rs.update '读取内容 If d_id<>"" And IsNumeric(d_id) Then sqlt = "select * from DocContentsBody where d_dID ="&d_id Set rst = LS.CreateRs(sqlt, 1, 1) If Not rst.EOF Then d_Contents = rst("d_Contents") End If rst.Close End If If NumWords <> "" And IsNumeric(NumWords) = True Then Str = Str & Left(d_Contents, NumWords* 2) Else Str = Str & d_Contents End If End If rs.Close Set rs = Nothing If G_FLAGHTMLTYPE = 1 Then response.Write(Str) Else IndexSortDoc1 = Str End If End Function ' ====================================================================================================================== ' 首页视频单个调用(SS_ID:栏目ID,SS_Path:栏目路径,VodID:视频ID,TitleNum:标题字数,DescNum:简介字数,V_Width:视频宽度,V_Height:视频高度,IsTitle:是否显示标题 (0--不显示视频标题;1--显示视频标题),IsDesc:是否显示视频简介 (0--不显示简介信息;1--显示简介信息),Pic_Vod:是显示图片还是播放视频(0--显示图片;1--播放视频),AutoPlay:是否自动播放视频(0--不自动播放视频;1--自动播放视频) ' ====================================================================================================================== Function IndexVodShow01(SS_ID, SS_Path, IsTitle, TitleNum, IsDesc, DescNum, V_Width, V_Height, Pic_Vod, AutoPlay) Str = "" If SS_ID = "" And SS_Path = "" Then Exit Function If V_Width = "" Or Not IsNumeric(V_Width) Then V_Width = 100 If V_Height = "" Or Not IsNumeric(V_Height) Then V_Height = 100 sql = "select top 1 VI_ID,VI_URL,VI_Name,VI_Intro,VI_Type,VI_SmallImage,SS_ID from VodInfo" If SS_ID <> "" Then sql = sql& " where VI_checkin=1 and VI_isdel=0 and SS_ID="&SS_ID Else sql = sql&" where VI_checkin=1 and VI_isdel=0 and SS_Path like '"&SS_Path&"%'" End If sql = sql&" order by VI_Vouch desc,VI_Date desc" Set rs = LS.CreateRs(sql, 1, 1) If Not rs.EOF Then %> <% Vss_id = rs("SS_ID") VI_ID = rs("VI_ID") VI_URL = rs("VI_URL") VI_Name = rs("VI_Name") VI_Intro = rs("VI_Intro") VI_Type = rs("VI_Type") SS_URL = CCfg(Vss_id,8) SI_Domain = CCfg(Vss_id,12) VI_SmallImage = rs("VI_SmallImage") If VI_SmallImage = "" Or IsNull(VI_SmallImage) Then VI_SmallImage = "/System/static/skins/image/nophoto.gif" End If Str = Str & "