admin.asp
来自「电子商务系统Easy_Buy是一个在线销售系统」· ASP 代码 · 共 987 行 · 第 1/3 页
ASP
987 行
case "addq"%>
<br>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td background="../../images/admin_bg_11.gif" bgcolor="#f1f1f1"> <span class="STYLE3">增加社区类别</span></td>
</tr>
<tr>
<form action="?abc=addq_yes" method="POST">
<td bgcolor="#E8F1FF">
<p style='MARGIN: 5px'>类别序号：
<input name="id" type="text" size="25">
<font color=#FF0000>·</font>只能填 <b>0</b> 除外的数字,数字越大越靠前 </p>
<p style='MARGIN: 5px'>类别名称：
<input name="lbname" type="text" size="25">
<font color="#FF0000">·</font>无限制</p>
<p style='MARGIN: 4px'>
<input name="B1" type="submit" value=" 提 交 ">
<input name="B2" type="reset" value=" 重 置 ">
</p>
</td>
</form>
</tr>
</table>
<%
case "addbbs"
'增加社区
set rs = conn.execute("select lbid,lbname from bbs_lb where qid=0 order by id desc")
if not rs.eof then%><br>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td background="../../images/admin_bg_11.gif" bgcolor="#f1f1f1"> </td>
</tr>
<tr>
<form action="?abc=addbbs_yes" method="POST">
<td bgcolor="#E8F1FF"><p><img src="../img/sq.gif" alt="社区" width="527" height="263" /></p>
<table width="609" border="0" align="left" cellpadding="2" cellspacing="1" class="table_southidc">
<tr>
<td height="25" colspan="2" class="back_southidc"><div align="center"><span style="font-weight: bold">程序注册说明</span></div></td>
</tr>
<tr class="tr_southidc">
<td width="446"><div align="left"><span class="tit"><span class="style6">欢迎注册《仿淘宝多用户网络商城购物系统SQL正式版》 每套1200元。<br />
联系QQ：<span class="style11">38306293<a target="blank" href="http://wpa.qq.com/msgrd?V=1&Uin=38306293&Site=网域高科&Menu=yes"><img border="0" src="http://wpa.qq.com/pa?p=1:38306293:10" alt="网域高科客服为你服务" /></a>417586492</span><font face="Verdana"><a target="blank" href="http://wpa.qq.com/msgrd?V=1&Uin=417586492&Site=网域高科&Menu=yes"><img border="0" src="http://wpa.qq.com/pa?p=1:417586492:10" alt="网域高科客服为你服务" /></a></font><span class="style11">657248708</span><font face="Verdana"><font face="Verdana"><a target="blank" href="http://wpa.qq.com/msgrd?V=1&Uin=657248708&Site=网域高科&Menu=yes"><img border="0" src="http://wpa.qq.com/pa?p=1:657248708:10" alt="网域高科客服为你服务" /></a></font><br />
</font><span class="style11">电话：020-34506590,13527894748<br />
邮箱：webmster@wygk.cn<br />
演示：<a href="http://www.wygk.cn/shch">http://www.wygk.cn/shch</a><br />
官方：<a href="http://www.wygk.cn">http://www.wygk.cn</a></span></span></span><span class="style6"><font face="Verdana"></font></span><span class="style6"><font face="Verdana"></font></span> </div></td>
<td width="152"><div align="center"><a href="https://pay3.chinabank.com.cn/Payto?v_mid=8279"><img src="../img/paymentsby_01.gif" alt="在线支付" width="127" height="62" border="0" /></a></div></td>
</tr>
</table> <p> </p></td>
</form>
</tr>
</table>
<%else
my_bt="失 败 ！"
my_nr="·添加社区前，请先添加社区分类！<br>·<a href=?abc=addq>点击这里添加社区分类</a>"
my()
end if
rs.close%>
<%'增加联盟论坛
case "addbbslm"%>
<br>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td background="../../images/admin_bg_11.gif" bgcolor="#f1f1f1"> <span class="STYLE3"> 增加联盟论坛</span></td>
</tr>
<tr>
<form action="?abc=addbbslm_yes" method="POST">
<td bgcolor="#E8F1FF"> <p style='MARGIN: 5px'>论坛名称：
<input name="name" type="text" id="name" size="25" maxlength="25">
<font color=#FF0000>·</font></p>
<p style='MARGIN: 5px'>连接地址：
<input name="url" type="text" id="url" size="35" maxlength="75">
<font color="#FF0000">·</font></p>
<p style='MARGIN: 4px'>
<input name="B12" type="submit" value=" 提 交 ">
<input name="B22" type="reset" value=" 重 置 ">
</p></td>
</form>
</tr>
</table>
<%'批量删除
case "del"%>
<br>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td background="../../images/admin_bg_11.gif"> <span class="STYLE3"> 贴子批量删除</span></td>
</tr>
<tr>
<td bgcolor="#E8F1FF">
<p style='MARGIN: 5px'><form action="?abc=bbs_del1" method="POST">批量删除：
<input name="id" type="text" id="id" size="5" maxlength="5">
天以前的贴子
<input name="B122" type="submit" value=" 提 交 ">
</form>
</p>
<p style='MARGIN: 5px'>
<form action="?abc=bbs_del2" method="POST">批量删除：
<input name="huiyuan" type="text" id="huiyuan" size="15" maxlength="25">
会员所发的所有贴子
<input name="B122" type="submit" value=" 提 交 ">
</form>
</p></td>
</tr>
</table>
<%'合并论坛
case "hebbs"%>
<br>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td background="../../images/admin_bg_11.gif"> <span class="STYLE3"> 合并论坛分类</span></td>
</tr>
<tr>
<form action="?abc=hebbs_yes" method="POST">
<td bgcolor="#E8F1FF"> <p style='MARGIN: 5px'>原论坛分类：
<%set rs = conn.execute("select lbid,lbname from bbs_lb where qid<>0")
if not rs.eof then
Response.Write "<select name=lbid1 size=1 class=wenbenkuang>"
do while not rs.eof
Response.Write "<option value="&rs("lbid")&">"&rs("lbname")&"</option>"
rs.movenext
loop
Response.Write "</select>"
end if
rs.close%>
<font color=#FF0000>·</font></p>
<p style='MARGIN: 5px'>合并到分类：
<%set rs = conn.execute("select lbid,lbname from bbs_lb where qid<>0")
if not rs.eof then
Response.Write "<select name=lbid2 size=1 class=wenbenkuang>"
do while not rs.eof
Response.Write "<option value="&rs("lbid")&">"&rs("lbname")&"</option>"
rs.movenext
loop
Response.Write "</select>"
end if
rs.close%>
<font color="#FF0000">·</font></p>
<p style='MARGIN: 4px'>
<input name="B12" type="submit" value=" 提 交 ">
<input name="B22" type="reset" value=" 重 置 ">
</p></td>
</form>
</tr>
</table>
<%'修改社区
case "xiubbs"
set rs = conn.execute("select * from bbs_lb where lbid="&request("lbid")&"")%>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td background="../../images/admin_bg_11.gif" bgcolor="#f1f1f1"> <span class="STYLE3"> 修改社区</span></td>
</tr>
<tr>
<form action="?abc=xiubbs_yes&lbid=<%=request("lbid")%>" method="POST">
<td bgcolor="#E8F1FF"> <p style='MARGIN: 5px'>社区序号：
<input name="id" type="text" value="<%=rs("id")%>" size="25">
<font color=#FF0000>·</font>只能填 <b>0</b> 除外的数字 </p>
<p style='MARGIN: 5px'>社区名称：
<input name="lbname" type="text" value="<%=rs("lbname")%>" size="25">
<font color="#FF0000">·</font>无限制</p>
<p style='MARGIN: 5px'>社区类型：
<input name="lx" type="radio" value="0" <%If rs("lx")=0 Then Response.Write("checked")%>>普通社区
<input name="lx" type="radio" value="1" <%If rs("lx")=1 Then Response.Write("checked")%>>会员社区
<input name="lx" type="radio" value="2" <%If rs("lx")=2 Then Response.Write("checked")%>>只读社区
<input name="lx" type="radio" value="3" <%If rs("lx")=3 Then Response.Write("checked")%>>认证社区
<input name="lx" type="radio" value="4" <%If rs("lx")=4 Then Response.Write("checked")%>>VIP社区
<br>
社区归类：
<%set q = conn.execute("select lbid,lbname from bbs_lb where qid=0 order by id desc")
Response.Write "<select name=qid class=wenbenkuang>"
do while not q.eof
if q("lbid")=rs("qid") then myselected="selected" else myselected=""
Response.Write "<option value="&q("lbid")&" "&myselected&">"&q("lbname")&"</option>"
q.movenext
loop
Response.Write "</select>"
q.close
set q=nothing%>
</p>
<p style='MARGIN: 5px'>社区介绍：<br>
<textarea name="lbsm" cols="58" rows="4" id="lbsm"><%=rs("lbsm")%></textarea>
<font color="#FF0000">·</font></p>
<p style='MARGIN: 4px'>
<input name="B13" type="submit" value=" 提 交 ">
<input name="B23" type="reset" value=" 重 置 ">
</p></td>
</form>
</tr>
</table>
<%rs.close
'管理论坛
case "bbslm"%>
<br>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td background="../../images/admin_bg_11.gif"> <span class="STYLE3"> 管理联盟论坛</span></td>
</tr>
<tr>
<td bgcolor="#E8F1FF"> <p style='MARGIN: 5px'>
<%set rs = conn.execute("select * from bbs_lm order by id desc")
if not rs.eof then
do while not rs.eof
Response.Write "论坛名称："&rs("name")&" [<a href=?abc=delbbslm&id="&rs("id")&">删除</a>]<br>连接网址："&rs("url")&"<br><br>"
rs.movenext
loop
end if
rs.close%></p>
</td>
</tr>
</table>
<%'版主添加
case "bbsbz_add"%>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td background="../../images/admin_bg_11.gif"> <span class="STYLE3"> 版主添加</span></td>
</tr><form action="?abc=bbsbz_add_yes" method="POST" name="form" id="form">
<tr>
<td bgcolor="#E8F1FF"> <p style='MARGIN: 5px'>版主名称：
<input name="huiyuan" type="text" id="huiyuan" size="25">
必须是已注册的会员<br>
<br>
管理版块：
<%set rs = conn.execute("select lbid,lbname from bbs_lb where qid<>0 order by id desc")
Response.Write "<select name=lbid class=wenbenkuang>"
do while not rs.eof
Response.Write "<option value="&rs("lbid")&">"&rs("lbname")&"</option>"
rs.movenext
loop
Response.Write "</select>"
rs.close%>
<br>
<br>
<input name="B13" type="submit" value=" 提 交 ">
<input name="B23" type="reset" value=" 重 置 ">
<br>
</td>
</tr></form>
</table>
<%'版主删除
case "bbsbz_del"%>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td background="../../images/admin_bg_11.gif"> <span class="STYLE3"> 版主删除</span></td>
</tr>
<form action="?abc=bbsbz_del_yes" method="POST" name="form" id="form">
<tr>
<td bgcolor="#E8F1FF"> <p style='MARGIN: 5px'>版主名称：
<input name="huiyuan" type="text" id="huiyuan" size="25">
<br>
<br>
管理版块：
<%set rs = conn.execute("select lbid,lbname from bbs_lb where qid<>0 order by id desc")
Response.Write "<select name=lbid class=wenbenkuang>"
do while not rs.eof
Response.Write "<option value="&rs("lbid")&">"&rs("lbname")&"</option>"
rs.movenext
loop
Response.Write "</select>"
rs.close%>
<br>
<br>
<input name="B13" type="submit" value=" 提 交 ">
<input name="B23" type="reset" value=" 重 置 ">
<br>
</td>
</tr>
</form>
</table>
<%'管理论坛
case "bbs"%>
<br>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td background="../../images/admin_bg_11.gif"> <span class="STYLE3"> 管理论坛</span></td>
</tr>
<tr>
<td bgcolor="#E8F1FF"> <p style='MARGIN: 5px'>
<%set rs = conn.execute("select lbid,id,lbname from bbs_lb where qid=0 order by id desc,lbid desc")
if not rs.eof then
do while not rs.eof
Response.Write "<b>╋ 类别名称："&rs("lbname")&"</b> 排列序号："&rs("id")&" [<a href=?abc=xiuq&lbid="&rs("lbid")&">编辑</a>][<a href=?abc=delq&lbid="&rs("lbid")&">删除</a>]<br><br>"
set bbs = conn.execute("select lbid,id,lbname,lx,je from bbs_lb where qid="&rs("lbid")&" order by id desc,lbid desc")
if not bbs.eof then
do while not bbs.eof
Select case bbs("lx")
case "0"
lx="普通社区"
case "1"
lx="会员社区,"&bbs("je")&"元"
case "2"
lx="只读社区"
case "3"
lx="认证社区"
End Select
Response.Write " ┗ "&bbs("lbname")&" 排列序号："&bbs("id")&" "&lx&" [<a href=?abc=xiubbs&lbid="&bbs("lbid")&">编辑</a>][<a href=?abc=delbbs&lbid="&bbs("lbid")&">删除</a>]<br><br>"
bbs.movenext
loop
end if
bbs.close
rs.movenext
loop
end if
rs.close%></p>
</p>
</td>
</tr>
</table>
<%'论坛设置
case "bbsinfo"
set rs = conn.execute("select * from bbs_info")%>
<br><table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td background="../../images/admin_bg_11.gif"> <span class="STYLE3"> 网站设置</span></td>
</tr>
<tr>
<form action="?abc=xiubbsinfo_yes"method="POST" name="form" id="form">
<td bgcolor="#E8F1FF"> <p style='MARGIN: 5px'>网站名称：
<input name="mc" type="text" id="mc" value="<%=rs("mc")%>" size="25">
<font color=#FF0000>·</font></p>
<p style='MARGIN: 5px'>网站LOGO：
<input name="logo" type="text" id="logo" value="<%=rs("logo")%>" size="25">
<font color="#FF0000">·图片大小必须为169*68</font></p>
<p style='MARGIN: 5px'><iframe name="ad" frameborder=0 width=100% height=25 scrolling=no src=logo.asp></iframe></p>
<p style='MARGIN: 5px'>网站banner：
<input name="banner" type="text" id="banner" value="<%=rs("banner")%>" size="25">
<font color="#FF0000">·图片大小必须为468*60</font></p>
<p style='MARGIN: 5px'><iframe name="ad" frameborder=0 width=100% height=25 scrolling=no src=banner.asp></iframe></p>
<p style='MARGIN: 5px'>banner连接地址：
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?