config.bak.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<%
Option Explicit
Response.buffer=true 				'开启缓冲页面功能
dim face_url                               '定义face_url
dim web_config,web_cookies,web_login,web_setup,web_menu,web_num,web_color,web_upload,web_safety,web_edition,web_label,sweb_upload,u_username
dim web_news_art,web_down,web_shop,web_stamp,space_mod
dim web_error,user_grade,user_power,forum_type,now_time,timer_start,redx,kong,ukong,go_back,closer,lefter,righter
dim login_username,login_password,login_mode,login_message,login_popedom,login_emoney,login_bcounter,login_integral,login_sex,login_userpower
dim rs,sql,i,tit,tit_fir,index_url,action,page_power,m_unit,p_name
%>
<!-- #include file="common.asp" -->
<!-- #include file="functions.asp" -->
<%
if trim(request.cookies("joekoe")("cookies_true"))<>"yes" then
  response.cookies("joekoe")("cookies_true")="yes"
  response.cookies("joekoe").expires=date+365
  response.write "<title>"&web_var(web_config,1)&","&web_var(web_config,2)&"</title><meta http-equiv='refresh' content='3'>" & _
   "<br><br><br><br><br><br><div align=center><SPAN style='FONT-SIZE:9pt'>正在登陆"&web_var(web_config,1)&" "&web_var(web_config,2)&"…………<br><br>" & _
   "本系统要求使用Cookies, 假如您的浏览器禁用Cookies,您可能不能正常的浏览本站 ……<br><br>" & _
   "请设置支持后再访问本站。谢谢！ </div><br><br>" & _
   "<p align=center>- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -</p><p align=center><SPAN style='FONT-SIZE: 8pt'><FONT face=Tahoma>Welcome to Edxsky.cn E Road SunShine ForumClub, Please waiting ……</p><p align=center>The System request the Brower of Operating System using Cookies , if your brower forbid Cookies , You could not logging in the system …… </SPAN></p></font>" & _
  response.end
end if
space_mod=web_var(web_num,12):m_unit=web_var(web_config,8):now_time=time_type(now(),9):timer_start=timer()
web_label="<a href='http://www.anxina.net/' target=_blank><b><font face=Arial color=#CC3300>Edxsky</font><font face=Arial>.cn</font></b></a>"
redx="&nbsp;<font color='#ff0000'>*</font>&nbsp;":kong="<table width='100%' height=2><tr><td></td></tr></table>":web_edition="『流真岁月』":ukong="<table border=0><tr><td height=6></td></tr></table>"
go_back="<a href='javascript:history.back(1)'>返回上一页</a>":closer="<a href='javascript:self.close()'>『关闭窗口』</a>"
login_mode="":login_popedom="":login_message=0
login_username=trim(request.cookies(web_cookies)("login_username"))
login_password=trim(request.cookies(web_cookies)("login_password"))
action=trim(request.querystring("action"))
'------------------------------------格式化窗口-------------------------------------
function format_bar(bar_var,bar_body,bar_type,bar_fk,bar_jt,bar_color,bar_more)
  dim bar_temp,bar_vars,bar_mores,bar_height
  bar_height=20:bar_mores=""
  bar_vars="<table border=0 cellspacing=0 cellpadding=0><tr><td>&nbsp;"
  if isnumeric(bar_jt) then
    if bar_jt<>0 then bar_vars=bar_vars&"<img border=0 src='images/"&web_var(web_config,5)&"/bar_"&bar_type&"_jt.gif' align=absmiddle>&nbsp;"
  else
    if bar_jt<>"" then bar_vars=bar_vars&img_small(bar_jt)
  end if
  bar_vars=bar_vars&bar_var&"</td></tr></table>"
  if bar_more<>"" then bar_mores=bar_more&"&nbsp;&nbsp;"
  
  bar_temp=vbcrlf&"<table border=0 width='100%' cellspacing=0 cellpadding=0"
  select case int(left(bar_type,1))
  case 0
    bar_temp=bar_temp&"><tr>" & _
	     vbcrlf&"<td>"&bar_vars&"</td>" & _
	     vbcrlf&"<td align=right>"&bar_mores&"</td>"
  case 1
    bar_temp=bar_temp&"><tr>" & _
	     vbcrlf&"<td width=20 valign=top>"&format_img("bar_"&bar_type&"_left.gif")&"</td>" & _
	     vbcrlf&"<td background='images/"&web_var(web_config,5)&"/bar_"&bar_type&"_bg.gif'><table border=0 width='100%' cellspacing=0 cellpadding=0><tr><td>"&bar_vars&"</td><td align=right>"&bar_more&"</td></tr></table></td>" & _
	     vbcrlf&"<td width=20>"&format_img("bar_"&bar_type&"_right.gif")&"</td>"
  case 2
    bar_temp=bar_temp&"><tr>" & _
	     vbcrlf&"<td width=20 valign=top>"&format_img("bar_"&bar_type&"_left.gif")&"</td>" & _
	     vbcrlf&"<td width="&web_var(bar_color,3)&" background='images/"&web_var(web_config,5)&"/bar_"&bar_type&"_bg0.gif'>"&bar_vars&"</td>" & _
	     vbcrlf&"<td width=20>"&format_img("bar_"&bar_type&"_center.gif")&"</td>" & _
	     vbcrlf&"<td background='images/"&web_var(web_config,5)&"/bar_"&bar_type&"_bg.gif' align=right>&nbsp;"&bar_more&"</td>" & _
	     vbcrlf&"<td width=20 align=right>"&format_img("bar_"&bar_type&"_right.gif")&"</td>"
  end select
  bar_temp=bar_temp&vbcrlf&"</tr></table>"
  
  if bar_fk=1 or bar_fk=3 then
    bar_body="<table border=0 width='98%' cellspacing=4 cellpadding=4><tr><td>"&bar_body&"</td></tr></table>"
  else
    bar_body="<table border=0 width='100%'><tr><td>"&bar_body&"</td></tr></table>"
  end if
  
  format_bar=kong&vbcrlf&"<table width='100%' cellspacing=0 cellpadding=0"
  select case bar_fk
  case 0,1
    format_bar=format_bar&" border=0>" & _
	       vbcrlf&"<tr><td height="&bar_height&" valign=bottom"
    if int(left(bar_type,1))=0 then format_bar=format_bar&"bgcolor="&web_var(bar_color,1)
    format_bar=format_bar&" background='"&web_var(bar_color,3)&"'>"&bar_temp&"</td></tr>" & _
	       vbcrlf&"<tr><td align=center"
    if web_var(bar_color,2)<>"" then format_bar=format_bar&" bgcolor="&web_var(bar_color,2)
    format_bar=format_bar&">"&bar_body&"</td></tr></table>"
  case 2,3
    if int(left(bar_type,1))=0 then
      format_bar=format_bar&" border=1 bgcolor="&web_var(bar_color,2)&" bordercolor="&web_var(bar_color,1)&">" & _
		 vbcrlf&"<tr><td height="&bar_height&" bgcolor="&web_var(bar_color,1)&" background='"&web_var(bar_color,3)&"' valign=bottom>"&bar_temp&"</td></tr>" & _
		 vbcrlf&"<tr><td align=center bordercolor="&web_var(bar_color,2)&">"&bar_body&"</td></tr>"&vbcrlf&"</table>"
    else
      format_bar=format_bar&" border=0>" & _
		 vbcrlf&"<tr><td height="&bar_height&" valign=bottom>"&bar_temp&"</td></tr><tr><td align=center>" & _
		 vbcrlf&"<table border=0 width='100%' cellspacing=0 cellpadding=0><tr align=center><td width=1 bgcolor="&web_var(bar_color,1)&"></td><td bgcolor="&web_var(bar_color,2)&">"&bar_body&"</td><td width=1 bgcolor="&web_var(bar_color,1)&"></td></tr><tr><td height=1 colspan=3 bgcolor="&web_var(bar_color,1)&"></td></tr></table>" & _
		 vbcrlf&"</td></tr></table>"
    end if
  end select
end function
'------------------------------------格式化窗口2------------------------------------
function format_table(btype,tc)
  'response.write tc
  select case btype
  case 1
    format_table="<table width='98%' cellspacing=1 cellpadding=1 bgcolor="&web_var(web_color,tc)&">"
  case 2
    format_table=""
  case 3
    format_table=" bgcolor="&web_var(web_color,tc)&" bordercolor="&web_var(web_color,tc)
  case 4
    format_table=" background='images/"&web_var(web_config,5)&"/bg_table.gif' bordercolor="&web_var(web_color,tc)
  case 5
    format_table=" class='td' bordercolor="&web_var(web_color,tc)
  end select
end function

'------------------------------------格式化窗口3------------------------------------
function format_k(kvar,kt,kk,kw,kh)
  dim temp1,t1
  t1="images/"&web_var(web_config,5)&"/k"&kt&"_"
  temp1=vbcrlf&"<table border=0 width="&kw+kk*2&" height="&kh+kk*2&" cellpadding=0 cellspacing=0>" & _
	vbcrlf&"<tr>" & _
	vbcrlf&"<td width="&kk&" height="&kk&"><img src='"&t1&"1.gif' border=0></td>" & _
	vbcrlf&"<td width="&kw&" height="&kk&" background='"&t1&"top.gif'></td>" & _
	vbcrlf&"<td width="&kk&" height="&kk&"><img src='"&t1&"2.gif' border=0></td>" & _
	vbcrlf&"</tr>" & _
	vbcrlf&"<tr>" & _
	vbcrlf&"<td width="&kk&" height="&kh&" background='"&t1&"left.gif'></td>" & _
	vbcrlf&"<td width="&kw&" height="&kh&" align=center>"&kvar&"</td>" & _
	vbcrlf&"<td width="&kk&" height="&kh&" background='"&t1&"right.gif'></td>" & _
	vbcrlf&"</tr>" & _
	vbcrlf&"<tr>" & _
	vbcrlf&"<td width="&kk&" height="&kk&"><img src='"&t1&"3.gif' border=0></td>" & _
	vbcrlf&"<td width="&kw&" height="&kk&" background='"&t1&"end.gif'></td>" & _
	vbcrlf&"<td width="&kk&" height="&kk&"><img src='"&t1&"4.gif' border=0></td>" & _
	vbcrlf&"</tr>" & _
	vbcrlf&"</table>"
  format_k=temp1
end function

'------------------------------------格式化分页-------------------------------------
sub format_pagecute()
  if rssum mod nummer > 0 then
    thepages=rssum\nummer+1
  else
    thepages=rssum\nummer
  end if
  page=trim(request("page"))
  if not(isnumeric(page)) then page=1
  if int(page)>int(thepages) or int(page)<1 then
    viewpage=1
  else
    viewpage=int(page)
  end if
end sub

'-------------------------------------栏目名称--------------------------------------
function format_menu(mvars)
  dim i,mdim,mvar:mvar=trim(mvars):format_menu=""
  mdim=split(web_menu,"|")
  for i=0 to ubound(mdim)
    if mvar=left(mdim(i),instr(mdim(i),":")-1) then format_menu=right(mdim(i),len(mdim(i))-instr(mdim(i),":")):exit for
  next
  erase mdim
end function

'-------------------------------------用户权限--------------------------------------
function format_user_power(uname,umode,pvar)
  dim admint:admint=format_power2(1,1):format_user_power="yes"
  if umode=admint then exit function
  if instr("|"&pvar&"|","|"&uname&"|")<1 then format_user_power="no"
end function

'-------------------------------------页面权限--------------------------------------
function format_page_power(umode)
  dim unum:unum=format_power(umode,2):format_page_power="yes"
  if page_power="" then exit function
  if instr("."&page_power&".","."&unum&".")<1 then format_page_power="no"
end function

'-------------------------------------用户等级--------------------------------------
sub user_integral(ut,unum,uuser)
  dim fh:fh="+"
  if ut="del" then fh="-"
  conn.execute("update user_data set integral=integral"&fh&unum&" where username='"&uuser&"'")
end sub

sub user_cp(ut,unum,uuser)
  dim fh:fh="+"
  if ut="del" then fh="-"
  conn.execute("update user_data set usercp=usercp"&fh&unum&" where username='"&uuser&"'")
end sub

function format_power(pvar,pt)
  dim i,pdim:pvar=trim(pvar)
  if pt=2 then
    format_power=0
  else
    format_power=""
  end if
  pdim=split(user_power,"|")
  for i=0 to ubound(pdim)
    if pvar=left(pdim(i),instr(pdim(i),":")-1) then
      select case pt
      case 1
        format_power=right(pdim(i),len(pdim(i))-instr(pdim(i),":")):exit for
      case 2
        format_power=i+1:exit for
      case else
        format_power=pvar:exit for
      end select
    end if
  next
  erase pdim
end function

function format_power2(pnn,pt)
  dim i,pdim,pn:format_power2="":pn=pnn-1
  pdim=split(user_power,"|")
  if pn<=ubound(pdim) then
    if pt=1 then
      format_power2=left(pdim(pn),instr(pdim(pn),":")-1)
    else
      format_power2=right(pdim(pn),len(pdim(pn))-instr(pdim(pn),":"))
    end if
  end if
  erase pdim
end function

function power_pic(emon,pp,pt)
  power_pic=""
  if pt=1 then power_pic="货币：<font class=red_3>"&emon&"</font>&nbsp;"&m_unit&"&nbsp;&nbsp;"
  dim ddim,j:ddim=split(pp,".")
  for j=0 to ubound(ddim)
    if int(ddim(j))=0 then
      power_pic=power_pic&img_small("icon_other")
    else
      power_pic=power_pic&img_small("icon_"&format_power2(ddim(j),1))
    end if
  next
  erase ddim
end function

function user_star(u_s,u_p,u_t)
  dim tempp,tempn,ui,sdim,sn,u1,u2,uu
  tempp="":tempn="":u_s=int(u_s):u_t=int(u_t)
  select case u_p
  case format_power2(1,1)
    user_star=format_power2(1,u_t):exit function
  case format_power2(2,1)
    user_star=format_power2(2,u_t):exit function
  case format_power2(3,1)
    tempp="p"
  end select
  sdim=split(user_grade,"|"):sn=ubound(sdim)
  for ui=0 to sn
    u1=int(left(sdim(ui),instr(sdim(ui),":")-1))
    select case ui
    case 0
      u1=int(left(sdim(ui+1),instr(sdim(ui+1),":")-1))
      if u_s<u1 then
        uu=ui:exit for
      elseif u_s=u1 then
        uu=ui+1:exit for
      end if
    case sn
      response.write u_s&"-"&u1
      if u_s>=u1 then uu=ui:exit for
    case else
      u2=int(left(sdim(ui+1),instr(sdim(ui+1),":")-1))
      if u_s>=u1 and u_s<u2 then uu=ui:exit for
    end select
  next
  if u_t=2 then
    tempp=right(sdim(uu),len(sdim(uu))-instr(sdim(uu),":"))
  else
    tempp=tempp&uu
  end if
  erase sdim:user_star=tempp
end function

function user_power_type(ptt)
  dim pdim,pn:user_power_type="网站用户图例："
  pdim=split(user_power,"|")
  for pn=0 to ubound(pdim)
    user_power_type=user_power_type&"&nbsp;"&img_small("icon_"&left(pdim(pn),instr(pdim(pn),":")-1))&right(pdim(pn),len(pdim(pn))-instr(pdim(pn),":"))
  next
  erase pdim
  user_power_type=user_power_type&"&nbsp;&nbsp;"&img_small("icon_other")&"游客"
end function

function popedom_format(popedom_var,popedom_n)