📄 list.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/config.asp" -->
<!--#include file="../include/ServerControl.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> <a href="../trade/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>
<td><%
If session("mode") = "admin" Then
dim cmb
set cmb = new DBCombo
cmb.name = "priority" & Session("rs")("id")
cmb.setOptions Array(1,2,3,4,5),Array("1","2","3","4","5")
cmb.selected = session("rs")("priority")
Response.Write("优先级")
cmb.writehtml "",null
%>
<input name="set_priority" type="button" id="priority" onClick="window.open('../admin/set_trade_info_priority.asp?id=<%= session("rs")("id") %>&priority='+sel_priority<%= Session("rs")("id") %>.value,'_self')" value="设置">
<input name="delete" type="button" id="delelte" onClick="if(window.confirm('确定要删除该信息？')) window.open('../admin/del_trade_info.asp?id=<%= session("rs")("id") %>','_self');" value="删除">
<% ElseIf session("mode") = "member" and Session("member_id") = Session("rs")("publisher") Then %>
<input name="edit" type="button" onClick="window.open('../trade/edit_trade_info.asp?id=<%= session("rs")("id") %>','_self')" value="修 改">
<input name="delete" type="button" onClick="if(window.confirm('确定要删除该信息？')) window.open('../admin/del_trade_info.asp?id=<%= session("rs")("id") %>','_self');" value="删 除">
<% End If %></td>
</tr>
<tr id="reply_info<% = session("rs")("id") %>" style="display:none;">
<td width="10" align="center"> </td>
<td colspan="3"><table width="100%" 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,replier from v_reply_info where info_id = " & session("rs")("id"),session("conn")
if rstmp.eof then
%>
<tr>
<td width="38">[<font color="#0000FF">回复</font>]</td>
<td> 暂无回复...</td>
<td> </td>
<td></td>
</tr>
<%
else
while not rstmp.eof
%>
<tr>
<td width="38">[<font color="#0000FF">回复</font>]</td>
<td> <a href="../trade/show_reply_info.asp?id=<% = rstmp("id") %>" target="_blank"><% = CutString(rstmp("title"),18) %></a></td>
<td width="62"><%= CutDate(rstmp("time")) %></td>
<td><% If session("mode") = "admin" Then %>
<input name="delete" type="button" id="delelte" onClick="if(window.confirm('确定要删除该信息？')) window.open('../admin/del_reply_info.asp?id=<%= rstmp("id") %>','_self');" value="删 除">
<% ElseIf session("mode") = "member" and Session("member_id") = rstmp("replier") Then %>
<input name="edit" type="button" onClick="window.open('../trade/edit_reply_info.asp?id=<%= rstmp("id") %>','_self')" value="修 改">
<input name="delete" type="button" onClick="if(window.confirm('确定要删除该信息？')) window.open('../admin/del_reply_info.asp?id=<%= rstmp("id") %>','_self');" value="删 除">
<% End If %></td>
</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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -