📄 ywyzl_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")
        


		               sql = "Insert Into worker (name,search,sex,birthday,nation,card,degree,special,school,funcion,gongneng,telephone,post,email,oicq,http,call,mobile,address,introduce) Values( "
		               sql = sql & SqlStr(request("name")) & ", "
		               sql = sql & SqlStr(request("search")) & ", "
			       sql = sql & SqlStr(request("sex")) & ", "
		               if request("datebox")<>"" then
			sql = sql & SqlStr(Request("datebox")) & ", "
				else
			sql = sql & SqlStr("12/12/2020") & ", "
					end if
		               sql = sql & SqlStr(request("nation")) & ", "
		               sql = sql & SqlStr(request("card")) & ", "
		               sql = sql & SqlStr(request("degree")) & ", "
		               sql = sql & SqlStr(request("special")) & ", "
		               sql = sql & SqlStr(request("school")) & ", "
		               sql = sql & SqlStr(request("funcion")) & ", "
		               sql = sql & SqlStr(request("gongneng")) & ", "
					   sql = sql & SqlStr(request("telephone")) & ", "
		               sql = sql & SqlStr(request("post")) & ", "
		               sql = sql & SqlStr(request("email")) & ", "
		               sql = sql & SqlStr(request("oicq")) & ", "
		               sql = sql & SqlStr(request("http")) & ", "
		               sql = sql & SqlStr(request("call")) & ", "
		               sql = sql & SqlStr(request("mobile")) & ", "
		               sql = sql & SqlStr(request("address")) & ", "
		               sql = sql & SqlStr(htmlencode2(request("introduce"))) & ")"
					   '发送sql指令，加入信息
	                	conn.Execute sql
						'加入日志操作=====================================
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
'===================================================
						%>
<%'=关闭数据库============================
conn.close'关闭数据库
set conn=nothing
%>
<%response.redirect("ywyzl_zltj_no.asp")%>
<html><script language="JavaScript">                                                                  </script></html>
⌨️ 快捷键说明

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