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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > 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. <%
  5. '-----------------------------
  6. Dim rs
  7. Dim sql
  8. '-----------------------------
  9. DIM UPLOAD
  10. SET UPLOAD=NEW UPLOAD_5XSOFT
  12. If UPLOAD.FORM("operation")="add" Then
  13. call Add
  14. elseif UPLOAD.FORM("operation")="edit" Then
  15. call Edit
  16. ELSE
  17. call showerr("系统提示：操作无效!")
  18. end if
  19. '-----------------------------
  20. Function Add
  21. if UPLOAD.FORM("pw")="" or UPLOAD.FORM("title")="" or UPLOAD.FORM("title2")="" or UPLOAD.FORM("title3")="" or UPLOAD.FORM("title4")="" or UPLOAD.FORM("title5")="" or UPLOAD.FORM("title6")="" or UPLOAD.FORM("title7")=""   then
  22. call showerr("系统提示：不能为空!")
  23. end if
  30. set rs=server.createobject("adodb.recordset")
  31. rs.open "select * from info3 where title='"&UPLOAD.FORM("title")&"'",conn,1,3
  32. if rs.bof and rs.eof then
  34. rs.addnew
  35. rs("title")=UPLOAD.FORM("title")
  36. rs("pw")=UPLOAD.FORM("pw")
  37. rs("title2")=UPLOAD.FORM("title2")
  38. rs("title3")=UPLOAD.FORM("title3")
  39. rs("title4")=UPLOAD.FORM("title4")
  40. rs("title5")=UPLOAD.FORM("title5")
  41. rs("title6")=UPLOAD.FORM("title6")
  42. rs("title7")=UPLOAD.FORM("title7")
  43. rs("postdate")=DATE()
  44. rs.Update
  45. else
  46. showerr("数据库中已经有相同用户名的！")
  47. end if
  48. call showmsg("系统提示：信息添加成功!","list.asp")
  49. End Function
  51. '-----------------------------
  52. Function Edit
  53. if UPLOAD.FORM("title")="" or UPLOAD.FORM("title2")="" or UPLOAD.FORM("title3")="" or UPLOAD.FORM("title4")="" or UPLOAD.FORM("title5")="" or UPLOAD.FORM("title6")="" or UPLOAD.FORM("title7")=""   then
  54. call showerr("系统提示：不能为空!")
  55. end if
  57. set rs=server.createobject("adodb.recordset")
  58. rs.open "select * from info3 where id="&UPLOAD.FORM("id"),conn,1,3
  59. rs("title")=UPLOAD.FORM("title")
  60. rs("pw")=UPLOAD.FORM("pw")
  61. rs("title2")=UPLOAD.FORM("title2")
  62. rs("title3")=UPLOAD.FORM("title3")
  63. rs("title4")=UPLOAD.FORM("title4")
  64. rs("title5")=UPLOAD.FORM("title5")
  65. rs("title6")=UPLOAD.FORM("title6")
  66. rs("title7")=UPLOAD.FORM("title7")
  67. rs("postdate")=DATE()
  70. rs.Update
  71. call showmsg("系统提示：信息修改成功!","list.asp")
  73. End Function
  76. function GetExtendName(FileName)
  77. dim ExtName
  78. ExtName = LCase(FileName)
  79. ExtName = right(ExtName,3)
  80. ExtName = right(ExtName,3-Instr(ExtName,"."))
  81. GetExtendName = ExtName
  82. end function
  83. '-----------------------------
  84. call COCLS
  85. %>