📄 onlogin.asp

📁 该软件是帮助大学生更好的生活
💻 ASP
字号:
<!-- #include file="config.asp" -->
<!-- #include file="config_frm.asp" -->
<!-- #include file="config_upload.asp" -->
<!-- #include file="config_put.asp" -->
<%
'if session("joekoe_online_admin")<>"joekoe_admin" then
'  response.redirect "admin_login.asp"
'  response.end
'end if

if web_login=0 then web_login=2

dim color1,color2,color3,table1,mtr
color1=web_var(web_color,1)
color2=web_var(web_color,5)
color3=web_var(web_color,6)
table1=" bordercolorlight=#c0c0c0 bordercolordark="&color1
mtr=" onmouseover=""javascript:this.bgColor='"&color2&"';"" onmouseout=""javascript:this.bgColor='"&color1&"';"""

function del_select(delid)
  dim del_i,del_num,del_dim,del_sql,del_rs,del_username,fobj,picc
  if delid<>"" and not isnull(delid) then
    delid=replace(delid," ","")
    del_dim=split(delid,",")
    del_num=UBound(del_dim)
    for del_i=0 to del_num
      'del_sql
      'del_sql="select username from "&data_name&" where id="&del_dim(del_i)
      'set del_rs=conn.execute(del_sql)
      'if not(del_rs.eof and del_rs.bof) then
       ' call user_integral("del",web_varn(web_num,15),del_rs("username"))
      'end if
      'del_rs.close:set del_rs=nothing
      call upload_del(data_name,del_dim(del_i))
      del_sql="delete from "&data_name&" where id="&del_dim(del_i)
      conn.execute(del_sql)
    next
    Erase del_dim
    del_select=vbcrlf&"<script language=javascript>alert(""共删除了 "&del_num+1&" 条记录！"");</script>"
  end if
end function

function header(menutitle,titmenu)
  header = VbCrLf & "<html><head><title> 管理后台</title>" & _
	   VbCrLf & "<meta http-equiv=Content-Type content=text/html; charset=gb2312>" & _
	   VbCrLf & "<link rel=stylesheet href='Ad_STYLE.CSS' type=text/css>" & _
	   VbCrLf & "<script langiage='javascript' src='inc_shop/admin.js'></script></head>" &_
       vbCrLf & "<body leftmargin=2 topmargin=0 marginwidth=0 marginheight=0>" &_
       vbCrLf & "<table width=100% border=0 align=center cellpadding=2 cellspacing=1 class=border>"&_
       vbCrLf & "<tr class=topbg><td height=22 colspan=2 align=center><strong>" & menutitle & "</strong></td></tr>" &_
       vbCrLf & "<tr class=tdbg> <td width=70 height=30><strong>管理导航：</strong></td>" &_
       vbCrLf & "<td>"& titmenu & "</td></tr></table>&nbsp;<br>"
end function

function popedom_formated(popedom1,popedomnum,popedomtype)
  dim poptemp:poptemp=0
  if len(popedom1)=50 and popedomnum<>-1 then
    poptemp=mid(popedom1,popedomnum,1)
  end if
  if popedomtype<>0 then
    if poptemp=0 then
      poptemp=1
    else
      poptemp=0
    end if
  end if
  if poptemp<>0 then poptemp=1
  if popedomnum=-1 then poptemp=1
  popedom_formated=poptemp
end function
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -