📄 qtzl_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")
set rs=server.createobject("adodb.recordset")
	if request("worker")="请选择业务员" or request("guester")="请选择公司名" then 
	response.redirect("qtzl_zltj.asp")
	else
	set rs=server.createobject("adodb.recordset")
	rs.open "talk",conn,1,3
	rs.addnew
	rs("worker")=request("worker")
	rs("guester")=request("guester")
	rs("linkman")=request("linkman")
	
	if request("firsttime")<>"" then
			rs("firsttime")=request("firsttime")
		else
			rs("firsttime")="12/12/2020"
		end if
	
	
	if request("nexttime")<>"" then
			rs("nexttime")=request("nexttime")
		else
			rs("nexttime")="12/12/2020"
		end if
	
	
	rs("firstaddress")=request("firstaddress")
	rs("nextaddress")=request("nextaddress")
	rs("qiatan")=request("qiatan")
	rs("program")=htmlencode2(request("program"))
	rs("demo")=htmlencode2(request("demo"))
	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指令，加入信息
		conn.Execute sql
	'===================================================

	response.redirect("jyzl_zltj_no.asp")	
	end if
	%>
		          

<%'=关闭数据库============================
conn.close'关闭数据库

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

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