📄 default.asp

📁 本系统为ASP版 1
💻 ASP
字号:
<html>
<head>
<meta name=keywords content="短线黑马荐股">
<meta name="title" content="短线黑马荐股">
<meta name="description" content="短线黑马荐股">
<title>短线黑马荐股</title>

<%Admin="DownAdd"%>
<!--#include file="../inc/check.asp"-->
<%MDBpath="../inc/"%>
<!--#include file="../inc/mdb_path_info.asp"-->
<%
set rs=server.CreateObject("ADODB.RecordSet")
thistype=thistype & ""
if request("id")<>"" then
  rs.open "select * from infotypestock where id="&request("id"),conn,1,1
    if not rs.EOF then
    ts=rs("ts")
    tj=rs("tj")
        TN=split(rs("tname"),"|")
        TI=split(rs("ts"), ",")
          for i = 0 to ubound(TN)-1
            thistype=thistype & ""&TN(i)&""
          next
Response.Write("")
    else
    response.write "<b>错误：</b>此ID号的类别不存在或已被删除!"
    response.end
    end if
  rs.close
end if
%>
</head>
<!--#include file="../inc/top.asp"-->
<body bgcolor="#FFFFFF"><center>

 
<table border="0" width="760" bgcolor="#FFFFFF" cellpadding="0" cellspacing="0" >
  <tr><td height=1 bgcolor=333333 colspan=2></td></tr>
 <tr>
    <td width="180" valign="top">
<!--#include file="../user/left.asp"-->
					</td>
    <td valign="top"><table align="center">
    <tr><td height="10"></td></tr><tr><td width="580" height="40">
<table><tr><td rowspan=2><FONT color=#dc143c size=4><b>注:</B></FONT></td><td><font color=ff0000>1.本站每日<b> 10:30 </b>前提供一只超短线黑马.</font></td></tr><tr><td><font color=ff0000>2.本页提供之股票信息为个人观点. 股市有风险,投资据此入市，风险自担！</font></td></tr></table></td>  
    </tr><tr><td width="580" style="border-top: 1px solid #C0C0C0; border-left: 1px solid #C0C0C0; border-right: 1px solid #C0C0C0; border-top-width: 1px; border-bottom: 1px solid #C0C0C0" valign="top">
<%if request("id")<>"" then
set rs_type=server.CreateObject("ADODB.RecordSet")
sql_type="select * from infotypestock where ts like '"&ts&"%'"
rs_type.open sql_type,conn,1,1
do while not rs_type.EOF
   sqqq=sqqq&""&rs_type("id")&", "
rs_type.MoveNext             
loop 
rs_type.close
end if

 if not isempty(request("page")) then        
      currentPage=cint(request("page"))        
   else        
      currentPage=1        
   end if
   MaxPerPage=18 '###每页显示条数

if request("k")<>"" then
sss=" and title like '%"&request("k")&"%'"
end if
if NotMe<>"" then
   sss=sss&" and user='"&NotMe&"'"
end if

if request("id")<>"" then
sql="select * from infostock where tid in ("&sqqq&")"&sss&" order by date desc"
else
sql="select * from infostock where id<>0"&sss&" order by date desc"
end if
rs.open sql,conn,1,1
  if rs.eof and rs.bof then
     response.write "<p align='center'>还没找到文章</p>"
  else
   totalPut=rs.recordcount
   rs.move  (currentPage-1)*MaxPerPage
   rs.pagesize=MaxPerPage '得到每页数
   mpage=rs.pagecount     '得到总页数 
%>
  <table border="0" width="100%" cellspacing="0">
   
<%
i=0
do while not rs.EOF%>
    <tr>
      <td width="12%" height=40>&nbsp;<%=year(rs("date"))&"-"&month(rs("date"))&"-"&day(rs("date"))%></td>
      <td width="15%" align=center> <FONT size=4><b><%=rs("title")%></FONT><br>(<font color=ff0000><%=rs("se")%></font>)</b></td><td width="73%">&nbsp; <%=rs("info")%></td></tr><tr><td width="100%" height="1" bgcolor="#CCCCCC" colspan="3"></td></tr>
<%i=i+1  
if i>=MaxPerPage then exit do
 rs.movenext
 loop %>
   
    <tr>
      <td width="100%" colspan="3" bgcolor="#FFFFFF" height="20" align="center"><br>
<%
call page()
sub page()%> 页次：<b><font color="#FF0000"><%=currentPage%></font>/<%=mpage%></b>,每页<b><%=MaxPerPage%></b>个,<%if request("k")<>"" then%><font color="#FF0000">搜到</font><%else%>当前<%end if%><b><%=totalPut%></b>个  
 <%                                                                                                                           
    pageno=currentPage
    if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
        pageno=1
    end if
%>
[ <%if cint(pageno)>1 then%><a href=default.asp?id=<%=request("id")%>&k=<%=request("k")%>><%end if%><<-</a> <%if cint(pageno)>1 then%><a href=default.asp?id=<%=request("id")%>&page=<%=pageno-1%>&k=<%=request("k")%>><%end if%><-</a><%                      
pp=cint(pageno)-3            
  if pp<1 then            
  pp=1            
  end if            
for pno=pp to mpage            
p=p+1            
if pno=cint(pageno) then%> <font color="#FF0000"><%=pno%></font><%else%> <a href=default.asp?id=<%=request("id")%>&page=<%=pno%>&k=<%=request("k")%>><%=pno%></a><%end if%>                      
<%                      
if p>=7 then exit for            
next%> <%if cint(pageno)< mpage then%> <a href=default.asp?id=<%=request("id")%>&page=<%=pageno+1%>&k=<%=request("k")%>><%end if%>-></a> <%if cint(pageno)< mpage then%><a href=default.asp?id=<%=request("id")%>&page=<%=mpage%>&k=<%=request("k")%>><%end if%>-&gt;&gt;</a> ]<%    
end sub%>
     </td>
    </tr>
  </table>
     </td>
    </tr>
  </table>
<%end if%>     
<% 
set rs=nothing  
conn.close  
set conn=nothing%>
     </td>
    </tr>
  </table>
<!--#include file="../inc/foot.asp"-->     
</body>                                       
</html>
⌨️ 快捷键说明

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