📄 user_top.asp
字号:
<!--#include file="Conn.asp"-->
<%
If IsClose = true Then
Response.Write CloseInfo
Response.End
End If
If Session("UserName") = "" Then
Response.Write "<script>window.open('index1.asp','_parent');</script>"
Response.End
End If
%>
<html>
<head>
<link href="images/text.css" rel="stylesheet" type="text/css">
<STYLE type="text/css">
<!--
a:link {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited {text-decoration: none; color: #000000 }
A:hover {COLOR: 000000; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: none}
body {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;table-layout:fixed;word-break:break-all}
p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select {FONT-SIZE: 9PT;}
option {FONT-SIZE: 9pt;}
textarea {FONT-SIZE: 9pt;}
-->
</STYLE>
<base target="_self">
</head>
<body >
<div align="center">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%" id="table2">
<tr>
<td><div align="center">
<table border="0" cellpadding="4" cellspacing="0" width="100%">
<tr>
<td background="images/bj5.jpg"><table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="33%" style="color: #FFFFFF; font-family: AdobeSm; color: #ffffff">欢迎使用<%=Name%></td>
<td width="34%" align="center"> </td>
<td width="33%" align="right" style="color: #FFFFFF; font-family: AdobeSm; color: #ffffff">程序制作：今宵 QQ:929804 VIP版本1000元</td>
</tr>
</table></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td background="images/bj4.jpg" align=center><table width="981" height=100% border="0" align="center" cellpadding="3" cellspacing="3" id="table3">
<tr>
<td width="609" align="left">
欢迎用户 <span class="p3"><%=Session("UserName")%></span>
<%
Set Rs = Conn.Execute("Select * From [User] Where UserName='" & Session("UserName") & "'")
If Not (Rs.Eof Or Rs.Bof) Then
Id = Rs("Id")
Classs = Rs("Class")
StartTime = Rs("StartTime")
EndTime = Rs("EndTime")
End If
Set Rs = Nothing
%>
登陆本系统 所租区域:<span class="p3"><%=Classs%></span> 开通日期:<span class="p3"><%=StartTime%></span> 到期日期:<span class="p3"><%=EndTime%></span></td>
<td align="center" width="79">
<img src="images/user.gif" width="21" height="15"><a target="main" href="user_main.asp">
管理首页</a></td>
<td align="center" width="79">
<img src="images/user.gif" width="21" height="15"><a target="main" href="user_pass.asp">
密码修改</a></td>
<td align="center" width="79">
<img src="images/user.gif" width="21" height="15"><a target="main" href="user_data.asp?id=<%=Id%>">
信息管理</a></td>
<td align="center" width="87">
<img src="images/user.gif" width="21" height="15"><a target="_top" href="user_exit.asp">
安全退出</a></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -