com_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 * from [com] 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")("com")=rs("com")
Response.cookies("cnmai")("vip")=rs("vip")
Response.cookies("cnmai")("domain")=Request.ServerVariables("SERVER_NAME")
Response.cookies("cnmai")("id")=rs("id")
rs.close
set rs=nothing
closedb
response.redirect "../com_user_xxgl.asp"
%>