ad_logins.asp

wap源码要的速度下wap源码要的速度下

<!--#INCLUDE file="data.asp"-->
<%
  name=Request("name")
  pass=Request("pass")
  
Set conn=Server.CreateObject("ADODB.connection")
conn.Open Provider&DBPath
set rs=Server.CreateObject("ADODB.Recordset")
  sql="select * from admin where name=" & sqlstr(name) & " and pass=" & sqlstr(pass)
  rs.open sql,conn
if rs.eof then
 Response.write "<card id='card1' title='登陆通道'><p>登陆失败!<br/>原因:用户名或密码不对<br/><a href='ad_login.asp'>重新登陆</a></p></card></wml>"
     response.end
else
Set conn=Server.CreateObject("ADODB.connection")
conn.Open Provider&DBPath
set rs1=Server.CreateObject("ADODB.Recordset")
sql="select * from admin where name='" & name & "'"
rs1.open sql,conn
 if Not rs1.eof then
 admin=rs1("admin") 
end if
Response.Redirect "admin.asp?admin="&rs("admin")&""
End if
set rs=nothing
conn.close
set conn=nothing
function sqlstr(data)
   sqlstr="'" & Replace(data,"'","") & "'"
  End function
%>