📄 shrk_jyzl_xg_1.asp

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

💻 ASP

字号:

		<%response.redirect("shrk_ywyzl_xg_2.asp")%>

		<%
		id=request.querystring("id")
		id1=clng(id)
		'与数据库*.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 jiaoyi SET "
		sql_up=sql_up & " worker='"&request("worker")&"' " & ","
		sql_up=sql_up & " guester='"&request("guester")&"' " & ","
		sql_up=sql_up & " program='"&request("program")&"' " & ","
		sql_up=sql_up & " number='"&request("number")&"' " & ","
		sql_up=sql_up & " money='"&request("money")&"' " & ","
		sql_up=sql_up & " timer='"&request("timer")&"' " & ","
		sql_up=sql_up & " hetongbh='"&request("hetongbh")&"' " & ","
		sql_up=sql_up & " hetongmc='"&request("hetongmc")&"' " & ","
		
		sql_up=sql_up & " hetongje='"&request("hetongje")&"' " & ","
		sql_up=sql_up & "  hetongnr='"&request("hetongnr")&"' "
		sql_up=sql_up & " where worker='"&request("worker")&"' "
		
		'发送sql指令，加入信息
		conn.Execute sql_up
set conn=nothing
%>
<%response.redirect("shrk_ywyzl_xg_2.asp")%>


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

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -