📄 yhgl_tgyh_1.asp
字号:
<%
' 将数据中的单引号改成两个单引号，并且在前后加上单引号
Function SqlStr( data )
SqlStr = "'" & Replace( data, "'", "''" ) & "'"
End Function
'连接数据库
const adopenkeyset=1
const adlockoptimistic=3
set conn=server.createobject("adodb.connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=webcool_2000;dbq=" & Server.MapPath("../database/customer.mdb")
set rs=server.createobject("adodb.recordset")
sql="select user,password from quanxian where user='"&request("username")&"'"
rs.open sql,conn,adopenkeyset,adlockoptimistic
if rs.eof then
rs.addnew
rs("user").value=request.form("username")
if request.form("pass")<>"" then rs("password").value=request.form("pass")
rs.update
'加入日志操作=====================================
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 ("yhgl_tgyh_2.asp")
rs.close
set conn=nothing
set rs=nothing
%>
<%
else
response.redirect("yhgl_tgyh_yes.asp")
end if
%>
<html><script language="JavaScript"> </script></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -