admin_add_btitle.asp
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:9k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <!--#include file=admin_sb.asp--><%
  2. '====================================================================
  3. ' 请你保留这段说明,这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
  4. ' 程序制作:横云   掌上校园收倾心整理收集于互联网,感谢你的支持!
  5. ' 升级时间: 2008-2-5   主页地址:HTTP://wap.cnscu.cn
  6. ' E-Mail: cnscu@126.com    客服QQ:554904632 QQ群:30493504 QQ群2:46659883
  7. '====================================================================
  8. %> <%
  9. IF  Request.QueryString("Action")="add" Then
  10. call BBSSET
  11. elseIF  Request.QueryString("Action")="edit" Then
  12. call edit
  13. elseIF  Request.QueryString("Action")="del" Then
  14. call del
  15. else
  16. call main
  17. end if
  18. Function BBSSET
  19. %>
  20. <form name="pollform3sdx" method="post" action="admin_add_btitle.asp?Action=add">
  21.   <p style="margin-left:15px;">
  22.   <b>添加文章栏目</b><br/><a href='admin_add_btitle.asp'>返回文章栏目</a></p>
  23.   <input type="hidden" name="SubmitFlag" value=yes>
  24.   <table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
  25. <tr>
  26. <td align="center">
  27. <%
  28. If Request("SubmitFlag") <> "" Then
  29. Addbbsboards
  30. Exit Function
  31. Else
  32. DisplayBBSSet
  33. End If
  34. %>
  35. </td></tr>
  36. <tr>
  37. <td align="center">
  38. <input type=submit name=提交 value=提 交 class=fmbtn> 
  39. <input type=reset name=取消 value=清 除 class=fmbtn>
  40. </td>
  41. </tr>
  42. </table>
  43. </form>
  44. <%
  45. End Function
  46. Function CheckLinkValue
  47. GetFormValue
  48. End Function
  49. Function DisplayBBSSet
  50. %>
  51.   <table width="100%" border=0 align="center" cellpadding=5 cellspacing=1  bgcolor="#FF0000"  class=TBone>
  52.   <tr bgcolor=#f7f7f7 class=TBBG9> 
  53.     <td class="tar">栏目名称:</td>
  54.     <td><input name="name" type="text" class=fminpt id="boardName" size="30" maxlength="50">
  55.       <font color=gray>(栏目名称,50字,必填)</font></td>
  56.   </tr>
  57.   <tr bgcolor=#f7f7f7 class=TBBG9> 
  58.     <td class="tar">栏目换行:</td>
  59.     <td><select name="wh">
  60. <option value="true">栏目后自动换行</option>
  61. <option value="false">栏目后不换行</option>
  62. </select>
  63.       <font color=gray>(栏目换行,栏目后是否换行)</font></td>
  64.   </tr>
  65.   </table>
  66. <%
  67. End Function
  68. Function GetFormValue
  69. dim thing
  70. for each thing in Request.Form
  71. Response.Write thing&"="&Request(thing)&"<br>"
  72. next
  73. End Function
  74. Function Addbbsboards
  75. dim flag,errmsg,id,name,classID,pid,wh
  76. flag=1
  77. errmsg="<ul><font color=red>"
  78. name=TRim(Request.Form("name"))
  79. wh=TRim(Request.Form("wh"))
  80. if wh=""  then errmsg=errmsg&"<li>栏目换行不能为空</li>":flag=0
  81. if name=""  then errmsg=errmsg&"<li>栏目名称不能为空</li>":flag=0
  82. if flag<>0 then
  83. Dim sql,rs
  84. set rs=server.CreateObject("adodb.recordset")
  85. sql="select * from bclass"
  86. rs.open sql,conn,1,3
  87. rs.addnew()
  88. rs("class")=name
  89. rs.update()
  90. rs.MoveLast
  91. id=rs("id")
  92. Rs.close
  93. set rs=nothing
  94. set rs=server.CreateObject("adodb.recordset")
  95. sql="select * from main order by pid asc"
  96. rs.open sql,conn,1,3
  97. if not (rs.bof and rs.eof)  then 
  98. rs.MoveLast
  99. pid=rs("pid")
  100. else
  101. pid=0
  102. end if
  103. rs.addnew()
  104. rs("br")=wh
  105. rs("title")=name
  106. rs("url")="title.asp?id="&id
  107. rs("pid")=pid+1
  108. rs("class")="true"
  109. rs.update()
  110. Rs.close
  111. set rs=nothing
  112. Response.Write("成功添加名为<font color='red'>"&name&"</font>的栏目!")
  113. Response.Write("<br/><a href='admin_add_btitle.asp'>返回文章栏目</a>")
  114. errmsg=errmsg&"</font></ul>"
  115. else
  116. Response.Write("由于以下原因,设置没有成功,请<a href='javascript:history.back()'>返回</a>修改:<br>"&errmsg&"<br><button  onclick='javascript:history.back()'>返回修改</button>") 
  117. end if
  118. End Function
  119. Function main%>
  120. <form name="pollform3sdx" method="post" action="admin_add_btitle.asp">
  121.   <p style="margin-left:15px;">
  122.   <b>文章栏目管理</b><br/>
  123. <% if session("flag")="1" or session("flag")="2" then%>
  124. <a href='admin_add_btitle.asp?Action=add'>添加文章栏目</a>
  125. <%end if%>
  126. </p>
  127.   <table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#FF0000" >
  128.     <tr bgcolor="#799ae1"> 
  129.       <td class="blu">ID</td>
  130.       <td class="blu">文章栏目名称</td>
  131.       <td class="blu">操作</td>
  132.     </tr>
  133. <%
  134. dim sql,h,i
  135. Set Rs = Server.CreateObject("Adodb.Recordset")
  136. Sql = "SELECT * FROM bclass order by id desc"
  137. Rs.Open Sql,conn,1,1
  138. if not (rs.bof and rs.eof)  then 
  139. For i=1 to rs.RecordCount
  140. If Rs.Eof Then
  141. exit For
  142. End If
  143. %>
  144.     <tr bgcolor="#eeeeee" class=TBBG9> 
  145.       <td width="10%"><%=rs("id")%></td>
  146.       <td width="35%"><a href="admin_btitle.asp?bid=<%=rs("id")%>"><%=rs("class")%></a></td>
  147.       
  148.     <td width="15%"><a href="admin_add_btitle.asp?Action=edit&id=<%=rs("id")%>">修改</a> 
  149. <% if session("flag")="1" or session("flag")="2" then%>
  150.       <a href="admin_add_btitle.asp?Action=del&id=<%=rs("id")%>">删除栏目</a>
  151. <%end if%>
  152.     </td>
  153.       
  154.     </tr>
  155. <%
  156. Rs.MoveNext
  157. Next
  158. %>
  159. </table>
  160. </form>
  161. <%
  162. else
  163. %>
  164.     <tr bgcolor="#eeeeee" class=TBBG9> 
  165.       <td  colspan="4" > <div align="center">
  166.        暂无栏目,请添加!<br/><a href='admin_add_btitle.asp?Action=add'>添加栏目</a>
  167.        </div></td>
  168.     </tr>
  169. <%
  170. end if
  171. Rs.close
  172. set rs=nothing
  173. %>
  174. </table>
  175. <%
  176. End Function
  177. Function edit
  178. dim id
  179. id=TRim(Request("id"))
  180. if not isnumeric(id) then id=""
  181. if id<>""  then
  182. Dim sql,rs
  183. set rs=server.CreateObject("adodb.recordset")
  184. sql="select * from bclass where id="&id
  185. Rs.Open Sql,conn,1,1
  186. if not (rs.bof and rs.eof)  then 
  187. %>
  188. <form name="pollform3sdx" method="post" action="admin_add_btitle.asp?Action=edit&id=<%=id%>">
  189. <p style="margin-left:15px;">
  190. <b>修改栏目</b></p>
  191. <input type="hidden" name="SubmitFlag" value=yes>
  192. <table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
  193.  <tr>
  194.  <td align="center">
  195. <%
  196.  If Request("SubmitFlag") <> "" Then
  197.   dim flag,errmsg,name,classID
  198.   flag=1
  199.   errmsg="<ul><font color=red>"
  200.   name=TRim(Request.Form("name"))
  201. if name=""  then errmsg=errmsg&"<li>栏目名称不能为空</li>":flag=0
  202. if flag<>0 then
  203. set rs=server.CreateObject("adodb.recordset")
  204. sql="select * from bclass where id="&id
  205. rs.open sql,conn,1,3
  206. rs("class")=name
  207. rs.update()
  208. Response.Write("成功修改名为<font color='red'>"&name&"</font>的栏目!")
  209. Response.Write("<br/><a href='admin_add_btitle.asp'>返回文章栏目</a>")
  210. errmsg=errmsg&"</font></ul>"
  211. else
  212. Response.Write("由于以下原因,设置没有成功,请<a href='javascript:history.back()'>返回</a>修改:<br>"&errmsg&"<br><button  onclick='javascript:history.back()'>返回修改</button>") 
  213. end if
  214. Else%>
  215. <table width="100%" border=0 align="center" cellpadding=5 cellspacing=1  bgcolor="#FF0000"  class=TBone>
  216.    <tr bgcolor=#f7f7f7 class=TBBG9> 
  217.      <td class="tar">栏目名称:</td>
  218.      <td><input name="name" type="text" class=fminpt value="<%=rs("class")%>"  id="boardName" size="30" maxlength="50">
  219.        <font color=gray>(栏目名称,50字,必填)</font></td>
  220.    </tr>
  221.      <tr bgcolor="#eeeeee">
  222.        <td  colspan="4" > <div align="center">
  223. <input type=submit name=保存 value="保 存" class=fmbtn> 
  224. <input type=button name=取消 value=取 消  onclick="javascript:history.go(-1);">
  225. </td>
  226. </tr>
  227. </table>
  228. <%End If%>
  229. </form>
  230. <%
  231. else%>
  232. <table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
  233.   <tr bgcolor=#f7f7f7 class=TBBG9> 
  234.     <td colspan="2">没有该栏目!</td>
  235.    </tr>
  236. </table>
  237. <%end if
  238. end if
  239. End Function
  240. Function del
  241. dim id 
  242. id=Request.QueryString("id")
  243. %>
  244.   <p style="margin-left:15px;">
  245.   <b>删除栏目</b></p>
  246. <%
  247. If Request("SubmitFlag") <> "" Then
  248. dim i,sql,rs
  249. Set Rs = Server.CreateObject("Adodb.Recordset")
  250. Sql = "select * FROM bclass WHERE id=" & id
  251. Rs.Open Sql,conn,1,3
  252. if not (rs.bof and rs.eof)  then 
  253. rs.Delete
  254. end if
  255. rs.Close
  256. Set rs = Nothing
  257. Set Rs = Server.CreateObject("Adodb.Recordset")
  258. Sql = "select * FROM btitle WHERE bid='" & id&"'"
  259. Rs.Open Sql,conn,1,3
  260. if not (rs.bof and rs.eof)  then 
  261. For i=1 to rs.RecordCount
  262. If Rs.Eof Then
  263. exit For
  264. End If
  265. rs.Delete
  266. Rs.MoveNext
  267. Next
  268. end if
  269. rs.Close
  270. Set rs = Nothing
  271. Set Rs = Server.CreateObject("Adodb.Recordset")
  272. Sql = "select * FROM blist WHERE bid='" & id&"'"
  273. Rs.Open Sql,conn,1,3
  274. if not (rs.bof and rs.eof)  then 
  275. For i=1 to rs.RecordCount
  276. If Rs.Eof Then
  277. exit For
  278. End If
  279. rs.Delete
  280. Rs.MoveNext
  281. Next
  282. end if
  283. rs.Close
  284. Set rs = Nothing%>
  285. <table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
  286.   <tr bgcolor=#f7f7f7 class=TBBG9> 
  287.     <td colspan="2">删除栏目成功!<br/><a href='admin_add_btitle.asp'>返回文章栏目</a></td>
  288.    </tr>
  289. </table>
  290. <% else%>
  291. <form name="pollform3sdx" method="post" action="admin_add_btitle.asp?Action=del&id=<%=id%>">
  292. <input type="hidden" name="SubmitFlag" value=yes>
  293. <table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
  294.   <tr bgcolor=#f7f7f7 class=TBBG9> 
  295.     <td colspan="2">注意:删除栏目将删除一切分类和其它信息!<br>
  296.    在删除前务必确认此栏目分类已经转移。<br><br><b><font color=ff0000 class=RedFont> 
  297.       <strong><font color="#FF0000">确认信息: 真的要删除编号为<%=id%>栏目吗?</font></strong><br><br>
  298.       <input type=button value="不能删啊" onclick="javascript:history.go(-1);">
  299. <input type=submit name=删除 value="当然删除" class=fmbtn></td>
  300.   </tr>
  301. </table>
  302. </form>
  303. <%
  304. end if
  305. End Function
  306. %>