各位大侠 能不能指点2下，
我要申请很多个账号，每个账号对应管理一条信息
能不能帮帮忙，

首页代码如下
<%

 Dim rs
 Dim msg
 
  if Request.QueryString("action")="login" then
    Set rs = conn.execute("select * from guest where admin='"&Request.Form("usr")&"' and pass='"&Request.Form("pwd")&"'")
        if rs.eof then
         msg = "用户名或密码错误！"
         Session("Login") = False         
        else
         Session("Login") = True
         Response.Redirect("admin.asp")
        end if
    end if
  %>

下面一位好心人提供的思路，（本人一个菜鸟，只是美工）


[ 本帖最后由 qq5262866 于 2009-8-7 16:41 编辑 ]

" border="0" />

内页代码如下
<%
    where usr=Session("usr")
    
    
  if Request.QueryString("action")="del" then
      Dim NewsID    
        NewsID = Split(Request.Form("chk"),",")
      Dim k
        For k = 0 To Ubound(NewsID)
             Call DeleNews(NewsID(k))
        Next
     Response.Write("<script>alert('删除成功!')</script>")
  end if
Sub DeleNews(NewID)
   Dim Rs,FileName
    'Set Rs= Conn.Execute("select * from news Where ID="&NewID)
    Conn.Execute("delete from news where Id="&newid)
End Sub
 
Sub DoDelFile(sPathFile)
    On Error Resume Next
    Dim oFSO
    Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
    oFSO.DeleteFile(Server.MapPath(sPathFile))
    Set oFSO = Nothing
End Sub

Dim Rs
Dim Page,allpage,st,ed
    If Request.QueryString("Page")<0 or Request.QueryString("Page")="" then
       Page = 1
     else
      Page = Cint(Request.QueryString("Page"))
    End IF

  Set Rs = Server.CreateObject("adodb.recordset")
      Rs.Open "select * from news order by id desc",Conn,1,1
      
      
  If Not Rs.eof then
      Rs.PageSize = 20
      Allpage = Rs.PageCount
      IF Page>allpage then page=allpage
      Rs.AbsolutePage = page
      st = 1
      ed = 10
  end if
  If page >9 then
     st = page - 4
     ed = page + 4
  end if
 if ed>allpage then ed = allpage
 

 
%>

[ 本帖最后由 qq5262866 于 2009-8-7 19:43 编辑 ]

比如我用 用户一 guest 登录进去 那么只能改 张三 的内容
          用户二 guest1 登录进去 那么只能改 姓名五 的内容
                 
听人家说内页要判断是哪个用户，谢谢大家了

[ 本帖最后由 qq5262866 于 2009-8-7 16:40 编辑 ]

谢谢，请问那样sql语句怎么写