kq_xgkl_save.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 66 行

<%@ Language=VBScript.Encode %>
<%Response.Expires=0%>
<!-- #INCLUDE FILE="..\Share\ConnectDB.asp" -->
<!-- #INCLUDE FILE="..\Share\PubFunction.asp" -->
<%
	on error resume next
  Dim rs,BM,KL,YKL,sygbh
	bm=trim(Request.Form("txtNC"))
	kl=trim(Request.Form("txtXKL1"))
	YKL=trim(Request.Form("txtYKL"))
	sygbh=session("LoginID")
	set rs=server.CreateObject("ADODB.recordset")
	rs.open "Select * from tbioaUser where BM='" & BM & "' and Ryzt<>'3' and ygbh<>" & sygbh,conn,1,1
	if not rs.eof then
	  Response.Write "<SCRIPT LANGUAGE=VBscript>" & vbCrLf
		Response.Write "<!--" & vbCrLf
			Response.Write "msgbox ""你选用的昵称和别人重复了，请重新选择"",vbExclamation,""提示""" & vbCrLf
			Response.Write "history.back" & vbCrLf
		Response.Write "//-->" & vbCrLf
		Response.Write "</SCRIPT>" & vbCrLf
		rs.close
		conn.close
		set rs=nothing
		set conn=nothing
		Response.End
  end if
  rs.Close 
  
  rs.open "Select * from tbioaUser where ID=" & sygbh,conn,1,1
	if not rs.eof then
		if Decrypt(rs("KL"),false)<>YKL THEN
			Response.Write "<SCRIPT LANGUAGE=VBscript>" & vbCrLf
			Response.Write "<!--" & vbCrLf
				Response.Write "msgbox ""您输入的原口令有误！"",vbExclamation,""提示""" & vbCrLf
				Response.Write "history.back" & vbCrLf
			Response.Write "//-->" & vbCrLf
			Response.Write "</SCRIPT>" & vbCrLf
			rs.close
			conn.close
			set rs=nothing
			set conn=nothing
			Response.End
		end if
  end if
  rs.Close 
  
  conn.Execute "Update tbioaUser " _
			& "Set BM='" & BM & "'," _
			& "KL='" & Encrypt(KL,false) & "' " _
			& "where ID=" & sygbh
	Session("uNC")=BM
	Session("uKL")=KL
	Response.Write "<SCRIPT LANGUAGE=VBscript>" & vbCrLf
	'Response.Write "<!--" & vbCrLf
		Response.Write "msgbox ""口令修改成功"",vbInformation,""提示""" & vbCrLf
		Response.Write "history.back" & vbCrLf
	'Response.Write "//-->" & vbCrLf
	Response.Write "</SCRIPT>" & vbCrLf	
	conn.close
	set rs=nothing
	set conn=nothing
	if Err<>0 then
		Response.Write Err.description 
	end if
%>