📄 edituserok.asp

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

💻 ASP

字号:

<!--#include file="articleconn.asp"-->

<!--#include file="const.asp"-->
 <%
IF not(Session("KEY")="super") THEN
	response.redirect "error.asp?id=065"
	response.end
END IF
%>
<% Set rs= Server.CreateObject("ADODB.Recordset") 
if request.form("passwd")="" then 
response.write("<p>出错了！密码不能为空！！<p><a href=javascript:history.back()>按此返回>></a>")
response.end
end if
if request.form("email")="" then 
response.write("<p>出错了！电子邮件不能为空！<p><a href=javascript:history.back()>按此返回>></a>")
response.end
end if
if request.form("ask")="" then 
response.write("<p>出错了！密码找回提示问题不能为空！<p><a href=javascript:history.back()>按此返回>></a>")
response.end
end if
if request.form("answer")="" then 
response.write("<p>出错了！密码提示问题答案不能为空！<p><a href=javascript:history.back()>按此返回>></a>")
response.end
end if
if request.form("infor")="" then 
response.write("<p>出错了！个人简介不能为空！<p><a href=javascript:history.back()>按此返回>></a>")
response.end
end if
%>

<%
passwd=request.form("passwd")
ask=request.form("ask")
answer=request.form("answer")
addr=request.form("addr")
oicq=request.form("oicq")
email=request.form("email")
infor=request.form("infor")
rs.open "select * from admin where username='"&request.form("username")&"'",conn,3,3
rs("oskey")=request.form("select")
rs("passwd")=request.form("passwd")
rs("ask")=request.form("ask")
rs("answer")=request.form("answer")
rs("addr")=request.form("addr")
rs("oicq")=request.form("oicq")
rs("email")=request.form("email")
rs("infor")=request.form("infor")
rs.update

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=fly_user%>--作者信息修改</title>
<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="90%" align=center border=1 bordercolor="#454545">
        <TBODY>
        <TR>
          <TD>
            <form name=pass method="post" action="edituserok.asp">
            <TABLE class=font1 cellSpacing=0 cellPadding=5 width="98%" 
            align=center border=0>
              <TBODY>
              <TR>
                <TD colSpan=2><p align="center"> <b> <font color="#FF0000">修改成功</font></b></TD></TR>
              <TR>
                  <TD width=82>用户名：</TD>
                <TD >&nbsp; <%=rs("username")%></TD> 
                </TR>
				              <TR>
                <TD>用户权限：</TD>
                <TD>&nbsp; <%=rs("oskey")%></TD></TR> 
              
              <TR>
                  <TD>密 码：</TD> 
                <TD>&nbsp; <%=rs("passwd")%></TD> 
                </TR>
              <TR>
                <TD>地 区：</TD> 
                  <TD>&nbsp;  
                    <%=rs("addr")%>
                  </TD>
                </TR>
              <TR>
                <TD>ＯＩＣＱ：</TD>
                <TD>&nbsp; <%=rs("oicq")%></TD></TR> 
              <TR>
                  <TD>E-mail：</TD>
                  <TD>&nbsp;  
                    <%=rs("email")%></TD>
                </TR>
              <TR>
                <TD>密码提示问题：</TD>
                  <TD>&nbsp;  
                    <%=rs("ask")%></TD>
                </TR>
              <TR>
                <TD>密码提示答案：</TD>
                <TD>&nbsp; <%=rs("answer")%></TD></TR> 
              
              <TR>
                
            <TD height=75 valign="top">个人签名：</TD>
                  
            <TD>&nbsp; <%=rs("infor")%> </TD> 
          </TR>
              </TBODY></TABLE></FORM></TD></TR></TBODY></TABLE>
      
              <%rst.close
set rst=nothing
conn.close
set conn=nothinh%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -