admin_savemodify.asp

来自「e人畅想公用日记本 v1.0」· ASP 代码 · 共 34 行

ASP
34
字号
<!--#include file="top.asp"-->
<%if session("admin")="" then
response.redirect"index.asp"
elseif session("admin")="yes" then%>
<hr width="600" size="1" noshade>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center" class="table_pointline">
  <tr> 
    <td width="150">&nbsp;</td>
    <td width="450">
<%admin=request.form("admin")
password=request.form("password")
password1=request.form("password1")
website=request.form("website")
uniform=request.form("uniform")
guestreply=cint(request.form("guestreply"))
if password="" or password<>password1 then
response.write"密码输入错误。<a href=javascript:history.go(-1) class=text>返回</a>"
elseif admin="" then
response.write"错误的管理员姓名,<a href=javascript:history.go(-1) class=text>返回</a>"
elseif website="" or uniform="" then
response.write"请<a href=javascript:history.go(-1) class=text>返回</a>检查你输入的资料有无错误:)"
else
set upg=conn.execute("update about set admin='"&admin&"', password='"&password&"', website='"&website&"', uniform='"&uniform&"', guestreply="&guestreply&"")
set upg=nothing
response.write"修改资料成功,<a href=logout.asp class=text>退出并返回到首页</a>"
end if
%>
    </td>
  </tr>
</table>
<!--#include file="bottom.asp"-->
<%else
end if%>

⌨️ 快捷键说明

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