这些语句里有SQL注入漏洞??谁知道告诉我下 谢谢
laeep 2005-06-20 11:55:22 if request.Form("action")="modifychange" then
if request.Form("OldPassword")="" then
Response.Write("<script>alert(""请输入旧密码"");location=""javascript:history.back()"";</script>")
Response.End
end if
if request.Form("NewPassword")="" then
Response.Write("<script>alert(""请输入新密码"");location=""javascript:history.back()"";</script>")
Response.End
end if
if request.Form("ConfimPassword")="" then
Response.Write("<script>alert(""请输入确认新密码"");location=""javascript:history.back()"";</script>")
Response.End
end if
if request.Form("ConfimPassword")<>request.Form("NewPassword") then
Response.Write("<script>alert(""两次输入密码不正确"");location=""javascript:history.back()"";</script>")
Response.End
end if
Set Rs1 = server.createobject("adodb.recordset")
SQL1 = "select * from userr where userrName='"&Request.Cookies("F")("userrMame")&"' and Password='"&MD5(Replace(Trim(Request.Form("OldPassword")),"'","''"),16)&"'"
Rs1.open SQL1,Conn,1,1
if Not Rs1.eof then
Set RsConfig = server.createobject("adodb.recordset")
SQL = "select * from userr where userrName='"&Request.Cookies("F")("userrName")&"' and Password='"&Request.Cookies("F")("MemPassword")&"'"
RsConfig.open SQL,Conn,1,3
if Not Rsconfig.eof then
Rsconfig("password")=md5(Replace(Trim(Request.Form("NewPassWord")),"'","''"),16)
RsConfig.update
RsConfig.close
Set Rsconfig=nothing
Response.Write("<script>alert(""修改密码成功"");location=""UserMain.asp"";</script>")
Response.End
else
Response.Write("<script>alert(""脚本过期"");location=""javascript:history.back()"";</script>")
Response.End
end if
else
Rs1.close
set Rs1=nothing
Response.Write("<script>alert(""你输入的旧密码不正确或者没有此用户"");location=""javascript:history.back()"";</script>")
Response.End
end if
end if