📄 time.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
字号:
<%@ codepage ="936" %><%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：service@fyasp.com                                        │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
if id=session("id") then
session("pageid")="manage"
response.write "<SCRIPT language=JavaScript>alert('对不起，你没有权限打开此页！');"
response.write"this.location.href='../login/login.asp';</SCRIPT>" 
response.end
end if
%><!--#include file="../inc/config.asp"-->
<!--#include file="../conn/dbconn1.asp" -->

<LINK href="../css/Style.css" rel=stylesheet type=text/css>
<body bgcolor="#FFFFFF" marginheight=0 marginwidth=0 leftmargin=0>
<script language="javascript">
function show_set(mylink)
{
window.open(mylink,'new','top=110,left=280,width=240,height=60,scrollbars=no')
}
</script>

<%
set rs=server.createobject("adodb.recordset")
      sql="select id,Qymc,email,user,name,flag,idate,begindate,enddate from Qyml where [user]='"&session("user")&"'"
      rs.open sql,conn,1,1
%>
<Form name="searchuser" method="POST" action="">
<TABLE border="1" cellspacing="0" width="500" cellpadding="4" bordercolorlight="#D7EBFF" bordercolordark="#D7EBFF" style="border-collapse: collapse" bordercolor="#111111" align=center>
<TBODY>
<TR height=25 bgcolor="#e8f4ff"> 
<TD align="center"><font color="#Ff6600"><b>ID号</b></TD>
<TD align="center"><font color="#Ff6600"><b>用户名</b></TD>
<TD align="center"><font color="#FF6600"><b>用户姓名</b></font></TD>
</TR>
<TR bgcolor="#ffffff"> 
<TD align="center"><font face="Arial"><b><%=rs("id")%></b></font>　</td>
<TD align="center"><a title="<%=rs("Qymc")%>" href="mailto:<%=rs("email")%>"><%=rs("user")%></a>　</td>
<TD align="center">
<p align="center"><%=rs("name")%></td>
</TR>
<TR bgcolor="#e8f4ff"> 
<TD align="center"><font color="#FF6600"><b>用户等级<%=session("Flag")%></b></font></TD>
<TD align="center"><font color="#FF6600"><b>注册时间</b></font></TD>
<TD align="center"><font color="#FF6600"><b>结束时间</b></font></TD>
</TR>
<TR bgcolor="#ffffff"> 
<TD align="center">
			<%
			Select Case rs("flag")
				case "5" '待审免费会员
				    response.write "待审免费会员"
				case "4" '正式免费会员
				   response.write "正式免费会员"
				case "3" '待审收费会员
				   response.write "待审收费会员"
				case "2" '正式未付费会员
				   response.write "正式未付费会员"
				case "1" '期满付费会员
				    response.write "期满付费会员"
				case "0" '享受付费会员
				    response.write "享受付费会员"
				case else
				    response.write "管理员定义级别有误"
				End select
			%> 
</td>
<TD align="center"><p align="center"><%=rs("idate")%></td>
<TD align="center"><p align="center"><%=rs("enddate")%></td>
</TR>
</TABLE>
</CENTER>
<%
rs.close       
set rs=nothing %>
<br>
广大免费会员注意了,请赶快升级为收费会员,不然帐号将被会在到期后不定期被清除
⌨️ 快捷键说明

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