📄 reginfo.asp

📁 文学网采用飞翔网的内核和界面作了较大程度的修改和美化主要功能有： 1、界面美化 2、增加网文周榜和推荐作品 3、增加每个栏目图片和栏目的导读 4、增加推荐作品和会员文集 5、增加会员个人管理中心 6

💻 ASP

字号:

<!--#include file="const.asp"-->
<!--#include file="articleconn.asp"-->
<html>
<%username=request.querystring("username")
page=request.querystring("page")
Set rs = Server.CreateObject("ADODB.Recordset")
username=session("UserName")
passwd=session("Passwd")
sql="select * from admin where username='"&UserName&"'and passwd='"&Passwd&"'"
rs.open sql,conn,3,3
if rs.eof then
key=rs("oskey")
response.redirect "login.asp"
response.end
end if
%> 
<head>
<title>您的信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
a:link       { text-decoration: underline; color: #000000; font-family: 宋体 }
a:visited    { text-decoration: underline; color: #000000; font-family: 宋体 }
a:hover      { text-decoration: underline; color: #cc0000 }
body {font-family: "宋体"; font-size: 9pt;line-height: 12pt;}
table {font-family: "宋体"; font-size: 9pt;line-height: 12pt;}
-->
</style>
</head>

<body bgcolor="#C0C0C0" text="#000000">
<TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=0  width="98%" align=center border=1 bordercolor="#454545">
              <TBODY>
              <TR>
                <TD colSpan=2 height=25><FONT color=#ff0000>
                  <%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from admin where username='"&session("username")&"'"
   rs.open sql,conn,1,1
%>
                  <STRONG><IMG height=11 
                  src="images/edit.gif" width=11 
                  border=0></STRONG><STRONG><%=username%> </STRONG></FONT><STRONG>的基本信息</STRONG></TD>
              </TR>
              <TR>
                
    <TD width="56%" height=106>□ <STRONG>笔 　名</STRONG>：<%=username%> <BR> 
                  □ 电子邮件：<a href="mailto:<%=RS("email")%>"><%=rs("email")%></a><BR> 
                  □ 原创封号：<%                                              
if rs("amount")>= 0  and rs("amount")<10   then response.write("文学青年")                                             
if rs("amount")>=10  and rs("amount")<20   then response.write("初级写手")                                             
if rs("amount")>=20  and rs("amount")<40  then response.write("文学才子")                                             
if rs("amount")>=40 and rs("amount")<80  then response.write("职业作家")                                             
if rs("amount")>=80 and rs("amount")<160 then response.write("文学家")                                             
if rs("amount")>=160 then response.write("文学大师")                                             
%><BR>
                  □ 注册日期：<%=rs("date")%><BR> 
                  □ 发表文章：<%=rs("amount")%><BR> 
                </TD>
                <TD vAlign=top width="44%" height=106> 
                  
      <p>作者签名： <br>
        <%=rs("infor")%>
                  </p>
                  </TD>
              </TR>

			  <%
			  rs.close
			  set rs=nothing
			  conn.close
			  set conn=nothing%></TBODY></TABLE>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -