index.asp

一个简易论坛自己手动写成的代码一个简易论坛自己手动写成的代码一个简易论坛自己手动写成的代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit 
dim time1,time2
	time1=timer
'''''''#######################################################################
'''''''沧海风云 FLASH 音乐网 mp3 流行音乐 网站建设 北京网站建设 个人网站建设
'''''''#######################################################################
Response.Buffer = True
'Response.ExpiresAbsolute = Now() - 1 
'Response.Expires = 0 
'Response.CacheControl = "no-cache" 
Private m_lOnBits(30)
Private m_l2Power(30)
'MD5 密码替代 admin = 21232f297a57a5a743894a0e4a801fc3 当你忘记管理密码时,用这个复制到数据库中去 :)
'#################################  全局变量  ##############################
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 img_top,img_foot,jd_cmail,main_list,jd_http,jd_upfile
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 m=8 '默认头像个数
const tout = 30 ' 会员在线多少分钟不点击页面视为离开
const pagestyle = 0 ' 用新分页=0 ,用精点分页=1
const img2="img/"  ' 头像与表情文件夹所在 三个文件夹
const photoyn=0 ' 会员发多少贴后可以上传
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
'#  底部信息 #
if jd100_top="" then jd100_top="<IMG src="&indeximg&"welcome.gif>"  
page = reSZ(Request.QueryString("page")) 
if jd_fla<>"" then jd_cmail="&nbsp;信箱:"&jd_fla
if jd100_foot="" then
jd100_foot="<b>"& webname &"</b>"& jd_cmail &"<br>"& "本论坛言论纯属发表者个人意见，与 <font color=#566276>" & webname &" </font>立场无关"
jd100_foot=jd100_foot & "<br>"
jd100_foot=jd100_foot & " <font face='Arial'>&copy;</font> "& year(now()) &" <a href=http://www.11987.com/ target=_blank><font face=Verdana, Arial, Helvetica, sans-serif size=1>"
jd100_foot=jd100_foot & "<b>11987<font color=#566276>.com . All Rights Reserved. </font></b></font></a>. "
jd100_foot=jd100_foot & "</a> "
end if
'防止站点外部提交 如果在防火墙内使用,请删除这段
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_usertopic=0
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 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"))&"' ",0,1)
	if rs.eof then rs.close:call exitcookies() 
    jd_username=rs(0)
    jd_membercls=rs(1)
	jd_usertopic=rs(2)
	rs.close
	set rs=nothing
end if

if indeximg<>"" then
img_top="<TABLE width='"&jd_table_w&"'  border=0 align='center' cellPadding=0 cellSpacing=0 borderColor=#566276 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>"
img_foot="<TABLE width='"&jd_table_w&"' border=0 align='center' cellPadding=0 cellSpacing=0 borderColor=#566276 style='BORDER-COLLAPSE:collapse'> <TBODY><TR><TD width='1%'><IMG src='"&indeximg&"T_bottomleft.gif' border=0></TD><TD width='97%' background='"&indeximg&"T_bottombg.gif'></TD><TD width='2%'><IMG src='"&indeximg&"T_bottomright.gif'  border=0></TD></TR></TBODY></TABLE><table width='30%' border='0' align='center'><tr><td height='5'></td></tr></table>"  
if listview=true then main_list="<a href='"&indexfilename&"?action=Add_New&forumid="&forumid&"'><img src='"&indeximg&"post.gif' alt='发表主题'  border='0'></a>"
else
main_list="<a href='"&indexfilename&"?action=Add_New&forumid="&forumid&"'>发表主题</a></font>"
end if
with Response
.Write("<html><head><title>"&webname&"-论坛 留言本--"&jd_actions(action)&"</title>")
.Write("<meta name=""description"" content=""ICONCN论坛(http://www.iconcn。cn/)"">")
.Write("<meta name=keywords content=""网站建设 北京网站建设 FLASH 音乐 流行歌曲 沧海风云"">")
.Write("<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">")
.Write("<link href="""&indeximg&"jd100.css"" rel=""stylesheet"" type=""text/css""></head>")
'JS
.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>")
'JS结束
  if len(bookbg)<3 then
  bookbg=""
  else
  bookbg="background=" & bookbg
  end if 
.Write("<body "&bookbg&" leftmargin='0' topmargin='3' marginwidth='0' marginheight='0'><table width="&jd_table_w&"  border='0' align='center' cellpadding='0' cellspacing='1'><tr><td height='' valign='top' ><div align='center'>")
		if jd_top_addr="" then
		.Write (jd100_top) 
		jd100_top=""
		else
		call jd_bannar(jd_top_addr,jd_table_w,jd_top_h,"")
		end if 
		jd_top_addr=""
.Write("</div></td>  </tr></table><table width="&jd_table_w&" border='0' align='center' cellpadding='0' cellspacing='0' ><tr><td height='18' align='center' valign='top' > ")
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()
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"
		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"