📄 panel.asp
字号:
<%
if session("user")="" then
response.write "<script LANGUAGE='javascript'>alert('对不起，登陆超时！');</script>"
response.redirect "index.asp"
end if
%>
<!-- #include file="conn.asp" -->
<!-- #include file="function.asp" -->
<html>
<head>
<link href=css.css rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>中国人民大学二手交易网-用户面板-您发布的供求信息</title></head>
<body>
<div align="center">
<!-- #include file="head.asp" -->
<!-- #include file="menu.asp" -->
<%
action=request.QueryString("action")
info_id=request.QueryString("info_id")
if action="del" then
rs.open "select * from info where info_id="&info_id&" and info_user='"&session("user")&"'",conn,1,1
if not rs.eof then
file=rs("info_pic")
FiLePaTh=Server.MapPath(".")&"\"&file
deletefiles(FiLePaTh)
sql="delete from info where info_id="&info_id&""
conn.execute(sql)
end if
rs.close
elseif action="cancel" then
set rs=server.createobject("adodb.recordset")
rs.open "select * from info where info_id="&info_id&" and info_user='"&session("user")&"'",conn,1,1
if not rs.eof then
sql="update info set info_status='已取消' where info_id="&info_id&""
conn.execute(sql)
end if
rs.close
elseif action="check" then
rs.open "select * from info where info_id="&info_id&" and info_user='"&session("user")&"'",conn,1,1
if not rs.eof then
sql="update info set info_status='已成交' where info_id="&info_id&""
conn.execute(sql)
sql2="update config set check_count=check_count+1"
conn.execute(sql2)
end if
rs.close
end if
%>
<%
uname=session("user")
sql="select * from info where info_user='"&uname&"' order by info_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table width="760" border="0" cellpadding="0" cellspacing="0" >
<!--DWLayoutTable-->
<tr>
<td width="48" height="21"> </td>
<td width="111"> </td>
<td width="53"> </td>
<td width="509"> </td>
<td width="39"> </td>
</tr>
<tr>
<td height="201"> </td>
<td rowspan="2" valign="top"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#00FFFF">
<!--DWLayoutTable-->
<tr>
<td width="107" height="27" align="center" valign="middle"><strong>用户面板</strong></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><strong>我发布的信息</strong></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><a href="p_unread.asp">未读小纸条</a></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><a href="p_recieve.asp">收到的小纸条</a></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><a href="p_write.asp">写小纸条</a></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><a href="putout.asp">发布信息</a></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><a href="p_pw.asp">修改密码</a></td>
</tr>
<tr>
<td height="24" align="center" valign="middle" bgcolor="#FFFFFF"><a href="quit.asp">退出登陆</a></td>
</tr>
<tr>
<td height="51" valign="top" bgcolor="#FFFFFF"><!--DWLayoutEmptyCell--> </td>
</tr>
</table></td>
<td> </td>
<td valign="top"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#66CCFF">
<!--DWLayoutTable-->
<tr>
<td height="24" colspan="4" valign="middle" bgcolor="#00FFFF"> <div align="center"><strong>您发布的供求信息</strong></div></td>
</tr>
<tr>
<td height="23" colspan="4" valign="top" bgcolor="#FFFFFF">
<%if rs.eof then response.Write("您暂且还没有发布过供求信息！")%>
</td>
</tr>
<tr>
<td width="267" height="20" align="center" valign="middle" bgcolor="#FFFFFF"><strong>标题(点击察看详细)</strong></td>
<td width="86" align="center" valign="middle" bgcolor="#FFFFFF"><strong>剩余有效天数</strong></td>
<td width="78" align="center" valign="middle" bgcolor="#FFFFFF"><strong>状态</strong></td>
<td width="79" align="center" valign="middle" bgcolor="#FFFFFF"><strong>操作</strong></td>
</tr>
<%
do while not rs.eof
%>
<tr>
<td height="20" valign="top" bgcolor="#FFFFFF">[<font color="#FF0000"><%=rs("info_kind")%></font>]<a href="changeinfo.asp?id=<%=rs("info_id")%>"><%=rs("info_title")%></a>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF">
<%if rs("info_status")<>"有效" then
response.Write("-")
else
response.write rs("info_expiredays")-datediff("d",rs("info_date"),date())
end if%>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"> <%=rs("info_status")%>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF">
<%if rs("info_status")="有效" then%>
<a href="panel.asp?action=cancel&info_id=<%=rs("info_id")%>">取消</a>|<a href="panel.asp?action=check&info_id=<%=rs("info_id")%>">已成交</a>
<%else%>
<a href="panel.asp?action=del&info_id=<%=rs("info_id")%>">删除</a>
<%end if%>
</td>
</tr>
<%rs.movenext
loop
rs.close
%>
<tr>
<td height="28" colspan="4" valign="top" bgcolor="#FFFFFF"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="46" colspan="4" valign="top" bgcolor="#00FFFF"><p>说明：<br>
1.您可以把“有效”状态信息修改状态为“已取消”或“已成交” <br>
2.请您及时把您的非有效信息删除，以减轻系统负担，谢谢合作！<br>
3.非“有效”状态的信息一定周期内会被系统删除<br>
4.若“剩余有效天数”值为负，在下一次系统更新时状态会被修改为“已过期”<br>
</p></td>
</tr>
</table></td>
<td> </td>
</tr>
<tr>
<td height="27"> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="65"> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<!-- #include file="foot.asp" -->
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -