?? list_trade_info.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/config.asp" -->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
dim iPage,i,rstmp
set rstmp = server.createobject("adodb.recordset")
if Request.QueryString("page") <> "" then
iPage = CInt(Request.QueryString("page"))
else
iPage = 1
end if
if session("sqlString") <> "" then
session("rs").pagesize = 10
session("rs").cursorlocation = adUseClient
session("rs").open session("sqlString"),session("conn"),adOPenForwardOnly,adLockReadOnly
'Response.Write("iPage" & iPage & ">>pagecount" & session("rs").pagecount & "<br>")
if not session("rs").eof then
if iPage = 0 or iPage > session("rs").pagecount then
session("rs").absolutepage = session("rs").pagecount
else
session("rs").absolutepage = iPage
end if
%>
<table width="400" border="0" align="center" cellpadding="1" cellspacing="1" >
<%
if session("rs").pagecount > 1 then
response.write " <tr align=""center""> " & vbCrLf
response.write " <td align=""right"" colspan=""3"">" & vbCrLf
for i= 1 to session("rs").pagecount
if i = iPage then
Response.Write("[<strong>"&i&"</strong>] ")
else
Response.Write("[<a href='"&request.ServerVariables("PATH_INFO")&"?page="&i&"'>"&i&"</a>] ")
end if
next
response.write " </td>" & vbCrLf
response.write " </tr>" & vbCrLf
end if
for i = 1 to session("rs").pagesize
if not session("rs").eof then
%>
<tr bgcolor="#eeeeee" id="trade_info<% = session("rs")("id") %>">
<td width="10" align="center" style="cursor:hand;" onClick="if(trade_info<% = session("rs")("id") %>.firstChild.firstChild.innerText == '-') {reply_info<% = session("rs")("id") %>.style.display = 'block';trade_info<% = session("rs")("id") %>.firstChild.firstChild.innerText='+';} else {reply_info<% = session("rs")("id") %>.style.display = 'none';trade_info<% = session("rs")("id") %>.firstChild.firstChild.innerText='-';}"><font color="#0000FF">-</font></td>
<td width="268"> <a href="show_trade_info.asp?id=<% = session("rs")("id") %>" target="_blank"><%= CutString(session("rs")("title"),18) %></a></td>
<td width="62"><%= CutDate(session("rs")("time")) %></td>
<% If session("mode") = "admin" Then %>
<td width="60"><input name="°´Å¥" type="button" onClick="if(window.confirm('確定要刪除該信息？')) window.open('del_trade_info.asp?id=<%= session("rs")("id") %>','_self');" value="刪 除"></td>
<% End If %>
</tr>
<tr id="reply_info<% = session("rs")("id") %>" style="display:none;">
<td width="10" align="center"> </td>
<td colspan="3" align="right"><table width="380" border="0" cellspacing="1" cellpadding="1">
<%
'Response.Write "select id,title,time from trade_reply_info where info_id = " & session("rs")("id")
rstmp.open "select id,title,time from v_reply_info where info_id = " & session("rs")("id"),session("conn")
if rstmp.eof then
%>
<tr>
<td width="38">[<font color="#0000FF">回復(fù)</font>]</td>
<td width="290"> 暫無回復(fù)...</td>
<td width="62"> </td>
</tr>
<%
else
while not rstmp.eof
%>
<tr>
<td width="38">[<font color="#0000FF">回復(fù)</font>]</td>
<td width="230"> <a href="show_reply_info.asp?id=<% = rstmp("id") %>" target="_blank"><% = CutString(rstmp("title"),18) %></a></td>
<td width="62"><%= CutDate(rstmp("time")) %></td>
<% If session("mode") = "admin" Then %>
<td width="60"><input name="°´Å¥" type="button" onClick="if(window.confirm('確定要刪除該回復(fù)信息？')) window.open('del_reply_info.asp?id=<%= session("rs")("id") %>','_self');" value="刪 除"></td>
<% End If %>
</tr>
<%
rstmp.MoveNext
wend
end if
rstmp.close
%>
</table></td>
</tr>
<%
session("rs").MoveNext
end if
next
if session("rs").pagecount > 1 then
response.write " <tr align=""center""> " & vbCrLf
response.write " <td align=""right"" colspan=""3"">" & vbCrLf
for i= 1 to session("rs").pagecount
if i = iPage then
Response.Write("[<strong>"&i&"</strong>] ")
else
Response.Write("[<a href='"&request.ServerVariables("PATH_INFO")&"?page="&i&"'>"&i&"</a>] ")
end if
next
response.write " </td>" & vbCrLf
response.write " </tr>" & vbCrLf
end if
%>
</table>
<%
end if
session("rs").close
end if
%>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -