<% option explicit dim rs,sql,permit dim x,y,ii,page,i,f,beginpage,endpage,showNum,Action,edit,userid,pass dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr dim aa,bb,cc,dd,ee,ff,gg,hh,jj '数据库连接 dim conn,connstr set conn=server.CreateObject("adodb.connection") set rs=server.CreateObject("adodb.recordset") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb") '数据库路径和名称 conn.Open connstr %> <% sub chk() '判断管理登陆过程 pass=replace(trim(request.form("pass")),"'","") sql="select * from book where pass='"&pass&"'" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 if rs.bof and rs.eof then response.write"" response.end end if if pass<>rs("pass") then response.write"" response.end end if permit=rs("permit") rs.close set rs=nothing conn.close set conn=nothing if permit = true then session("pass")=pass Session.TimeOut=60 '登陆超时时间 单位 分钟 response.write"" response.write("") else response.write"" end if end sub %> 京科油墨(亚洲)有限公司-下载
Search   
<%for i=1 to rs.pagesize %> <%rs.movenext if rs.eof then exit for next rs.close set rs=nothing %> <%if session("pass") <> "" then else %>
<%end if%> <% end if %>

Directory Listing Script ©2005 Ash Young. Design by Manny.