📄 jyzl_zlxg_xg_1.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 jiaoyi SET"
sql_up=sql_up & " worker='"&request("worker")&"' " & ","
sql_up=sql_up & " program='"&request("program")&"' " & ","
sql_up=sql_up & " linkman='"&request("linkman")&"' " & ","
sql_up=sql_up & " money_1='"&cdbl(request("money_1"))&"' " & ","
sql_up=sql_up & " timer='"&request("datebox")&"' " & ","
sql_up=sql_up & " hetongbh='"&request("hetongbh")&"' " & ","
sql_up=sql_up & " hetongnr='"&htmlencode2(request("hetongnr"))&"' "
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.close'关闭数据库
set conn=nothing
%>
<%response.redirect("jyzl_zlxg_no1.asp")%>
<html><script language="JavaScript"> </script></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -