<% Dim PicID PicID=Trim(Request("PicID")) If IsNumeric(PicID) = False Then GoError "图片ID参数错误,请不要试图破坏此系统。" End If Set oRs1=oConn.Execute("Select * From PictureData Where P_ID="&PicID) If oRs1.Eof Then GoError "无此酷站或已删除!" End If oRs1.Close sSql="Select * From PictureData Where P_ID="&PicID oRs1.Open sSql,oConn,1,1 If Not oRs1.Eof Then oConn.Execute "Update PictureData Set P_PictureBrowseCount=P_PictureBrowseCount+1 Where P_ID="&PicID end if ckey1=oRs1("P_PictureSize") ckey2=oRs1("P_PictureReso") Webtitle=oRs1("P_PictureName") PicClassID=ors1("P_PictureClassID") %> www.znbo.com ">