📄 index.asp

📁 平凡BBS1.0
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit 
dim time1
time1=timer
'''''''#######################################################################
'''''''#     #
'''''''#######################################################################
Response.Buffer = True 
Private m_lOnBits(30)
Private m_l2Power(30)
'#  全局变量  #
dim page,indexfilename,indeximg,db,jd100_page_n,jd100_page_x,bookbg,jd_txt,jd100_top
dim jd100_foot,jd_sty,jd_repyn,jd_repn,jd_memyn,jd_bg,jd_foot_addr,jd_top_addr
dim jd_foot_h,jd_top_h,conn,rs,sql,jd_sys,jd_mm,ki,jd_usertopic
dim jd_cmail,jd_http,jd_upfile,repage,photoup,pagetime,jd_rz,img2
dim webtitle,webname,webyn,webgl,webyn2,view2,jd_table_w,jd_fla,cookmsg,jd_editorstyle
dim jd_tologin,jd_kt,jd_qmpic,Sessionwebname,i,sqlid,countent,jd_ad,jd_tjmsg,bkww,jd_acview
'#
'indexfilename="index.asp" ' 当前文件名
const systimestyle=""
const pagestyle = 0 
const m=10 '默认头像个数
const tout = 20 '分钟 在线列表刷新时间
indexfilename=Request.ServerVariables("PATH_TRANSLATED")
indexfilename=right(indexfilename,(len(indexfilename)-instrRev(indexfilename,"\"))) 
		%><!--#include file="CONN.ASP"--><%
		dim action,action_e,forumid
		forumid = reStr(Request("forumid"))
		action = reStr(Request.QueryString("action"))
		action_e = reStr(Request.Form("action_e"))
		'上传表单
		if action="upfile" then Call upfile("jdfiletosave.asp")
		call connopen(db)
		'首页调用
		if action="top" then call toplist()
		'IP管理
		call tostopip()
		if not IsNumeric(forumid) or forumid="" then
				set rs=conn.execute("select id from forum order by jd_order asc",0,1)
				if not rs.eof then forumid=rs(0)
				rs.close
				set rs=nothing
		else
			forumid =reSZ(forumid)
		end if
		   'conn.execute("update a set hots=hots+1") '刷新计数
           call allsystem()
		   Sessionwebname=Session("Admin"&webname)
		   jd_foot_addr=jd100_foot
           jd_top_addr=jd100_top
           jd_bg=bookbg

page = reSZ(Request("page"))
if action_e <>"" then
    dim server_v1,server_v2
  server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) 
  server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) 
   if mid(server_v1,8,len(server_v2))<>server_v2 then 
    call msg_List("非法操作","禁止从站点外部提交数据！",3,indexfilename) 
   end if
end if
' 验证会员身份
dim jd_username,jd_membercls,jd_memberid,jd_jfzd,jd_jf
jd_usertopic=0
jd_jfzd="":jd_jf=0
if action<>"View_Words" then jd_jfzd=",jd_jf"
if Request.Cookies("JD100_NET_GBBOOK_"&webname)("id")<>"" then
    if jd_memyn=0 then call exitcookies()
	jd_memberid=reStr(Request.Cookies("JD100_NET_GBBOOK_"&webname)("id"))
    set rs=conn.execute("select jd_user,jd_cls,jd_topic"&jd_jfzd&" from member where id="&jd_memberid&" and jd_pw='"&reStr(Request.Cookies("JD100_NET_GBBOOK_"&webname)("name"))&"' and jd_rnd='"&reStr(Request.Cookies("JD100_NET_GBBOOK_"&webname)("rnd"))&"' and jd_cls>=0",0,1)
	if rs.eof then rs.close:call exitcookies() 
    jd_username=rs(0)
    jd_membercls=rs(1)
	jd_usertopic=rs(2)
	if action<>"View_Words" then jd_jf=rs(3)
	rs.close
	set rs=nothing
end if

Sub img_top()
Response.write"<TABLE width='"&jd_table_w&"' border=0 align='center' cellPadding=0 cellSpacing=0 borderColor=#111111 style='BORDER-COLLAPSE: collapse'><TBODY><TR><TD width='2%'><IMG src='"&indeximg&"T_left.gif' border=0></TD><TD width='96%' background='"&indeximg&"Tt_bg.gif'></TD><TD width='2%'><IMG src='"&indeximg&"T_right.gif' border=0></TD></TR></TBODY></TABLE>"
End Sub

Sub img_foot()
Response.write"<TABLE width='"&jd_table_w&"' border=0 align='center' cellPadding=0 cellSpacing=0  style='BORDER-COLLAPSE:collapse'><TBODY><TR><TD><IMG src='"&indeximg&"T_bottomleft.gif' border=0></TD><TD width='100%' background='"&indeximg&"T_bottombg.gif'></TD><TD><IMG src='"&indeximg&"T_bottomright.gif'  border=0></TD></TR></TBODY></TABLE><TABLE width='10' border=0 align='center' cellPadding=0 cellSpacing=0><TR><TD height=5></TD></TR></TABLE>"  
End Sub

with Response
.Write("<html><head><title>"&webname&"--"&jd_actions(action)&"</title>")
.Write("<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">")
.Write("<meta name=""description"" content="""&webname&"留言本"">")
.Write("<meta name=keywords content=""有BBS功能的留言本,审核的留言本,论坛留言本,微型论坛,"&webname&"留言本"">")
.Write("<link href="""&indeximg&"jd100.css"" rel=""stylesheet"" type=""text/css""></head>")
.Write("<script language=""JavaScript"">")
'保证最顶,如果用在框架内请删除下面一段
.Write("if (top.location != self.location){top.location=self.location;}")
'图片滚动
.Write("function cgimg(o){")
.Write("var zoom=parseInt(o.style.zoom, 10)||100;zoom+=event.wheelDelta/12;if (zoom>0) o.style.zoom=zoom+'%';")
.Write("return false;}")
' 提交按纽成灰
if action<>"" and action<>"View_Words" then
.Write("function submitonce(theform){")
.Write("if (document.all||document.getElementById){")
.Write("for (i=0;i<theform.length;i++){")
.Write("var tempobj=theform.elements[i];")
.Write("if(tempobj.type.toLowerCase()==""submit""||tempobj.type.toLowerCase()==""reset"")")
.Write("tempobj.disabled=true;")
.Write("}}}")
end if
'选择所有复选框
if  Sessionwebname="Login" or jd_membercls=9 then
.Write("function CheckAll(form) {")
  .Write("for (var i=0;i<form.elements.length;i++)")
    .Write("{var e = form.elements[i];")
    .Write("if (e.name != 'chkall')")
       .Write("e.checked = form.chkall.checked;")
    .Write("} }")
end if
.Write("</script>")
  if len(bookbg)<3 then
  bookbg=""
  else
  bookbg="background=" & bookbg
  end if 
.Write("<body "&bookbg&" leftmargin='0' topmargin='3' marginwidth='0' marginheight='0'><div align='center'>")
		if jd_top_addr="" then
		.Write ("<IMG src="&indeximg&"welcome.gif>") 
		else
		call jd_bannar(jd_top_addr,jd_table_w,jd_top_h,"")
		end if 
.Write("</div><div align='center'>")
end with
'主程序 
Select Case action_e
	Case ""

	Case "Add_New"
		Call Add_New_Execute()
	Case "reply"
		Call Reply_Execute()
	Case "admin"
		Call Admin_Login_Execute()
	Case "EditPWD"
		Call EditPWD_Execute()
	Case "Edit"
		Call Edit_Execute()
    Case "Edit_web"
		Call Edit_web()
	Case "Del_all"
		Call delall()
	Case "Add_reply"	
		Call Add_New_reply()
   Case "add_member"	
		Call add_member()
	Case "member"	
		Call member_login()
	Case "member_save"	
		Call member_save()
	Case "member_list"	
		Call member_list()
	Case "edit_my"	
		Call edit_my()
	Case "msg"	
		Call getmsg()
	Case "stopip"
	      Call stopip()
	Case "CompactDB"
	      Call CompactDB()
	Case "mailsend"
	      Call mailsend()
End Select
Call Main_Menu()
Select Case action
	Case "msg","lookmsg","writemsg"	
		Call getmsg()
    Case "UbbHelp"
        Call UbbHelp()
	Case "Admin_Login"
		Call Admin_Login()
	Case "member_login"
		Call Admin_Login()	
	Case "Exit"
		Call Exit_Admin()		
		Call View_Words()		
	Case ""	, "View_Words"	
		Call View_Words()	
	Case "Add_New"
		if jd_usertopic=0 then call newmembersend()
		Call Add_New()
	Case "reply"
		Call Reply()
	Case "Delete"
		Call Delete()
		Call View_Words()
	Case "EditPWD"
		Call EditPWD()
	Case "Edit"
		Call Edit()
	Case "Edit_web"
		Call Edit_web()
	Case "View_topics"
		Call View_topics()
	Case "DeleteReply"
	   Call Deletereply()
    Case "list_top" 
	   list_top()
    Case "list_notop" 
	   list_notop()	   
   Case "member_reg" 
	   Call member_reg() 
   Case "exitcookies"
	  Call exitcookies()
   Case "edituser"
	  Call member_edit()
   Case "member_list"
12 3 4 5 下一页
⌨️ 快捷键说明

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