styleb.asp

管理登录system 管理员：admin 密码：admin888 数据库链接文件： conn.asp 内容数据库前台链接文件 systemconn.asp 内容数据库后台链接文件 sy

<script language="JavaScript"> 
<!-- 
var flag=false; 
function DrawImage(ImgD){ 
 var image=new Image(); 
 image.src=ImgD.src; 
 if(image.width>0 && image.height>0){ 
  flag=true; 
  if(image.width/image.height>= 98/98){ 
   if(image.width>98){
    ImgD.width=98; 
    ImgD.height=(image.height*98)/image.width; 
   }else{ 
    ImgD.width=image.width;
    ImgD.height=image.height; 
   } 
   ImgD.alt="点击查看详细信息..."; 
  } 
  else{ 
   if(image.height>98){
    ImgD.height=98; 
    ImgD.width=(image.width*98)/image.height; 
   }else{ 
    ImgD.width=image.width;
    ImgD.height=image.height; 
   } 
   ImgD.alt="点击查看详细信息..."; 
  } 
 }
}
//--> 
</script> 
<%
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='0' class='Index-Center4'>"
if request.querystring("page")="" then
   ipagecurrent=1
else
   ipagecurrent=cint(request.querystring("page"))
end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.pagesize = 10
rs.cachesize = 10
rs.open sql,conn,1,1
ipagecount = rs.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then
   response.write"<tr><td align='center'>暂无相关内容！</td></tr>"
else
   rs.absolutepage = ipagecurrent
   irecordsshown = 0
   do while irecordsshown<10 and NOT rs.EOF
      Response.Write"<tr>"
      Response.Write"<td width='50%'  style='BORDER-BOTTOM: #ffffff 1px solid;'>"
      if not rs.eof then
         '=========
         set RsTrue = server.createobject("adodb.recordset")
         RsTrue.open "select GroupLevel from Nweb_UGroup where GroupID='"&Rs("GroupID")&"'",conn,1,1
         GroupLevel=RsTrue("GroupLevel")
         RsTrue.Close
         set RsTrue=nothing
         if Session("GroupLevel")="" then Session("GroupLevel")=0
         LPattern=Rs("LPattern")
         Select Case Rs("Exclusive")
            Case "<"
               if Session("GroupLevel") < GroupLevel then
                  LPattern="Images/NoRight.gif"
               end if
            Case "="
               if Session("GroupLevel") <> GroupLevel then
                  LPattern="Images/NoRight.gif"
               end if
         End Select
         '=========
         Response.Write"<table border='0' width='307' cellpadding='0' cellspacing='0'><tr><td align='center' rowspan='5' width='100' height='100' style='BORDER-BOTTOM: #dedede 1px solid;BORDER-RIGHT: #dedede 1px solid;'><a href='ProductsView.asp?id="&rs("id")&"' target='_blank'><img src="&LPattern&" border=0 width=98 height=98 onload=javascript:DrawImage(this); ></a></td>"
         Response.Write"<td width=40 height=20 align='center'>编号</td>"
         Response.Write"<td><a href='ProductsView.asp?id="&rs("id")&"' target='_blank'>"&rs("LPH")&"</a></td></tr>"
         Response.Write"<tr>"
         Response.Write"<td height=20 align=center>名称</td>"
         Response.Write"<td><a href='ProductsView.asp?id="&rs("id")&"' target='_blank'><font color=#003EBD>"&rs("LName")&"</font></a></td>"
         Response.Write"</tr>"
         Response.Write"<tr>"
         Response.Write"<td height=20 align=center>产商</td>"
         Response.Write"<td >"&rs("LManufacturer")&"</td>"
         Response.Write"</tr>"
         Response.Write"<tr>"
         Response.Write"<td height=20 align=center>价格</td>"
         Response.Write"<td>"&rs("LPrice")&"</td>"
         Response.Write"</tr>"
         Response.Write"<tr>"
         Response.Write"<td height=20 align=center style='BORDER-BOTTOM: #dedede 1px solid;'>日期</td>"
         Response.Write"<td style='BORDER-BOTTOM: #dedede 1px solid;'>"&rs("LAddtime")&"</td>"
         Response.Write"</tr>"
         Response.Write"</table></td>"
         irecordsshown = irecordsshown +1
         rs.movenext 
      end if
      Response.Write"<td width='50%' style='BORDER-BOTTOM: #ffffff 1px solid;'align='right'>"
      if not rs.eof then
         '=========
         set RsTrue = server.createobject("adodb.recordset")
         RsTrue.open "select GroupLevel from Nweb_UGroup where GroupID='"&Rs("GroupID")&"'",conn,1,1
         GroupLevel=RsTrue("GroupLevel")
         RsTrue.Close
         set RsTrue=nothing
         if Session("GroupLevel")="" then Session("GroupLevel")=0
         LPattern=Rs("LPattern")
         Select Case Rs("Exclusive")
            Case "<"
               if Session("GroupLevel") < GroupLevel then
                  LPattern="Images/NoRight.gif"
               end if
            Case "="
               if Session("GroupLevel") <> GroupLevel then
                  LPattern="Images/NoRight.gif"
               end if
         End Select
         '=========
         Response.Write"<table border='0' width='307' cellpadding='0' cellspacing='0'><tr><td align='center' rowspan='5' width='100' height='100' style='BORDER-BOTTOM: #dedede 1px solid;BORDER-RIGHT: #dedede 1px solid;'><a href='ProductsView.asp?id="&rs("id")&"' target='_blank'><img src="&LPattern&" border=0 width=98 height=98 onload=javascript:DrawImage(this); ></a></td>"
         Response.Write"<td width=40 height=20 align='center'>编号</td>"
         Response.Write"<td><a href='ProductsView.asp?id="&rs("id")&"' target='_blank'>"&rs("LPH")&"</a></td></tr>"
         Response.Write"<tr>"
         Response.Write"<td height=20 align=center>名称</td>"
         Response.Write"<td><a href='ProductsView.asp?id="&rs("id")&"' target='_blank'><font color=#003EBD>"&rs("LName")&"</font></a></td>"
         Response.Write"</tr>"
         Response.Write"<tr>"
         Response.Write"<td height=20 align=center>产商</td>"
         Response.Write"<td >"&rs("LManufacturer")&"</td>"
         Response.Write"</tr>"
         Response.Write"<tr>"
         Response.Write"<td height=20 align=center>价格</td>"
         Response.Write"<td>"&rs("LPrice")&"</td>"
         Response.Write"</tr>"
         Response.Write"<tr>"
         Response.Write"<td height=20 align=center style='BORDER-BOTTOM: #dedede 1px solid;'>日期</td>"
         Response.Write"<td style='BORDER-BOTTOM: #dedede 1px solid;'>"&rs("LAddtime")&"</td>"
         Response.Write"</tr>"
         Response.Write"</table></td>"
         irecordsshown = irecordsshown +1
         rs.movenext 
      end if
	  Response.Write"</tr>"
loop
end if
irecordcount=rs.recordcount
rs.Close
set rs=nothing
Response.Write"</table>"
ProductsShu=10
%>