|
|
|
|
 |
|
소피아 / 2002-01-02 / 오후 7:35:56 / 211.237.95.214
조회수 : 157
|
| [질문] 이미지 비율에 관한 질문입니다.x |
새해 福 많이 받으세요.
다름이 아니라 이미지 파일 업로드 하구
이미지 비율에 관한 질문을 드릴까 합니다.
이미지를 출력하는데
<img src="<%=forepic%>" width="235" height="220" name="Forep">
이렇게 width와 height를 지정하여 출력하는데요.
이미지 파일 업로드시
비율이 안 맞다고 맞추어 달라고 하네요.
조금 큰 사진이 width값과 height값에 잡혀서 전체
이미지가 안 보인다면서요.
어떻게 하면 잘했다고 소문이 날런지..
[전체소스]
<%
sCode = Request("sCode")
Set Conn = Server.CreateObject("ADODB.Connection") 'DB에 연결
Conn.Open "***********"
Set Rs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT b.LocalName, a.SiteName, a.StDate, a.EnDate, a.InDate, a.Picture, a.Name, a.Prologue, a.Summary, a.Address, a.Telephone, a.PosPic FROM SiteInFo a, Local b WHERE (a.SiteCode = '" & sCode & "')"
Rs.Open SQL, Conn, 1
If Rs.Eof then
%>
<script language="javascript">
<!--//
alert("선택된 데이터가 없거나 잘못 선택 하셨습니다.");
history.back();
//-->
</script>
<%
Response.end
End If
%>
<html>
<head>
<meta http-equiv="Content-Language" content="ko">
<meta http-equiv="Content-Type" content="text/html; charset=ks_c_5601-1987">
<title>벽산 건설 공지 사항 </title>
<style>
<!--
불필요
-->
</style>
<script language="JavaScript">
<!--//
불필요
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" onLoad="tImgLoad()">
<table width="100%" border="0" cellspacing="6" cellpadding="0">
<tr>
<td><img src="field.gif"></td>
</tr>
</table><br>
<table border="1" width="700" bgcolor="#800000" cellspacing="1" cellpadding="0" bordercolor="#FFFFFF" height="30" align="center">
<tr>
<td width="100%" height="18" class="title" align="center"><%=Rs("SiteName")%></td>
</tr>
</table><br>
<table border="0" width="700" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="20"><img src="images/hwasal1.jpg" width="20" height="14"></td>
<td width="680"> <img src="images/field_gaeyo.gif" ></td>
</tr>
</table>
<table border="0" width="700" cellspacing="0" cellpadding="0" height="94" align="center">
<tr>
<td width="350" valign="top" height="94">
<table border="1" width="317" cellspacing="1">
<tr>
<td width="102" align="center" height="32"><b>현장 소장</b></td>
<td width="202" height="32"><b><%=Rs("Name")%></b></td>
</tr>
<tr>
<td width="102" align="center">
<%
If isNull(Rs("picture")) = TRUE then
Response.Write "사진 없슴"
Else
%>
<img src="Sitepic/<%=Rs("picture")%>" width="102">
<% End If %>
</td>
<td width="202" valign="top"><%=Replace(Rs("Prologue"),chr(10),"<br>")%></td>
</tr>
</table>
</td>
<td width="350" height="94">
<table border="1" width="348" cellspacing="1" height="176">
<tr>
<td width="81" height="28"> 주 소</td>
<td width="265" height="28"> <%=Rs("LocalName")%> <%=Rs("Address")%></td>
</tr>
<tr>
<td width="80"> 전화 번호</td>
<td width="265"> <%=Rs("Telephone")%></td>
</tr>
<tr>
<td width="81"> 공사 기간</td>
<td width="265"> <%=Rs("StDate")%> - <%=Rs("EnDate")%></td>
</tr>
<tr>
<td width="81"> 공사 개요</td>
<td width="265"> <%=Replace(Rs("Summary"),chr(10),"<br> ")%></td>
</tr>
<tr>
<td width="81" height="37"> 입주 예정일</td>
<td width="265" height="37"> <%=Rs("InDate")%></td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0" width="700" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="100%">
<form name="picture">
<table border="0" width="700" cellspacing="0" cellpadding="0">
<tr>
<td width="100"><img src="images/hwasal1.jpg" width="20" height="14"></td>
<td width="170"><img src="images/field_front.gif" width="80" height="30"></td>
<td width="87">
<%
Set PRs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT NewDate, ForePic FROM SitePic WHERE (SiteCode = '" & sCode & "') AND (ForePic IS NOT NULL) ORDER BY NewDate"
PRs.Open SQL, Conn, 3
If PRs.EOF Then
%>
<select name="month" size="1" style="font-family: 굴림체; font-size: 9pt; color: #000000">
<option selected>현장월별</option>
</select>
<% Else
forePic="sitepic\" & PRs("forepic") %>
<select name="month" size="1" style="font-family: 굴림체; font-size: 9pt; color: #000000" onclick="javascript:ImgLoad()">
<option selected>현장월별</option>
<% For nFor = 1 To PRs.RecordCount %>
<option value="SitePic/<%=PRs("ForePic")%>"><%=trim(Mid(PRs("NewDate"), 8, 5))%></option>
<%
PRs.MoveNext
Next
End If
%>
</select>
</td>
<td width="300"></td>
<td width="48"><img src="images/hwasal1.jpg" width="20" height="14"></td>
<td width="170"><img src="images/sebu_construction.gif" ></td>
<td width="100">
<%
Set SRs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT Descript, RoomPic FROM SitePic WHERE (SiteCode = '" & sCode & "') AND (Descript IS NOT NULL)"
SRs.Open SQL, Conn, 3
If SRs.EOF Then
%>
<select name="site" style="font-family: 굴림체; font-size: 9pt; color: #000000" size="1">
<option selected>현장 세부 사진</option>
</select>
<% Else
Unit = "sitepic\" & SRs("RoomPic") %>
<select name="site" style="font-family: 굴림체; font-size: 9pt; color: #000000" size="1" onclick="javascript:ImgUnitLoad()">
<option selected>현장 세부 사진</option>
<% For nFor = 1 To SRs.RecordCount %>
<option value="SitePic/<%=SRs("RoomPic")%>"><%=SRs("Descript")%></option>
<%
SRs.MoveNext
Next
End If
%>
</select>
</td>
</tr>
<tr>
<td width="350" colspan="4" height="220">
<%
If forepic<>"" Then
%>
<img src="<%=forepic%>" width="235" height="220" name="Forep">
이 부분이 이미지를 출력합니다
width값과 height값을 제거하면 당연히 유동적으로
이미지가 출력되구요...
<%
End If
%>
</td>
<td width="350" colspan="3" height="220">
<%
If Unit <> "" Then
%>
<img src="<%=Unit%>" width="235" height="220" name="Unitp">
<% End If %>
</td>
</tr>
</table>
<%
SRs.Close
PRs.Close
%>
</form>
<table border="0" width="700" cellspacing="0" cellpadding="0">
<tr>
<td width="27"><img src="images/hwasal.gif" width="20" height="14"></td>
<td width="122" align="right"><a href="javascript:MM_openBrWindow('SitePic/<%=Rs("PosPic")%>','','width=370,height=250');"><img src="images/field_region.gif" width="120" height="30" border="0"></a></td>
<td width="256"></td>
<td width="27"><img src="images/hwasal.gif" width="20" height="14"></td>
<td width="120" align="right"><a href="dui/duimain1.asp?sCode=<%=sCode%>&GCode=01"><img src="images/field_doing.gif" width="120" height="30" border="0"></a></td>
<td width="148"></td>
</tr>
</table>
<br>
<table border="0" width="700" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center"><img src="images/notice.gif" width="271" height="33" border="0"></td>
</tr>
<tr>
<td width="100%">
<br>
<%
Set Crs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT b_board_idx, b_name, b_subject, convert(char(8), b_writeday) as b_writeday, b_re_level, b_ref FROM MBoard where b_sitecode='" & sCode & "' ORDER BY b_ref DESC, b_re_step asc"
Crs.PageSize = 5
Crs.Open SQL, Conn, 1
%>
<table border="1" align="center" width="500" bordercolor="#FFFFFF" bgcolor="#aaaaaa" cellspacing="1" cellpadding="2">
<tr>
<td height="25" width=50 align="center" bordercolor="#AAAAAA" bgcolor="#E6E5E2">번호</td>
<td height="25" width=330 align="center" bordercolor="#AAAAAA" bgcolor="#E6E5E2">제 목</td>
<td height="25" width=60 align="center" bordercolor="#AAAAAA" bgcolor="#E6E5E2">작성자</td>
<td height="25" width=60 align="center" bordercolor="#AAAAAA" bgcolor="#E6E5E2">작성일</td>
</tr>
<%
If Not Crs.Eof Then
i = 1
Do until Crs.EOF Or i > Crs.PageSize
if Crs("b_re_level") > 0 then
wid = 5 * Crs("b_re_level")
%>
<tr bordercolor="#AAAAAA" bgcolor="white" onmouseover="this.style.background='#FFFFFF'" onmouseout="this.style.background='white'">
<td height="25" width=50 align="center" bordercolor="#AAAAAA" bgcolor="white"><%=i%></td>
<td width="330" height="25"><img src = "level.gif" width="<%=wid%>" height = "16"><img src = "images/Re.gif" width = "26" height = "16"> <a href = "content1.asp?id=<%=Crs("b_board_idx")%>&sitecode=<%=sCode%>"><%=Crs("b_subject")%></a></td>
<td height="25" width=60 aligh="center" bordercolor="#AAAAAA" bgcolor="white"><%=Crs("b_name")%></td>
<td height="25" width=60 aligh="center" bordercolor="#AAAAAA" bgcolor="white"><%=Crs("b_writeday")%></td>
</tr>
<% else %>
<tr bordercolor="#AAAAAA" bgcolor="white" onmouseover="this.style.background='#FFFFFF'" onmouseout="this.style.background='white'">
<td height="25" width=50 align="center" bordercolor="#AAAAAA" bgcolor="white"><%=i%></td>
<td width="330" height="25"><a href = "content1.asp?id=<%=Crs("b_board_idx")%>&sitecode=<%=sCode%>"><%=Crs("b_subject")%></a></td>
<td height="25" width=60 aligh="center" bordercolor="#AAAAAA" bgcolor="white"><%=Crs("b_name")%></td>
<td height="25" width=60 aligh="center" bordercolor="#AAAAAA" bgcolor="white"><%=Crs("b_writeday")%></td>
</tr>
<% end if
Crs.MoveNext
i = i + 1
loop
%>
<tr bordercolor="#AAAAAA" bgcolor="white">
<td width="443" align="center" colspan="3">
<%
j=1
Do Until j > 10 or blockPage > int(Crs.pagecount)
If int(blockPage)=int(c_page) Then
%>
<a href="list.asp?sitecode=<%=sCode%>&page=<%=blockPage%>">[<%=blockPage%>]</a>
<%
else
%>
<a href="list.asp?sitecode=<%=sCode%>&page=<%=blockPage%>">[<%=blockPage%>]</a>
<%
End If
blockPage = blockPage + 1
j = j + 1
Loop
Crs.close
%>
</td>
<td width="57" align="center"><input type="image" src="images/bbs1_admin.gif" width="57" height="22" onclick="location.href='SiteAdmin.asp?chk=<%=sCode%>'"></td>
</tr>
</table>
<% Else %>
<tr bordercolor="#AAAAAA" bgcolor="white">
<td width="443" align="center" colspan="3">[<a href="list.asp?page=&sitecode=<%=sCode%>">1</a>]</td>
<td width="57" align="center"><input type="image" src="images/bbs1_admin.gif" width="57" height="22" onclick="location.href='SiteAdmin.asp?chk=<%=sCode%>'"></td>
</tr>
</table>
<% End If %>
<hr>
</td>
</tr>
</table>
<%
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>
<br>
</body>
</html>
|
|
|
|