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
%>