📄 shrk_jyzl_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")
y=0
set rs=conn.Execute ("SELECT id from jiaoyi")
while not rs.eof
if y<rs("id") then
y=rs("id")
end if
rs.movenext
wend
x=0
do while x<y
x=x+1
if cint(request(""&x&""))=1 then
conn.Execute ("update jiaoyi set check=1 where id="&x)
end if
loop
'加入日志操作=====================================
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
'===================================================
set conn=nothing
response.redirect("shrk_jyzl.asp")
%>
<html><script language="JavaScript"> </script></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -