service.asp

ASP网页

<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="../dsn.asp" -->
<%  
pageno=Request.QueryString("pageno")
keyno=Request.QueryString("keyno")

set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")
myurl="service.asp?x=1"
mymenu="service"
%>
<!-- #include file="begin.asp" --> 
<TABLE WIDTH="778" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  <TR VALIGN="TOP"> 
    <TD WIDTH="180"> 
      <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
        <TR> 
          <TD><IMG SRC="../images/title_inside.gif" WIDTH="180" HEIGHT="32"></TD>
        </TR>
	  </TABLE><BR>
      <TABLE WIDTH="100%" BORDER="0" CELLSPACING="1" CELLPADDING="0">
        <TR BGCOLOR="#cccccc"> 
          <TD COLSPAN=2 BGCOLOR="#cccccc"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
        </TR>
		<%
		i=1
		sqltext="select keyno,title from miscell where classcode='110' order by sortnum "
		rs.Open sqltext,cn,1,1

		listcs=8
		rs.PageSize=listcs
		if pageno="" then 
			pageno=1
		else
			pageno=cint(pageno)	
		end if	
		if rs.PageCount>0 then rs.AbsolutePage=pageno
		
		do while not rs.EOF and i<=listcs
			if keyno="" then keyno=rs(0)
		%>
        <TR> 
          <TD CLASS="bodytext" ALIGN="RIGHT" <%if rs(0)=clng(keyno) then%> bgcolor="efefef" <%end if%>><A HREF="<%=myurl%>&keyno=<%=rs(0)%>"><%=trim(rs(1))%></A></TD>
        </TR>
        <TR> 
          <TD BGCOLOR="#cccccc"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
        </TR>
		<%
			i=i+1
			rs.MoveNext
		loop
		%>
      </TABLE>
      <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
		<tr><td height=50 align=right>
      <%if pageno>1 then%>
		<A HREF="<%=myurl%>&pageno=<%=pageno-1%>"><%=Response.Write("<<")%>上一页</A>
	  <%end if%>	
	  &nbsp;&nbsp;
      <%if pageno<rs.PageCount then%>
		<A HREF="<%=myurl%>&pageno=<%=pageno+1%>">下一页>></A>
	  <%end if%>	
		</td></tr>
      </TABLE>
    </TD>
    <TD WIDTH="1" BGCOLOR="#9C9A9C"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
    <%
	rs.Close
	if keyno<>"" then
		sqltext="select * from miscell where keyno="&keyno
		rs.Open sqltext,cn,1,1
		if not rs.EOF then
			title=trim(rs("title"))
			content=trim(rs("content"))
			picflag=rs("picflag")
		end if
		rs.Close
	end if	
    %>
    <TD height=360>
      <P><IMG SRC="../images/title_service.jpg" WIDTH="597" HEIGHT="57"></P>
      <TABLE WIDTH="95%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER">
        <TR>
          <TD> 
			<table WIDTH="100%" BORDER="0" CELLSPACING="2" CELLPADDING="0" ALIGN="CENTER">
				<tr><td ALIGN="CENTER" CLASS="title"><FONT COLOR="#003399"><B><%=title%></B></FONT></td></tr>
				<tr><td CLASS="bodytext"><br>
	            <%if picflag="1" then%>
					<center><img src="../admin/pic_displayacc.asp?keyno=<%=keyno%>&code=miscell" border="0"></center><br>
				<%end if%>	
				<%=checkstr(content)%>
				</td></tr>
			</table>
            </TD>
        </TR>
      </TABLE>
      <P>&nbsp;</P>
    </TD>
  </TR>
</TABLE>
<!-- #include file="end.asp" -->
<!-- #include file="func.asp" -->