📄 jyzl_zltj_1.asp

📁 asp+Access开发的客户资源管理系统,用户名:admin,密码:
💻 ASP
字号:
<%
	' 将数据中的单引号改成两个单引号，并且在前后加上单引号
	Function SqlStr( data )
	   SqlStr = "'" & Replace( data, "'", "''" ) & "'"
	End Function
'【加入长篇数据有回车】
function htmlencode2(str)
    dim result
    dim l
    if isNULL(str) then 
       htmlencode2=""
       exit function
    end if
    l=len(str)
    result=""
	dim i
	for i = 1 to l
	    select case mid(str,i,1)
	           case "<"
	                result=result+"&lt;"
	           case ">"
	                result=result+"&gt;"
               case chr(13)
	                result=result+"<br>"
	           case chr(34)
	                result=result+"&quot;"
	           case "&"
	                result=result+"&amp;"
               case chr(32)	           
	                'result=result+"&nbsp;"
	                if i+1<=l and i-1>0 then
	                   if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9)  then	                      
	                      result=result+"&nbsp;"
	                   else
	                      result=result+" "
	                   end if
	                else
	                   result=result+"&nbsp;"	                    
	                end if
	           case chr(9)
	                result=result+"    "
	           case else
	                result=result+mid(str,i,1)
         end select
       next 
       htmlencode2=result
   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")		            
	if request("worker")="请选择业务员" or request("guester")="请选择客户名"   then 
	response.redirect("jyzl_zltj.asp")
	else
	set rs=server.createobject("adodb.recordset")
	rs.open "jiaoyi",conn,1,3
	rs.addnew
	rs("worker")=request("worker")
	rs("guester")=request("guester")
	rs("linkman")=request("linkman")
	rs("program")=request("program")
	rs("money_1")=request("money_1")
	
	
	if request("datebox")<>"" then
			rs("timer")=request("datebox")
		else
			rs("timer")="12/12/2020"
		end if
	
	rs("hetongbh")=request("hetongbh")
	rs("hetongnr")=htmlencode2(request("hetongnr"))
	rs.update
	'加入日志操作=====================================
	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指令，加入信息
	
	response.redirect("jyzl_zltj_no2.asp")	
	end if				
	
conn.close'关闭数据库
set conn=nothing
				
%>

<html><script language="JavaScript">                                                                  </script></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -