📄 khzl_zltj_ok_1_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 = "Insert Into company (index,easyname,comtel,comfax,comman,address,post,road,http,fanwei,email,state,xiaoshou,allname,bank,bankid,tax,site,demo) Values( "
		               sql = sql & SqlStr(request("index")) & ", "
		               sql = sql & SqlStr(request("easyname")) & ", "
					   sql = sql & SqlStr(request("comtel")) & ", "
		               sql = sql & SqlStr(request("comfax")) & ", "
		               sql = sql & SqlStr(request("comman")) & ", "
		               sql = sql & SqlStr(request("address")) & ", "
		               sql = sql & SqlStr(request("post")) & ", "
		               sql = sql & SqlStr(request("road")) & ", "

		               sql = sql & SqlStr(request("http")) & ", "
		               sql = sql & SqlStr(request("fanwei")) & ", "
					   sql = sql & SqlStr(request("email")) & ", "
		               sql = sql & SqlStr(request("state")) & ", "
		               sql = sql & SqlStr(request("xiaoshou")) & ", "
		               sql = sql & SqlStr(request("allname")) & ", "
		               sql = sql & SqlStr(request("bank")) & ", "
		               sql = sql & SqlStr(request("bankid")) & ", "
		               sql = sql & SqlStr(request("tax")) & ", "
		               sql = sql & SqlStr(request("site")) & ", "
		               sql = sql & SqlStr(request("demo")) & ")"
					   '发送sql指令，加入信息
	                	conn.Execute sql


'=关闭数据库============================
conn.close'关闭数据库
set conn=nothing
response.redirect "khzl_zltj_ok_2.asp"
%>

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

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -