꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

수정하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	새해 福 많이 받으세요. 다름이 아니라 이미지 파일 업로드 하구 이미지 비율에 관한 질문을 드릴까 합니다. 이미지를 출력하는데 <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>

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *