config.asp

这是一个师姐请我做的英语爱好者的毕业设计 已经通过东北大学的毕业答辩 有论文数据库结构分析等全套 已经是可以直接用的毕业设计!

<%
Option Explicit
Response.buffer=true 		'开启缓冲页面功能，只要把前面的引号去掉就可以开启了

dim web_config,web_cookies,web_login,web_setup,web_menu,web_num,web_color,web_upload,web_safety,web_edition,web_label
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
dim rs,sql,i,tit,tit_fir,index_url,action,page_power,m_unit,sk_bar,sk_class,sk_jt,sk_img
%>
<!-- #include file="common.asp" -->
<!-- #include file="functions.asp" -->
<%
sk_bar=11:sk_class="end":sk_jt="jt0":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://127.0.0.1' target=_blank>Power by <b><font face=Arial color=#CC3300>英语爱好者</font><font face=Arial>.COM</font></b></a>"
redx="&nbsp;<font color='#ff0000'>*</font>&nbsp;":kong="<table width='100%' height=2><tr><td></td></tr></table>":web_edition="20040201":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"))
sk_img="&nbsp;<img src='images/small/img.gif' border=0>"
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
function format_table(btype,tc)
  'response.write tc
  select case btype
  case 1
    format_table="<table border=1 width='98%' cellspacing=1 cellpadding=1 bgcolor="&web_var(web_color,tc)&" bordercolor="&web_var(web_color,1)&">"
  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)
  end select
end function
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
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