fmlibraryv3.asp
上传用户:wangting
上传日期:2020-01-24
资源大小:2226k
文件大小:6k
源码类别:

破解

开发平台:

ASP/ASPX

  1. <%
  2. '// Last Edit 07.08.2003 (v3)
  3. '// 2/20/2004
  4. '// 31/10/2006 - All not required functions are removed from this release
  5. '******************************************************************
  6. '//Ferruh Mavituna ASP Library v3.3
  7. '//http://ferruh.mavituna.com
  8. '//ferruh {at} mavituna.com
  9. '******************************************************************
  10. ' Get Country from IP
  11. Function GetCountry(IP)
  12.    GetCountry = "none"
  13.    Dim IPAsArray, IPAsDouble
  14.    IPAsArray = Split(IP, ".")
  15.    IPAsDouble = (IPAsArray(0) * 16777216) + (IPAsArray(1) * 65536) + (IPAsArray(2) * 256) + IPAsArray(3)
  16.    Dim RsCountry
  17.    getRs RsCountry, "Select * From IPCountry Where " & IPAsDouble & " >= IPStart And " & IPAsDouble & " <= IPEnd"
  18.    If Not RsCountry.EOF And Not RsCountry.BOF Then
  19.       GetCountry = LCase(rsCountry("CountryFlag"))
  20.    End If
  21.    fmKill RsCountry
  22. End Function
  23. '******************************************************************
  24. 'fm_QNStr() v1.1 by Ferruh Mavituna
  25. '******************************************************************
  26. '//NFO//
  27. ' Get Querystring get it as a numeric value, If it's not numeric it returns 0
  28. '//ARGUMENTS//
  29. ' Qstring = Querystring Name
  30. '//RETURN//
  31. ' Numeric value from Querystring
  32. '//SAMPLES//
  33. ' QueryId = fm_QNStr("id")
  34. Function fm_QNStr(byVal Qstring)
  35. Qstring= Trim(Request.Querystring(Qstring))
  36. If NOT IsNumeric(Qstring) Then fm_QNStr = 0 Else fm_QNStr = Qstring
  37. End Function
  38. Function fm_NStr(byVal Qstring)
  39. If NOT IsNumeric(Qstring) Then fm_NStr = 0 Else fm_NStr = Qstring
  40. End Function
  41. '******************************************************************
  42. 'fm_SQL() v1.3 by Ferruh Mavituna
  43. '******************************************************************
  44. '//NFO//
  45. ' Make Safe String for SQL Strings
  46. '//ARGUMENTS//
  47. ' str : String
  48. '//SAMPLE// 
  49. ' SELECT * FROM members WHERE user = '" & fm_SQL(formusername) & "'
  50. Function fm_SQL(byVal Str) 
  51. fm_SQL=Replace(Str, "'", "''")
  52. End Function
  53. '******************************************************************
  54. '// FM Insert v1.2
  55. 'tablename (String) = Database table name 
  56. ' values (Array) = Fields, Data, Type like (field,value,text,field, value, number...)
  57. '// HISTORY
  58. '// 05.10.2003
  59. '// Isnumeric() Added
  60. '******************************************************************
  61. Function fm_Insert(byval tablename, byval values)
  62. Dim ExeNewRs, ExeNewRsFields, ExeNewRsValues, i
  63. '// Loop
  64. For i = 0 to Ubound(values) Step 3
  65. ExeNewRsFields = ExeNewRsFields & Trim(values(i))
  66. If Ubound(values)-2 <> i Then ExeNewRsFields = ExeNewRsFields & ", "
  67. '// Values
  68. Select Case Lcase(Trim(values(i+2)))
  69. Case "number"
  70. If NOT isNumeric(values(i+1)) Then values(i+1) = 0
  71. ExeNewRsValues = ExeNewRsValues & values(i+1)
  72. Case "", "text"
  73. ExeNewRsValues = ExeNewRsValues & "'" & fm_SQL(values(i+1)) & "'"
  74. End Select
  75. If Ubound(values)-2 <> i Then ExeNewRsValues = ExeNewRsValues & ", "
  76. Next
  77. Set ExeNewRs = Server.CreateObject("ADODB.Command")
  78. ExeNewRs.ActiveConnection = fmconnexe
  79. ExeNewRs.CommandText = "INSERT INTO " & tablename & "(" & ExeNewRsFields & ") VALUES (" & ExeNewRsValues & ")"
  80. '--- DEBUG
  81. 'Response.Write "*" & ExeNewRs.CommandText
  82. 'Response.End
  83. '--- DEBUG
  84. ExeNewRs.Execute
  85. ExeNewRs.ActiveConnection.Close
  86. Set ExeNewRs  = Nothing
  87. End Function
  88. '******************************************************************
  89. '// FM Update
  90. 'tablename (String) = Database table name
  91. 'identifier (string)= id of table
  92. 'uniqueid (number) = id number
  93. 'values (Array) = Fields, Data, Type like (field,value,text,field, value, number...)
  94. '******************************************************************
  95. Function fm_Update(byval tablename, byval identifier, byval uniqueid,byval values)
  96. Dim ExeNewRs, ExeNewRsFields, ExeNewRsValues, i
  97. If Not IsNumeric(uniqueid) Then uniqueid = 0
  98. For i = 0 to Ubound(values) Step 3
  99. ExeNewRsFields = ExeNewRsFields & Trim(values(i))
  100. If Ubound(values)-2 <> i Then ExeNewRsFields = ExeNewRsFields & ", "
  101. '// Values
  102. Select Case Lcase(Trim(values(i+2)))
  103. Case "number"
  104. If Not IsNumeric(values(i+1)) Then values(i+1) = 0
  105. ExeNewRsValues = ExeNewRsValues & values(i) & " = " & values(i+1)
  106. Case "datenow"
  107. ExeNewRsValues =ExeNewRsValues & values(i) & " = Now()"
  108. Case "", "text"
  109. ExeNewRsValues =ExeNewRsValues & values(i) & " = '" & fm_SQL(values(i+1)) & "'"
  110. End Select
  111. If Ubound(values)-2 <> i Then ExeNewRsValues = ExeNewRsValues & ", "
  112. Next
  113. Set ExeNewRs = Server.CreateObject("ADODB.Command")
  114. ExeNewRs.ActiveConnection = fmconnexe
  115. ExeNewRs.CommandText = "UPDATE " & tablename & " SET " & ExeNewRsValues & " WHERE " & identifier & " = " & uniqueid
  116. '//DEBUG
  117. ' Response.Write ExeNewRs.CommandText : Response.End
  118. ExeNewRs.CommandType = 1
  119. ExeNewRs.CommandTimeout = 0
  120. ExeNewRs.Prepared = true
  121. ExeNewRs.Execute()
  122. ExeNewRs.ActiveConnection.Close
  123. Set ExeNewRs  = Nothing
  124. End Function
  125. '***fm_Rnd() v1.3 by Ferruh Mavituna
  126. Function fm_RndNumeric(byVal seed)
  127. Randomize Timer
  128. If NOT isNumeric(seed) Then seed = 666
  129. fm_RndNumeric = Replace(Replace(Cstr(Time),":","")," ","") & "" &  CLng((Rnd*seed))
  130. End Function
  131. '*******************************************************
  132. '// HTML Encode
  133. '*******************************************************
  134. Function fm_Encode(byVal Str)
  135. If Str="" OR isNull(Str) Then Exit Function
  136. fm_Encode=Server.HTMLEncode(Str)
  137. End Function
  138. '// Remote IP
  139. Function RemoteIP()
  140. RemoteIP = Request.ServerVariables("REMOTE_HOST")
  141. End Function
  142. Function fmKill(Obj) '// Close RS
  143. If isObject(Obj) Then
  144. Obj.Close
  145. Set Obj=Nothing
  146. End If
  147. End Function
  148. Function rsEmpty(obj)
  149. rsEmpty=False
  150. If obj.EOF AND obj.BOF Then rsEmpty=True
  151. End Function
  152. Function getRs(byRef Obj, byVal SQL)
  153. ' Response.Write SQL  : Response.End
  154. Set Obj=Server.CreateObject("ADODB.Recordset")
  155. Obj.Open SQL, fmconn, 2, 1
  156. End Function
  157. Function fm_RndNumeric2()
  158. Randomize
  159. fm_RndNumeric2 = CLng((Rnd*666139))+Session.SessionID
  160. End Function
  161. %>