📄 index.asp
字号:
Call member_list()
Case "edit_my"
Call edit_my()
Case "member_topices_list"
Call member_topics_list()
Case "member_topics_search"
Call member_topics_search()
Case "topic_classedit"
Call topic_cls()
Case "forum"
Call forum()
Case "movetopic"
Call movetopic()
Case "stopip"
Call stopip()
Case "dbCompact"
Call dbCompact()
Case "SubReply"
Call xx_reply(1)
Case "Lock_reply"
Call lock_reply()
Case "memberview"
Call memberview()
Case "myfriend"
Call myfriend()
Case "mailsend"
Call mailsend()
End Select
Response.Write( "</div><div align='center'>")
if jd_acview>0 then
Response.Write(" ")
call jd_onliner()
Response.Write("</div><div align='center'>")
end if
Response.Write("</div")
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>[平凡<font color=#CC0000>设</font>计]</b><br>"& "版权所有 Copyright <font face='Arial'>©</font> 2006-2008 <a href=http://www.pfsj8.net/ target=_blank><font face=Verdana, Arial, Helvetica, sans-serif size=1><b>Www.pfsj8<font color=#CC0000>.Net</font></b></font></a>;</font> 执行时间:"& (time2-time1)*1000 &" 毫秒"
.Write ""
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("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("</SCRIPT>")
.Write("<TABLE width='"&jd_table_w&"' height=51 border=1 align=center cellPadding=0 cellSpacing=0 class='jd_tab' style='border-collapse:collapse' > <TBODY>")
.Write("<TR ><TD height=25 class=jd_titlemu><div align='center'><font size='3'><strong>签 写 留 言</strong></font><font color='#000000'> </font></div></TD>")
.Write("</TR><TR> <TD height='21' align=middle valign='top' class='jd_tab' >")
.Write("<table width='95%' border='0' align='center' cellpadding='1' cellspacing='1' class='unnamed1'>")
.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("<tr><td width='10%'><div align='right'>姓名：</div></td><td width='210'><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr> <td width='90%' class='unnamed1'><input name='name' type='text' class='input1' value='"&jd_username&"' size='15' maxLength=10>")
.Write("<font color='#FF0000'>*</font></td><td width='19%'></td></tr></table></td><td width='30%'></td></tr>")
.Write("<tr><td align='right'> 性别： </td><td> <select name='sex' size='1' onChange='showimage()'><option value='1'>男</option><option value='2'>女</option></select> </td> <td width='30%' rowspan='5'> 选择头像: <select name='img' size='1' onChange='showimage()'>")
for i=101 to 101+m
.Write("<option value='"&i&"'>"&i&"</option>")
next
.Write("</select><br><img src='"&img2&"head/1101.gif' name=showimages id='showimages'> </td></tr><tr> <td align='right'>QQ：</td><td><input name='qq' type='text' class='input1' id='qq' size='20' maxLength=20></td></tr><tr> <td align='right'>主页： </td><td> <input name='web' type='text' class='input1' value='http://' size='20' maxLength=25> </td></tr> <tr> <td align='right'>地址：</td><td><input name='come' type='text' class='input1' id='come' size='20' maxlength='25'></td></tr><tr> <td align='right'> E-mail： </td><td> <input name='email' type='text' class='input1' size='20' maxLength=25> </td></tr>")
end if
.Write("<td align='right'>主题：</td><td><input name='title' type='text' class='input1' id='title' size='35' maxlength=50> <font color='#FF0000'>*</font> <select name=font onchange=""DoTitle(this.options[this.selectedIndex].value)""><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></td><td width='30%'>")
.Write("</td> </tr>")
call upphoto("content")
.Write("<tr> <td align='right' valign='top'> 内容： </td><td colspan='2' class='jd_title'>")
call jd_editor(0,jd_editorstyle)
.Write("</td> </tr><tr> <td align='right' valign='top'> </td><td colspan='2'> ")
if jd_mm=1 or jd_jf>10 or jd_membercls>1 or jd_usertopic>photoup then
'.Write("<fieldset><legend accesskey='F' align='left'>特殊贴选项:</legend><font color='#666666'>")
.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>10 or jd_membercls>1 then
.Write(" 【回复可见:<input name='view8' type='checkbox' id='view8' value='8'>】")
end if
if jd_usertopic>photoup or 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("</font></fieldset>")
.Write("</td></tr></table>")
end if
.Write("</td></tr><tr align='center'><input type='hidden' name='forumid' value='"&forumid&"'><td colspan='3'> <input type='hidden' name='action_e' value='Add_New'><br></td></tr></form></table></TD></TR> </TBODY></TABLE><br>")
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>"
End Function
' 主菜单
Sub Main_Menu()
with Response
.Write("<div align='center' style='width="&jd_table_w&"'><div align='left'>")
.Write(forumlist())
.Write("</div></div><table width='"&jd_table_w&"' border='0' align='center' cellspacing='0' class=jd_tab ><tr class=jd_titlemu> <td width='80%'> ")
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> ")
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=1").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 then
.Write(" <a href='?action=member_list&forumid="&forumid&"' class='jd100'>会员管理</a>")
end if
if jd_membercls>=5 then
.Write(" <a href='?mode=guanli&page="&page&"&action=View_Words&forumid="&forumid&"' class='jd100' title='进入列表管理模式'>列表管理</a>")
end if
.Write(" <a href='"&indexfilename &"?action=UbbHelp&forumid="&forumid&"' class='jd100'>帮助</a></td><td class=jd_titlemu width='20%'> <div align='right'>")
If Sessionwebname="Login" Then
call jd_jsdiv()
.Write("<a style=cursor:hand onmouseover=MM_div('ee','','show') onmouseout=MM_div('ee','','hide')><font color='#ff0000'>管理留言</font></a>")
.Write("<DIV id=Layeree style=""POSITION: absolute"">")
.Write("<DIV id=ee onmouseover=""MM_div('ee','','show')"" style=""Z-INDEX: 6; FILTER: Alpha(Opacity=80,Style=0) Shadow(Color=#000000, Direction=-100,Strength=3); LEFT: -200px; VISIBILITY: hidden; WIDTH: 200px; POSITION: absolute; TOP: 12px; HEIGHT: 120px"" onmouseout=MM_div('ee','','hide')>")
.Write("<TABLE cellSpacing=0 cellPadding=8 width=80 bgColor=#e5e5e5 border=0><tr><td height=100% width=100% class=tblbevel1>")
.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=Exit&forumid="&forumid&"' class='jd100'>退出管理</a><br> ")
.Write("</td></tr></TABLE></DIV></DIV>")
Else
if jd_membercls>1 then
.Write("<a href='?action=Admin_Login&forumid="&forumid&"' class='jd100'>管理留言 </a> ")
else
.Write("<font color=#666666>"&year(date())&"年"&month(date())&"月"&day(date())&"日</font> ")
end if
End If
.Write("</div></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%'><div 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("</div></td></tr></table>")
end with
End Sub
'操作
function admin_ls(lsid,lst,lsc)
admin_ls=""
if Sessionwebname ="Login" or jd_membercls=9 or (jd_membercls=5 and instr(","&jd_ad&",",","&jd_username&",")<>0) then
admin_ls="<a href=?action=Edit&id="&lsid&"&forumid="&forumid&" title='审核或编辑贴子'><font color=#999999>审编</font></a>"
if lsc>0 then
admin_ls=admin_ls&"<font color=#999999>|</font><a href=?action=topic_classedit&clsid=0&id="&lsid&"&forumid="&forumid&" title='设为普通贴子'><font color=#999999>普</font></a>"
else
admin_ls=admin_ls&"<font color=#999999>|</font><a href=?action=topic_classedit&clsid=1&id="&lsid&"&forumid="&forumid&" title='设精华贴'><font color=#999999>精</font></a>"
admin_ls=admin_ls&"<font color=#999999>|</font><a href=?action=topic_classedit&clsid=2&id="&lsid&"&forumid="&forumid&" title='锁定不让回复'><font color=#999999>锁</font></a>"
admin_ls=admin_ls&"<font color=#999999>|</font><a href=?action=topic_classedit&clsid=3&id="&lsid&"&forumid="&forumid&" onClick=""return confirm('你试图单贴屏蔽该主题！\n\n是否进行？')"" title='单贴屏蔽'><font color=#999999>屏</font></a>"
admin_ls=admin_ls&"<font color=#999999>|</font><a href=?action=topic_classedit&clsid=4&id="&lsid&"&forumid="&forumid&" onClick=""return confirm('你试图屏蔽该主题及回复！\n\n是否进行？')"" title='连带屏蔽'><font color=#999999>禁</font></a>"
if jd_membercls=9 then
admin_ls=admin_ls&"<font color=#999999>|</font><a href=?action=topic_classedit&clsid=5&id="&lsid&"&forumid="&forumid&" onClick=""return confirm('你试图屏蔽该主题及将会员锁定！\n\n是否进行？')"" title='屏蔽并锁定会员'><font color=#999999>绝</font></a>"
end if
end if
admin_ls=admin_ls&"<font color=#999999>|</font><a href=?action=list_top&sty=2&id="&lsid&"&forumid="&forumid&" title='置顶主题'><font color=#999999>固</font></a><font color=#999999>"
admin_ls=admin_ls&"<font color=#999999>|</font><a href=?action=list_top&sty=1&id="&lsid&"&forumid="&forumid&" title='置顶一天主题'><font color=#999999>暂固</font></a><font color=#999999>"
admin_ls=admin_ls&"<font color=#999999>|</font><a href=?action=list_notop&id="&lsid&"&forumid="&forumid&" title='解除置顶'><font color=#999999>解</font></a>"
admin_ls=admin_ls&"<font color=#999999>|</font><a href=?action=movetopic&id="&lsid&"&forumid="&forumid&" title='移动贴子,管理员支持整版转移'><font color=#999999>移</font></a><font color=#999999>"
admin_ls=admin_ls&"<font color=#999999>|</font><a href=?action=View_Words&cls=del&id="&lsid&"&forumid="&forumid&" onClick=""return confirm('确定要删除吗？\n\n该操作不可恢复！')"" title='删除贴子'><font color=#999999>删</font></a><font color=#999999>"
end if
end function
'''''''''查看留言
Sub View_Words()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -