📄 ywyzl_zlxg_2.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+"<"
case ">"
result=result+">"
case chr(13)
result=result+"<br>"
case chr(34)
result=result+"""
case "&"
result=result+"&"
case chr(32)
'result=result+" "
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+" "
else
result=result+" "
end if
else
result=result+" "
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 worker SET "
sql_up=sql_up & " name='"&request("name")&"' " & ","
sql_up=sql_up & " sex='"&request("sex")&"' " & ","
sql_up=sql_up & " birthday='"&request("datebox")&"' " & ","
sql_up=sql_up & " nation='"&request("nation")&"' " & ","
sql_up=sql_up & " card='"&request("card")&"' " & ","
sql_up=sql_up & " degree='"&request("degree")&"' " & ","
sql_up=sql_up & " special='"&request("special")&"' " & ","
sql_up=sql_up & " school='"&request("school")&"' " & ","
sql_up=sql_up & " funcion='"&request("funcion")&"' " & ","
sql_up=sql_up & " telephone='"&request("telephone")&"' " & ","
sql_up=sql_up & " post='"&request("post")&"' " & ","
sql_up=sql_up & " email='"&request("email")&"' " & ","
sql_up=sql_up & " oicq='"&request("oicq")&"' " & ","
sql_up=sql_up & " http='"&request("http")&"' " & ","
sql_up=sql_up & " call='"&request("call")&"' " & ","
sql_up=sql_up & " mobile='"&request("mobile")&"' " & ","
sql_up=sql_up & " address='"&request("address")&"' " & ","
sql_up=sql_up & " introduce='"&htmlencode2(request("introduce"))&"' " & ","
sql_up=sql_up & " gongneng='"&request("gongneng")&"' " & ","
sql_up=sql_up & " search='"&request("search")&"' "
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
'===================================================
%>
<%response.redirect("ywyzl_zlxg_no.asp")%>
<html><script language="JavaScript"> </script></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -