📄 bbsindex.asp
字号:
if not usrs.eof then
jd_usermsg=usrs("jd_user") & "｜｜｜"
jd_usermsg=jd_usermsg &""
if usrs("jd_view")=1 or jd_membercls=1 or Session("Admin"&webname) = "Login" then
end if
jd_usermsg=jd_usermsg & "｜｜｜"
jd_usermsg=jd_usermsg & usrs("jd_sex")& "｜｜｜"
jd_usermsg=jd_usermsg & usrs("jd_head")& "｜｜｜"
jd_usermsg=jd_usermsg & usrs("jd_ip") &"｜｜｜"& usrs("jd_topic") &"｜｜｜"& usrs("jd_qm")
if usrs("jd_cls")=-2 then words= splyb("该会员贴子已经被禁止")
else
jd_usermsg="该会员已经被删除｜｜｜  ｜｜｜ ｜｜｜ ｜｜｜ ｜｜｜ ｜｜｜ "
end if
usrs.Close
set usrs=nothing
end if
urmsg=""
urmsg=split(jd_usermsg,"｜｜｜")
response.write(img_top)
%>
<TABLE width="<%=jd_table_w%>" height=51 border=1 align=center cellPadding=0 cellSpacing=0 class="jd_tab" style="border-collapse:collapse" >
<TBODY>
<TR >
<TD colSpan=2 height=25 class="jd_tab" ><table width="100%" border="0" class="unnamed1">
<tr>
<td width="28%" height="21" class="unnamed1">留言者:<b><%=unHtml(urmsg(0))%></b></td>
<td width="60%"> <div align="right">发表于:<%=year(Rs("jd_date"))%>年<%=month(Rs("jd_date"))%>月<%=day(Rs("jd_date"))%>日
<%=urmsg(1)%>
<% If Session("Admin"&webname) = "Login" Then %>
<a href="?action=Delete&id=<%=Rs("id")%>" onClick="return confirm('确定要删除吗？\n\n该操作不可恢复！')">
<img src="<%=indeximg%>del.gif" alt="删除留言" width="15" height="15" border="0"></a></font>
<% end if %>
</div></td>
<td width="12%"><div align="right"><font color="#ff0000"></font>
</div></td>
</tr>
</table></TD>
</TR>
<TR>
<TD width="120" height="21" align=middle valign="top" class="jd_tab" ><table width="100%" border="0" align="center" class="unnamed1">
<tr>
<td width="94" > <div align="center">
<%
if indeximg<>"" then call headpic(urmsg(2),urmsg(3))
if rs("jd_userid")<>0 then
response.write "<br>会员<br>"
response.write "发贴:" & urmsg(5) &"<br>"
end if
response.write viewadmin
%>
</div></td>
</tr>
</table></TD>
<TD width="" height="21" valign="top" class=unnamed2 style="word-break:break-all">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0" style="table-layout:fixed;word-break:break-all;word-wrap:break-word;">
<tr>
<td width="" style="word-break:break-all" class=jd_title> <a href="?action=View_topics&id=<%=rs("id")%>"> <img src="<%=indeximg%>jd-to.gif" border="0"> <b><%=unHtml(rs("jd_title"))%></b> <font color="#999999">(有<%= rs("jd_rep")%>个回复)</font></a> </td>
</tr>
</table>
<table width="100%" border="0" cellpadding="3" class=unnamed2 style="table-layout:fixed;word-break:break-all;word-wrap:break-word;">
<tr>
<td width="" style="word-break:break-all"> <%=words%>
<%if reply<>"" then%>
<hr size="1">
<span class="style1">管理员回复:</span><br>
<font color="#990000"> <%=Ubb(unHtml(reply))%> </font>
<%end if%>
</td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<% response.write(img_foot)
lou=lou-1
rs.movenext
loop
Case 1
response.write(img_top)
%>
<TABLE width="<%=jd_table_w%>" height=51 border=1 align=center cellPadding=3 cellSpacing=0 class="jd_tab" style="border-collapse:collapse;word-wrap:break-word;">
<TBODY>
<TR class=jd_title>
<TD width="6%" class="jd_tab" >
<div align="center">人气</div></TD>
<TD width="6%" class="jd_tab" >
<div align="center">回复</div></TD>
<TD width="34%" class="jd_tab" >
<div align="center">标题</div></TD>
<TD width="18%" class="jd_tab" >
<div align="center">作者|回复</div></TD>
<TD width="18%" class="jd_tab" >
<div align="center">时间</div></TD>
<% if Session("Admin"&webname) ="Login" then %>
<TD class="jd_tab" >
<div align="center">管</div></TD>
<% end if %>
</TR>
<%
i=0
dim edit_list
titlepic=""
do while not rs.eof and i<jd100_page_n
i=i+1
edit_list=""
if Session("Admin"&webname) ="Login" or jd_membercls=1 then
viewadmin="<input name='id' type=checkbox id=delall value="&rs("id")&"> "
edit_list="<a href=?action=Edit&id="&rs("id")&"><font color=#999999>编</font></a>"
if rs("jd_top")=1 then
edit_list=edit_list&"<font color=#999999>|</font><a href=?action=list_notop&id="&rs("id")&"><font color=#999999>解</font></a>"
else
edit_list=edit_list&"<font color=#999999>|</font><a href=?action=list_top&id="&rs("id")&"><font color=#999999>固</font></a><font color=#999999>"
edit_list=edit_list&"<font color=#999999>|</font><a href=?action=View_Words&cls=del&id="&rs("id")&" onClick=""return confirm('确定要删除吗？\n\n该操作不可恢复！')"" ><font color=#999999>删</font></a><font color=#999999>"
end if
end if
titlepic="<img src='"&indeximg&"jd-to.gif' border='0'>"
if rs("jd_top")=1 then titlepic="<img src='"&indeximg&"istop.gif' border='0'>"
if indeximg="" then
titlepic="◇"
if rs("jd_top")=1 then titlepic="★"
end if
%>
<TR class=unnamed1>
<TD width="6%" height="25" align=middle valign="top" class="jd_tab" ><%=rs("jd_hit")%></TD>
<TD width="6%" height="25" align=middle valign="top" class="jd_tab" ><%=rs("jd_rep")%></TD>
<TD width="34%" height="25" align=left valign="top" class="jd_tab" >
<a href="?action=View_topics&id=<%=rs("id")%>">
<%=titlepic%> <%=unHtml(rs("jd_title"))%></a>
<%=edit_list%>
</TD>
<TD width="18%" height="25" align=middle valign="top" class="jd_tab" ><div align="center"><font color=#666666>
<%
Response.Write(unHtml(rs("jd_name")))
if rs("jd_reid")<>"0" then Response.Write("|"&unHtml(rs("jd_reid")))
%>
</font></div></TD>
<TD width="18%" height="25" align=left valign="top" class="jd_tab" ><div align="center"><font color=#666666><%=rs("jd_date")%></font></div></TD>
<% if Session("Admin"&webname) ="Login" then %>
<TD width="10%" height="25" align=middle valign="top" class="jd_tab" ><%=viewadmin%></TD>
<% end if %>
</TR>
<%
lou=lou-1
rs.movenext
loop
%>
</TBODY>
</TABLE>
<%
response.write(img_foot)
End Select
call RsClose()
if Session("Admin"&webname) ="Login" or jd_membercls=1 then
%>
<table width="<%=jd_table_w%>" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td height="20" class="unnamed1">
<% if Session("Admin"&webname) ="Login" then%>
<input name="action_e" type="hidden" value="Del_all">
<input type="checkbox" name="chkall" value="checkbox" onClick="javascript:CheckAll(this.form)">
<font color="#FF0000"> 全选</font>
<input onClick="{if(confirm('\n进行批量删除?\n\n确定要执行此项操作吗？\n该操作不可恢复!!')){this.document.form.submit();return true;}return false;}" type=submit value=删除所选记录 name=action2 class="tbutton">
<% end if %>
<font color=#999999>编 = 编辑和回复贴子; 固 =
将此主题固顶; 解 = 解除固顶的主题</font> </td>
</tr>
</table>
<% end if %>
</form>
<table width="<%=jd_table_w%>" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td height="20" align="right" class="unnamed1">
<%=rsPage( jd100_page_count,jd100_page_n,jd100_page_x,"action=View_Words")%>
</td>
</tr>
</table>
<%
end if %>
<% End Sub
'''''''''管理员登陆接口
Sub Admin_Login()
dim num1
dim rndnum
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("jd100_rn")=rndnum
dim login_title,login_action
if action="member_login" then
login_title="会员"
login_action="member"
elseif action="Admin_Login" then
login_title="管理"
login_action="admin"
end if
%>
<br>
<TABLE width="<%=jd_table_w%>" height=51 border=1 align=center cellPadding=0 cellSpacing=0 class="jd_tab" style="border-collapse:collapse" >
<TBODY>
<TR >
<TD height=25 class="jd_title" ><div align="center"><font size="3"><strong><%=login_title%>登陆</strong></font><font color="#000000">
</font></div></TD>
</TR>
<TR>
<TD height="21" align=middle valign="top" class="jd_tab" ><table width="499" border="0" align="center" cellpadding="4" cellspacing="1" class="unnamed1">
<form name="reply" method="post" action="<%=indexfilename%>">
<tr>
<td colspan="2" align="center"> </td>
</tr>
<tr>
<td width="122"> <div align="right">用户名： </div></td>
<td width="358"> <input name="username" type="text" class="input1" maxlength="25"> </td>
</tr>
<tr>
<td width="122"> <div align="right">密 码： </div></td>
<td width="358"> <input name="password" type="password" class="input1" maxlength="25">
<input type="hidden" name="action_e" value="<%=login_action%>"> </td>
</tr>
<tr>
<td><div align="right">
<% if action="Admin_Login" then
Response.Write("输入验证码：")
else
Response.Write("保留登录：")
end if %>
</div></td>
<td>
<%if action="Admin_Login" then%>
<table width="258" border="0">
<tr>
<td width="175"><input name="jd100rz" type="text" class="input1" maxlength="4"></td>
<td width="60" bgcolor="#cccccc"><div align="center"><%=session("jd100_rn")%></div></td>
</tr>
</table>
<% else
Response.Write("<input type='radio' name='baoliu' value='' checked>不保留")
Response.Write("<input type='radio' name='baoliu' value='365'>保留 ")
end if%>
</td>
</tr>
<tr>
<td colspan="2" align="center">
<input type="submit" name="Submit32" value="登陆" class="input1">
</td>
</tr>
<tr>
<td height="49" colspan="2" align="center"> </td>
</tr>
</form>
</table></TD>
</TR>
</TBODY>
</TABLE>
<br>
<%
End Sub
Sub UbbHelp()%>
<div align="left">
<%End Sub%>
</div>
<%Sub EditPWD()%>
<TABLE width="<%=jd_table_w%>" height=51 border=1 align=center cellPadding=0 cellSpacing=0 class="jd_tab" style="border-collapse:collapse" >
<TBODY>
<TR >
<TD height=25 class="jd_title" ><div align="center"><font size="3"><b>修改密码</b></font></div></TD>
</TR>
<TR>
<TD height="21" align=middle valign="top" class="jd_tab" ><table width="499" border="0" align="center" cellpadding="4" cellspacing="1" class="unnamed1">
<form name="editpwd" method="post" action="<%=indexfilename%>">
<tr>
<td colspan="2" align="center"> </td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="38">旧用户名：</td>
<td width="226" height="38" align="left">
<input type="text" name="oldusername" class="input1">
</td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -