config.inc

仿世纪建站源码

<!--#include file="conn.inc"-->
<%
dim id11,idb,myid,idss,ltid,idd,id2
id11=request.querystring("id11")
idb=request.querystring("idb")
ltid=request.querystring("ltid")
idss=request.querystring("idss")
myid=request.querystring("myid")
idb=66

  if request.querystring("idss")="" then
idss=request.cookies("my050601")
  else
idss=request.querystring("idss")
  end if

  if request.querystring("myid")="" then
myid=request.cookies("my050602")
  else
myid=request.querystring("myid")
  end if

if idss<>"" then
  set objgbrss=Server.CreateObject("ADODB.Recordset")
  srql="select idss,useppas from admin where idss=" & Sqlstr(idss)
  objgbrss.open srql,myc,1,2
if objgbrss.eof then
  response.redirect"out.asp"
else
  idd=objgbrss("idss")
  id2=objgbrss("useppas")
end if
objgbrss.close
set objgbrss=nothing
end if

function sqlstr(data)
   sqlstr="'" & Replace(data,"'","'") & "'"
  End function

if id11<>"" then
dim objgbrs
set objgbrs=Server.CreateObject("ADODB.Recordset")
dim sqls
sqls="select * from grade where id=" & id11
objgbrs.open sqls,myc,1,2
  if not objgbrs.eof then
name=objgbrs("name")
pag=objgbrs("pag")
objgbrs.close
set objgbrs=nothing
  end if
end if
%>