级别: 霏凡元勋

UID: 160209
精华: 0
发帖: 16036
威望: 1
霏币: 510.6
活跃度: 17827
技术分: 0
非凡币: 0
交易值: 0
朋友圈: 霏凡宗
在线时间: 6052(小时)
注册时间: 2005-10-01
最后登录: 2018-06-08
楼主  发表于: 2018-10-11 20:53:53

【应用求助】 可以帮翻译一下这段代码吗— -!谢谢

复制代码
  1. Function SetoutHTML(strs)
  2.     sTemp = strs
  3.     SetoutHTML = ""
  4.     sTempss="B"
  5. for SetoutHTML_i=0 to Len(sTemp)
  6. sTemps=right(left(sTemp,SetoutHTML_i),1)
  7. if sTemps="<" then
  8. sTempss="A"
  9. end if
  10. if sTemps=">" then
  11. sTempss="B"
  12. end if
  13. if sTempss="A" then
  14. ssTemp=ssTemp
  15. end if
  16. if sTempss="B" and sTemps<>">" then
  17. ssTemp=ssTemp&sTemps
  18. end if
  19. next
  20. ssTemp= Replace(ssTemp, " ", "")
  21.     SetoutHTML=ssTemp
  22. End Function
  23. sub copytime(str)
  24. str=str
  25. Const cAmount = 36 ' 文字数量
  26. Const cCode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  27. Dim vCode(12), vCodes
  28. For i = 0 To 11
  29.   vCode(i)= Int(Rnd*cAmount)
  30.   vCodes = vCodes & Mid(cCode, vCode(i)+1, 1)
  31. Next
  32. Set rs= Server.CreateObject("ADODB.Recordset")
  33. rs.open "select * from copy where id=1",conn,3,3
  34. if str=1 then
  35. if rs("time")=null or rs("time")<date() then
  36. if (rs("max")&"")="" then
  37. rs("max")=vCodes
  38. rs.update
  39. end if
  40. Response.Redirect("netreg.asp")
  41. end if
  42. elseif str=2 then
  43. if rs("time")<dateadd("d",15,date()) then
  44. if (rs("max")&"")="" then
  45. rs("max")=vCodes
  46. rs.update
  47. end if
  48. Response.Redirect("netreg.asp")
  49. end if
  50. end if
  51. rs.close
  52. set rs=nothing
  53. end sub
  54. set rs = conn.execute("select * from copy where id=1")
  55. regpows=rs("max")
  56. regtime=rs("time")
  57. if regtime=null or regtime<date() then
  58. thisnetform=false
  59. else
  60. thisnetform=true
  61. end if
  62. rs.close
  63. set rs=nothing
  64. sub regnet()
  65. text=lcase(request.Form("text1")&request.Form("text2")&request.Form("text3")&request.Form("text4"))
  66. regnetmx=md5(md516(md5(regpows)))
  67. if text=regnetmx then
  68. Set rs= Server.CreateObject("ADODB.Recordset")
  69. rs.open "select * from copy where id=1",conn,3,3
  70. rs("time")=dateadd("yyyy",1,date())
  71. rs("max")=""
  72. rs.update
  73. rs.close
  74. set rs=nothing
  75. Response.Write("<script>alert(""激活成功!激活到:"&dateadd("yyyy",1,date())&""");location.href=""admin_index.asp"";</script>")
  76. Response.End()
  77. end if
  78. end sub


说明:就是我那个破网站提示要激活了,没看懂这段意思,是不是看懂了有办法解决激活的问题啊
投诉阿青,阿青直接灭口,千古奇冤,求伸冤。
级别: 霏凡元勋

UID: 160209
精华: 0
发帖: 16036
威望: 1
霏币: 510.6
活跃度: 17827
技术分: 0
非凡币: 0
交易值: 0
朋友圈: 霏凡宗
在线时间: 6052(小时)
注册时间: 2005-10-01
最后登录: 2018-06-08
1楼  发表于: 2018-10-11 23:58:13
已经搞定,算法在68 69行,把70行的
if text=regnetmx then
换成if text<>regnetmx then
就解决了