📄 list_flash.asp
字号:
' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
' create the list of parameters which should not be maintained
MM_removeList = "&index=&god="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links
MM_keepMove = MM_keepBoth
MM_moveParam = "index"
' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 0) Then
MM_moveParam = "offset"
If (MM_keepMove <> "") Then
params = Split(MM_keepMove, "&")
MM_keepMove = ""
For i = 0 To UBound(params)
nextItem = Left(params(i), InStr(params(i),"=") - 1)
If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & params(i)
End If
Next
If (MM_keepMove <> "") Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If
' set the strings for the move to links
If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&"
urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = urlStr & "0"
MM_moveLast = urlStr & "-1"
MM_moveNext = urlStr & Cstr(MM_offset + MM_size)
prev = MM_offset - MM_size
If (prev < 0) Then prev = 0
MM_movePrev = urlStr & Cstr(prev)
%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoDateTime(str, nNamedFormat, nLCID)
dim strRet
dim nOldLCID
strRet = str
If (nLCID > -1) Then
oldLCID = Session.LCID
End If
On Error Resume Next
If (nLCID > -1) Then
Session.LCID = nLCID
End If
If ((nLCID < 0) Or (Session.LCID = nLCID)) Then
strRet = FormatDateTime(str, nNamedFormat)
End If
If (nLCID > -1) Then
Session.LCID = oldLCID
End If
DoDateTime = strRet
End Function
</SCRIPT>
<link rel="stylesheet" href="intohz.css" type="text/css"></head>
<body leftmargin="0" topmargin="0">
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" height="1">
<tr>
<td bgcolor="#CCCCCC"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" background="images/bg2.gif">
<tr>
<td><div align="center">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="776" height="60">
<param name="movie" value="../ad1.swf">
<param name="quality" value="high">
<embed src="../ad1.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="776" height="60"></embed></object>
</div></td>
</tr>
</table>
<table width="778" height="200" border="0" align="center" cellpadding="0" cellspacing="0" background="images/bg2.gif" bgcolor="#FFFFFF">
<tr>
<td width="81%" valign="top">
<p> <img src="images/list_dmsx.gif" width="450" height="20"> </p>
<table width="72%" border="0" cellspacing="0" cellpadding="0" align="center" height="15">
<%
While ((Repeat2__numRows <> 0) AND (NOT rsn.EOF))
%>
<% If Not rsn.EOF Or Not rsn.BOF Then %>
<tr>
<td width="3%" height="20" background="images/news_bg.gif"><img src="images/arrow.gif" width="20" height="9"></td>
<td width="97%" height="20" background="images/news_bg.gif">[<%= DoDateTime((rsn.Fields.Item("n_data").Value), 2, 1030) %>]
<A HREF="detail.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "n_id=" & rsn.Fields.Item("n_id").Value %>" target="_blank">
<% =(DoTrimProperly((rsn.Fields.Item("n_title").Value), 24, 0, 1, "...")) %>
</A></td>
</tr>
<% End If ' end Not rsn.EOF Or NOT rsn.BOF %>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
rsn.MoveNext()
Wend
%>
</table>
<table width="72%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<div align="right">
<%
Forward = ">>>"
Backward = "<<<"
Delimiter = " | "
Rec_Name = rsn_total
List_Num = 5
Godspeed = 1
if request.querystring("god") <> "" then
Godspeed = request.querystring("god")
end if
if Godspeed <> 1 then
Response.Write("<a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & Godspeed - MM_Size - 1 & "&god=" & Godspeed - MM_Size * List_Num & ">")
Response.Write(Backward & "</a> ")
end if
if Rec_Name < Godspeed + MM_Size * List_Num then
Matrix = Rec_Name
else
Matrix = Godspeed + MM_Size * (List_Num - 1)
end if
if MM_size=0 then
mm_size=1
end if
TM_counter = ( Godspeed - 1 )/MM_Size
For i = Godspeed to Matrix step MM_Size
TM_counter = TM_counter + 1
if i <> MM_offset + 1 then
Response.Write("<a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & i-1 & "&god=" & Godspeed & ">")
Response.Write(TM_counter & "</a>")
else
Response.Write("<b>" & TM_counter & "</b>")
End if
if( i <= Matrix - MM_Size ) then Response.Write(Delimiter)
next
if Rec_Name > Godspeed + MM_Size * List_Num - 1 then
Response.Write(" <a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & Godspeed + MM_Size * List_Num - 1 & "&god=" & Godspeed + MM_Size * List_Num & ">")
Response.Write(Forward & "</a>")
end if
%>
</div>
</td>
</tr>
</table>
<p class="b"> <img src="images/list_dmxz.gif" width="450" height="20"></p>
<table width="72%" height="40" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20"> <script language="JavaScript1.1" src="softdown/jsClass.asp?classid=2&shu=18"></script>
</td>
</tr>
<tr>
<td height="20"><div align="right"><a href="softdown/default.asp?classid=2">更多..</a>.</div></td>
</tr>
</table>
<p class="b"> </p></td>
<td width="19%" valign="top">
<table width="99%" height="100%" border="0" align="left" cellpadding="0" cellspacing="0" bgcolor="#e7e7e7">
<tr>
<td height="100%"><br>
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<form name="form1" method="get" action="search.asp">
<td> <div align="center">
<input type="text" name="sss" size="18">
<br>
<br>
<select name="xxx" size="1">
<option value="n_title" selected>标题</option>
<option value="n_author">作者</option>
<option value="n_content">内容</option>
</select>
<input type="submit" name="Submit" value=" 搜 ">
</div></td>
</form>
</tr>
</table>
<br>
<table width="92%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="426DB4">
<tr>
<td height="20" background="images/biao_t.gif"> <font color="#FFFFFF"> 推荐新闻:</font></td>
</tr>
<tr>
<td bgcolor="#F7F7F7" height="150" valign="top"><br> <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center" height="16">
<%
While ((Repeat3__numRows <> 0) AND (NOT rsc.EOF))
%>
<tr>
<td width="13"><img src="images/arrow.gif" width="15" height="11"></td>
<td width="167"> <a href="detail.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "n_id=" & rsc.Fields.Item("n_id").Value %>" target="_blank">
<% =(DoTrimProperly((rsc.Fields.Item("n_title").Value), 10, 0, 1, "...")) %>
</a> </td>
</tr>
<%
Repeat3__index=Repeat3__index+1
Repeat3__numRows=Repeat3__numRows-1
rsc.MoveNext()
Wend
%>
</table>
<br> </td>
</tr>
</table>
<br>
<table width="92%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="426DB4">
<tr>
<td height="20" background="images/biao_t.gif"> <font color="#FFFFFF"> 阅读排行:</font></td>
</tr>
<tr>
<td bgcolor="#F7F7F7" height="150" valign="top"><br> <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center" height="15">
<%
While ((Repeat4__numRows <> 0) AND (NOT rsh.EOF))
%>
<tr>
<td width="13"><img src="images/arrow.gif" width="15" height="11"></td>
<td width="167"> <a href="detail.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "n_id=" & rsh.Fields.Item("n_id").Value %>" target="_blank">
<% =(DoTrimProperly((rsh.Fields.Item("n_title").Value), 10, 0, 1, "...")) %>
</a> </td>
</tr>
<%
Repeat4__index=Repeat4__index+1
Repeat4__numRows=Repeat4__numRows-1
rsh.MoveNext()
Wend
%>
</table>
<br> </td>
</tr>
</table>
<br>
</td>
</tr>
</table> </td>
</tr>
</table>
<!--#include file="end.asp" -->
<%
rsn.Close()
%>
<%
rsc.Close()
%>
<%
rsb.Close()
%>
<%
rsh.Close()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -