📄 shrk_qtzl_xg_1.asp

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

💻 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 talk SET "
		sql_up=sql_up & " worker='"&request("worker")&"' " & ","
		sql_up=sql_up & " guester='"&request("guester")&"' " & ","
		sql_up=sql_up & " firsttime='"&request("firsttime")&"' " & ","
		sql_up=sql_up & " nexttime='"&request("nexttime")&"' " & ","
		sql_up=sql_up & " firstaddress='"&request("firstaddress")&"' " & ","
		sql_up=sql_up & " nextaddress='"&request("nextaddress")&"' " & ","
		sql_up=sql_up & " qiatan='"&request("qiatan")&"' " & ","
		sql_up=sql_up & " program='"&request("program")&"' " & ","
		sql_up=sql_up & "  demo='"&request("demo")&"' "
		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 + -