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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
copypro.asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：2k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

copypro.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <%
  4. dim action,bookid
  5. bookid=request.QueryString("id")
  7. set rse=server.CreateObject("adodb.recordset")
  8. rse.Open "select * from products where bookid="&bookid,conn,1,3
  10. set rs=server.CreateObject("adodb.recordset")
  11. rs.Open "select * from products ",conn,1,3
  13. rs.AddNew
  14. rs("mch")=rse("mch")
  15. rs("pp")=rse("pp")
  16. rs("isbn1")=rse("isbn1")
  17. rs("jj")=rse("jj")
  18. rs("jg")=rse("jg")
  19. rs("zl")=rse("zl")
  20. rs("tp")=rse("tp")
  21. rs("nr")=rse("nr")
  22. rs("bh")=rse("bh")
  23. rs("anclassid")=rse("anclassid")
  24. rs("nclassid")=rse("nclassid")
  25. rs("xclassid")=rse("xclassid") '子类
  26. rs("bookname")=rse("bookname")
  29. set rsq=server.CreateObject("adodb.recordset")
  30. rsq.Open "select top 1  from products",conn,1,3
  31. id=rs("bookid")
  32.    bianhao1=date()
  33.         bianhao1=replace(bianhao1, "-", "")
  34.         bianhao1=replace(bianhao1, " ", "")
  35.         bianhao1=replace(bianhao1, ":", "")
  36.         bianhao=trim(request("bianhao"))
  37. rs("grade")=bianhao1&id
  40. rs("pingpai")=rse("pingpai")
  41. rs("isbn")=rse("isbn") 
  42. rs("chima")=rse("chima")
  43. rs("yanse")=rse("yanse")
  44. rs("bookchuban")=rse("bookchuban")
  45. rs("shichangjia")=rse("shichangjia")  
  46. rs("huiyuanjia")=rse("huiyuanjia") 
  47. rs("vipjia")=rse("vipjia") 
  48. rs("dazhe")=rse("dazhe") 
  49. rs("kucun")=rse("kucun")  
  50. rs("bookpic")=rse("bookpic")
  51. rs("zhuang")=rse("zhuang") 
  52. rs("metad")=rse("metad")
  53. rs("metak")=rse("metak")
  54. rs("bookcontent")=rse("bookcontent")
  55. rs("yeshu")=rse("yeshu")
  57. rs("bestbook")=rse("bestbook")
  58. rs("newsbook")=rse("newsbook")
  59. rs("tejiabook")=rse("tejiabook")
  60. rs("chengjiaocount")=rse("chengjiaocount") 
  61. rs("liulancount")=rse("liulancount")  
  62. rs("adddate")=now()
  63. rs("pingji")=rse("pingji")  
  64. rs("pingjizong")=rse("pingjizong")
  65. rs.Update
  67. rs.Close
  68. set rs=nothing
  69. if request("linkaddress")="" then
  70. response.redirect request.servervariables("http_referer")
  71. else
  72. response.redirect request("linkaddress")
  73. end if
  74. response.End
  76. %>