📄 index.asp
字号:
<%@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,jd_sql_cls
dim jd_http,repage,pagetime,jd_rz,img2,jd_forumname,listtitle
dim webtitle,webname,webyn,webgl,webyn2,view2,jd_table_w,cookmsg,jd_editorstyle
dim jd_tologin,jd_kt,jd_qmpic,Sessionwebname,i,sqlid,countent,jd_ad,jd_tjmsg,bkww,jd_acview
dim cls_name,tout,jd_adyn
indexfilename=Request.ServerVariables("PATH_TRANSLATED")
indexfilename=right(indexfilename,(len(indexfilename)-instrRev(indexfilename,"\")))
'indexfilename="index.asp" ' 当前文件名
%><!--#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()
call connopen(db)
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"
jd_memberid=reStr(Request.Cookies("JD100_NET_GBBOOK_"&webname)("id"))
if jd_memberid<>"" then
if jd_memyn=0 then call exitcookies()
set rs=conn.execute("select jd_user,jd_cls,jd_topic,jd_rnd"&jd_jfzd&" from member where id="&jd_memberid&" and jd_pw='"&reStr(Request.Cookies("JD100_NET_GBBOOK_"&webname)("name"))&"' and jd_cls>=0",0,1)
if rs.eof then rs.close:call exitcookies()
if len(rs(3))<2 or rs(3)<>Request.Cookies("JD100_NET_GBBOOK_"&webname)("rnd") 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(4)
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
'头信息
sub gbhead(str)
if str="" then
str=jd_action(action)
end if
if listview=false and jd_tologin=9 then jd_forumname=""
with Response
.Write("<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">")
.Write("<html><head>")
.Write("<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">")
.Write("<title>"&webname&"留言本 〖"&jd_forumname&"〗 "&str&"</title>")
.Write("<meta name=""description"" content="""&webname&"留言本"">")
.Write("<meta name=keywords content=""BBS功能留言本,审核留言本,论坛留言本,微型论坛,"&webname&"留言本"">")
.Write("<link href="""&indeximg&"jd100.css"" rel=""stylesheet"" type=""text/css"">")
.Write("<script language=""JavaScript"">"&vbLf)
.Write(vbLf&"<!--"&vbLf)
'保证最顶,如果用在框架内请删除下面一段
.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;}")
' 提交按纽成灰
.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("}}}")
'选择所有复选框
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(vbLf&"//-->"&vbLf)
.Write("</script>")
if len(bookbg)<3 then
bookbg=""
else
bookbg="background=" & bookbg
end if
.Write("</head><body "&bookbg&" leftmargin='0' topmargin='3' marginwidth='0' marginheight='0'><div align='center'>")
if instr(jd_adyn,"5")=0 then
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
end if
.write ad_jd100("5")
.Write("</div>")
end with
Call Main_Menu()
end sub
'主程序
if action_e<>"" then call gbhead("")
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_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()
Case "member_add_jf"
Call member_add_jf()
Case "topic_List_Admin"
Call topic_List_Admin()
End Select
Select Case action
Case "msg","lookmsg","writemsg"
call gbhead("")
Call getmsg()
Case "UbbHelp"
call gbhead("")
Call UbbHelp()
Case "Admin_Login"
call gbhead("")
Call Admin_Login()
Case "member_login"
call gbhead("")
Call Admin_Login()
Case "Exit"
call gbhead("")
Call Exit_Admin()
Case "" , "view_words"
call gbhead("")
Call View_Words()
Case "Best_Topics"
jd_sql_cls=1
if jd_usertopic<10 and jd_membercls<5 then response.redirect indexfilename&"?forumid="&forumid
call gbhead("")
Call View_Words()
Case "Del_Topics"
jd_sty=1
jd_sql_cls=37
if admin_class("总版主","")=false then response.redirect indexfilename&"?forumid="&forumid
call gbhead("")
Call View_Words()
Case "Add_New"
call gbhead("")
if jd_usertopic=0 then call newmembersend() '注册时限
Call Add_New()
Case "reply"
call gbhead("")
Call Reply()
Case "Delete"
call gbhead("")
Call deltopics()
Case "EditPWD"
call gbhead("")
Call EditPWD()
Case "Edit_web"
call gbhead("")
Call Edit_web()
Case "view_topics"
Call View_topics()
Case "DeleteReply"
call gbhead("")
Call Deletereply()
Case "list_top"
call gbhead("")
list_top()
Case "list_notop"
call gbhead("")
list_notop()
Case "member_reg"
call gbhead("")
Call member_reg()
Case "exitcookies"
call gbhead("")
Call exitcookies()
Case "edituser"
call gbhead("")
Call member_edit()
Case "member_list"
call gbhead("")
Call member_list()
Case "edit_my"
call gbhead("")
Call edit_my()
Case "member_topices_list"
call gbhead("")
Call member_topics_list()
Case "member_topics_search"
call gbhead("")
Call member_topics_search()
Case "topic_classedit"
call gbhead("")
Call topic_cls()
Case "forum"
call gbhead("")
Call forum()
Case "movetopic"
call gbhead("")
Call movetopic()
Case "stopip"
call gbhead("")
Call stopip()
Case "dbCompact"
call gbhead("")
Call dbCompact()
Case "SubReply"
call gbhead("")
Call xx_reply(1)
Case "Lock_reply"
call gbhead("")
Call lock_reply()
Case "memberview"
call gbhead("")
Call memberview()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -