开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > IP电话/视频会议 > 查看源码
List_Save.asp
资源名称：NetPhone.rar　[点击查看]
上传用户：xxtaishan
上传日期：2022-01-02
资源大小：4063k
文件大小：2k
源码类别：

IP电话/视频会议

开发平台：

ASP/ASPX

List_Save.asp：源码内容
  1. <!--#include file="../../inc/conn.asp"-->
  2. <!--#include file="../../inc/FUNC.asp" -->
  3. <!--#include file="../../inc/upload_5xsoft.inc" -->
  4. <%
  6. '-----------------------------
  7. DIM UPLOAD
  8. SET UPLOAD=NEW UPLOAD_5XSOFT
  10. If UPLOAD.FORM("operation")="add" Then
  11. call Add
  12. elseif UPLOAD.FORM("operation")="edit" Then
  13. call Edit
  14. ELSE
  15. call showerr("系统提示：操作无效!")
  16. end if
  17. '-----------------------------
  19. Dim rs
  20. Dim sql
  22. '-----------------------------
  23. Function Add
  24. if UPLOAD.FORM("title")="" then
  25. call showerr("系统提示：标题不能为空!")
  26. end if
  27. if UPLOAD.FORM("content")="" then
  28. call showerr("系统提示：内容不能为空!")
  29. end if
  31. DIM FILE
  32. set file=upload.file("file")
  34. if file.FileSize<=0 then
  35. call showerr("系统提示：请上传产品图片!")
  36. end if
  39. set rs=server.createobject("adodb.recordset")
  40. rs.open "select * from product",conn,1,3
  41. rs.addnew
  43. rs("title")=UPLOAD.FORM("title")
  44. rs("content")=UPLOAD.FORM("content")
  45. rs("postdate")=DATE()
  46. rs("classid")=UPLOAD.FORM("classid")
  49. if file.FileSize>0 then
  50. file.saveAs Server.mappath("../../upload/"&rs("id")&getfilename(file.FileName))
  51. rs("pic")=rs("id")&getfilename(file.FileName)
  52. end if 
  55. rs.Update
  56. call showmsg("系统提示：信息添加成功!","list_add.asp")
  57. End Function
  59. '-----------------------------
  60. Function Edit
  61. if UPLOAD.FORM("title")="" then
  62. call showerr("系统提示：标题不能为空!")
  63. end if
  64. if UPLOAD.FORM("content")="" then
  65. call showerr("系统提示：内容不能为空!")
  66. end if
  68. set rs=server.createobject("adodb.recordset")
  69. rs.open "select * from product where id="&UPLOAD.FORM("id"),conn,1,3
  71. rs("title")=UPLOAD.FORM("title")
  72. rs("content")=UPLOAD.FORM("content")
  73. rs("postdate")=DATE()
  74. rs("classid")=UPLOAD.FORM("classid")
  76. DIM FILE
  77. set file=upload.file("file")
  78. if file.FileSize>0 then
  79. IF GETFILENAME(RS("pic"))<>GETFILENAME(FILE.FILENAME) THEN
  80. CALL DoDelFile("../../upload/"&RS("pic"))
  81. END IF
  82. file.saveAs Server.mappath("../../upload/"&rs("id")&getfilename(file.FileName))
  83. rs("pic")=rs("id")&getfilename(file.FileName)
  84. end if 
  87. rs.Update
  88. call showmsg("系统提示：信息修改成功!","list.asp")
  90. End Function
  91. '-----------------------------
  92. %>
  93. <%
  94. call COCLS
  95. %>