| |
<%
str_num = request("num")
if isNumeric(str_num) then
if str_num <> 10 and str_num <> 20 and str_num <> 30 then
str_num = 20
end if
else
str_num = 20
end if
start_num = 0
str_page = request("page")
if not isNumeric(str_page) or len(str_page) = 0 then
str_page = 1
end if
str_cat = request("cat")
str_img = request("sel_img")
if len(str_cat) > 0 then
set rsGetCatImage = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT category_title_image " & _
"FROM caster_image_categories " & _
"WHERE category_id = " & str_cat
'response.write mySQL
rsGetCatImage.Open mySQL, conn, 2, 2
if len(rsGetCatImage.fields("category_title_image")) > 0 then
%>
 " border="0">
<%
else
%>
<%
end if
else
%>
<%
end if
%>
|
|
<%
set rsGetCat = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT caster_image_categories.category_id, " & _
" caster_image_categories.category_name, " & _
" count(caster_images.image_id) AS count_image_id " & _
"FROM caster_images " & _
" INNER JOIN caster_image_categories ON caster_images.image_category = caster_image_categories.category_id " & _
"GROUP BY caster_image_categories.category_id " & _
"ORDER BY count_image_id DESC "
'response.write mySQL
rsGetCat.Open mySQL, conn, 2, 2
%>
|
|
<%
set rsGetNumPage = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT count(caster_images.image_id) AS count_image_id " & _
"FROM caster_images " & _
" INNER JOIN caster_image_categories ON caster_images.image_category = caster_image_categories.category_id "
if len(str_cat) > 0 then
mySQL = mySQL & "WHERE caster_image_categories.category_id = " & str_cat & " "
end if
if str_img = "img" then
if len(str_cat) > 0 then
mySQL = mySQL & "AND caster_images.image_video = 'i' "
else
mySQL = mySQL & "WHERE caster_images.image_video = 'i' "
end if
elseif str_img = "video" then
if len(str_cat) > 0 then
mySQL = mySQL & "AND caster_images.image_video = 'v' "
else
mySQL = mySQL & "WHERE caster_images.image_video = 'v' "
end if
end if
'response.write mySQL
rsGetNumPage.Open mySQL, conn, 2, 2
total_num = rsGetNumPage.fields("count_image_id")
if CInt(total_num) / CInt(str_num) = int(CInt(total_num) / CInt(str_num)) then
total_page = int(CInt(total_num) / CInt(str_num))
else
total_page = int((CInt(total_num) / CInt(str_num)) + 1)
end if
if CInt(str_page) <= CInt(total_page) then
start_num = CInt(str_num) * (CInt(str_page)-1)
end if
set rsGetImage = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT caster_images.image_id, " & _
" caster_images.image_title, " & _
" caster_images.image_video, " & _
" caster_images.image_video_link, " & _
" caster_images.image_user, " & _
" caster_images.image_user_type, " & _
" caster_image_categories.category_name " & _
"FROM caster_images " & _
" INNER JOIN caster_image_categories ON caster_images.image_category = caster_image_categories.category_id "
if len(str_cat) > 0 then
mySQL = mySQL & "WHERE caster_image_categories.category_id = " & str_cat & " "
end if
if str_img = "img" then
if len(str_cat) > 0 then
mySQL = mySQL & "AND caster_images.image_video = 'i' "
else
mySQL = mySQL & "WHERE caster_images.image_video = 'i' "
end if
elseif str_img = "video" then
if len(str_cat) > 0 then
mySQL = mySQL & "AND caster_images.image_video = 'v' "
else
mySQL = mySQL & "WHERE caster_images.image_video = 'v' "
end if
end if
mySQL = mySQL & "ORDER BY image_updatedate DESC " & _
"LIMIT " & start_num & ", " & str_num
'response.write mySQL
rsGetImage.Open mySQL, conn, 2, 2
tr_ii = 0
Do While Not rsGetImage.EOF
if tr_ii/5 = int(tr_ii/5) and tr_ii <> 0 then
%>
<%
end if
Set fs=Server.CreateObject("Scripting.FileSystemObject")
str_filename = "caster_" & string(6-len(rsGetImage.fields("image_id")),"0") & rsGetImage.fields("image_id") & "." & "gif"
str_folder = Server.MapPath("\members\images") & "\" & rsGetImage.fields("image_user_type") & "_" & CStr(rsGetImage.fields("image_user"))
str_file_path = str_folder & "\" & str_filename
str_web_path = "/members/images/" & rsGetImage.fields("image_user_type") & "_" & CStr(rsGetImage.fields("image_user")) & "/" & str_filename
if not fs.FileExists(str_file_path) Then
str_filename = "caster_" & string(6-len(rsGetImage.fields("image_id")),"0") & rsGetImage.fields("image_id") & "." & "jpg"
str_web_path = "/members/images/" & rsGetImage.fields("image_user_type") & "_" & CStr(rsGetImage.fields("image_user")) & "/" & str_filename
str_file_path = str_folder & "\" & str_filename
end if
if fs.FileExists(str_file_path) Then
set myImg = loadpicture(str_file_path)
if myImg.width > myImg.height then
str_class = "thumb"
else
str_class = "vertThumb"
end if
end if
if rsGetImage.fields("image_user_type") = "Diver" then
set rsGetUser = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT profile_username, " & _
" profile_id " & _
"FROM scuba_profile " & _
"WHERE profile_id = " & CStr(rsGetImage.fields("image_user"))
'response.write mySQL
rsGetUser.Open mySQL, conn, 2, 2
str_user = rsGetUser.fields("profile_username")
str_user_id = rsGetUser.fields("profile_id")
str_user_type = "Diver"
elseif rsGetImage.fields("image_user_type") = "Instructor" then
set rsGetUser = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT instructor_username, " & _
" instructor_id " & _
"FROM scuba_instructors " & _
"WHERE instructor_id = " & CStr(rsGetImage.fields("image_user"))
'response.write mySQL
rsGetUser.Open mySQL, conn, 2, 2
str_user = rsGetUser.fields("instructor_username")
str_user_id = rsGetUser.fields("instructor_id")
str_user_type = "Instructor"
elseif rsGetImage.fields("image_user_type") = "Shop" then
set rsGetUser = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT shop_username, " & _
" shop_id " & _
"FROM scuba_shops " & _
"WHERE shop_id = " & CStr(rsGetImage.fields("image_user"))
'response.write mySQL
rsGetUser.Open mySQL, conn, 2, 2
str_user = rsGetUser.fields("shop_username")
str_user_id = rsGetUser.fields("shop_id")
str_user_type = "Shop"
end if
%>
<%
if rsGetImage.fields("image_video") = "i" then
%>
" title="<%=rsGetImage.fields("image_title")%>">
<%
elseif rsGetImage.fields("image_video") = "v" then
str_image = getYouTubeImage(rsGetImage.fields("image_video_link"))
%>
" title="<%=rsGetImage.fields("image_title")%>">
<%
end if
%>
" title="<%=rsGetImage.fields("image_title")%>" class="pic_title"><%=rsGetImage.fields("image_title")%>
<%
if rsGetImage.fields("image_video") = "i" then
%>
<%
elseif rsGetImage.fields("image_video") = "v" then
%>
<%
end if
set rsCountComment = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT comment_id " & _
"FROM caster_image_comments " & _
"WHERE comment_image_id = " & rsGetImage.fields("image_id")
'response.write mySQL
rsCountComment.Open mySQL, conn, 2, 2
if not rsCountComment.EOF then
%>
<%
end if
set rsGetTotolVotes = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT count(vote_id) AS count_vote_id " & _
"FROM caster_image_votes " & _
"WHERE vote_image_id = " & rsGetImage.fields("image_id") & " " & _
"GROUP BY vote_image_id"
'response.write mySQL
rsGetTotolVotes.Open mySQL, conn, 2, 2
if rsGetTotolVotes.EOF then
str_rate_votes = "Be the first to vote!"
else
str_total_votes = rsGetTotolVotes.fields("count_vote_id")
end if
if CInt(str_total_votes) = 0 then
str_rate = 0
else
set rsGetRateVotes = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT sum(vote_rate) AS sum_vote_rate1 " & _
"FROM caster_image_votes " & _
"WHERE vote_image_id = " & rsGetImage.fields("image_id")
'response.write mySQL
rsGetRateVotes.Open mySQL, conn, 2, 2
'str_sum_vote_rate = rsGetRateVotes.fields("sum_vote_rate")
if CInt(str_total_votes) = 0 then
str_rate = 0
elseif isNull(rsGetRateVotes.fields("sum_vote_rate1")) then
str_rate = 0
elseif isNumeric(rsGetRateVotes.fields("sum_vote_rate1")) then
str_rate = Round(CInt(rsGetRateVotes.fields("sum_vote_rate1"))/CInt(str_total_votes))
else
str_rate = 0
end if
end if
if isNumeric(str_rate) then
if str_rate >= 1 then
for ii=1 to int(str_rate)
%>
<%
next
end if
end if
%>
<%=rsGetImage.fields("category_name")%>
<%=str_user%> |
<%
rsGetImage.MoveNext
tr_ii = tr_ii + 1
Loop
rsGetImage.Close
%>
| ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- |
|
|
|