📄 dis_big.asp
字号:
<!--
'----------------------------------------------------------------------
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'******************* 商务链图文发布系统 ***************************
'程序名称：商务链图文发布系统1.0
'程序设计:银杏公子
'电子邮件:bhj0523@163.com
'网站支持:http://www.35lian.com
'Q Q 支持:411655198
'版权所有:商务链 (www.35lian.com)
'版权声明:
'1、未经授权许可，不得将本程序用于盈利或非盈利性的商业用途。
'2、为适应实际的计算机应用环境或者改进其功能、性能，可以进行必要的修改，但不得去除商务链 (www.35lian.com)版权标示；未经终点书面授权许可，不得向任何第三方提供修改后的程序。
'3、使用本程序必须保留商务链的版权声明，将本程序从原有自然语言文字转换成另一自然语言文字的，仍应注明出处。
'**********************************************************************
'----------------------------------------------------------------------
-->
<!--#include file="conn.asp"-->
<%
b_soft_id=trim(request("b_soft_id"))
s_soft_id=trim(request("s_soft_id"))
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
<meta name="keywords" content="<%=wkey%>">
<title><%=webtitle%>--<%=b_soft_id%></title>
</head>
<body topmargin="0"><!--#include file="top.asp"-->
<td width="760" align="center" valign="middle">
<table width="760" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#3366FF">
<tr>
<td width="160" height="300" valign="top" bgcolor="efefef"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" align="center" bgcolor="#3366FF" style="border-bottom: 1 solid #000000"><strong><font color="#FFFFFF">软
件 搜 索</font></strong></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<form name="form1" method="get" action="search.asp">
<tr>
<td height="30" align="center" bgcolor="#efefef"> <input type="text" name="key" size="19" class="input">
</td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#efefef"> <select name="dis_big" class="input">
<option value="title" selected class="input">新闻标题</option>
<option value="msg" class="input">新闻内容</option>
</select>
<input type="submit" name="Submit" value="搜索" class="input"></td>
</tr>
</form>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" align="center" bgcolor="#3366FF" style="border-top: 1 solid #000000;border-bottom: 1 solid #000000"><a href="dis_big.asp?b_soft_id=<%=b_soft_id%>"><strong><font color="#FFFFFF"><%=b_soft_id%></font></strong></a></td>
</tr>
<%
set rsSmallClass=server.CreateObject("adodb.recordset")
rsSmallClass.open "Select * From SmallClass Where BigClassName='" & b_soft_id & "'",conn,1,1
if not(rsSmallClass.bof and rsSmallClass.eof) then
do while not rsSmallClass.eof
%>
<tr onmouseover="this.bgColor='#FFFFFF';" onmouseout="this.bgColor='#EFEFEF';" bgColor=#EFEFEF>
<td height="25" align="right" style="border-bottom: 1 solid #000000"><a href="dis_big.asp?b_soft_id=<%=b_soft_id%>&s_soft_id=<%=rsSmallClass("SmallClassName")%>"><font size="2"><b><%=rsSmallClass("SmallClassName")%></b></font></a></td>
</tr>
<%
rsSmallClass.movenext
loop
end if
rsSmallClass.close
set rsSmallClass=nothing
%>
</table></td>
<td width="600" align="center" valign="top" bgcolor="#FFFFFF">
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td height="5"> </td>
</tr>
</table>
<table width="95%" border="0" cellpadding="0" cellspacing="0" >
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if b_soft_id<>"" and s_soft_id <>"" then
sql="select * from news where BigClassName='"&b_soft_id&"' and SmallClassName='"&s_soft_id&"' order by id desc"
rs.Open sql,conn,1,1
elseif b_soft_id<>"" then
sql="select * from news where BigClassName='"&b_soft_id&"' order by id desc"
rs.Open sql,conn,1,1
end if
if rs.eof and rs.bof then
response.Write("暂时没有")
else
%>
<tr>
<td width="6%" height="30" rowspan="2" bgcolor="#3333CC"> </td>
<td width="76%" height="28"> </td>
<td width="18%" align="center">更多...</td>
</tr>
<tr>
<td height="14" colspan="2" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#3366FF"> </td>
<td bgcolor="#3399FF"> </td>
<td bgcolor="#33CCFF"> </td>
</tr>
</table></td>
</tr>
<%
rs.PageSize=20
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
n=1
for j=1 to rs.PageSize
%>
<tr>
<td height="24" align="center" ><%=n%></td>
<td height="24" colspan="2" style="BORDER-bottom: #999999 1px dotted">
<% if rs("imagenum")<>"0" then response.write "<img src='images/news.gif' border=0 alt='图片'>" end if %> <a href="html/<%=rs("c_filepath")%>" target="_blank"><%= RS("TITLE") %></a> </td>
</tr>
<%
rs.movenext
n=n+1
if rs.eof then exit for
next
%>
<tr valign="bottom">
<td height="50" colspan="3" align="center" > <form method=Post action="dis_big.asp?b_soft_id=<%= b_soft_id %>&s_soft_id=<%= s_soft_id %>">
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=dis_big.asp?b_soft_id="&b_soft_id&"&s_soft_id="&s_soft_id&"&page=1>首页</a> "
response.write "<a href=dis_big.asp?b_soft_id="&b_soft_id&"&s_soft_id="&s_soft_id&"&page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=dis_big.asp?b_soft_id="&b_soft_id&"&s_soft_id="&s_soft_id&"&page=" & (page+1) & ">"
response.write "下一页</a> <a href=dis_big.asp?b_soft_id="&b_soft_id&"&s_soft_id="&s_soft_id&"&s_soft_id="&s_soft_id&"&page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条 <b>"&rs.pagesize&"</b>条/页"
response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>"
%>
</form></td>
</tr>
<%
end if
rs.close
set rs=nothing
%>
</table>
</td>
</tr>
</table><!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -