꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(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 *