editinfo.asp
来自「top-cms内容管理系统」· ASP 代码 · 共 121 行
ASP
121 行
<%
'###########################################################################################
'* 程序名称: Top-CMS
'*---------------------------------------------------------------------------------------
'* 系统版本: 1.0 0215
'* 版权所有: www.Net-Develop.com
'* 程序设计: 江南行客
'* 联系方式:
'* OICQ：2503086
'* EMAIL：net-oa@sohu.com
'* 网站地址:
'* http://www.net-develop.com
'* http://www.top-cms.com
'*---------------------------------------------------------------------------------------
'* Copyright 2004 www.net-develop.com - All Rights Reserved.
'###########################################################################################
%>
<!--#include file="../common/common.asp" -->
<html>
<head>
<title>:::WWW.NET-DEVELOP.COM:::</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/style.css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Set objCMS = Server.CreateObject("TopCMS.EditInfo")
if objCMS.ChkAdminPower then
SystemI_Init
objCMS.OpenDB()
If Request.ServerVariables("REQUEST_METHOD")="POST" Then
objCMS.SaveInfo()
else
objCMS.EditInfo()
%>
<form name="form1" method="post" action="editinfo.asp">
<table width="100%" border="1" bordercolor="#999999" cellspacing="0" cellpadding="2" align="center">
<tr>
<td colspan="2" background="../Images/default_nav.gif"> <font color="#FFFFFF">用户信息</font></td>
</tr>
<tr id="a">
<td width="100" align="right" bgcolor="#EEEEEE">用户帐号:</td>
<td bgcolor="#EEEEEE"> <%= objCMS.uUser %> </td>
</tr>
<tr id="a">
<td width="100" align="right" height="25">用户密码:</td>
<td height="25">
<%
response.write "<input type=""text"" name=""uPassword"" maxlength=""50"" value=""*****"" disabled>"
response.write "<input type=""checkbox"" name=""RP"" value=""1"" onclick=""if (this.checked==true){form1.uPassword.value='';form1.uPassword.disabled=false;}else{form1.uPassword.value='*****';form1.uPassword.disabled=true;}"">修改密码"
%>
</td>
</tr>
<tr id="a">
<td width="100" align="right" height="12" bgcolor="#EEEEEE">用户姓名:</td>
<td height="12" bgcolor="#EEEEEE">
<input type="text" name="uName" maxlength="50" value="<%= objCMS.uName %>">
</td>
</tr>
<tr id="a">
<td width="100" align="right" height="12">性别:</td>
<td height="12">
<input type="radio" name="uSex" value="男"<%if objCMS.uSex<>"女" then response.write " checked"%>>
男
<input type="radio" name="uSex" value="女"<%if objCMS.uSex="女" then response.write " checked"%>>
女 </td>
</tr>
<tr id="a">
<td width="100" align="right" height="12" bgcolor="#EEEEEE">Email:</td>
<td height="12" bgcolor="#EEEEEE">
<input type="text" name="uEmail" maxlength="50" value="<%= objCMS.uEmail %>">
</td>
</tr>
<tr id="a">
<td width="100" align="right" height="12">OICQ:</td>
<td height="12">
<input type="text" name="uOicq" maxlength="50" value="<%= objCMS.uOicq %>">
</td>
</tr>
<tr id="a">
<td width="100" align="right" height="12" bgcolor="#EEEEEE">主页:</td>
<td height="12" bgcolor="#EEEEEE">
<input type="text" name="uHome" maxlength="50" value="<%= objCMS.uHome %>">
</td>
</tr>
<tr id="a">
<td width="100" align="right" height="12">电话:</td>
<td height="12">
<input type="text" name="uTel" maxlength="50" value="<%= objCMS.uTel %>">
</td>
</tr>
<tr id="a">
<td width="100" align="right" height="12" bgcolor="#EEEEEE">备注:</td>
<td height="12" bgcolor="#EEEEEE">
<textarea name="uComment" cols="40" rows="3"><%= objCMS.uComment %></textarea>
</td>
</tr>
<tr id="c2" class="hidden" colspan="2"> </tr>
<tr>
<td align="center" colspan="2" bgcolor="#CCCCCC">
<input type="submit" name="S1" value=" 提交 ">
<input type="button" name="S2" value=" 取消 " onclick="history.back();">
</td>
</tr>
</table>
</form>
<%
end if
objCMS.CloseDB
else
objCMS.OutInfo "对不起，您还没有登录，请先登录","Login"
end if
set objCMS=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?