📄 showsysmeeting.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")
sql="select * from adminuser where username='"& username &"' and id=" & id &""
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
%>
<html>

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


<body style="background-color: #D6DFF7">
<div align="center">
  <center>
<table width="98%" border="1" cellpadding="5" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
  <tr> 
    <td background="images/admin/admin_bg_1.gif"><div align="center">以 下 是 您 未 读 的 业 务 确 认 信 息</div></td>
  </tr>
  <tr> 
    <td bordercolor="#FFFFFF"> 
	<%
	myself=request.servervariables("path_info")
	Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from sys_meeting where sysent='未开通' order by id desc"
rs.open sql,conn,3,3
if rs.eof then
response.write"<div align=center class=f1>您暂时没有未读信息<br><br>[<a href=showallmeeting.asp>查看所有已读信息</a>]</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><img src="images/angel.jpg" width="16" height="16">&nbsp;信息类型： 
            <% if rs("typ")="host" then %> <span class=f1>虚拟主机开设</span> <% end if %> <% if rs("typ")="mail" then %> <span class=f1>企业邮局开设</span> <% end if %> <% if rs("typ")="domainname" then %> <span class=f1>域名解析开设</span> <% end if %> </td>
          <td width="30%">发送日期：<span class="f1"><%=rs("date")%></span></td>
        </tr>
        <tr> 
          <td><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td class="f2">订单
				<%
				if rs("typ")="host" then 
				response.write"<span class=f1>20027"& rs("apgentid") &"</span>"
				end if
				if rs("typ")="mail" then 
				response.write"<span class=f1>20028"& rs("apgentid") &"</span>"
				end if
				if rs("typ")="domainname" then 
				response.write"<span class=f1>20029"& rs("apgentid") &"</span>"
				end if
				%>
                  业务已确认，请开通。</td>
              </tr>
            </table></td>
          <td>
<div align="center">
  <center>
<table width="100" border="1" cellpadding="0" cellspacing="0" bordercolor="#6687BA" bgcolor="#f1f1f1" style="border-collapse: collapse">
              <tr>
                <td bgcolor="#EAF1FB">
<div align="center"><a href="showsysmeeting.asp?cmd=open&id=<%=rs("apgentid")%>&typ=<%=rs("typ")%>" class="f1">确认开通</a></div></td>
              </tr>
            </table></center>
</div>
          </td>
        </tr>
      </table>
      <br> 
	  <% 
	  i=i+1
		  if i>8 then exit do
	  rs.movenext
		      loop
			  %>
      <div align="center">
        <center>
      <table width="100%" border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
        <tr> 
          <form action=<%=myself%> method=get>
            <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> 
                <input type=text name=page22 size=3 class="border">
                <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;[<a href="showallmeeting.asp" class="f1">查看所有已读信息</a>]</div></td>
          </form>
        </tr>
      </table>
	    </center>
    </div>
	  <% end if %>
	  </td>
  </tr>
</table>
  </center>
</div>
<br>
</body>
</html>
<% if request.QueryString("cmd")="open" then
id=request.QueryString("id")
typ=request.QueryString("typ")
sysent="已开通"
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from sys_meeting where typ='"& typ &"' and apgentid=" & id &""
rs.open sql,conn,3,3
rs("sysent")=sysent
rs.update
if typ="mail" then
 Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from mailshopping where id=" & id &""
rs.open sql,conn,3,3
rs("mailaction")=sysent
rs("date")=date()
rs.update
end if
if typ="host" then
 Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from hostshopping where id=" & id &""
rs.open sql,conn,3,3
rs("hostopen")=sysent
rs("date")=date()
rs.update
end if
if typ="domainname" then
 Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from domainnameshopping where id=" & id &""
rs.open sql,conn,3,3
rs("domainnameopen")=sysent
rs("date")=date()
rs.update
end if
response.Redirect("showsysmeeting.asp")
end if
%><% 
end if
rs.close
set rs=nothing
set conn=nothing
%>
⌨️ 快捷键说明

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