📄 member_meeting.asp

📁 直接解压即可都是asp源码超经典的啊
💻 ASP
字号:


<!--#include file="conn.asp"-->
<% 
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("adminloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
if session("usertyp")="企业" then
sql="select * from userentreg where login_name='"& username &"' and id=" & id &""
end if
if session("usertyp")="个人" then
sql="select * from userpersreg where login_name='"& username &"' and id=" & id &""
end if
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
myself=request.servervariables("path_info")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from reask where user_name='"& username &"' and usertyp='"&session("usertyp")&"' order by id desc"
rs.open sql,conn,3,3

%>
<html>

<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">

<body>
<table width="100%" align="center" cellpadding="5" cellspacing="0">
    <tr> 
      <td><div align="center">会员<%=session("username")%>的收件箱：</div></td>
    </tr>
    <tr> 
      <td height="473" valign="top" bordercolor="#FFFFFF"><table width="90%" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#f1f1f1">
          <tr>
          <td bordercolor="#FFFFFF">
              <% if rs.eof then
			response.write"<div align=center class=f1>您 暂 时 没 有 收 到 新 的 消 息</div>"
			else

rs.Pagesize=10
page=clng(request("page"))

if page<1 or page=empty then page=1
if page>rs.pagecount then page=rs.pagecount
rs.Absolutepage=page 
			do while not rs.eof
			%>
              <table width="100%" border="0" cellspacing="0" cellpadding="5">
              <tr> 
                <td><div>信息标题：&nbsp;<span class="f2"><a href="show_meeting.asp?id=<%=rs("id")%>"><%=rs("reasktop")%></a></span></div></td>
                <td width="15%"><div align="center">
				<% if rs("asktyp")="未读" then %>
				[<a href="member_meeting.asp?cmd=read&id=<%=rs("id")%>" class="f1">标记已读</a>]
				<% end if%>
				  <%if rs("asktyp")="已读" then %>
				已读
				<% end if %>
				</div></td>
                <td width="15%"><div align="center">[<a href="member_meeting.asp?cmd=del&id=<%=rs("id")%>" class="f1">删除此条</a>]</div></td>
              </tr>
              <tr> 
                <td height="1" colspan="3" background="images/hx.gif"></td>
              </tr>
            </table>
              <%   i=i+1
	  if i>10 then exit do
			rs.movenext
			       loop
				   end if
				   %>
              <br>
              <br>
              <table width="100%" border="0" align="center" cellpadding="5" cellspacing="0">
                <tr> 
                  <td> 
                    <%
if page<>1 then %>
                    <div align="center"><a href=<%=myself%>?page=1>第一页</a> <a href=<%=myself%>?page=<%=(page-1)%>>上一页</a> 
                      <%
end if
if page<>rs.pagecount then
%>
                      <a href=<%=myself%>?page=<%=(page+1)%>>下一页</a> <a href=<%=myself%>?page=<%=rs.pagecount%>>最后一页</a> 
                      <% end if %>
                      <font style="font-size:9pt">&nbsp;</font><font style="font-size:9pt">页次:</font><font color=red style="font-size:9pt"><%=page%>/<%=rs.pagecount%></font> 
                      共有记录<font color=red style="font-size:9pt"><%=rs.recordcount %></font>条&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; 
                    </div></td>
                </tr>
              </table>
			</td>
          </tr>
        </table>
    </td>
    </tr>
  </table>
<% if request.querystring("cmd")="del" then
id=request.querystring("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from reask where id="&id &""
rs.open sql,conn,3,3
rs.delete
response.Redirect("member_meeting.asp")
end if
if request.querystring("cmd")="read" then
asktyp="已读"
id=request.querystring("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from reask where id="&id &""
rs.open sql,conn,3,3
rs("asktyp")=asktyp
rs.update
response.Redirect("member_meeting.asp")
end if
%>
</body>
</html>
<% 
end if
rs.close
set rs=nothing
set conn=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -