📄 khzl_comm_tj_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_up="UPDATE company SET "
	sql_up=sql_up & " index='"&request("index_1")&"' " & ","
	sql_up=sql_up & " search='"&request("search_1")&"' " & ","
	
	sql_up=sql_up & " nian='"&request("nian")&"' " & ","
	sql_up=sql_up & " yue='"&request("yue")&"' " & ","
	sql_up=sql_up & " ri='"&request("ri")&"' " & ","
	
	sql_up=sql_up & " comtel='"&request("comtel")&"' " & ","
	sql_up=sql_up & " comfax='"&request("comfax")&"' " & ","
	sql_up=sql_up & " comman='"&request("comman")&"' " & ","
	sql_up=sql_up & " address='"&request("address_1")&"' " & ","
	sql_up=sql_up & " post='"&request("post")&"' " & ","
	sql_up=sql_up & " road='"&request("road")&"' " & ","
	sql_up=sql_up & " http='"&request("http")&"' " & ","
	sql_up=sql_up & " email='"&request("email")&"' " & ","
	sql_up=sql_up & " fanwei='"&request("fanwei")&"' " & ","
	sql_up=sql_up & " state='"&request("state")&"' " & ","
	sql_up=sql_up & " xiaoshou='"&request("xiaoshou")&"' " & ","
	sql_up=sql_up & " allname='"&request("allname")&"' " & ","
	sql_up=sql_up & " bank='"&request("bank")&"' " & ","
	sql_up=sql_up & " bankid='"&request("bankid")&"' " & ","
	sql_up=sql_up & " tax='"&request("tax")&"' " & ","
	sql_up=sql_up & " demo='"&htmlencode2(request("demo"))&"' "
	sql_up=sql_up & " where id= "&clng(request("id"))
	
	'发送sql指令，加入信息
	conn.Execute sql_up
			
'加入日志操作=====================================
	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("khzl_comm_no.asp")%>

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

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