carsave.asp
上传用户:qyswxdl
上传日期:2013-06-01
资源大小:1373k
文件大小:1k
源码类别:

家庭/个人应用

开发平台:

ASP/ASPX

  1. <!--#include file="../checkpost.asp"-->
  2. <!--#include file="articleconn.asp"-->
  3. <!--#include file="security.asp"-->
  4. <%if session("flag")>3 then
  5.     response.write "<br><p align=center>您的操作权限不够!</p>"
  6.     response.end
  7. end if
  8. %>
  9. <%
  10. grad=request("grad")
  11. dayer=request("dayer")
  12. no=request("not")
  13. paymoney=request("paymoneyj")
  14. set rs=server.createobject("adodb.recordset")
  15. rs.open "select * from car",conn,1,3
  16. for i=1 to no
  17. randomize
  18. p=Int((3957184629*rnd))
  19. k=Int((6243951646*rnd))
  20. rs.addnew
  21. rs("carid")=p
  22. rs("carpws")=k
  23. rs("oklook")=grad
  24. rs("day")=dayer
  25. rs("paymoney")=paymoney
  26. rs.update
  27. next
  28. rs.close
  29. set rs=nothing
  30. conn.close
  31. set conn=nothing
  32. response.redirect "car.asp"
  33. %>