📄 index.asp
字号:
Case "myfriend"
call gbhead("")
Call myfriend()
Case "mailsend"
call gbhead("")
Call mailsend()
Case "member_add_jf"
call gbhead("")
Call member_add_jf()
Case "topic_List_Admin"
call gbhead("")
Call topic_List_Admin()
Case "jfmove"
call gbhead("")
Call jfmove()
Case "password_q"
call gbhead("")
Call password_q()
Case "forget_pw"
call gbhead("")
call b_password()
Case "Back_Topics"
call gbhead("")
call Back_Topics()
Case "SH_Reply"
call gbhead("")
call SH_Reply()
Case "Admin_log"
call gbhead("")
call Admin_log()
End Select
if jd_acview>0 then call jd_onliner()
call connClose()
call foot()
' 主程序结束
' 页脚
sub foot()
with Response
.Write("<table width='"&jd_table_w&"' border='0' align='center' cellpadding='0' cellspacing='1'><tr><td valign='top' ><table align=center cellpadding=0 cellspacing=0><tr><td width='"&jd_table_w&"'></td> </tr><tr><td class='footline'></td></tr><tr align=center height='' style='line-height:130%'><td> <span class='unnamed1'>")
if jd_foot_addr="" then
dim time2
time2=timer
.Write "版权所有：<b>"& webname &"</b> 执行时间:"& (time2-time1)*1000 &" 毫秒<br>"& "论坛言论纯属发表者个人意见，与 <font color=#CC0000>" & webname &" </font>立场无关"
.Write "<br> Copyright <font face='Arial'>©</font> 2003-"& year(date()) &" <a href=http://www.ddtaobao.com/ target=_blank><font face=Verdana, Arial, Helvetica, sans-serif size=1><b>Ddtaobao<font color=#CC0000>.Com</font></b></font></a>. <a href=http://www.ddtaobao.com/bbs/ target=_blank> Bbs.ddtaobao.Com </a>"
else
call jd_bannar(jd_foot_addr,jd_table_w,jd_foot_h,"")
end if
.Write("</span></td></tr></table></td></tr></table>")
end with
end sub
'签写留言
Sub Add_New()
call jd_loginyn()
dim tb_topic
tb_topic="jd_gb_"&jd_rnd(3)
with Response
.Cookies("JD100_NET_GBBOOK__CK")("topic")=tb_topic
if Sessionwebname<>"Login" then
if jd_memyn=1 and (jd_username="" or jd_username=null) then
call msg_List("错误","你还不是会员或者你还没登录",3,indexfilename&"?forumid="&forumid)
end if
end if
.Write("<script language=javascript>")
.Write(vbLf&"<!--"&vbLf)
.Write("function showimage(){document.images.showimages.src='"&img2&"head/'+document.form.sex.options[document.form.sex.selectedIndex].value+""""+document.form.img.options[document.form.img.selectedIndex].value+"".gif"";}")
.Write("function DoTitle(addTitle) { var revisedTitle; var currentTitle = document.form.title.value; revisedTitle = addTitle+currentTitle; document.form.title.value=revisedTitle; document.form.title.focus(); return; }")
.Write(vbLf&"//-->"&vbLf)
.Write("</SCRIPT>")
.Write("<TABLE width='"&jd_table_w&"' border=1 align=center cellPadding=0 cellSpacing=0 class='jd_tab' style='border-collapse:collapse'><TR><TD height=25 class=jd_titlemu align='center'>")
.Write("签 写 留 言")
.Write("</TD></TR></TABLE>"&vbLf)
.Write("<form name='form' method='post' action='"&indexfilename&"' onSubmit='submitonce(this);submits();'>")
.Write("<input name='"&tb_topic&"' type='hidden' value='jd100'>")
if jd_username="" then
.Write("<table width='"&jd_table_w&"' border='0' align='center' cellpadding='1' cellspacing='1' class='jd_tab' style='border-top-width:0px;font-size:12px;'><tr><td width='80' align='right' class='jd_title'>")
.Write("姓名：")
.Write("</td><td width='*'>")
.Write("<input name='name' type='text' value='"&jd_username&"' size='15' maxLength=10 class='jd_tx1'><font color='#FF0000'> *</font>")
.Write("</td></tr></TABLE>")
.Write("<table width='"&jd_table_w&"' border='0' align='center' cellpadding='1' cellspacing='1' class='jd_tab' style='border-top-width:0px;font-size:12px;'><tr><td width='80' align='right' class='jd_title'>")
.Write("性别：")
.Write("</td><td width='180'>")
.Write("<select name='sex' size='1' onChange='showimage()' class='jd_tx1'><option value='1'>男</option><option value='2'>女</option></select>")
.Write("</td><td width='80' align='right' class='jd_title'>")
.Write("选择头像:")
.Write("</td><td width='*'>")
.Write("<select name='img' size='1' onChange='showimage()' class='jd_tx1'>")
for i=101 to 111
.Write("<option value='"&i&"'>"&i&"</option>")
next
.Write("</select>")
.Write(" <img src='"&img2&"head/1101.gif' name='showimages' id='showimages' width='50' height='50' align='absmiddle'>")
.Write("</td></tr></TABLE>")
.Write("<table width='"&jd_table_w&"' border='0' align='center' cellpadding='1' cellspacing='1' class='jd_tab' style='border-top-width:0px;font-size:12px;'><tr><td width='80' align='right' class='jd_title'>")
.Write("QQ：")
.Write("</td><td width='180'>")
.Write("<input name='qq' type='text' id='qq' size='20' maxLength=20 class='jd_tx1'>")
.Write("</td><td width='80' align='right' class='jd_title'>")
.Write("主页：")
.Write("</td><td width='*'>")
.Write("<input name='web' type='text' value='http://' size='20' maxLength=25 class='jd_tx1'>")
.Write("</td></tr></TABLE>")
.Write("<table width='"&jd_table_w&"' border='0' align='center' cellpadding='1' cellspacing='1' class='jd_tab' style='border-top-width:0px;font-size:12px;'><tr><td width='80' align='right' class='jd_title'>")
.Write("地址：")
.Write("</td><td width='180'>")
.Write("<input name='come' type='text' id='come' size='20' maxlength='25' class='jd_tx1'>")
.Write("</td><td width='80' align='right' class='jd_title'>")
.Write("E-mail：")
.Write("</td><td width='*'>")
.Write("<input name='email' type='text' size='20' maxLength='25' class='jd_tx1'>")
.Write("</td></tr></TABLE>")
end if
.Write("<table width='"&jd_table_w&"' border='0' align='center' cellpadding='1' cellspacing='1' class='jd_tab' style='border-top-width:0px;font-size:12px;'><tr><td width='80' align='right' class='jd_title'>")
.Write("主题：")
.Write("</td><td width='260'>")
.Write("<input name='title' type='text' id='title' size='35' maxlength=50 class='jd_tx1'>")
.Write("</td><td width='80'>")
.Write("<select name=font onchange=""DoTitle(this.options[this.selectedIndex].value)"" class='jd_tx1'><OPTION selected value="""">话题</OPTION><option value=[原创]>[原创]</option><option value=[转帖]>[转帖]</option><option value=[灌水]>[灌水]</option><option value=[讨论]>[讨论]</option><option value=[求助]>[求助]</option><option value=[推荐]>[推荐]</option><option value=[公告]>[公告]</option><option value=[注意]>[注意]</option><option value=[贴图]>[贴图]</option><option value=[建议]>[建议]</option><option value=[下载]>[下载]</option><option value=[分享]>[分享]</option></select>")
.Write("</td><td width='*'>")
call upphoto("content")
.Write("</td></tr></TABLE>")
call jd_editor(0,jd_editorstyle)
if jd_mm=1 or jd_jf>1000 or jd_membercls>1 then
.Write("<table width='"&jd_table_w&"' border='0' align='center' cellpadding='1' cellspacing='1' class='jd_tab' style='border-top-width:0px;font-size:12px;'><tr><td width='80' align='right'>")
.Write("</td><td width='*'>")
.Write("<table border=1 width='100%' border='0' cellpadding='0' cellspacing='0' class='jd_tab' style='border-collapse:collapse'><tr class='unnamed1'><td class='jd_title' align='right' width='15%'>特殊贴选项:</td><td width='85%'>")
if jd_mm=1 then
.Write(" 【版主可见:<input name='view' type='checkbox' id='view' value='2' "&view2&">】")
end if
if jd_jf>1000 or jd_membercls>1 then
.Write(" 【回复可见:<input name='view8' type='checkbox' id='view8' value='8'>】")
end if
if jd_membercls>1 then
.Write(" 【<font color='#ff0000'>彩色标题:</font> <select name=tcolor><OPTION selected value=0>选择</OPTION>")
if jd_membercls=9 then .Write("<option value=1>[红]</option>")
.Write("<option value=2>[绿]</option><option value=3>[蓝]</option><option value=4>[橙]</option></select>】")
end if
.Write("</td></tr></table>")
.Write("</td></tr></TABLE>")
end if
.Write("<input type='hidden' name='forumid' value='"&forumid&"'>")
.Write("<input type='hidden' name='action_e' value='Add_New'>")
.Write("<br/></form>")
end with
End Sub
Function mydomain()
mydomain="<a href="&indexfilename &"?action=edituser&forumid="&forumid&">我的资料</a> | <a href='"&indexfilename&"?action=member_topices_list&cls=mytopic&forumid="&forumid&"'>发表的贴子</a> | <a href='"&indexfilename&"?action=member_topices_list&cls=myreply&forumid="&forumid&"'>参与的贴子</a> | <a href='"&indexfilename&"?action=myfriend&forumid="&forumid&"'>我的好友</a> | <a href='"&indexfilename&"?action=memberview&cls=myreply&forumid="&forumid&"'>查找好友</a> | <a href='"&indexfilename&"?action=writemsg&forumid="&forumid&"'>签写短信</a> | <a href='"&indexfilename&"?action=jfmove&forumid="&forumid&"'>转让积分</a> | <a href='"&indexfilename &"?action=password_q&forumid="&forumid&"'>密码保护</a>"
End Function
' 主菜单
Sub Main_Menu()
with Response
.Write("<table width='"&jd_table_w&"' border='0' align='center' cellspacing='0'><tr><td>")
.Write(forumlist())
.Write("</td></tr></table>")
.Write("<table width='"&jd_table_w&"' border='0' align='center' cellspacing='0' class=jd_tab ><tr class=jd_titlemu> <td width='*'> ")
if jd_username="" and jd_memyn<>0 then
.Write("<a href="&indexfilename &"?action=member_login&forumid="&forumid&">登录</a> ")
.Write("<a href="&indexfilename &"?action=member_reg&forumid="&forumid&">注册</a> ")
.Write("<a href="&indexfilename &"?action=forget_pw&forumid="&forumid&">忘记密码</a> ")
elseif jd_username<>"" then
.Write("欢迎您: <b>"&jd_username & "</b> ")
.Write("<a href="&indexfilename &"?action=exitcookies&forumid="&forumid&" class=jd100>注销</a> ")
.Write("<a href="&indexfilename &"?action=edituser&forumid="&forumid&" class=jd100>我的面版</a> ")
.Write("<a href="&indexfilename &"?action=member_topics_search&forumid="&forumid&" class=jd100>搜索</a> ")
.Write("<a href="&indexfilename &"?action=msg&forumid="&forumid&" class='jd100'>")
if not conn.execute("select id from msg where jd_name='"&jd_username&"' and jd_view>2").eof then
if action="" or action="view_words" then
call jdswf(indeximg&"msg.swf",0,0,0,0,0)
end if
.Write("<img src='"&indeximg&"msg.gif' border='0'><font color=#ff0000>有短消息</font>")
else
.Write("短消息")
end if
.Write("</a>")
end if
if jd_membercls=9 or Sessionwebname="Login" then
.Write(" <a href='?action=member_list&forumid="&forumid&"' class='jd100'>会员管理</a>")
.Write(" <a href='?action=Del_Topics&forumid="&forumid&"' class='jd100'>回收站</a>")
end if
if jd_usertopic>10 or jd_membercls>=5 then
.Write(" <a href='"&indexfilename &"?action=Best_Topics&forumid="&forumid&"' class='jd100'>本版精华</a>")
end if
.Write(" <a href='"&indexfilename &"?action=UbbHelp&forumid="&forumid&"' class='jd100'>帮助</a></td><td class=jd_titlemu width='75'>")
If Sessionwebname="Login" Then
if action<>"Add_New" and action<>"view_topics" then
call jd_jsdiv()
end if
call div_name("ff")
.Write("<TABLE cellSpacing=0 cellPadding=8 width=80 class='jd_tab'><tr class='jd_title'><td height=100% width=100% >")
.Write(" <a href='?action=Edit_web&forumid="&forumid&"' class='jd100'>基本设置</a><br> ")
.Write(" <a href='?action=forum&forumid="&forumid&"' class='jd100'>版块管理</a><br> ")
.Write(" <a href='?action=movetopic&forumid="&forumid&"' class='jd100'>整版转移</a><br> ")
.Write(" <a href='?action=member_list&forumid="&forumid&"' class='jd100'>会员管理</a><br> ")
.Write(" <a href='?action=mailsend&forumid="&forumid&"' class='jd100'>邮件群发</a><br> ")
.Write(" <a href='?action=stopip&forumid="&forumid&"' class='jd100'>IP管理</a><br> ")
.Write(" <a href='?action=EditPWD&forumid="&forumid&"' class='jd100'>修改密码</a><br> ")
.Write(" <a href='?action=dbCompact&forumid="&forumid&"' class='jd100'>数据压缩</a><br> ")
.Write(" <a href='jd_pic.asp' target='_blank' class='jd100'>图片管理</a><br> ")
.Write(" <a href='?action=Admin_log&forumid="&forumid&"'' class='jd100'>管理日志</a><br> ")
.Write(" <a href='?action=Exit&forumid="&forumid&"' class='jd100'>退出管理</a><br> ")
.Write("</td></tr></TABLE></DIV>")
.Write("<a style=cursor:hand onmouseover=MM_div('ff','','show') onmouseout=MM_div('ff','','hide')><font color='#ff0000'>后台管理菜单</font></a>")
Else
if jd_membercls>1 then .Write("<a href='?action=Admin_Login&forumid="&forumid&"' class='jd100'>管理登录</a> ")
End If
.Write "</td><td class=jd_titlemu width='75' align='right'>"
.Write("<a href='rss.asp?action=rss&forumid="&forumid&"' target='_blank'><img src='"&indeximg&"rss.gif' alt='RSS订阅' border='0' align=absmiddle></a> ")
'.Write "</div>"
.Write("</td></tr></table><table width='"&jd_table_w&"' border='0' align='center' cellspacing='0'><tr class=jd_title>")
.Write("<td width='40%' align='left'>")
.Write(" <font color=#666666>§</font>")
call jd_memu()
.Write("</td><td width='60%' align='right'><font color=#666666>"&jd_tjmsg&"</font>")
if listview=true then .Write("<a href='"&indexfilename&"?action=Add_New&forumid="&forumid&"'><img src='"&indeximg&"post.gif' alt='签写留言' border='0' align=absmiddle></a>")
.Write("</td></tr></table>")
end with
End Sub
'操作
function admin_ls(lsid)
admin_ls=""
dim yn
yn=false
if Sessionwebname ="Login" or jd_membercls=9 then yn=true
if jd_membercls=5 and instr(","&jd_ad&",",","&jd_username&",")<>0 then yn=true
if yn=false then exit function
admin_ls=" <a href=?action=topic_List_Admin&id="&lsid&"&forumid="&forumid&" title='贴子操作面版'><font color=#cccccc>[管]</font></a>"
admin_ls=admin_ls&"<a href=?action=edit_my&myaction=topics&id="&lsid&"&forumid="&forumid&"><font color=#cccccc>[编]</font></a>"
if (Sessionwebname ="Login" or jd_membercls=9) and action = "Del_Topics" then
admin_ls=admin_ls&"<a href=?action=Back_Topics&id="&lsid&"&forumid="&forumid&" onClick=""return confirm('你要将该主题还原到原来版块！\n\n是否进行？')"" title='将主题还原到原来版块'><font color=#cccccc>[原]</font></a>"
admin_ls=admin_ls&"<a href=?action=view_words&cls=del&Del_Topics=Del_Topics&id="&lsid&"&forumid="&forumid&" onClick=""return confirm('你处于回收站撤底删除主题？\n\n该操作不可恢复！')"" title='撤底删除贴子'><font color=#cccccc>[删]</font></a>"
end if
end function
'''''''''留言显示,平板及列表
Sub View_Words()
call jd_loginyn()
if reStr(Request.QueryString("cls"))="del" then call deltopics()
dim jd100_zd,jd100_page_count
dim titlepic,listad,jd_usermsg,titlead,jd_where_sql
jd_where_sql=" jd_cls<>37 and jd_forumid="&forumid
if jd_sql_cls=1 then jd_where_sql=" jd_cls=1 and jd_forumid="&forumid
if jd_sql_cls=37 then jd_where_sql=" jd_cls=37 "
jd100_page_count=rsCount("topics","where "&jd_where_sql)
with Response
if jd100_page_count>0 then
'打开记录集
dim sqlid
SqlId=repageid("topics",jd100_page_n,Page,"where "&jd_where_sql&" order by jd_top desc,jd_rdate desc")
.Write("<table width='"&jd_table_w&"' border='0' cellspacing='1' cellpadding='4' align='center'>")
if len(webtitle)>2 then
.Write("<tr> <td height='20' colspan='2' align='right' class='unnamed2'> <marquee onMouseOut=start(); onMouseOver=stop(); scrollamount=3>")
.Write(Ubb(untitle(webtitle),""))
.Write("</marquee></td></tr>")
end if
'''###小字报
dim mrs
set mrs=conn.execute("select top 5 jd_come,jd_msg,jd_date from msg where jd_name='小字报' and DATEDIFF(""n"",[jd_date],'"&now&"')<60 order by id")
if not mrs.eof then
.Write("<tr><td colspan='2' class='unnamed1'>")
.Write("<table border=1 width='100%' border='0' cellpadding='0' cellspacing='0' class='jd_tab' style='border-collapse:collapse'><tr class='unnamed1'><td>")
.Write("<MARQUEE onmouseover=this.scrollDelay=10000 onmouseout=this.scrollDelay=500 scrollAmount=2 scrollDelay=500 direction=up style=cursor:hand height=25>")
do while not mrs.eof
.Write("<b><font color=#ff0000>【小字报】</font></b> "&mrs(1)&" <font color=#999999>(<b>"&mrs(0)&"</b> 发表于"&day(mrs(2))&"日"&hour(mrs(2))&"时)</font><br>")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -