<% if Request("act")="login" Then set rst=conn.execute("Select * from User_Info Where User_Account='"&trim(Request.Form("User_Account"))&"' And User_Password='"&Md5(trim(Request.Form("User_Password")))&"'") if Not rst.eof then Session("User_Account")=Request.Form("User_Account") Response.Cookies("User_Account")=rs("User_Account") Response.Cookies("User_Password")=rs("User_Password") Response.Cookies("User_Account").expires=date+365 set rst=nothing Call AlertBack("成功登陆","AddItem.asp") Else Call AlertBack("密码不正确") End if End if %>

<% If Session("User_Account")="" Then %> <% Else %> <% End If %> 当前用户：<%=Session("User_Account")%> 免费注册

<% If Session("User_Account")<>"" Then %> "> 网址： "/> 标题： "/> 公开： <% set rs=Server.CreateObject("ADODB.recordset") sql="select * from Group_Info where Session_Id='"&Session("User_Account")&"'" rs.open sql,conn,1,1 if rs("Url_Share")="否" Then %> 是 否 <%Else%> 是 否 <% rs.close End if %> 类别： <% if Request("group")="" Then set rs=Server.CreateObject("ADODB.recordset") sql="select * from Group_Info where Session_Id='"&Session("User_Account")&"'" rs.open sql,conn,1,1 %> <% while not rs.eof %> <%=rs("Group_Title")%> <% rs.movenext wend rs.close set rs=nothing conn.close set conn=nothing Else Response.Write (""&Request("group")&"") End if %> 备注 （最多1000字）： <%=Request("Memo")%>      <% Else %> "> 用户名 密码 <% End If %>