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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > 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
  40. set rs=server.createobject("adodb.recordset")
  41. rs.open "select * from product1",conn,1,3
  42. rs.addnew
  43. rs("hh")=UPLOAD.FORM("hh")
  44. rs("title")=UPLOAD.FORM("title")
  45. rs("content")=UPLOAD.FORM("content")
  46. rs("postdate")=DATE()
  47. rs("classid")=UPLOAD.FORM("classid")
  48. if UPLOAD.FORM("nclassid")<>"" then
  49. rs("nclassid")=UPLOAD.FORM("nclassid")
  50. end if
  54. if file.FileSize>0 then
  55. file.saveAs Server.mappath("../../upload2/"&rs("id")&getfilename(file.FileName))
  56. rs("pic")=rs("id")&getfilename(file.FileName)
  57. end if 
  61. rs.Update
  62. call showmsg("系统提示：信息添加成功!","list_add.asp")
  63. End Function
  65. '-----------------------------
  66. Function Edit
  67. if UPLOAD.FORM("title")="" then
  68. call showerr("系统提示：标题不能为空!")
  69. end if
  70. if UPLOAD.FORM("content")="" then
  71. call showerr("系统提示：内容不能为空!")
  72. end if
  74. set rs=server.createobject("adodb.recordset")
  75. rs.open "select * from product1 where id="&UPLOAD.FORM("id"),conn,1,3
  76. rs("hh")=UPLOAD.FORM("hh")
  77. rs("title")=UPLOAD.FORM("title")
  78. rs("content")=UPLOAD.FORM("content")
  79. rs("postdate")=DATE()
  80. rs("classid")=UPLOAD.FORM("classid")
  81. rs("nclassid")=UPLOAD.FORM("nclassid")
  82. DIM FILE
  83. set file=upload.file("file")
  84. if file.FileSize>0 then
  85. IF GETFILENAME(RS("pic"))<>GETFILENAME(FILE.FILENAME) THEN
  86. CALL DoDelFile("../../upload2/"&RS("pic"))
  87. END IF
  88. file.saveAs Server.mappath("../../upload2/"&rs("id")&getfilename(file.FileName))
  89. rs("pic")=rs("id")&getfilename(file.FileName)
  90. end if 
  93. rs.Update
  94. call showmsg("系统提示：信息修改成功!","list.asp")
  96. End Function
  97. '-----------------------------
  98. %>
  99. <%
  100. call COCLS
  101. %>