service.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

pageno=Request.QueryString("pageno")
classcode=Request.QueryString("classcode")

baseclass="300"

if classcode="" then
	sql="select classcode,classname from miscell_class where baseclass='"+baseclass+"' and flag='0' order by sortnum"
else
	sql="select classcode,classname from miscell_class where classcode='"+classcode+"' and flag='0' order by sortnum"
end if
rs.Open sql,cn,0,1,1
if not rs.EOF then
	classcode=rs(0)
	classname=trim(rs(1))
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/AA.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 classcode,classname from miscell_class where baseclass='"+baseclass+"' and flag='0' 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="service.asp?classcode=<%=rs("classcode")%>" class="A2">-&nbsp;<%=trim(rs("classname"))%></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%"><%=classname%></td>
              </tr>
              <tr> 
                <td height="4" colspan="2"> </td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td colspan="2" align="center" valign="top"><table width="463" height="10" border="0" cellpadding="0" cellspacing="0">
              <tr>
    <td>
	</td>
  </tr>
</table>
<table width="617" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="154" height="20" valign="top" background="images/UUII_22.jpg"><img src="images/UUII_16.jpg" width="149" height="223"> 
                </td>
                <td width="463" valign="top"><table width="463" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td height="12" background="images/ff.jpg"> </td>
                    </tr>
                    <tr> 
                      <td height="10"> </td>
                    </tr>
					<%
					sql="select keyno,title,creadate from miscell where classcode='"+classcode+"' and state='1' order by sortnum desc"
					rs.Open sql,cn,1,1,1
					pagesize = 10
					rs.PageSize=pagesize
					
					if not isnumeric(pageno) then
						pageno = 1
					else
						pageno = cint(pageno)
					end if
					if pageno < 1 then pageno = 1

					pagecount = rs.PageCount
					reccount = rs.RecordCount

					if pagecount > 0 then rs.AbsolutePage = pageno
					i=1
					do while not rs.EOF and  i<=pagesize
						
					%>
                    <tr> 
                      <td height="25">&nbsp;&nbsp;<img src="images/arrow1.gif" width="15" height="9">&nbsp;&nbsp;<a href="service_display.asp?keyno=<%=rs("keyno")%>" target="_blank" class="A5"><%=trim(rs("title"))%></a> 
                      </td>
                    </tr>
                    <tr> 
                      <td height="1" bgcolor="#F5F5F5"> </td>
                    </tr>
					<%
						i = i + 1
						rs.MoveNext
					loop
					rs.Close
					%>
                  </table>

                  <table width="463" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td>&nbsp;</td>
                    </tr>
                    <tr> 
                      <td height="1" bgcolor="#999999"> </td>
                    </tr>
                    <tr> 
                      <td>本栏目共<%=reccount%>条记录 [第<%=pageno%>页, 共<%=pagecount%>页]</td>
                    </tr>
					  <tr> 
						<td align="right">
						  <table width="30%" border="0" cellspacing="0" cellpadding="0">
							<tr> 
							  <%
								if pageno > 1 then
							  %>
									  <td align="center"><img src="images/ditu2.gif" width="15" height="15"></td>
									  <td><a href="service.asp?classcode=<%=classcode%>&pageno=<%=pageno-1%>" class="A3">上一页</a></td>
							  <%
								else
							  %>
									  <td align="center"><img src="images/ditu2.gif" width="15" height="15"></td>
									  <td>上一页</td>
							  <%
								end if

								if pageno < pagecount then
							  %>
									  <td align="center"><img src="images/ditu2.gif" width="15" height="15"></td>
									  <td><a href="service.asp?classcode=<%=classcode%>&pageno=<%=pageno+1%>" class="A3">下一页</a></td>
							  <%
								else
							  %>
									  <td align="center"><img src="images/ditu2.gif" width="15" height="15"></td>
									  <td>下一页</td>
							  <%
								end if
							  %>
							</tr>
						  </table>
						</td>
					  </tr>
                  </table></td>
              </tr>
            </table><BR></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" -->