网站后台登陆进入代码
自己做网站,想加个网站后台登陆确认,自己写的代码不行,报错:Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)[Microsoft][ODBC Microsoft Access Driver] 参数不足,期待是 1。关键代码是:<% @language=vbscript %><%response.expires=0response.buffer=true%><%dim adminnamesdim passwordsdim flagadminnames=reword(request.form("adminnames")) passwords=reword(request.form("passwords"))if adminnames<>empty and passwords<>empty then %><!--#include file="dbopen.asp"--><%objrs.open "select * from [liuyan] where admin='" &adminnames& "'",objconn,3,1'objrs.open "select * from jcy_adm where adm_name='" & login_adm & "' order by id",objconn,3,1if not objrs.eof then ' if objrs("password")=passwords thenflag=0session("adminnames")=adminnames elseflag=1end ifelseflag=2end ifobjrs.close%><!--#include file="dbclose.asp"--><%elseflag=3end ifselect case flagcase 0 response.write("asdfs111")case else response.write("asdfsdasdfasdfasdfasdf")end select%><%function reword(temp)dim tempstrtempstr=replace(trim(temp),"'","’")tempstr=replace(tempstr,"`","‘")tempstr=replace(tempstr,"<","<")tempstr=replace(tempstr,">",">")tempstr=replace(tempstr," "," ")tempstr=replace(tempstr,chr(13),"<br>")reword=tempstrend function%>它报错的是:objrs.open "select * from [liuyan] where admin='" &adminnames& "'",objconn,3,1******flag没做完,先用response.write代替了*****
参考答案:<!--#include file="../conn.asp"-->
<%
if request.QueryString("action")="ok" then
adminname=replace(trim(request.Form("adminname")),"'","")
pwd=replace(trim(request.Form("pwd")),"'","")
if adminname="" or pwd="" then
response.Write "<script LANGUAGE='javascript'>alert('对不起!您的登陆名或密码错误!');history.go(-1);</script>"
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from ly_admin where adminname='"&adminname&"' and pwd='"&pwd&"'"
rs.open sql,conn,1,1
if not(rs.bof or rs.eof) then
if pwd=rs("pwd")then
response.Cookies("adminname")=rs("adminname")
response.cookies("pwd")=rs("pwd")
session("adminname")=rs("adminname")
response.Redirect "admin_index.asp"
end if
else
response.Write "<script LANGUAGE='javascript'>alert('对不起!您的登陆名或密码错误!');history.go(-1);</script>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
<%
if request.QueryString("action")="out" then
session("adminname")=""
response.redirect "../index.asp"
end if
%>