www.gusucode.com > 新锐领秀网络相册 1.1 > prg.inc.asp
<% function GetFilePath(FullPath) If FullPath <> "" Then GetFilePath = Left(FullPath,InStrRev(FullPath, "\")) Else GetFilePath = "" End If End function SUB TopPhoto(n,orderField) Dim sql,rs,html,i i=0 sql="select top "&n&" ID,Title,ThumbPhotoPath,PhotoPath,Hits,DateLine,UserName from gPhotos order by " & orderField & " desc" 'Response.Write(sql) if not IsObject(conn) then ConnectionDatabase set rs=conn.execute(sql) if not(rs.bof and rs.eof) then do while not rs.eof If InstalledJPEG = 0 Then Response.Write("<div class=""list""><a target=""_blank"" href=""viewphoto.asp?id=" & rs(0) & """><img border=""0"" src=""photos/" & rs(2) & """ onerror=this.src=""photos/" & rs(3) & """ /></a><p style=""width:100%;bottom:0;margin-top:5px;""><a target=""_blank"" href=""viewphoto.asp?id=" & rs(0) & """>" & rs(1) & "</a></div>") Else Response.Write("<div class=""list1""><a target=""_blank"" href=""viewphoto.asp?id=" & rs(0) & """><img border=""0"" src=""photos/" & rs(2) & """ onerror=this.src=""photos/" & rs(3) & """ /></a><p style=""width:100%;bottom:0;margin-top:5px;""><a target=""_blank"" href=""viewphoto.asp?id=" & rs(0) & """>" & rs(1) & "</a></div>") End If rs.MoveNext loop else Response.Write("<table width=100% align=center><tr><td align=center>无图片</td></tr></table>") end if rs.close set rs=Nothing End Sub '================================================================================================ Sub gList(strWhere) Dim TblName,strFields,orderField,page,nCount,orderType Dim arr,b,i Dim G_pageSize,rsobj,rs,a gpageSize=3 TableName="gPhotos" strFields="id,title,ThumbPhotoPath,PhotoPath" orderField="id" orderType=1 If strWhere > "" Then SQL = "Select Count(*) From " & TableName & " Where " & strWhere Else SQL = "Select Count(*) From " & TableName End If if Not IsObject(conn) then ConnectionDatabase a = conn.Execute(SQL)(0) page=gSafeRequest("page",1) If (Not IsNumeric(page) Or page="") Then page=1 Set rsobj=Server.CreateObject(gRsCmd) if Not IsObject(conn) then ConnectionDatabase If IsSqlDataBase = 1 Then Dim obj Set obj=Server.CreateObject("ADODB.Command") With obj .ActiveConnection = conn .CommandText = "gSplitPage" .CommandType = &H0004 .Parameters.Append .CreateParameter("@tblName",adVarChar,adParamInput,255,TableName) .Parameters.Append .CreateParameter("@strGetFields",adVarChar,adParamInput,1000,strFields) .Parameters.Append .CreateParameter("@fldName",adVarChar,adParamInput,255,orderField) .Parameters.Append .CreateParameter("@PageSize",adInteger,adParamInput,4,gPageSize) .Parameters.Append .CreateParameter("@PageIndex",adInteger,adParamInput,4,page) .Parameters.Append .CreateParameter("@doCount",adTinyInt,adParamInput,1,0) .Parameters.Append .CreateParameter("@OrderType",adTinyInt,adParamInput,1,orderType) .Parameters.Append .CreateParameter("@strWhere",adVarChar,adParamInput,100,strWhere) End With Set rs=obj.Execute() Else Dim sql If page = 1 Then If strWhere > "" then sql = "Select Top " & gpagesize & " " & strFields & " From " & TableName & " where " & strWhere & " Order By " & orderField & " DESC" Else sql = "Select Top " & gpagesize & " " & strFields & " From " & TableName & " Order By " & orderField & " DESC" End If ElseIf page > 1 Then If strWhere > "" Then sql = "Select Top " & gpagesize & " " & strFields & " From " & TableName & " Where " & orderField & " < (Select Min(" & orderField & ") From(Select Top " & (page -1) * gpagesize & " " & orderField & " From " & TableName & " where " & strWhere & " Order By " & orderField & " DESC) AS tblTemp)" sql = sql & " Order By " & orderField & " DESC" Else sql = "Select Top " & gpagesize & " " & strFields & " From " & TableName & " Where " & orderField & " < (Select Min(" & orderField & ") From(Select Top " & (page -1) * gpagesize & " " & orderField & " From " & TableName & " Order By " & orderField & " DESC) AS tblTemp)" sql = sql & " Order By " & orderField & " DESC" End If Else If strWhere > "" Then sql = "Select Top " & gpagesize & " " & strFields & " From " & TableName & " where " & strWhere & " Order By " & orderField & " DESC" Else sql = "Select Top " & gpagesize & " " & strFields & " From " & TableName & " Order By " & orderField & " DESC" End If End If 'Response.write sql Set rs = conn.Execute (sql) End If if not(rs.bof and rs.eof) then do while not rs.eof If InstalledJPEG = 0 Then Response.Write("<div class=""list""><a target=""_blank"" href=""viewphoto.asp?id=" & rs(0) & """><img border=""0"" src=""photos/" & rs(2) & """ onerror=this.src=""photos/" & rs(3) & """ /></a><p style=""width:100%;position:absolute;bottom:0;""><a target=""_blank"" href=""viewphoto.asp?id=" & rs(0) & """>" & rs(1) & "</a></div>") Else Response.Write("<div class=""list1""><a target=""_blank"" href=""viewphoto.asp?id=" & rs(0) & """><img border=""0"" src=""photos/" & rs(2) & """ onerror=this.src=""photos/" & rs(3) & """ /></a><p style=""width:100%;position:absolute;bottom:0;""><a target=""_blank"" href=""viewphoto.asp?id=" & rs(0) & """>" & rs(1) & "</a></div>") End If rs.MoveNext loop else Response.Write("<table width=100% align=center><tr><td align=center>无图片</td></tr></table>") end if If a > gpageSize Then Response.Write("<BR />" &GetPageList(page,a,gpageSize,10)) End Sub %>