www.gusucode.com > 盐城分类信息网asp源码程序 > admin/user_gl.asp
<!--#include file=conn.asp--> <!--#include file=cookies.asp--> <% dim rs,sql,id id=replace(trim(request("id")),"'","‘") set rs = Server.CreateObject("ADODB.RecordSet") sql="select id,username from [user] where id="&cstr(id) rs.open sql,conn,1,1 if rs.eof then response.write "<li>还没有用户数据!" response.end end if Response.cookies("cnmai")("username")=rs("username") Response.cookies("cnmai")("domain")=Request.ServerVariables("SERVER_NAME") Response.cookies("cnmai")("id")=rs("id") rs.close set rs=nothing closedb response.redirect "../u_xxgl.asp" %>