开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
zixunlx.asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：7k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

zixunlx.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <!--#include file="config.asp"-->
  3. <html><head><title>网软天下购物系统，网络购物系统,asp购物系统,免费购物系统,网上商城购物系统。--行业资讯</title>
  4. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  5. <meta name="description" content="<%=des%>">
  6. <meta name="keywords" content="<%=keya%>">
  7. <link href="skin/skin<%=skinid%>/css.css" rel="stylesheet" type="text/css">
  8. </head>
  9. <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
  10. <!--#include file="include/head.asp"-->
  11. <table width="1000" border="0" align="center" cellpadding="0" cellspacing="0">
  12.   <tr>
  13.     <td width="39" valign="top"><table width="100%" height="184" border="0" cellpadding="0" cellspacing="0" >
  14.       <tr>
  15.         <td height="30" align="right" valign="top"><img src="skin/skin<%=skinid%>/jiao.gif" width="15" height="17"></td>
  16.       </tr>
  17.       <tr>
  18.         <td height="90"><div align="right"><img src="images/ttts.gif" width="26" height="110" /></div></td>
  19.       </tr>
  20.       <tr>
  21.         <td height="30">&nbsp;</td>
  22.       </tr>
  23.     </table></td>
  24. <td width="190"valign="top" style="BORDER-bottom:<%=skincolor%> 1px solid;BORDER-left:<%=skincolor%> 1px solid; BORDER-right:<%=skincolor%> 1px solid;">
  25. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  26.       <tr>
  27.         <td><table width="190" height="190" border="0" cellpadding="0" cellspacing="0">
  28.           <tr>
  29.             <td align="center" valign="middle" background="skin/skin<%=skinid%>/index_2.gif"><!--#include file="logins.asp"--></td>
  30.           </tr>
  31.         </table></td>
  32.       </tr>
  33.       <tr>
  34.         <td><img src="images/index_4.gif" width="190" height="12" alt="" /></td>
  35.       </tr>
  36.       <tr>
  37.         <td><% if sltype=1 then %><!--#include file="include/info_class1.asp"--><%else %><!--#include file="include/sort.asp"--><%end if %></td>
  38.       </tr>
  39.       <tr>
  40.         <td></td>
  41.       </tr>
  42.     </table></td>
  43.     <td valign="top"><table width="100%" align="center" border="0" cellspacing="0" cellpadding="0" >
  44.       <tr>
  45.         <td background="skin/skin<%=skinid%>/pdbg01.gif" height=28>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href=index.asp>网软天下购物系统，网络购物系统,asp购物系统,免费购物系统,网上商城购物系统。</a> >> 行业资讯</td>
  46.       </tr>
  47.       <tr>
  48.         <td align=center><br>
  49.             <span class="style12"><a href="inform.asp">全部新闻</a> 
  50.             <% set rs2=server.CreateObject("adodb.recordset")
  51.   rs2.open "select * from zixunlei order by id",conn,1,1
  52.   do while not rs2.eof
  53.   response.write "| <A href=zixunlx.asp?newstype="&rs2("danweiname")&">"&trim(rs2("danweiname"))&"</A>  "
  54.   rs2.movenext   
  55.   loop
  56.   rs2.close
  57.   set rs2=nothing 
  58.  %>
  59.             </span> </td>
  60.       </tr>
  61.       <tr>
  62.         <td width="50%" align="center" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF" ><br>
  63.           <table width="580" border="0" cellspacing="0" cellpadding="0">
  64.             <tr>
  65.               <td><img src="images/mingle/informtop.gif" width="580" height="35"></td>
  66.               </tr>
  67.           </table>
  68.           <br>
  69.           <%
  70.     newslx=request.querystring("newstype")
  71.   set rs=server.createobject("adodb.recordset")
  72. rs.open "select * FROM inform  where newstype='"&newslx&"' order by newsid desc",conn,1,1
  73. if rs.recordcount=0 then 
  74. %>
  75.             <table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
  76.               <tr>
  77.                 <td align=center>暂无专题</td>
  78.               </tr>
  79.             </table>
  80.           <%
  81. else
  82.    rs.PageSize =20 
  83. iCount=rs.RecordCount 
  84. iPageSize=rs.PageSize
  85.      maxpage=rs.PageCount 
  86.      page=request("page")
  87.     if Not IsNumeric(page) or page="" then
  88.         page=1
  89.     else
  90.         page=cint(page)
  91.     end if
  92.     if page<1 then
  93.         page=1
  94.     elseif  page>maxpage then
  95.         page=maxpage
  96.     end if
  97.     rs.AbsolutePage=Page
  98. if page=maxpage then
  99. x=iCount-(maxpage-1)*iPageSize
  100. else
  101. x=iPageSize
  102. end if
  103. %>
  104.           <table width="580" border="0" align="center" cellpadding="2" cellspacing="1">
  105.               <%
  106. For i=1 To x
  107. %>
  108.               <tr>
  109.                 <td width="6%" height=24 align=center bgcolor="#FFFFFF" ><img src="images/body/dian3.gif"></td>
  110.                 <td width="66%" height=24 bgcolor="#FFFFFF" > <a href=informs.asp?id=<%=rs("newsid")%> >  <%=replace(trim(rs("title")),"<br>","")%></a>&nbsp<font color=red>(<%=rs("viewcountent")%>)</font></td>
  111.                 <td width="28%" height=24 align=center bgcolor="#FFFFFF" ><%=year(rs("updatetime"))&"."&month(rs("updatetime"))&"."&day(rs("updatetime"))%></td>
  112.               </tr>
  113.               <tr>
  114.                 <td height=1 colspan="3"background="images/mingle/inbg.gif"></td>
  115.               </tr>
  116.               <%
  117. rs.movenext
  118.     next
  119. %>
  120.             </table>
  121.             <br>
  122.             <%
  123. call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
  124. end if
  125. rs.close
  126. set rs=nothing
  127. Sub PageControl(iCount,pagecount,page,table_style,font_style)
  128.     Dim query, a, x, temp
  129.     action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
  130.     query = Split(Request.ServerVariables("QUERY_STRING"), "&")
  131.     For Each x In query
  132.         a = Split(x, "=")
  133.         If StrComp(a(0), "page", vbTextCompare) <> 0 Then
  134.             temp = temp & a(0) & "=" & a(1) & "&"
  135.         End If
  136.     Next
  137.     Response.Write("<table width=90% border=0 cellpadding=0 cellspacing=0 >" & vbCrLf )        
  138.     Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
  139.     Response.Write("<TD align=center height=35>" & vbCrLf )
  140.     Response.Write(font_style & vbCrLf )    
  141.     if page<=1 then
  142.         Response.Write ("首页 " & vbCrLf)        
  143.         Response.Write ("上页 " & vbCrLf)
  144.     else        
  145.         Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
  146.         Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
  147.     end if
  148.     if page>=pagecount then
  149.         Response.Write ("下页 " & vbCrLf)
  150.         Response.Write ("尾页 " & vbCrLf)            
  151.     else
  152.         Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
  153.         Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)            
  154.     end if
  155.     Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
  156.     Response.Write(" 共有" & iCount & "条专题" &  vbCrLf)
  157.     Response.Write(" 转到" & "<INPUT TYEP=TEXT CLASS=wenbenkuang NAME=page SIZE=2 Maxlength=5 VALUE=" & page & ">" & "页"  & vbCrLf & "<INPUT CLASS=go-wenbenkuang type=submit value=GO>")
  158.     Response.Write("</TD>" & vbCrLf )                
  159.     Response.Write("</TR></form>" & vbCrLf )        
  160.     Response.Write("</table>" & vbCrLf )        
  161. End Sub
  162. %>        </td>
  163.       </tr>
  164.     </table></td>
  165. <td width="68"style="BORDER-left:<%=skincolor%> 1px solid;">&nbsp;</td>
  166.   </tr>
  167. </table>
  168. <!--#include file="include/foot.asp"-->
  169. </body>
  170. </html>