📄 admin_member.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/config.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
<title>会员管理</title>
</head>
<body>
<%
'dim id
'response.end()
with session("rs")
.Open "member",session("conn"),adOpenDynamic,adLockOptimistic,adCmdTableDirect
if Request("action") = "insert" then
.find "login_name = " & trim(Request("login_name"))
if not .eof then
%>
<script language="JavaScript" type="text/JavaScript">
window.alert("This login_name already exits,please try another login_name!");
history.back();
</script>
<%
Response.End()
end if
.AddNew
.Fields("login_name") = trim(Request("login_name"))
.Fields("password") = trim(Request("password"))
.Fields("name") = trim(Request("name"))
.Fields("phone") = trim(Request("phone"))
.Fields("fax") = trim(Request("fax"))
.Fields("email") = trim(Request("email"))
.Fields("region") = trim(Request("region"))
.Update
session("login_name") = .Fields("login_name")
session("member_id") = .Fields("id")
session("mode") = "member"
%>
<script language="JavaScript" type="text/JavaScript">
if(window.confirm("注册成功，是否继续注册企业信息？"))
window.open("../enterprise/insert_enter.asp","_self");
else
window.open("../index/index.asp","_self");
</script>
<%
else if Request("action") = "edit" then
.find "id = " & Request("id")
.Fields("name") = trim(Request("name"))
.Fields("phone") = trim(Request("phone"))
.Fields("fax") = trim(Request("fax"))
.Fields("email") = trim(Request("email"))
.Fields("region") = trim(Request("region"))
.Update
end if
end if
%>
<script language="JavaScript" type="text/JavaScript">
window.alert("Edit successful!");
window.open("../index/index.asp","_self");
</script>
<%
.close
end with
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -