<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% If PageID="" Then PageID = "1/1.shtm" RPage = True End If If PicID<>"" Then Call RPageUrl() Else Call Photo_List() End If %> <% Sub RPageUrl() Dim strUrl,strTmp,strTmp1 strUrl = ImgUrl&PicID strTmp = GetHttpPage(strUrl) strTmp1 = strCut(strTmp,"",2) strTmp1 = Replace(strTmp1,"爱在这儿--[LoveInHere.COM]--您要寻找的爱就在这儿","蓝色空间--[BlueSpace.CN]") If InStr(strTmp,"")>0 Then strTmp = strCut(strTmp,"",1) strTmp = Replace(strTmp,"width=""100%"" height=""500""","width=""750"" height=""650""") Response.Write "" Response.Write "" Response.Write "

"&strTmp1&"

" Response.Write strTmp Response.Write "

" Else strTmp = strCut(strTmp,"" Response.Write ""&strTmp1&"" Response.Write "" Response.Write "" Response.Write "" End If End Sub Sub Photo_List() Dim strUrl,strTmp,strPage,strBody strUrl = SiteUrl&PageID strTmp = GetHttpPage(strUrl) strTmp = strCut(strTmp,"上传时间","",1) strPage = strCut(strTmp,"","第页",2) strPage = Replace(strPage,"../","?C="&SortID&"&P=") If RPage Then Dim RUrl RUrl = strCut(strPage,"条!  ",2) Response.Redirect ""&RUrl&"" Response.End End If strBody = strCut(strTmp,"上传时间","",2) strBody = Replace(strBody,"","") strBody = Replace(strBody,"/"&SortID&"D/","?C="&SortID&"&O=") strBody = ClearImg(strBody) Response.Write "" Response.Write "" Response.Write strBody Response.Write "" Response.Write "" Response.Write "

" Response.Write "ID	图片名称	上传者	上传时间" Response.Write "
" Response.Write strPage&"

" End Sub %>