| | Friendwell provides real
estate investment information to our investment partners who are seeking to invest
in office, industrial, retail and hotel facilities throughout continental USA.
In a short time, Friendwell Group of Companies has established itself as one of
leading real estate investing firms in America, and the one professionals turn
to when they looking for an investment partners.
<%
set rs=server.CreateObject("adodb.recordset")
SQLStr="select * from mainpage order by list"
set rs=conn.execute(SQLStr)
if err.number <> 0 then
response.write "數據庫操作錯誤︰" + err.description
err.clear
else
if not rs.EOF then
rs.MoveFirst
do while not rs.EOF
On Error Resume Next
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
strName = "../webez1/images/product/" & rs("img1")
'以Server物件的MapPath()方法取得該檔的實體路徑，再傳入
'FileSystemObject物件的FileExists()方法中，判斷檔案是否存在
'' mainpagecontent-table
Table1=""
table1_1="| "
table1_2=" | "
Table2= "| "
TABLE2_1=""
Table3= " | "
Table4= " "
Table5= "
"
If objFS.FileExists(Server.MapPath(strName)) Then
''判斷layout是哪一種
''1是左圖右文
''2是左文右圖
''3是上圖(置中)下文
''4是上文下圖(置中)
''5是全文字
''6是僅圖片(置中)
''7是左圖右文(文字對齊)
''8是左文右圖(文字對齊)
''1是左圖右文
if rs("layout")=1 then
imgsrc= "![](" & strName & ") "
contentText=rs("content1")
contentText = replace(contentText,chr(13),"
")
'contentText = replace(contentText,chr(10),"
")
''contentText = replace(contentText,chr(32)," ")
''contentText = replace(contentText,"'space'"," ")
showLayout=Table1 & table1_1 & rs("title") & table1_2 & Table2 & imgsrc & "" & contentText & "" & table3 & table4 & table5
''2是左文右圖
elseif rs("layout")=2 then
imgsrc= ""
contentText=rs("content1")
contentText = replace(contentText,chr(13),"
")
'contentText = replace(contentText,chr(10),"
")
''contentText = replace(contentText,chr(32)," ")
''contentText = replace(contentText,"'space'"," ")
showLayout=Table1 & table1_1 & rs("title") & table1_2 & Table2 & imgsrc & "" & contentText & "" & table3 & table4 & table5
''注意事項
''3是上圖(置中)下文
elseif rs("layout")=3 then
imgsrc= ""
contentText=rs("content1")
contentText = replace(contentText,chr(13),"
")
'contentText = replace(contentText,chr(10),"
")
''contentText = replace(contentText,chr(32)," ")
''contentText = replace(contentText,"'space'"," ")
showLayout=Table1 & table1_1 & rs("title") & table1_2 & Table2 & "" & imgsrc & "" & table3 & table4 & Table2 & "" & contentText & "" & table3 & table4 & table5
''4是上文下圖(置中)
elseif rs("layout")=4 then
imgsrc= ""
contentText=rs("content1")
contentText = replace(contentText,chr(13),"
")
'contentText = replace(contentText,chr(10),"
")
''contentText = replace(contentText,chr(32)," ")
''contentText = replace(contentText,"'space'"," ")
showLayout=Table1 & table1_1 & rs("title") & table1_2 & Table2 & "" & contentText & "" & table3 & table4 & Table2 & "" & imgsrc & "" & table3 & table4 & table5
''5是全文字
elseif rs("layout")=5 then
imgsrc= ""
contentText=rs("content1")
contentText = replace(contentText,chr(13),"
")
'contentText = replace(contentText,chr(10),"
")
''contentText = replace(contentText,chr(32)," ")
''contentText = replace(contentText,"'space'"," ")
showLayout=Table1 & table1_1 & rs("title") & table1_2 & Table2 & "" & contentText & "" & table3 & table4 & table5
''6是僅圖片(置中)
elseif rs("layout")=6 then
imgsrc= ""
contentText=rs("content1")
contentText = replace(contentText,chr(13),"
")
'contentText = replace(contentText,chr(10),"
")
''contentText = replace(contentText,chr(32)," ")
''contentText = replace(contentText,"'space'"," ")
'showLayout=Table1 & table1_1 & rs("title") & table1_2 & table5 & "" & Table1 & table1_1 & imgsrc & table1_2 & table5 & ""
showLayout=Table1 & table1_1 & "" & rs("title")& "" & table1_2 & table5 & "" & "" & ""
''7是左圖右文(文字對齊)
elseif rs("layout")=7 then
imgsrc= ""
contentText=rs("content1")
contentText = replace(contentText,chr(13),"
")
'contentText = replace(contentText,chr(10),"
")
''contentText = replace(contentText,chr(32)," ")
''contentText = replace(contentText,"'space'"," ")
'showLayout=Table1 & table1_1 & rs("title") & table1_2 & Table2 & imgsrc & contentText & table3 & table4 & table5
showLayout=Table1 & " | " & rs("title") & table1_2 & "| " & imgsrc & " | "& "" & "" & contentText & "" & table3 & table4 & table5
''8是左文右圖(文字對齊)
elseif rs("layout")=8 then
imgsrc= ""
contentText=rs("content1")
contentText = replace(contentText,chr(13),"
")
'contentText = replace(contentText,chr(10),"
")
''contentText = replace(contentText,chr(32)," ")
''contentText = replace(contentText,"'space'"," ")
'showLayout=Table1 & table1_1 & rs("title") & table1_2 & Table2 & imgsrc & contentText & table3 & table4 & table5
showLayout=Table1 & " | " & rs("title") & table1_2 & "| " & "" & contentText & "" & " | "& "" & imgsrc & table3 & table4 & table5
end if
Else
''1是左圖右文
if rs("layout")=1 then
imgsrc= ""
contentText=rs("content1")
contentText = replace(contentText,chr(13),"
")
'contentText = replace(contentText,chr(10),"
")
''contentText = replace(contentText,chr(32)," ")
''contentText = replace(contentText,"'space'"," ")
showLayout=Table1 & table1_1 & rs("title") & table1_2 & Table2 & imgsrc & "" & contentText & "" & table3 & table4 & table5
''2是左文右圖
elseif rs("layout")=2 then
imgsrc= ""
contentText=rs("content1")
contentText = replace(contentText,chr(13),"
")
'contentText = replace(contentText,chr(10),"
")
''contentText = replace(contentText,chr(32)," ")
''contentText = replace(contentText,"'space'"," ")
showLayout=Table1 & table1_1 & rs("title") & table1_2 & Table2 & imgsrc & "" & contentText & "" & table3 & table4 & table5
''注意事項
''3之後的樣式待規格提出後修正,目前未修正
''3是上圖(置中)下文
elseif rs("layout")=3 then
imgsrc= ""
contentText=rs("content1")
contentText = replace(contentText,chr(13),"
")
'contentText = replace(contentText,chr(10),"
")
''contentText = replace(contentText,chr(32)," ")
''contentText = replace(contentText,"'space'"," ")
showLayout=Table1 & table1_1 & rs("title") & table1_2 & Table2 & "" & imgsrc & "" & table3 & table4 & Table2 & "" & contentText & "" & table3 & table4 & table5
''4是上文下圖(置中)
elseif rs("layout")=4 then
imgsrc= ""
contentText=rs("content1")
contentText = replace(contentText,chr(13),"
")
'contentText = replace(contentText,chr(10),"
")
''contentText = replace(contentText,chr(32)," ")
''contentText = replace(contentText,"'space'"," ")
showLayout=Table1 & table1_1 & rs("title") & table1_2 & Table2 & "" & contentText & "" & table3 & table4 & Table2 & "" & imgsrc & "" & table3 & table4 & table5
''5是全文字
elseif rs("layout")=5 then
imgsrc= ""
contentText=rs("content1")
contentText = replace(contentText,chr(13),"
")
'contentText = replace(contentText,chr(10),"
")
''contentText = replace(contentText,chr(32)," ")
''contentText = replace(contentText,"'space'"," ")
showLayout=Table1 & table1_1 & rs("title") & table1_2 & Table2 & "" & contentText & "" & table3 & table4 & table5
''6是僅圖片(置中)
elseif rs("layout")=6 then
imgsrc= ""
contentText=rs("content1")
contentText = replace(contentText,chr(13),"
")
'contentText = replace(contentText,chr(10),"
")
''contentText = replace(contentText,chr(32)," ")
''contentText = replace(contentText,"'space'"," ")
showLayout=Table1 & table1_1 & "" & rs("title")& "" & table1_2 & table5 & "" & "" & ""
'showLayout=Table1 & table1_1 & rs("title") & table1_2 & " | " & "" & imgsrc & "" & table3 & table4 & table5
''7是左圖右文(文字對齊)
elseif rs("layout")=7 then
imgsrc= ""
contentText=rs("content1")
contentText = replace(contentText,chr(13),"
")
'contentText = replace(contentText,chr(10),"
")
''contentText = replace(contentText,chr(32)," ")
''contentText = replace(contentText,"'space'"," ")
showLayout=Table1 & " | " & rs("title") & table1_2 & "| " & imgsrc & " | "& "" & "" & contentText & "" & table3 & table4 & table5
'showLayout=Table1 & table1_1 & rs("title") & table1_2 & Table2 & imgsrc & contentText & table3 & table4 & table5
''8是左文右圖(文字對齊)
elseif rs("layout")=8 then
imgsrc= ""
contentText=rs("content1")
contentText = replace(contentText,chr(13),"
")
'contentText = replace(contentText,chr(10),"
")
''contentText = replace(contentText,chr(32)," ")
''contentText = replace(contentText,"'space'"," ")
'showLayout=Table1 & table1_1 & rs("title") & table1_2 & Table2 & imgsrc & contentText & table3 & table4 & table5
showLayout=Table1 & " | " & rs("title") & table1_2 & "| " & "" & contentText & "" & " | "& "" & imgsrc & table3 & table4 & table5
end if
End If
Response.Write showLayout
rs.MoveNext
loop
end if
end if
rs.Close
set rs=nothing
'conn.close
'set conn=nothing
%>
|
| | | |
| |
