ジルのおともだち＆お客さま

写真をクリックするとその子のページに飛びます。
[通常表示][名前順表示]
旧ページ
最近追加した写真
<% Dim mode Dim objCon Dim objRS Dim strSQL Dim i Dim CustID Dim VetID Dim BreedID Dim DogID Dim Breed Dim iCount Dim iMax iMax = 6 dim constr 'Response.Charset = "Shift-JIS" 'Response.ContentType = "text/plain" constr = "Provider=MSDASQL;" constr = constr +"Extended Properties=""" constr = constr +"DRIVER={MySQL ODBC 5.1 Driver};" constr = constr +"SERVER=tkdb;USER=root;PASSWORD=brain514;" constr = constr +"DATABASE=customer;OPTION=16387" constr = constr +"""" '##### コネクションオブジェクトの生成 ##### Set objCon = Server.CreateObject("ADODB.Connection") '##### レコードセットオブジェクトの生成 ##### Set objRS = Server.CreateObject("ADODB.Recordset") objRS.CursorLocation = 3 objCon.ConnectionString = constr '##### コネクションのオープン ##### objCon.Open if Err<>0 then Response.Write "エラー
" Response.End End if mode = Request.QueryString("mode") if mode = "" then strSQL = "SELECT tblFriendPhoto.dogid, tblDogType.dogtype, tblDogInfo.DogTypeID, tblDogInfo.DogName, LinkURL, ThumbURL, left(tblCustomer.Address, instr(tblCustomer.Address, '区') ) as address, tblDogInfo.Dead, thumbsize " strSQL = strSQL + " FROM tblFriendPhoto LEFT JOIN ( tblDogInfo, tblDogType, tblCustomer ) ON ( tblFriendPhoto.dogid=tblDogInfo.dataid AND tblDogInfo.DogTypeID=tblDogType.dataid AND tblCustomer.dataid=tblDogInfo.CustomerID ) " strSQL = strSQL + " ORDER BY tblDogType.dogtype, tblDogInfo.DogName " Breed = "" 'Response.Write strSQL+"
" %>
<% objRS.Open strSQL, objCon, 1 Do Until objRS.EOF if Breed <> objRS("dogtype").value then Breed = objRS("dogtype").value iCount = 0 %>
"><%=Breed%>
<% else if iCount = iMax-1 then iCount = 0 else iCount = iCount + 1 End if end if Response.Write "
" Response.Write "" Response.Write ""+objRS("dogtype").value+" "+objRS("DogName").value+"
" Response.Write objRS("DogName").value Response.Write "" if objRS("Dead").value <>"" then Response.Write "*" Response.Write "
" objRS.MoveNext Loop Response.Write "
" objRS.Close Set objRS = Nothing elseif mode = "sp" then '白黒 strSQL = "SELECT tblDogType.dogtype, tblDogInfo.DogName, tblDogInfo.Color, LinkURL, ThumbURL " strSQL = strSQL + " FROM tblFriendPhoto LEFT JOIN ( tblDogInfo, tblDogType ) ON ( tblFriendPhoto.dogid=tblDogInfo.dataid AND tblDogInfo.DogTypeID=tblDogType.dataid ) " strSQL = strSQL + " WHERE tblDogInfo.Color Like '%白%' " strSQL = strSQL + " ORDER BY tblDogInfo.DogName, tblDogType.dogtype " Breed = "" 'Response.Write strSQL+"
" %>白<% objRS.Open strSQL, objCon, 1 iCount = -1 Do Until objRS.EOF if iCount = iMax-1 then iCount = 0 %><% else iCount = iCount + 1 end if %> <% objRS.MoveNext Loop objRS.Close strSQL = "SELECT tblDogType.dogtype, tblDogInfo.DogName,tblDogInfo.color, LinkURL, ThumbURL " strSQL = strSQL + " FROM tblFriendPhoto LEFT JOIN ( tblDogInfo, tblDogType ) ON ( tblFriendPhoto.dogid=tblDogInfo.dataid AND tblDogInfo.DogTypeID=tblDogType.dataid ) " strSQL = strSQL + " WHERE tblDogInfo.Color Like '%黒%' " strSQL = strSQL + " ORDER BY tblDogInfo.DogName, tblDogType.dogtype " Breed = "" 'Response.Write strSQL+"
" %>黒
<% Response.Write "" Response.Write "
" Response.Write objRS("DogName").value Response.Write objRS("Color").value Response.Write "" %>
<% objRS.Open strSQL, objCon, 1 iCount = -1 Do Until objRS.EOF if iCount = iMax-1 then iCount = 0 %><% else iCount = iCount + 1 end if %> <% objRS.MoveNext Loop objRS.Close Set objRS = Nothing Response.Write "
<% Response.Write "" Response.Write "
" Response.Write objRS("DogName").value Response.Write objRS("Color").value Response.Write "" %>
" else ' 名前順モード strSQL = "SELECT tblFriendPhoto.dogid, tblDogType.dogtype, tblDogInfo.DogName, LinkURL, ThumbURL " strSQL = strSQL + " FROM tblFriendPhoto LEFT JOIN ( tblDogInfo, tblDogType ) ON ( tblFriendPhoto.dogid=tblDogInfo.dataid AND tblDogInfo.DogTypeID=tblDogType.dataid ) " strSQL = strSQL + " ORDER BY tblDogInfo.DogName, tblDogType.dogtype " Breed = "" 'Response.Write strSQL+"
" %><% objRS.Open strSQL, objCon, 1 iCount = -1 Do Until objRS.EOF if iCount = iMax-1 then iCount = 0 %><% else iCount = iCount + 1 end if %> <% objRS.MoveNext Loop objRS.Close Set objRS = Nothing Response.Write "
<% Response.Write "" Response.Write "
" Response.Write objRS("DogName").value Response.Write "" ' Response.Write "(New)" %>
" End if '##### コネクションのクローズ ##### objCon.Close '##### コネクションオブジェクトの解放 ##### Set objCon = Nothing %>