📄 showxm.asp

📁 简单整站程序
💻 ASP
字号:
<!--#include virtual="/include/conn.asp"-->
<!--#include virtual="webconfig.asp"-->
<!--#include virtual="/include/FunctionManage.asp"-->
<!--#include file="top.asp"-->
<%
Name=request.QueryString("Name")
page = request.QueryString("page") 
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="showinfo/myCSS.css" rel=stylesheet>
<STYLE type=text/css>BODY {
	SCROLLBAR-FACE-COLOR: rgb(238,238,238); MARGIN: 0px; SCROLLBAR-HIGHLIGHT-COLOR: rgb(247,249,252); SCROLLBAR-SHADOW-COLOR: rgb(204,204,204); SCROLLBAR-3DLIGHT-COLOR: rgb(204,204,204); SCROLLBAR-ARROW-COLOR: rgb(0,102,153); SCROLLBAR-TRACK-COLOR: rgb(236,236,236); SCROLLBAR-DARKSHADOW-COLOR: rgb(10,0,209); SCROLLBAR-BASE-COLOR: rgb(66,93,128)
}
.style1 {
	COLOR: #ffffff
}
.style2 {
	COLOR: #cecfd0
}
</STYLE>

</HEAD>
<BODY bgColor=#e9f9e8>
<TABLE 
style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid" 
height=362 cellSpacing=0 cellPadding=0 width=900 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top colSpan=2>
	<TABLE height=162 cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD height="31">
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0 id="table1">
  <TBODY>
  <TR>
    <TD width=686 background=showinfo/index_08.gif height=18>
			<IMG height=25 alt="" src="showinfo/index_14.gif" 
            width=88></TD>
    <TD width=49>
	<IMG height=32 alt="" src="showinfo/index_10.gif" 
    width=49></TD>
    <TD width=218 background=showinfo/index_12.gif>
      　</TD></TR>
  <TR>
    <TD width=778 height=18 colspan="3">
<TABLE cellSpacing=0 cellPadding=0 width=900 align=center bgColor=#ffffff 
border=0 id="table3">
  <TBODY>
  <TR vAlign=top>
    <TD align=right width=6><IMG src="showinfo/xilan_02.gif" width=6></TD>
    <TD width=887>
      <TABLE height=178 cellSpacing=0 cellPadding=0 width=886 border=0 id="table4">
        <TBODY>
        <TR>
          <TD vAlign=top width=810 height=11>
			<IMG height=11 alt="" 
            src="showinfo/xilan_03.gif" width=888></TD></TR>
        <TR>
          <TD class=grayBorderLR height=25>　<SPAN class=unnamed1>您现在的位置：仙游私立一中 
            &gt; <%=name%></SPAN></TD></TR>
        <TR>
          <TD class=grayBorderLR height=11>
            <DIV align=center><SPAN class=style9>
            <TABLE cellSpacing=0 cellPadding=0 width=886 align=center 
border=0 id="table5" height="11">
              <TBODY>
              <TR>
                <TD  width=886  class=dotLine align=middle height=11><font color="#FFFFFF"><SPAN 
                  class=style9><font size="1">.</font></SPAN></font></TD></TR></TBODY></TABLE></SPAN></DIV></TD></TR>
        <TR>
          <TD class=grayBorderLR vAlign=top height=114>
            <TABLE cellSpacing=0 cellPadding=0 width="98%" align=center 
border=0 id="table6">
              <TBODY>
              <TR>
                <TD vAlign=top align=middle>
				<table width="620" border="0" cellspacing="0" cellpadding="0" id="table7" height="76">
      <tr>
        <td height="76" valign="top" width="620">
		<table width="834" border="0" align="center" cellpadding="0" cellspacing="0" id="table8">
          <tr><td height="10"></td></tr>
<%
dim sqlflag
   sqlflag=0
   set rs1=conn.execute("select * from anclass where classname='"&name &"'")
   if not rs1.eof then
      classid=cstr(rs1("anclassid"))
      sqlflag=1
   else
      classid="0"
   end if
   Rs1Close()
   if classid="0" then
   set rs1=conn.execute("select * from nclass where classname='"&name &"'")
   if not rs1.eof then
      classid=cstr(rs1("nclassid"))
   else
      classid="0"
   end if
   Rs1Close()   
   end if
   if sqlflag=0 then
      sql="select * from product where ClassID="&classid&" order by changedate desc"
   else
      sql="select * from product where ClassID="&classid&" or anClassID="&classid &" order by changedate desc"
   end if
   set rs=Server.CreateObject("Adodb.RecordSet")
  
   rs.open sql,conn,1,1
   
   if not (rs.bof and  rs.eof) then
      if page="" then page=1
      intPageSize=20
      rs.pagesize = intpagesize
      intcount = rs.recordcount
      intpagecount = rs.pagecount
	  if int(page)>rs.pagecount then
		 page=rs.pagecount
	  end if
      if page="" or page=0 then
		 page=1
      else
	     page=int(page)
   	  end if
	  if intcount > 0 then      
		 rs.AbsolutePage=page 
	 end if
    for i=1 to intPageSize
     %>          
          <tr>
            <td width="18" height="23" class="bt01"><div align="center">◇</div></td>
            <td width="712" height="23" class="wz02"><a href="showinfo.asp?id=<%=rs("productid")%>&name=<%=rs("ProductName")%>" target="_blank" ><%=rs("ProductName")%></a></td>
            <td width="104" ><%=rs("ChangeDate")%></td>
          </tr>
     <%
      rs.movenext
      if rs.eof then exit for
    next
   else
      Response.Write "<tr><td class='forumRow' colspan='10' align='center'><font color=red>暂无相关信息!</font></td></tr>"
   end if
   RsClose()
%> 
<% ChangePageFront2() %>
          <tr>
            <td height="20" colspan="3" class="wz02"> </td>
            </tr>
        </table></td>
      </tr>
    </table></TD></TR>
              <TR>
                <TD align=middle><a href="javascript:history.go(-1)">
				<IMG 
                onclick="javascript:history.go(-1)"  src="showinfo/exit.gif" width=57 
              border=0></a><A>&nbsp;&nbsp;&nbsp;
				</A><a href="javascript:self.close()">
				<IMG 
                onclick="javascript:self.close()"  src="showinfo/close.gif" width=57 
              border=0></a></TD></TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD vAlign=top align=middle height=17 width=888>
			<IMG 
            src="showinfo/xilan_08.gif" width=888></TD></TR></TBODY></TABLE></TD>
    <TD align=left width=7><IMG src="showinfo/xilan_04.gif" 
  width=6 height="179"></TD>
  </TR></TBODY></TABLE></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<STYLE type=text/css>A:hover {
	COLOR: #e13c21; TEXT-DECORATION: none
}
.style1 {
	COLOR: #ffffff
}
.style9 {
	FONT-WEIGHT: bold; FONT-SIZE: 16px
}
</STYLE>
</BODY></HTML>
<!--#include file="bott.asp"-->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -