📄 flash.asp
字号:
<!--#include file="../config/sys.asp"-->
<%
idp=Request.QueryString("delid")
if idp<>"" then
if session("user_name")="" then
response.Redirect url&"error.asp?msg=请登陆后发表您的见解！&logout=true"
end if
a=delfile(selectfile("location","avionline",idp))
a=del_data2("avionline",idp,"0")
end if
%>
<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>
<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> FLASH在线</b></font></td>
</tr> <tr>
<td bgcolor="#FFFFFF" valign="top">
<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">【FLASH介绍】</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="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>
<%
s =cint( request.querystring("s"))
if len(s)<1 then s = 0
s=s*13
sql = "select * from avionline where types='0' order by id desc"
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"> <img src=../bbs/images/look.gif> <a class="text" href="flash_look.asp?id=<%=rs("id")%>&s=<%=s/13%>"><%if len(rs("title"))>20 then%><%=left(formatierung(rs("title")),20)%>...<%else%><%=formatierung(rs("title"))%><%end if%></a>
<%if shicha<=1 then %>
<img src=../bbs/images/new.gif>
<%end if%>
<%if SELECTROLE4(SESSION("USER_NAME")) then%> [<a href="?delid=<%=rs("id")%>" >删除</a>]<%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">
<%=selectlook(rs("autor"),"user_name")%> </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("hits")%></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("input_date"))%>-<%=month(rs("input_date"))%>-<%=day(rs("input_date"))%></td>
</tr>
<%end if
rs.movenext
wend
sql = "select count(id) as alleEintraege from avionline where types='0'"
set rs = conn.Execute(sql)
alleEintraege = int(rs("alleEintraege"))%>
<tr class="a4">
<td width="100%" colspan = "4">
<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="flash.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=flash.asp?s=<%=s/13-1%>>[上一页]</a>
<%end if%>
<% if fix((alleEintraege-1)/13)-s/13 <> 0 then %>
<a href="flash.asp?s=<%=s/13+1%>">[下一页]</a>
<%end if%></td>
</tr>
</table></td>
</tr>
</table>
<%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 + -