news_display1.asp

商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会

<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="dsn_root.asp" -->
<!-- #include file="func.inc.asp" -->

<%
keyno = Request.QueryString("keyno")
if not isnumeric(keyno) or keyno = "" then response.end

set cn = Server.CreateObject("adodb.Connection")
set rs = Server.CreateObject("adodb.Recordset")
cn.Open mycnstr

sql = "select * from miscell where state='1' and keyno="&keyno
rs.Open sql,cn,0,3,1
if not rs.EOF then
	title=trim(rs("title"))
	content=trim(rs("content"))
	classcode=rs("classcode")
	picflag=rs("picflag")
	picflag2=rs("picflag2")
	flag=rs("flag")
	baseclass=rs("baseclass")
	creadate=rs("creadate")
	rs("querycount")=rs("querycount")+1
	picalign=trim(rs("picalign"))
	infocount=rs("infocount")
	rs.Update
else
	Response.End	
end if
rs.Close
%>

<!-- #include file="begin.asp" -->

<table width="1002" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td height="40" align="center" valign="bottom"><font color="#336600" size="4"><strong><%=title%></strong></font></td>
  </tr>
  <tr>
    <td height="10" bgcolor="#CCCCCC"> </td>
  </tr>
  <tr>
    <td align="center" bgcolor="#f5f5f5"> 
      <table width="778" border="0" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
        <tr> 
          <td align="center" valign="top" bgcolor="#FFFFFF"> 
            <table width="90%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td>&nbsp;</td>
              </tr>
              <tr> 
                <td>
						<%
						if infocount > 0 then
							sql = "select * from miscell_info where miscellno="&keyno&" order by sortnum"
							rs.Open sql, cn, 0, 1, 1
							do while not rs.EOF
								if rs("picflag")="1" then
									
									if rs("picalign") = "center" then
						%>	
										<div align=center>
											<%if rs("picflag2")="1" then%>
												<a href="admin/pic_displaybig.asp?code=miscell_info2&keyno=<%=rs("keyno")%>" target=_blank><img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs("keyno")%>" border="0"></a>
											<%else%>
												<img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs("keyno")%>" border="0">
											<%end if%>
										</div>

										<%if rs("flag")="1" then%>
											<div align=center><%=trim(rs("title"))%></div>
										<%end if%>
						<%
									else
										if rs("picflag2") = "1" then
						%>
											<a href="admin/pic_displaybig.asp?code=miscell_info2&keyno=<%=rs("keyno")%>" target=_blank><img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs("keyno")%>" border="0" align=<%=rs("picalign")%>></a>
										<%else%>
											<img src="admin/pic_display.asp?code=miscell_info&keyno=<%=rs("keyno")%>" border="0" align=<%=picalign2%>>
						<%
										end if
									end if
								end if

							Response.Write(checkstr(trim(rs("content")),"1")&"<br>")
							rs.MoveNext
						loop
						rs.Close

						else
							if picflag="1" then
								piccode="miscell"
								if picflag2="1" then piccode="miscell2"
								if picalign="center" then				
						%>
									<center><img src="admin/pic_display.asp?code=<%=piccode%>&keyno=<%=keyno%>" border="0"></center><br>
								<%else%>
									<img src="admin/pic_display.asp?code=<%=piccode%>&keyno=<%=keyno%>" border="0" align="<%=picalign%>"><br>
						<%
								end if
							end if	
							Response.Write checkstr(content,"1")
						end if
						%>
				</td>
              </tr>
              <tr> 
                <td height="30" align="right"> 
                  <table width="15%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td align="center"><img src="images/ditu2.gif" width="15" height="15"></td>
                      <td><a href="#top" class="A3">向　上</a></td>
                    </tr>
                  </table></td>
              </tr>
              <tr>
                <td align="right">&nbsp;</td>
              </tr>
            </table> </td>
        </tr>
      </table>
    </td>
  </tr>
</table>

<!-- #include file="end.asp" -->