infomanage.asp
来自「采用ASP。NET做的网上游戏交易平台」· ASP 代码 · 共 128 行
ASP
128 行
<!--#include file="dbconn.asp"-->
<!--#include file="../const.asp"-->
<html>
<%
Response.Expires = 0
Response.ExpiresAbsolute=now()-1
if session("admin_username")="" then
Response.Write "<script language=javascript>" &vbCrLf&_
"alert('请确认您已经登录本系统或者您已经超时！！！');" &vbCrLf&_
"top.window.location='login.asp';"&vbCrLf&_
"</script>"
end if
const recordsize=5
picArr=array("未提供图片","提供图片")
typeArr1=array("出售","求购")
dim mycurpage,rs,sql,pagemsg,totalpage,recordlen,tblname,myareakey
'/////////////////////////////////////////////////////////////////////////////
if request.querystring("curpage")="" then
mycurpage=1
else
mycurpage=cint(request.querystring("curpage"))
end if
'/////////////////////////////////////////////////////////////////////////////
set rs=server.createobject("adodb.recordset")
sql="select * from ziliao order by pubDate desc"
rs.open sql,conn,3,1
recordlen=rs.recordcount
if recordlen=0 then
pagemsg="对不起，没有找到任何交易消息..."
else
if recordlen mod recordsize=0 then
totalpage=recordlen/recordsize
else
totalpage=fix(recordlen/recordsize)+1
end if
'/////////////////////////////////////////////////////////////////////////////
pagemsg="总共 <font color='#ff0000'>"&recordlen&"</font> 条交易信息 每页 <font color='#ff0000'>"&recordsize&" </font>条 当前: "&mycurpage&" / "&totalpage&" 页"
if mycurpage=1 then
pagemsg=pagemsg&" [首页] "
else
pagemsg=pagemsg&" <a href='?curpage=1'>[首页] </a> "
end if
if mycurpage=1 then
pagemsg=pagemsg&" [上页] "
else
pagemsg=pagemsg&" <a href='?curpage="&(mycurpage-1)&"'>[上页]</a> "
end if
if mycurpage=totalpage then
pagemsg=pagemsg&" [下页] "
else
pagemsg=pagemsg&" <a href='?curpage="&(mycurpage+1)&"'>[下页]</a> "
end if
if mycurpage=totalpage then
pagemsg=pagemsg&" [尾页]"
else
pagemsg=pagemsg&" <a href='?curpage="&totalpage&"'>[尾页]</a>"
end if
end if
%>
<head>
<link href="../wgcs.css" rel=stylesheet>
<title>交易信息</title>
<script language='javascript'>
function openMoneyWin(myid,flag){
var newWin=window.open("../seeInfo.asp?id="+myid+"&flagid="+flag,"8000WG","width=770,height=350,top=30,left=100");
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#dddddd">
<tr bgcolor="#FFFFFF">
<td colspan="5" align="center" height="25"> 所 有 交 易 消 息 列 表 </td>
</tr>
<tr bgcolor="#eeeeee" align="center" height="40">
<td><strong>交易主题</strong></td>
<td><strong>发布日期</strong></td>
<td><strong>游戏、区服</strong></td>
<td><strong>交易类型<图片></strong></td>
<td><strong>操 作</strong></td>
</tr>
<%
if recordlen=0 then
response.write "<tr bgcolor='#FFFFFF'><td colspan=5 height=200><center><br><br>"&pagemsg&"</center></td></tr>"
response.end
end if
rs.move((mycurpage-1)*recordsize)
for j=1 to recordsize
tmpid=rs("id")
mygamename=getGameName(rs("gameName"))
mygamename=right(mygamename,len(mygamename)-5)
%>
<tr bgcolor="#FFFFFF" align="center" height="22">
<td> <%response.write "<a href='#' title='点此查看' onclick='openMoneyWin("&tmpid&",1000)';>"&rs("tradeTitle")&"</a>"%> </td>
<td> <%=rs("pubDate")%> </td>
<td> <font color="#800000"><%=mygamename&"("&rs("gameService")&")"%></font>
</td>
<td> <%=typeArr1(rs("tradeType"))&"<"&picArr(rs("isPicture"))&">"%> </td>
<td>
<%
response.write "<a href='action.asp?actionstr=delete&tblname=ziliao&fieldid=ID&value="&tmpid&"'><font size=2 color='#800000'>删除此交易</font></a>"
%>
</td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
rs.close
set rs=nothing
%>
<tr bgcolor="#FFFFFF">
<td colspan="5" align="right">
<%
if recordlen>0 then
response.write pagemsg
else
response.write "<center><br><br><br><br>*** 对不起，没有找到任何消息！！！<center>"
response.end
end if
%>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?