📄 xtsz_mmxg_1.asp

📁 asp+Access开发的客户资源管理系统,用户名:admin,密码:

💻 ASP

字号:

<%
	 ' 将数据中的单引号改成两个单引号，并且在前后加上单引号
	Function SqlStr( data )
	   SqlStr = "'" & Replace( data, "'", "''" ) & "'"
	End Function
	'与数据库*.mdb建立连接
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=webcool_2000;dbq=" & Server.MapPath("../database/customer.mdb")
	'发送一条修改指令
	sql_up="UPDATE quanxian SET "
	'发送客户资料到数据库
	sql_up=sql_up & " password='"&request("pass1")&"' "
	sql_up=sql_up & " where user='"&session("username")&"' "
	
	
	'发送sql指令，加入信息
	conn.Execute sql_up
	
	'加入日志操作=====================================
	user_ip=Request.ServerVariables("REMOTE_HOST")
		sql = "Insert Into day (ip,user,thing) Values( "
		sql = sql & SqlStr(user_ip) & ", "
		sql = sql & SqlStr(session("username")) & ", "
		sql = sql & SqlStr("密码修改") & ")"
		'发送sql指令，加入信息
		conn.Execute sql
	'===================================================


	
	'转移到密码修改成功页面!
	Response.Redirect ("xtsz_mmxg_2.asp")

	'=关闭数据库============================
	rs.close'关闭记录
	set rs=nothing
	conn.close'关闭数据库
	set conn=nothing

%>
<html><script language="JavaScript">                                                                  </script></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -