⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 news.asp

📁 心里在线咨询系统 怎么还有字数限制
💻 ASP
字号:
<!--#include file="../config/sys.asp"-->
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet" type="text/css" />

</head>

<body><script src="images/skins.js"></script>
<div align="center">
<TABLE style="TABLE-LAYOUT: fixed" height=100% cellSpacing=0 cellPadding=0 width="98%" border=0>
<TBODY>
<TR height=3 width="100%"> 
<TD> <TABLE style="TABLE-LAYOUT: fixed" height=3 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR height=1> 
<TD width=1></TD>
<TD width=1></TD>
<TD width=1></TD>
<TD bgColor=#DCDCDC></TD>
<TD width=1></TD>
<TD width=1></TD>
<TD width=1></TD>
</TR>
<TR height=1> 
<TD></TD>
<TD bgColor=#DCDCDC colSpan=2></TD>
<TD bgColor=#f7f8f9></TD>
<TD bgColor=#DCDCDC colSpan=2></TD>
<TD></TD>
</TR>
<TR height=1> 
<TD></TD>
<TD bgColor=#DCDCDC></TD>
<TD bgColor=#f7f8f9 colSpan=3></TD>
<TD bgColor=#DCDCDC></TD>
<TD></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR> 
<TD> <TABLE style="TABLE-LAYOUT: fixed" height="100%" cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR> 
<TD width=1 bgColor=#DCDCDC></TD>
<TD id=oINNER bgColor=#FFFFFF> 
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0" height="100%">
					<tr>
						<td height="24" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px" colspan="3">
						<font color="#999999"><b>&nbsp;&nbsp;&nbsp; 精彩文章</b></font></td>
					</tr>	<tr>
		<td bgcolor="#FFFFFF" valign="top">
		<div align="center">
			<table cellspacing="1" cellpadding="4" width="98%" border="0" class="a2" bgcolor="#FFFFFF">
  
  <tr class="a1">
    <td width="54%" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px" align="center">【
	文章标题】</td>
    <td width="13%" align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">【
	发布人】</td>
    <td width="8%" align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">【浏览】</td>
    <td width="9%" align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">【
	评价】</td>
    <td width="14%" align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">【最后更新】</td>
  </tr>
  <%
  types=cint( request.querystring("types"))
  s =cint( request.querystring("s"))
if len(s)<1 then s = 0
s=s*13
if types<=0 then
sql = "select title, autor,  views, replies, datum_updated, id,newstype from news where connected = 0 order by id desc" 
else
sql = "select title, autor,  views, replies, datum_updated, id,newstype from news where connected = 0 and newstype='"&types&"'order by id desc" 
end if
set rs = conn.Execute(sql)
while not rs.eof
count = count +1
if count>s and count<=(s+13) then
if count mod 2 = 0 then 
bgcolor = "a3"
else
bgcolor = "a4" 
end if%>
  <tr class="<%=bgcolor%>">
    <td style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px">&nbsp;<img src=images/icon1.gif> [<a href="?types=<%=rs("newstype")%>"><%=selectnews(rs("newstype"))%></a>] <a class="text" href="read.asp?id=<%=rs("id")%>&s=<%=s/13%>"><%=formatierung(rs("title"))%></a>
        <%if shicha<=1 then %>
        <img src=images/new.gif>
        <%end if%>
</td>
    <td align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px">

<a href="../other_user.asp?user_name=<%=rs("autor")%>"><%=selectlook(rs("autor"),"user_name")%></a> </td>
    <td align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px"><font color="#0000FF"><%=rs("views")%></font></td>
    <td align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px"> <font color="#FF0000"><%=rs("replies")%></font></td>
    <td align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px"><%=year(rs("datum_updated"))%>-<%=month(rs("datum_updated"))%>-<%=day(rs("datum_updated"))%></td>
  </tr>
  <%end if
rs.movenext
wend
sql = "select count(id) as alleEintraege from news where connected = 0" 
set rs = conn.Execute(sql)
alleEintraege = int(rs("alleEintraege"))%>
  <tr class="a4">
    <td width="100%" colspan = "5">
	<table width=100% cellpadding="0" cellspacing="0">
        <tr>
          <td width="58%"><font color="#FF0000"></td>
          <td align="right">跳到
              <select name="select" onChange="if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}">
                <% for t = 0 to fix((alleEintraege-1)/13)%>
                <option value="news.asp?s=<%=t%>" <%if t=(s/13) then%>selected<%end if%>><%=t+1%></option>
                <%next%>
              </select>
            页 当前第<font color=red> <%=s/13+1%> </font>页 
            <% if s>0 then %>
            <a href=news.asp?s=<%=s/13-1%>>[上一页]</a>&nbsp;
            <%end if%>
            <% if fix((alleEintraege-1)/13)-s/13 <> 0 then %>
            <a href="news.asp?s=<%=s/13+1%>">[下一页]</a>
            <%end if%></td>
        </tr>
    </table></td>
  </tr>
</table>
</div>
<%rs.close
conn.close
set rs = nothing
set conn = nothing%>
</td>
	</tr>
</table>
</TD>
<TD width=1 bgColor=#DCDCDC></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR height=3 width="100%"> 
<TD> <TABLE style="TABLE-LAYOUT: fixed" height=3 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR height=1> 
<TD width=1></TD>
<TD width=1 bgColor=#DCDCDC></TD>
<TD width=1 bgColor=#f7f8f9></TD>
<TD bgColor=#f7f8f9></TD>
<TD width=1 bgColor=#f7f8f9></TD>
<TD width=1 bgColor=#DCDCDC></TD>
<TD width=1></TD>
</TR>
<TR height=1> 
<TD></TD>
<TD bgColor=#DCDCDC colSpan=2></TD>
<TD bgColor=#f7f8f9></TD>
<TD bgColor=#DCDCDC colSpan=2></TD>
<TD></TD>
</TR>
<TR height=1> 
<TD colSpan=3></TD>
<TD bgColor=#DCDCDC></TD>
<TD colSpan=3></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
</div>
</body>

</html>

⌨️ 快捷键说明

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