Question

怎么去掉asp网站后台需要输入的验证码

<!--#include file="../xyconn.asp" -->
<!--#include file="md5.Asp"-->
<%
'网站管理员登录检测
admin=Replace(trim(request.Form("admin")), "'", "''")
password=md5(Request("password"))
verifycode=request.form("verifycode")
if admin="" then
response.Write("<script language=javascript>alert('登录名不能为空!');history.go(-1)</script>")
response.end
end if
if password="" then
response.Write("<script language=javascript>alert('登录密码不能为空!');history.go(-1)</script>")
response.end
end if
if VerifyCode="" then
response.Write("<script language=javascript>alert('验证码不能为空!');history.go(-1)</script>")
response.end
end if
if cstr(Session("firstecode"))<>cstr(Request.Form("VerifyCode")) then
response.Write("<script language=javascript>alert('验证码错误!');history.go(-1)</script>")
response.End
end if
sql="select * from admin_user where admin='"&admin&"' and password='"&password&"'"
set rs=conn.execute(sql)
if rs.eof or rs.bof then
response.Write("<script language=javascript>alert('登录用户名或者密码错误，请重新填写!');history.go(-1)</script>")
else
session("admin")=rs("id")
session.Timeout=600
sql="update admin_user set login_num=login_num+1 where id="&session("admin")
conn.execute(sql)
sql="update admin_user set login_date=#" & now & "# where id="&session("admin")
conn.execute(sql)
dim ip
ip=request.servervariables("remote_addr")
set xy=server.createobject("adodb.recordset")
xy.open "select * from admin_user_count",conn,1,3
xy.addnew
xy("login_ip")=ip
xy("login_name")=rs("admin")
xy.update
xy.close
set xy=nothing
response.redirect "xycms.asp"
end if
%>

Answer 1

把验证码的码段去掉 建议不要去 有验证码安全性比较高

追问

哪段？ 必须去掉、、

追答

response.end
end if
if VerifyCode="" then
response.Write("alert('验证码不能为空!');history.go(-1)")
response.end
end if
if cstr(Session("firstecode"))cstr(Request.Form("VerifyCode")) then
response.Write("alert('验证码错误!');history.go(-1)")
response.End
end if

追问

response.end
end if
最上面的 这个 也去掉吗？ 这个不是上一段的结束吗？

追答

多了 这两个留着 没注意