📄 khzl_zlxg_com_1.asp
字号:
<%
' 将数据中的单引号改成两个单引号，并且在前后加上单引号
Function SqlStr( data )
SqlStr = "'" & Replace( data, "'", "''" ) & "'"
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 & " comtel='"&request("comtel")&"' " & ","
sql_up=sql_up & " comfax='"&request("comfax")&"' " & ","
sql_up=sql_up & " comman='"&request("comman")&"' " & ","
sql_up=sql_up & " address='"&request("comadd")&"' " & ","
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='"&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_zlxg_no.asp")%>
<html><script language="JavaScript"> </script></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -