/admin/art/save.asp
https://github.com/74hu/74hujz · ASP · 54 lines · 51 code · 3 blank · 0 comment · 3 complexity · 5ef8f996d8f255aecd6ab38894526527 MD5 · raw file
-
- <!-- #include file="../ding.asp" -->
- <!-- #include file="mymin.asp" -->
- <%Call Head()%>
- <card title="添加栏目">
- <p>
- <%classid=LCase(Request("classid"))
-
- if classid="" or IsNumeric(classid) = False then
- Response.write "ID错误!"
- Response.write "<br/><anchor><prev/>返回</anchor>"
- Response.write "</p></card></wml>"
- Response.end
- end if
- test=LCase(Request("test"))
- title=LCase(Request("title"))
- author=LCase(Request("author"))
- if test="" or title="" or author="" then
- Response.write "各项都不可以为空!"
- Response.write "<br/><anchor><prev/>返回</anchor>"
- Response.write "</p></card></wml>"
- Response.end
- end if
- if len(title)>30 or len(author)>15 or len(test)>20000 then
- Response.write "标题不要超过30字,来源不要超过15字,文章内容不要超过20000字,分多篇写。这有助于提高效率!"
- Response.write "<br/><anchor><prev/>返回</anchor>"
- Response.write "</p></card></wml>"
- Response.end
- end if
- call conndata
-
- set rs=server.createobject("adodb.recordset")
- rs.open "select * from 74hu_article",conn,1,3
- rs.addnew
- rs("classid")=classid
- rs("test")=test
- rs("HU_date")=now()
- rs("title")=title
- rs("HU_author")=author
- rs.update
- rs.close
- set rs=nothing
- conn.close
- set conn=nothing
- response.write "记录添加成功!"
- %>
- <br/>----------<br/>
- <a href="add.asp?sid=<%=sid%>&id=<%=classid%>">[继续增加]</a>
- <br/>
- <a href="adminsmscl.asp?sid=<%=sid%>&id=<%=classid%>">[返回文章]</a><br/>
- <a href="wzclass.asp?sid=<%=sid%>">[文章分类]</a>
- <br/><a href="../index.asp?sid=<%=sid%>">[后台管理]</a>
- </p></card>
- </wml>