/admin/art/save.asp

https://github.com/74hu/74hujz · ASP · 54 lines · 51 code · 3 blank · 0 comment · 3 complexity · 5ef8f996d8f255aecd6ab38894526527 MD5 · raw file

  1. <!-- #include file="../ding.asp" -->
  2. <!-- #include file="mymin.asp" -->
  3. <%Call Head()%>
  4. <card title="添加栏目">
  5. <p>
  6. <%classid=LCase(Request("classid"))
  7. if classid="" or IsNumeric(classid) = False then
  8. Response.write "ID错误!"
  9. Response.write "<br/><anchor><prev/>返回</anchor>"
  10. Response.write "</p></card></wml>"
  11. Response.end
  12. end if
  13. test=LCase(Request("test"))
  14. title=LCase(Request("title"))
  15. author=LCase(Request("author"))
  16. if test="" or title="" or author="" then
  17. Response.write "各项都不可以为空!"
  18. Response.write "<br/><anchor><prev/>返回</anchor>"
  19. Response.write "</p></card></wml>"
  20. Response.end
  21. end if
  22. if len(title)>30 or len(author)>15 or len(test)>20000 then
  23. Response.write "标题不要超过30字,来源不要超过15字,文章内容不要超过20000字,分多篇写。这有助于提高效率!"
  24. Response.write "<br/><anchor><prev/>返回</anchor>"
  25. Response.write "</p></card></wml>"
  26. Response.end
  27. end if
  28. call conndata
  29. set rs=server.createobject("adodb.recordset")
  30. rs.open "select * from 74hu_article",conn,1,3
  31. rs.addnew
  32. rs("classid")=classid
  33. rs("test")=test
  34. rs("HU_date")=now()
  35. rs("title")=title
  36. rs("HU_author")=author
  37. rs.update
  38. rs.close
  39. set rs=nothing
  40. conn.close
  41. set conn=nothing
  42. response.write "记录添加成功!"
  43. %>
  44. <br/>----------<br/>
  45. <a href="add.asp?sid=<%=sid%>&amp;id=<%=classid%>">[继续增加]</a>
  46. <br/>
  47. <a href="adminsmscl.asp?sid=<%=sid%>&amp;id=<%=classid%>">[返回文章]</a><br/>
  48. <a href="wzclass.asp?sid=<%=sid%>">[文章分类]</a>
  49. <br/><a href="../index.asp?sid=<%=sid%>">[后台管理]</a>
  50. </p></card>
  51. </wml>