reset_loginname.asp

=== ==ASP销售管理系统

<!--#include file="config.asp"-->
<!--#include file="inc/check_login.asp"-->
<!--#include file="inc/functions.asp"-->
<%
New_LoginName = request("New_LoginName")
Confirm_LoginName = request("Confirm_LoginName")
if not IsNot(New_LoginName,"s") then
	response.write "您输入的用户名为空，请重新输入。"
	response.end
end if
if New_LoginName <> Confirm_LoginName then
	response.write "两次输入的用户名不相同，请重新输入。"
	response.end
end if

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "select LoginName from Employee where LoginName = '" & New_LoginName & "'"
set rs = conn.execute(sql)
if rs.eof then
	sql = "update Employee set LoginName = '" & New_LoginName & "' where Employee_ID = " & Session("Employee_ID")
	'response.write sql
	conn.execute(sql)
	msg = "新用户名已经生效，下次登录请使用新的用户名!"
else
	msg = "该用户名已经被占用，请选择其他用户名"
end if
conn.close
set conn = nothing

response.write "<font color=#FF0000>" & msg & "</font><hr size=1>"
Server.Transfer "loginname.asp"
%>