catenation.asp

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

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

<%
dim cn, rs, sql

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

dim classcode, keyno
classcode = "106"

keyno = Request.QueryString("keyno")
if not isnumeric(keyno) then
	keyno = ""
end if

if keyno<>"" then
	sql="select * from miscell where state='1' and keyno="&keyno
else
	sql="select top 1 * from miscell where classcode='"+classcode+"' and state='1' order by sortnum"
end if

rs.Open sql, cn, 0, 3, 1
if not rs.EOF then
	dim title, content, picflag, picflag2, flag, creadate, picalign, infocount
	keyno = rs("keyno")
	title = trim(rs("title"))
	content = trim(rs("content"))
	picflag = rs("picflag")
	picflag2 = rs("picflag2")
	flag = rs("flag")
	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" height="137" border="0" cellpadding="0" cellspacing="0" background="images/top_15.jpg">
  <tr> 
    <td width="779"><img src="images/ppee.jpg" width="779" height="137"></td>
    <td width="223">&nbsp;</td>
  </tr>
</table>
<table width="1002" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="162" valign="top" bgcolor="#F4F4F4"> <table width="162" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="31" background="images/index4_09.jpg">&nbsp;</td>
        </tr>
        <tr> 
          <td height="5" align="right" bgcolor="#FFFFFF"> </td>
        </tr>
		<%
		sql = "select keyno, title from miscell where classcode='"&classcode&"' and state='1' order by sortnum"
		rs.Open sql, cn, 0, 1, 1
		do while not rs.EOF
		%>
			<tr> 
			  <td height="28" align="right" bgcolor="#FFFFFF">
				<table width="131" height="21" border="0" cellpadding="0" cellspacing="0">
				  <tr> 
					<td height="21" background="images/kate.jpg">&nbsp;&nbsp;&nbsp;<a href="catenation.asp?keyno=<%=rs("keyno")%>" class="A2">-&nbsp;<%=trim(rs("title"))%></a></td>
				  </tr>
				</table>
			  </td>
			</tr>
			<tr> 
			  <td height="1" bgcolor="#E5E5E5"> </td>
			</tr>
		<%
			rs.MoveNext
		loop

		rs.Close
		%>
        
        <tr> 
          <td height="5" bgcolor="#FFFFFF"></td>
        </tr>
      </table></td>
    <td width="617" valign="top" background="images/index4_15.jpg">
<table width="617" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="13" height="31" background="images/index4_11.jpg"><img src="images/list2.jpg" width="5" height="31"></td>
          <td width="604" valign="bottom" background="images/index4_11.jpg"> <table width="30%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="12%"><img src="images/list.gif" width="14" height="13"></td>
                <td width="88%"><%=title%></td>
              </tr>
              <tr> 
                <td height="4" colspan="2"> </td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td colspan="2" align="center" valign="top"><table width="95%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="20"> </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>
            </table></td>
        </tr>
      </table>
    </td>
    <td width="223" valign="top" background="images/list.jpg">
		<!-- #include file="inc_hot.asp" //-->
	</td>
  </tr>
</table>

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