<% if Request("act")="login" Then set rs=Server.CreateObject("ADODB.recordset") sql="select * from User_Info where User_Account='"&Request.Form("User_Account")&"' and User_Password='"&Md5(Request.Form("User_Password"))&"'" rs.open sql,conn,1,1 if Not Rs.EOF Then Session("User_Account")=rs("User_Account") Session("User_Password")=rs("User_Password") Response.Cookies("User_Account")=rs("User_Account") Response.Cookies("User_Password")=rs("User_Password") Response.Cookies("User_Account").expires=date+365 rs.close set rs=Server.CreateObject("ADODB.recordset") sql="select * from User_Info where User_Account='"&Request.Form("User_Account")&"' and User_Password='"&Md5(Request.Form("User_Password"))&"'" rs.open sql,conn,1,3 rs("User_Out")=now() rs("User_Hits")=rs("User_Hits")+1 rs.update rs.close set rs=nothing conn.close set conn=nothing Response.Redirect "fav.asp" Else Call AlertBack("密码不正确") End if End if %> 我的朋友，我的家！
如果您还不是yayadan.com的用户，请点击这里免费注册
<%if Session("User_Account")="" Then%><%End if%> <%if Session("User_Account")="" Then%> <%End if%> <%if Session("User_Account")="" Then%><%Else%><%End if%> <%if Session("User_Account")="" Then%>
用户名：  密 码：   <%Else%> <%response.Redirect("fav.asp")%> <%End if%>
<%End if%>
网址共享中心刷新
    <% if Len(Trim(Request("page")))=0 Then '返回目标页码的判断 page=1 Else page=CInt(Trim(Request("page"))) End if set rs=Server.CreateObject("ADODB.RecordSet") sql="select * from Fav_Info where Url_Share='是' order by Url_Id desc" rs.open sql,conn,1,1 rs.PageSize=15 if not rs.eof then rs.AbsolutePage=page for k=1 to rs.PageSize %>
  • " title="<%=rs("f_Fav_Title")%>" target="_blank"><%=Left(rs("f_Fav_Title"),12)%>
    • <% rs.movenext if rs.EOF Then Exit For next end if %> <% if rs.EOF=rs.BOF Then %>
<% if page <>1 then Response.Write "首页 " end if tmppage = page - 1 if tmppage <= 0 then tmppage = 1 else Response.Write"上一页" end if tmppage = page + 1 if tmppage >rs.PageCount then tmppage = page else Response.Write " 下一页 " end if if Cstr(page) <> Cstr(rs.PageCount) and Cstr(rs.PageCount) <> 0 then Response.Write "尾页" end if Response.Write " "&rs.RecordCount&" 条记录 " if Cstr(rs.PageCount) <> 0 then Response.Write "" & page & " / "&rs.PageCount&"页" end if rs.close set rst=nothing conn.close set conn=nothing %>