<%@ Language="VBSCRIPT" codepage="936" %>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/Kesion.CommonCls.asp"-->
<!--#include file="../KS_Cls/Kesion.Label.CommonCls.asp"-->
<!--#include file="../KS_Cls/Kesion.EscapeCls.asp"-->
<!--#include file="config.asp"-->
<%
response.cachecontrol="no-cache"
response.addHeader "pragma","no-cache"
response.expires=-1
response.expiresAbsolute=now-1
Response.CharSet="gb2312" 

Dim KS:Set KS=New PublicCls
Dim ProID:ProID=KS.ChkClng(KS.S("ProID"))
Dim GroupName:GroupName=UnEscape(KS.S("GroupName"))
Dim SQL,I,RowNum,Str,Photo1,Photo2
RowNum=5
Dim RS:Set RS=Conn.Execute("select ID,ProID,SmallPicUrl,BigPicUrl from KS_ProImages where proid=" & ProID & " and groupname='" & GroupName & "'")
If Not RS.Eof Then SQL=RS.GetRows(-1)
RS.Close:Set RS=Nothing
If IsArray(SQL) Then
	   For i=0 To Ubound(SQL,2)
	    Photo1=SQL(2,I) : Photo2=SQL(3,I)
		If Left(Photo1,1)="/" Then Photo1=right(Photo1,Len(Photo1)-1)
		If LCase(Left(Photo1,4))<>"http" Then Photo1=KS.GetDomain & Photo1
		If Left(Photo2,1)="/" Then Photo2=right(Photo2,Len(Photo2)-1)
		If LCase(Left(Photo2,4))<>"http" Then Photo2=KS.GetDomain & Photo2
		
	    str=str &"<span><img width=""45"" height=""56"" style=""cursor:pointer"" onmouseover=""ShowPhoto(\'" & Photo1 & "\',\'" & Photo2 & "\');this.className=\'CurrSmallPic\';"" onmouseout=""SetMouseOutPhoto();if(currobj!=this){this.className=\'DefaultSmallPic\';}"" onclick=""SetDefaultPhoto(this,\'" & Photo1 & "\',\'" & Photo2 & "\')"" class=""DefaultSmallPic"" src=""" & Photo1 & """ border=""0""></span>"
	    If (I+1) Mod RowNum=0 Then str=str & "<div style=""height:5px;overflow:hidden""></div>"
	   Next
Else
End If
'Response.Write "|||"& GroupName
Response.Write "var data={'groupname':'" & GroupName & "','str':'" & str & "'}"
Call CloseConn()
Set KS=Nothing
%>
