📄 savenreguser.htm
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>保存简单注册用户后台程序</title>
<style type="text/css">
<!--
a {text-decoration:none}
.style2 {font-size: 14px}
.style3 {color: #0033CC}
-->
</style>
</head>
<body>
<p class="style2">
Name: 保存简单注册用户后台程序<br/>Author: shemily
<br/>Create: 2007-04-29
<br/>Version: 1.0
<br/>Language: VBscript
<br/>
</p>
<code>
<!--#include file="Inc/conn.inc"--><br>
<!--#include file="Inc/checkUserName.inc"--><br>
<!--#include file="Inc/saveNRegUser.inc"--><br>
<%<br>
userName = request("userName")<br>
userPass = request("userPass1")<br>
userMail = request("userMail")
<p>if checkUserName(userName, "shop_user", "userName") = "Err_102" then 'if the username is ok<br>
Call saveNRegUser(userName, userPass, userMail) 'save user <br>
%><br>
<script type="text/javascript"><br>
<!--<br>
alert("恭喜!\n您已成功注册!");<br>
location.href="u_reg.htm";<br>
//--><br>
</script> <br>
<%<br>
else<br>
if saveNRegUser(userName, userPass, userMail) = "Err_121" then<br>
%><br>
<script type="text/javascript"><br>
<!--<br>
alert("对不起,\n此用户名已存在!");<br>
history.back(0);<br>
//--><br>
</script> <br>
<%<br>
end if<br>
end if<br>
%></p>
</code>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -