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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
Cls_user.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：39k
源码类别：

数据库编程

开发平台：

ASP/ASPX

Cls_user.asp：源码内容
  1. <%
  2. Class Cls_User
  3. Private m_StrEmail,m_NumSex,m_NumIntegral,m_StrQuesion,m_StrAnswer,m_NumLoginNum,m_Paper,m_OnlyLogin,m_Papercode,m_NumConNumber
  4. Private m_StrRegTime,m_StrLastLoginTime,m_StrLastLoginIP,m_StrUserNumber,m_NumFS_Money,m_PassAnswer
  5. Private m_StrUserName,m_RealName,m_StrRealName,m_StrNickName,m_StrPWD,m_NumID,m_RsUser,m_UserID,m_StrHomePage,m_StrBothYear
  6. Private m_StrTel,m_StrMSN,m_StrQQ,m_StrCorner,m_StrProvince,m_StrCity,m_StrAddress,m_StrPostCode,m_isCorporation
  7. Private m_PassQuestion,m_isOpen,m_OpenInfoTF,m_Vocation,m_NumGroupID,m_UserLoginCode
  8. Private m_HeadPic,m_SelfIntro,m_UserFavor,m_IsMarray
  9. Public Mobile,m_CloseTime,isMessage,m_HeadPicsize,safeCode
  10. Public Property Let Name(ByVal StrValue)
  11. m_StrUserName = StrValue
  12. m_RsUser.open "select UserID,UserNumber,UserName,UserPassword,HeadPic,HeadPicSize,PassQuestion,PassAnswer,safeCode,tel,Mobile,isMessage,Email,HomePage,QQ,MSN,Corner,Province,City,Address,PostCode,NickName,RealName,Vocation,Sex,BothYear,Certificate,CertificateCode,IsCorporation,PopList,Integral,FS_Money,RegTime,CloseTime,LoginNum,LastLoginTime,TempLastLoginTime,TempLastLoginTime_1,IsMarray,SelfIntro,isOpen,GroupID,LastLoginIP,ConNumber,ConNumberNews,isLock,UserFavor,MySkin,UserLoginCode,OnlyLogin,hits from FS_ME_Users where UserName='"&m_StrUserName&"'",User_Conn,1,1
  13. If m_RsUser.EOF=False Then 
  14. m_RealName = m_RsUser("UserName")
  15. m_NumGroupID = m_RsUser("GroupID")
  16. m_NumIntegral = m_RsUser("Integral")
  17. m_NumLoginNum = m_RsUser("LoginNum")
  18. m_StrRegTime = m_RsUser("RegTime")
  19. m_StrLastLoginTime = m_RsUser("LastLoginTime")
  20. m_StrLastLoginIP = m_RsUser("LastLoginIP")
  21. m_StrUserNumber = m_RsUser("UserNumber")
  22. m_NumFS_Money = m_RsUser("FS_Money")
  23. m_Paper = m_RsUser("Certificate")
  24. m_Papercode  = m_RsUser("Certificatecode")
  25. m_OnlyLogin = m_RsUser("OnlyLogin") 
  26. m_PassAnswer = m_RsUser("PassAnswer")
  27. m_IsMarray = m_RsUser("IsMarray")
  28. m_NumConNumber = m_RsUser("ConNumber")
  29. m_UserID = m_RsUser("UserID")
  30. m_StrHomePage = m_RsUser("HomePage")
  31. m_StrBothYear = m_RsUser("BothYear")
  32. m_StrTel = m_RsUser("Tel")
  33. m_StrMSN = m_RsUser("MSN")
  34. m_StrQQ = m_RsUser("QQ")
  35. m_StrCorner = m_RsUser("Corner")
  36. m_StrProvince = m_RsUser("Province")
  37. m_StrCity = m_RsUser("City")
  38. m_StrAddress = m_RsUser("Address")
  39. m_StrPostCode = m_RsUser("PostCode")
  40. m_PassQuestion = m_RsUser("PassQuestion")
  41. m_SelfIntro = m_RsUser("SelfIntro")
  42. m_UserFavor = m_RsUser("UserFavor")
  43. m_isOpen = m_RsUser("isopen")
  44. m_Vocation = m_RsUser("Vocation")
  45. m_HeadPic = m_RsUser("HeadPic")
  46. m_HeadPicsize = m_RsUser("HeadPicsize")
  47. m_StrRealName = m_RsUser("RealName")
  48. m_StrNickName = m_RsUser("NickName")
  49. Mobile = m_RsUser("Mobile")
  50. m_CloseTime = m_RsUser("CloseTime")
  51. m_IsCorporation = m_RsUser("IsCorporation")
  52. isMessage = m_RsUser("isMessage")
  53. m_StrEmail = m_RsUser("Email")
  54. m_NumSex = m_RsUser("sex")
  55. safeCode = m_RsUser("safeCode")
  56. End If 
  57. m_RsUser.close
  58. End Property 
  60. Public Property Let ID(ByVal StrValue)
  61. m_NumID = StrValue
  62. m_RsUser.open "select isLock,UserName,RealName,GroupID,Integral,LoginNum,RegTime, LastLoginTime,LastLoginIP,UserNumber,FS_Money,ConNumber,UserID,HomePage,BothYear,Tel,MSN,QQ,Corner,Province,City,Address,PostCode,PassQuestion,SelfIntro,isOpen,Certificate,CertificateCode,Vocation,HeadPic,NickName,Mobile,CloseTime,IsCorporation,isMessage,Email,sex,safeCode,UserLoginCode,HeadPicsize,OnlyLogin,UserFavor,IsMarray,PassAnswer from FS_ME_Users where ID="&m_NumID,User_Conn,1,1
  63. If m_RsUser.EOF=False Then 
  64. m_StrUserName = m_RsUser("UserName")
  65. m_NumIntegral = m_RsUser("Integral")
  66. m_NumLoginNum = m_RsUser("LoginNum")
  67. m_StrRegTime = m_RsUser("RegTime")
  68. m_StrLastLoginTime = m_RsUser("LastLoginTime")
  69. m_StrLastLoginIP = m_RsUser("LastLoginIP")
  70. m_StrUserNumber = m_RsUser("UserNumber")
  71. m_Paper = m_RsUser("Certificate")
  72. m_Papercode = m_RsUser("Certificatecode")
  73. m_OnlyLogin = m_RsUser("OnlyLogin")
  74. m_PassAnswer = m_RsUser("PassAnswer")
  75. m_IsMarray = m_RsUser("IsMarray")
  76. m_NumConNumber = m_RsUser("ConNumber")
  77. m_UserID = m_RsUser("UserID")
  78. m_NumGroupID =m_RsUser("GroupID")
  79. m_StrHomePage = m_RsUser("HomePage")
  80. m_StrBothYear = m_RsUser("BothYear")
  81. m_StrTel = m_RsUser("Tel")
  82. m_StrMSN = m_RsUser("MSN")
  83. m_StrQQ = m_RsUser("QQ")
  84. m_StrCorner = m_RsUser("Corner")
  85. m_StrProvince = m_RsUser("Province")
  86. m_StrCity = m_RsUser("City")
  87. m_StrAddress = m_RsUser("Address")
  88. m_StrPostCode = m_RsUser("PostCode")
  89. m_PassQuestion = m_RsUser("PassQuestion")
  90. m_SelfIntro = m_RsUser("SelfIntro")
  91. m_UserFavor = m_RsUser("UserFavor")
  92. m_isOpen = m_RsUser("isopen")
  93. m_Vocation = m_RsUser("Vocation")
  94. m_HeadPic = m_RsUser("HeadPic")
  95. m_StrNickName = m_RsUser("NickName")
  96. m_StrRealName = m_RsUser("RealName")
  97. Mobile = m_RsUser("Mobile")
  98. CloseTime = m_RsUser("CloseTime")
  99. m_IsCorporation = m_RsUser("IsCorporation")
  100. isMessage = m_RsUser("isMessage")
  101. m_HeadPicsize = m_RsUser("HeadPicsize")
  102. m_StrEmail = m_RsUser("Email")
  103. m_NumSex = m_RsUser("sex")
  104. safeCode = m_RsUser("safeCode")
  105. m_UserLoginCode =  m_RsUser("UserLoginCode")
  106. End If 
  107. m_RsUser.close
  108. End Property 
  110. Public Property Get UserID() '用户ID
  111. UserID = m_UserID
  112. End Property 
  113. Public Property Get NumConNumber() '投稿数量
  114. NumConNumber = m_NumConNumber
  115. End Property 
  117. Public Property Get PaperType() '证件类型
  118. PaperType = m_Paper 
  119. End Property 
  121. Public Property Get PaperTypecode() '证件号码
  122. PaperTypecode = m_Papercode  
  123. End Property 
  125. Public Property Get OnlyLogin () '多人登陆? 
  126. OnlyLogin  = m_OnlyLogin 
  127. End Property 
  129. Public Property Get PassAnswer () '密码答案? 
  130. PassAnswer  = m_PassAnswer
  131. End Property 
  133. Public Property Get IsMarray  () '是否结婚? 
  134. IsMarray   = m_IsMarray 
  135. End Property 
  137. Public Property Get NumFS_Money() '可用金币
  138. NumFS_Money = m_NumFS_Money
  139. End Property 
  141. Public Property Get isCorp() '会员类型
  142. isCorp = m_isCorpOration
  143. End Property 
  145. Public Property Get NumLoginNum() '登陆次数
  146. NumLoginNum = m_NumLoginNum
  147. End Property 
  149. Public Property Get UserNumber() '用户编号
  150. UserNumber = m_StrUserNumber 
  151. End Property 
  153. Public Property Get CloseTime() '用户编号
  154. CloseTime = m_CloseTime 
  155. End Property 
  157. Public Property Get NumGroupID() '用户群权限
  158. NumGroupID = m_NumGroupID
  159. End Property 
  161. Public Property Get RegTime() '注册时间
  162. RegTime = m_StrRegTime
  163. End Property 
  165. Public Property Get LastLoginTime() '最后登陆时间
  166. LastLoginTime = m_StrLastLoginTime
  167. End Property 
  169. Public Property Get LastLoginIP() '最后登陆IP
  170. LastLoginIP = m_StrLastLoginIP
  171. End Property 
  173. Public Property Get NumIntegral() '积分
  174. NumIntegral = m_NumIntegral
  175. End Property 
  177. Public Property Get Sex() '性别
  178. Sex = m_NumSex
  179. End Property 
  181. Public Property Get Email() '邮件
  182. Email = m_StrEmail
  183. End Property 
  184. Public Property Get Tel() '电话
  185. Tel = m_StrTel
  186. End Property 
  187. Public Property Get MSN() 'MSN
  188. MSN = m_StrMSN
  189. End Property 
  190. Public Property Get QQ() 'QQ
  191. QQ = m_StrQQ
  192. End Property
  194. Public Property Get Corner() '地区
  195. Corner = m_StrCorner
  196. End Property
  197. Public Property Get UserLoginCode() '地区
  198. UserLoginCode = m_UserLoginCode
  199. End Property
  200. Public Property Get Province() '省份
  201. Province = m_StrProvince
  202. End Property 
  204. Public Property Get City() '城市
  205. City = m_StrCity
  206. End Property 
  208. Public Property Get Address() '地址
  209. Address = m_StrAddress
  210. End Property 
  212. Public Property Get PostCode() '邮编
  213. PostCode = m_StrPostCode
  214. End Property 
  216. Public Property Get HomePage() '网站地址
  217. HomePage = m_StrHomePage
  218. End Property 
  220. Public Property Get BothYear() '生日
  221. BothYear = m_StrBothYear
  222. End Property 
  224. Public Property Get PassQuestion() '密码问题
  225. PassQuestion = m_PassQuestion
  226. End Property 
  228. Public Property Get SelfIntro() '个性签名
  229. SelfIntro = m_SelfIntro
  230. End Property 
  232. Public Property Get UserFavor() '爱好
  233. UserFavor = m_UserFavor
  234. End Property 
  236. Public Property Get isOpen() '是否开放资料
  237. isOpen = m_isOpen
  238. End Property 
  240. Public Property Get OpenInfoTF() '是否开放资料
  241. OpenInfoTF = m_OpenInfoTF
  242. End Property 
  244. Public Property Get Vocation() '职业
  245. Vocation = m_Vocation
  246. End Property 
  248. Public Property Get HeadPic() '头像
  249. HeadPic = m_HeadPic
  250. End Property 
  252. Public Property Get HeadPicsize() '头像
  253. HeadPicsize = m_HeadPicsize
  254. End Property 
  256. Public Property Get UserName() '用户名
  257. UserName = m_StrUserName
  258. End Property 
  260. Public Property Get RealName() '真实姓名
  261. RealName = m_StrRealName
  262. End ProPerty
  264. Public Property Get EName() '英文名字
  265. EName = m_StrUserName
  266. End Property 
  268. Public Property Get NickName() '昵称
  269. NickName = m_StrNickName
  270. End Property 
  272. Private Sub Class_Initialize()
  273. Set m_RsUser = server.CreateObject(G_FS_RS)
  274. End Sub
  276. Private Sub Class_Terminate()
  277. Set m_RsUser = Nothing 
  278. End Sub
  279. Public Function UserGroups(f_strfield,f_strvalue)
  280. Dim f_RsUG,f_StrUG,f_StrSelected
  281. UserGroups = ""
  282. f_StrSelected = ""
  283. Set f_RsUG = User_Conn.Execute("Select "&f_strfield&",Name from FS_MemGroup")
  284. Do While Not f_RsUG.EOF 
  285. f_StrUG = f_RsUG(0)
  286. If f_StrUG = f_strvalue Then f_StrSelected = "selected"
  287. UserGroups = UserGroups & "<option value="""&f_StrUG&""" "&f_StrSelected&">"&f_RsUG(1)&"</option>" & vbcrlf
  288. f_StrSelected = ""
  289. f_RsUG.MoveNext
  290. Loop 
  291. Set f_RsUG = Nothing 
  292. End Function 
  294. Public Function DelUser(f_StrNumName,f_StrPWD)
  295. DelUser = True
  296. If f_StrNumName="" Or f_StrPWD="" Or IsNull(f_StrNumName) Or IsNull(f_StrPWD) Then
  297. DelUser = False
  298. Else
  299. Dim f_RsMemObj
  300. Set f_RsMemObj = User_Conn.Execute("select UserID from FS_ME_Users where UserNumber='"&f_StrNumName&"' and UserPassword='"&f_StrPWD&"'")
  301. If f_RsMemObj.EOF Then 
  302. DelUser = False
  303. Set f_RsMemObj = Nothing 
  304. Else
  305. On Error Resume Next 
  306. 'User_Conn.Execute("Delete from FS_ME_Message where M_ReadUserNumber='"&f_StrNumName&"'")
  307. User_Conn.Execute("Update FS_ME_Message  set M_FromUserNumber=0 where M_FromUserNumber='"&f_StrNumName&"'")
  308. User_Conn.Execute("Update FS_ME_Message  set M_ReadUserNumber=0 where M_ReadUserNumber='"&f_StrNumName&"'")
  309. User_Conn.Execute("Delete from FS_ME_BuyBag where UserNumber='"&f_StrNumName&"'")
  310. User_Conn.Execute("Update FS_ME_Card set UserNumber=0 where UserNumber='"&f_StrNumName&"'")
  311. User_Conn.Execute("Delete from FS_ME_CertFile where UserNumber='"&f_StrNumName&"'")
  312. User_Conn.Execute("Delete from FS_ME_CorpUser where UserNumber='"&f_StrNumName&"'")
  313. User_Conn.Execute("Delete from FS_ME_Favorite where UserNumber='"&f_StrNumName&"'")
  314. User_Conn.Execute("Delete from FS_ME_FavoriteClass where UserNumber='"&f_StrNumName&"'")
  315. User_Conn.Execute("Delete from FS_ME_Friends where UserNumber='"&f_StrNumName&"'")
  316. User_Conn.Execute("Update FS_ME_Friends set F_UserNumber = 0  where F_UserNumber='"&f_StrNumName&"'")
  317. User_Conn.Execute("Delete from FS_ME_GroupDebate where UserNumber='"&f_StrNumName&"'")
  318. User_Conn.Execute("Delete from FS_ME_GroupDebateClass where UserNumber='"&f_StrNumName&"'")
  319. User_Conn.Execute("Delete from FS_ME_InfoClass where UserNumber='"&f_StrNumName&"'")
  320. User_Conn.Execute("Delete from FS_ME_InfoContribution where UserNumber='"&f_StrNumName&"'")
  321. User_Conn.Execute("Delete from FS_ME_InfoDown where UserNumber='"&f_StrNumName&"'")
  322. User_Conn.Execute("Delete from FS_ME_Infoilog where UserNumber='"&f_StrNumName&"'")
  323. User_Conn.Execute("Delete from FS_ME_InfoProduct where UserNumber='"&f_StrNumName&"'")
  324. User_Conn.Execute("Delete from FS_ME_Log where UserNumber='"&f_StrNumName&"'")
  325. User_Conn.Execute("Delete from FS_ME_MyInfo where UserNumber='"&f_StrNumName&"'")
  326. User_Conn.Execute("Delete from FS_ME_MySysPara where UserNumber='"&f_StrNumName&"'")
  327. User_Conn.Execute("Delete from FS_ME_Order where UserNumber='"&f_StrNumName&"'")
  328. User_Conn.Execute("Delete from FS_ME_Review where UserNumber='"&f_StrNumName&"'")
  329. User_Conn.Execute("Delete from FS_SD_InfoSupply where UserNumber='"&f_StrNumName&"'")
  330. '删除静态目录、其他目录
  331. '暂时保留 
  332. Set f_RsMemObj = Nothing 
  333. User_Conn.Execute("Delete from FS_ME_Users where UserNumber='"&f_StrNumName&"'")
  334. If Err Then 
  335. Err.clear
  336. DelUser = False
  337. Else
  338. DelUser = True 
  339. End If 
  340. End If 
  341. End If 
  342. End Function 
  344. Public Function strUserNumberRule(str)
  345. strUserNumberRule = ""
  346. Dim f_strUserNumberarr,f_str0,f_str1,f_str2,f_str3,f_str4,Getstr
  347. if instr(str,",")=0 then strUserNumberRule=str : Exit Function
  348. f_strUserNumberarr = split(str,",")
  349. If Not IsArray(f_strUserNumberarr) then Exit Function
  350. f_str0 = f_strUserNumberarr(0)
  351. f_str1 = f_strUserNumberarr(1)
  352. f_str2 = f_strUserNumberarr(2)
  353. f_str3 = f_strUserNumberarr(3)
  354. f_str4 = f_strUserNumberarr(4)
  355. strUserNumberRule = strUserNumberRule & f_strUserNumberarr(0)
  356. If Instr(1,f_strUserNumberarr(1),"y",1)<>0 then
  357. if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
  358. strUserNumberRule = strUserNumberRule & right(year(now),2)&f_strUserNumberarr(3)
  359. Else
  360. strUserNumberRule = strUserNumberRule & right(year(now),2)
  361. End if
  362. End if
  363. If Instr(1,f_strUserNumberarr(1),"m",1)<>0 then
  364. If Len(Cstr(Month(Now()))) < 2 then
  365. if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
  366. strUserNumberRule = strUserNumberRule & "0"&month(now)&f_strUserNumberarr(3)
  367. Else
  368. strUserNumberRule = strUserNumberRule& "0"&month(now)&f_strUserNumberarr(3)
  369. End if
  370. Else
  371. if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
  372. strUserNumberRule = strUserNumberRule & month(now)&f_strUserNumberarr(3)
  373. Else
  374. strUserNumberRule = strUserNumberRule& month(now)&f_strUserNumberarr(3)
  375. End if
  376. End if
  377. End if
  378. If Instr(1,f_strUserNumberarr(1),"d",1)<>0 then
  379. If Len(Cstr(day(Now))) < 2 then
  380. if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
  381. strUserNumberRule = strUserNumberRule & "0"&day(now)&f_strUserNumberarr(3)
  382. Else
  383. strUserNumberRule = strUserNumberRule& "0"&day(now)&f_strUserNumberarr(3)
  384. End if
  385. Else
  386. if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
  387. strUserNumberRule = strUserNumberRule & day(now)&f_strUserNumberarr(3)
  388. Else
  389. strUserNumberRule = strUserNumberRule& day(now)&f_strUserNumberarr(3)
  390. End if
  391. End if
  392. End if
  393. If Instr(1,f_strUserNumberarr(1),"h",1)<>0 then
  394. If Len(Cstr(hour(Now))) < 2 then
  395. if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
  396. strUserNumberRule = strUserNumberRule & "0"&hour(now)&f_strUserNumberarr(3)
  397. Else
  398. strUserNumberRule = strUserNumberRule& "0"&hour(now)&f_strUserNumberarr(3)
  399. End if
  400. Else
  401. if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
  402. strUserNumberRule = strUserNumberRule & hour(now)&f_strUserNumberarr(3)
  403. Else
  404. strUserNumberRule = strUserNumberRule& hour(now)&f_strUserNumberarr(3)
  405. End if
  406. End if
  407. End if
  408. If Instr(1,f_strUserNumberarr(1),"i",1)<>0 then
  409. If Len(Cstr(minute(Now))) < 2 then
  410. if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
  411. strUserNumberRule = strUserNumberRule & "0"&minute(now)&f_strUserNumberarr(3)
  412. Else
  413. strUserNumberRule = strUserNumberRule& "0"&minute(now)&f_strUserNumberarr(3)
  414. End if
  415. Else
  416. if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
  417. strUserNumberRule = strUserNumberRule & minute(now)&f_strUserNumberarr(3)
  418. Else
  419. strUserNumberRule = strUserNumberRule& minute(now)&f_strUserNumberarr(3)
  420. End if
  421. End if
  422. End if
  423. If Instr(1,f_strUserNumberarr(1),"s",1)<>0 then
  424. If Len(Cstr(second(Now))) < 2 then
  425. if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
  426. strUserNumberRule = strUserNumberRule & "0"&second(now)&f_strUserNumberarr(3)
  427. Else
  428. strUserNumberRule = strUserNumberRule& "0"&second(now)&f_strUserNumberarr(3)
  429. End if
  430. Else
  431. if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
  432. strUserNumberRule = strUserNumberRule & second(now)&f_strUserNumberarr(3)
  433. Else
  434. strUserNumberRule = strUserNumberRule& second(now)&f_strUserNumberarr(3)
  435. End if
  436. End if
  437. End if
  438. Randomize
  439. Dim f_Randchar,f_Randchararr,f_RandLen,f_iR,f_Randomizecode
  440. f_Randchar="0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
  441. f_Randchararr=split(f_Randchar,",") 
  442. If f_strUserNumberarr(2)="2" then
  443. if f_strUserNumberarr(4)="w" then
  444. f_RandLen=2 
  445. for f_iR=1 to f_RandLen
  446. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  447. next 
  448. strUserNumberRule = strUserNumberRule &  f_Randomizecode
  449. Else
  450. strUserNumberRule = strUserNumberRule &  CStr(Int((99 * Rnd) + 1))
  451. End if
  452. Elseif f_strUserNumberarr(2)="3" then
  453. if f_strUserNumberarr(4)="w" then
  454. f_RandLen=3 
  455. for f_iR=1 to f_RandLen
  456. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  457. next 
  458. strUserNumberRule = strUserNumberRule &  f_Randomizecode
  459. Else
  460. strUserNumberRule = strUserNumberRule &  CStr(Int((999* Rnd) + 1))
  461. End if
  462. Elseif f_strUserNumberarr(2)="4" then
  463. if f_strUserNumberarr(4)="w" then
  464. f_RandLen=4 
  465. for f_iR=1 to f_RandLen
  466. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  467. next 
  468. strUserNumberRule = strUserNumberRule &  f_Randomizecode
  469. Else
  470. strUserNumberRule = strUserNumberRule &  CStr(Int((9999* Rnd) + 1))
  471. End if
  472. Elseif f_strUserNumberarr(2)="5" then
  473. if f_strUserNumberarr(4)="w" then
  474. f_RandLen=5 
  475. for f_iR=1 to f_RandLen
  476. f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
  477. next 
  478. strUserNumberRule = strUserNumberRule &  f_Randomizecode
  479. Else
  480. strUserNumberRule = strUserNumberRule &  CStr(Int((99999* Rnd) + 1))
  481. End if
  482. End if
  483. strUserNumberRule = strUserNumberRule
  484. End Function
  486. Public Function Login(f_StrName,f_StrPWD,f_Logintye,p_vercode)
  487. Login = True
  488. 'Response.Cookies("FoosunMFCookies")("FoosunMFDomain")
  489. if request.Cookies("FoosunUserlCookies")("FS_User_Login_Number")="" or request.Cookies("FoosunUserlCookies")("FS_User_Login_Number")=0 then
  490. p_LoginLockNum = 0
  491. Else
  492. p_LoginLockNum = cint(request.Cookies("FoosunUserlCookies")("FS_User_Login_Number"))
  493. End if
  494. if LoginLockNum<>0 then
  495. if p_LoginLockNum > LoginLockNum then
  496. Login = false 
  497. strShowErr = "<li>您已经连续登陆了"& p_LoginLockNum -1 &"次</li><li> 此帐户已经临时被锁定，今天不能登陆了!!!</li>"
  498. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  499. Response.end
  500. End if
  501. End if
  502. if p_UserName = "" or  p_UserPassword = "" then
  503. Login = false 
  504. strShowErr = "<li>请填写您的用户名</li><li> 请填写您的密码!</li>"
  505. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  506. Response.end
  507. Else
  508. dim f_RsLoginobj,f_RsLoginSQL
  509. if f_Logintye = "0" then
  510.  f_RsLoginSQL = "Select UserName,UserNumber,NickName,UserPassword,Email,isLock,IsCorporation,GroupID,MySkin,TempLastLoginTime From FS_ME_Users Where UserName = '"& f_StrName &"' and UserPassword = '"& f_StrPWD &"'"
  511.  Elseif f_Logintye = "1" then
  512.  f_RsLoginSQL = "Select UserName,UserNumber,NickName,UserPassword,Email,isLock,IsCorporation,GroupID,MySkin,TempLastLoginTime From FS_ME_Users Where UserNumber = '"& f_StrName &"' and UserPassword = '"& f_StrPWD &"'"
  513.  Elseif f_Logintye = "2" then
  514.  f_RsLoginSQL = "Select UserName,UserNumber,NickName,UserPassword,Email,isLock,IsCorporation,GroupID,MySkin,TempLastLoginTime From FS_ME_Users Where Email = '"& f_StrName &"' and UserPassword = '"& f_StrPWD &"'"
  515.  Else
  516. Login = false 
  517. strShowErr = "<li>错误的参数</li><li> 请选择登陆方式!</li>"
  518. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  519. Response.end
  520.  End if
  521. Set f_RsLoginobj = server.CreateObject(G_FS_RS)
  522. f_RsLoginobj.open f_RsLoginSQL,User_Conn,1,1
  523. If Not f_RsLoginobj.eof then 
  524. If f_RsLoginobj(5)<>0 then
  525. f_RsLoginobj.close
  526. set f_RsLoginobj = nothing
  527. Login = false 
  528. strShowErr = "<li>用户已经被锁定</li><li> 此用户注册没有审核!</li>"
  529. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  530. Response.end
  531. Else
  532. '更新数据
  533. Dim f_RsUpdateobj,f_RsUpdateSQL
  534. Set f_RsUpdateobj = server.CreateObject(G_FS_RS)
  535. if f_Logintye = "0" then
  536.  f_RsUpdateSQL = "Select UserNumber,LoginNum,LastLoginTime,FS_Money,Integral,UserLoginCode,TempLastLoginTime,TempLastLoginTime_1,LastLoginIP,GroupID  From FS_ME_Users Where UserName = '"& f_StrName &"' and UserPassword = '"& f_StrPWD &"'"
  537.  Elseif f_Logintye = "1" then
  538.  f_RsUpdateSQL = "Select UserNumber,LoginNum,LastLoginTime,FS_Money,Integral,UserLoginCode,TempLastLoginTime,TempLastLoginTime_1,LastLoginIP,GroupID From FS_ME_Users Where UserNumber = '"& f_StrName &"' and UserPassword = '"& f_StrPWD &"'"
  539.  Elseif f_Logintye = "2" then
  540.  f_RsUpdateSQL = "Select UserNumber,LoginNum,LastLoginTime,FS_Money,Integral,UserLoginCode,TempLastLoginTime,TempLastLoginTime_1,LastLoginIP,GroupID From FS_ME_Users Where Email = '"& f_StrName &"' and UserPassword = '"& f_StrPWD &"'"
  541.  End if
  542. f_RsUpdateobj.open  f_RsUpdateSQL,User_Conn,3,3
  543. f_RsUpdateobj("LoginNum")=f_RsUpdateobj("LoginNum")+1
  544. f_RsUpdateobj("LastLoginTime")=now
  545. f_RsUpdateobj("GroupID")=DefaultGroupID
  546. f_RsUpdateobj("LastLoginIP")=Request.ServerVariables("Remote_Addr")
  547. Dim f_DateArr,f_DateArryear,f_DateArrmonth,f_DateArrday,f_DateArr_1,f_strmonth,f_strday,f_strhour,f_strminute
  548. Dim f_Randchars,f_Randchararrs,f_RandLens,f_Randomizecodes,f_iRs
  549. dim f_strmonth_DateArr_1,f_strday_DateArr_1,f_strhour_DateArr_1,f_strminute_DateArr_1,f_strmonth_DateArr,f_strday_DateArr
  550. f_DateArr=f_RsUpdateobj("TempLastLoginTime")
  551. f_DateArr_1=f_RsUpdateobj("TempLastLoginTime_1")
  552. f_Randomizecodes=GetRamCode(8)
  553. f_RsUpdateobj("UserLoginCode") = f_Randomizecodes
  554. if p_LoginGetMoney <> 0 Then
  555. If  Not IsNull(f_DateArr) then
  556. if clng(date-dateValue(f_DateArr))>=p_LoginGetMoney then
  557. f_RsUpdateobj("FS_Money")=f_RsUpdateobj("FS_Money")+p_LoginPointmoneyarr_2
  558. f_RsUpdateobj("TempLastLoginTime")=now
  559. End If
  560. End if
  561. Else
  562. f_RsUpdateobj("TempLastLoginTime")=now
  563. End if
  564. if p_LoginGetIntegral <>0 then
  565. if DateDiff("h",f_DateArr_1,now)>=p_LoginGetIntegral  Or DateDiff("d",now,f_DateArr_1)<>0  then
  566. f_RsUpdateobj("Integral")=f_RsUpdateobj("Integral")+p_LoginPointmoneyarr_1
  567. f_RsUpdateobj("TempLastLoginTime_1")=now
  568. End if 
  569. Else
  570. f_RsUpdateobj("TempLastLoginTime_1")=now
  571. End if
  572. f_RsUpdateobj.Update  
  573. f_RsUpdateobj.close:set f_RsUpdateobj=nothing 
  574. session("FS_UserName") = f_RsLoginobj(0)
  575. session("FS_UserNumber") = f_RsLoginobj(1)
  576. session("FS_UserPassword") = f_RsLoginobj(3)
  577. session("FS_UserEmail")  = f_RsLoginobj(4)'改为Cookies
  578. If Not IsNull(f_RsLoginobj(8)) then
  579. Response.Cookies("FoosunUserCookies")("UserLogin_Style_Num") = f_RsLoginobj(8)'改为Cookies
  580. Else
  581. Response.Cookies("FoosunUserCookies")("UserLogin_Style_Num") =1'改为Cookies
  582. End if
  583. session("UserLoginCode") = f_Randomizecodes'改为Cookies
  584. f_RsLoginobj.close: set f_RsLoginobj = nothing
  585. If CBool(Request.Form("AutoGet")) or Request.Form("AutoGet")<>"" Then
  586. Response.Cookies("FoosunUserCookie")("FS_UserName")=Session("FS_UserName")
  587. Response.Cookies("FoosunUserCookie").Expires=Date()+365
  588. Else
  589. Response.Cookies("FoosunUserCookie")("FS_UserName")=""
  590. Response.Cookies("FoosunUserCookie").Expires=Date()-1
  591. End If
  592. Response.Cookies("FoosunUserlCookies")("FS_User_Login_Number")=0
  593. Login = True 
  594. End if
  595. Else
  596. Response.Cookies("FoosunUserlCookies")("FS_User_Login_Number")=p_LoginLockNum+1
  597. Response.Cookies("FoosunUserlCookies").Expires =Date()+1
  598. Login = false 
  599. End if
  600. End if 
  601. End Function
  603. Public Function checkName(f_StrName)
  604. m_RsUser.open "select UserName from FS_ME_Users where UserName ='"&f_StrName&"'",User_Conn,1,1
  605. If m_RsUser.EOF Then 
  606. checkName = True
  607. Else
  608. checkName = False
  609. End If
  610. m_RsUser.close
  611. End Function 
  613. Public Function checkEmail(f_StrEmail)
  614. m_RsUser.open "select UserID from FS_Me_Users where Email ='"&f_StrEmail&"'",User_Conn,1,1
  615. If m_RsUser.EOF Then 
  616. checkEmail = True
  617. Else
  618. checkEmail = False
  619. End If
  620. m_RsUser.close
  621. End Function 
  623.    Public Function chk_regname(regname,strUserName)
  624.         Dim regbadstr, i
  625.         regbadstr = Split(regname, ",")
  626.         chk_regname = True
  627.         For i = 0 To UBound(regbadstr)
  628.             If Trim(regbadstr(i)) <> "" Then
  629.                 If Trim(strUserName) = Trim(regbadstr(i)) Then
  630.                     chk_regname = false
  631.                 End If
  632.             End If
  633.             If chk_regname = false Then Exit For
  634.         Next
  635.     End Function
  637. Public Function UserExist(f_StrName)
  638. UserExist = True
  639. If f_StrName="" Or IsNull(f_StrName) Then
  640. UserExist = False
  641. Else
  642. Dim f_RsMemObj
  643. set f_RsMemObj = Server.CreateObject (G_FS_RS)
  644. f_RsMemObj.Open "select isLock from FS_ME_Users where UserNumber='"& f_StrName &"'",User_Conn,1,1
  645. if not f_RsMemObj.EOF then
  646. if cint(f_RsMemObj("isLock"))=1 Then UserExist = False
  647. else
  648. UserExist = False
  649. End If
  650. f_RsMemObj.Close
  651. set f_RsMemObj = Nothing
  652. End If
  653. End Function
  654.     
  655. Public Function checkStat(f_StrName,f_StrPWD)
  656. checkStat = True
  657. If f_StrName="" Or Len(f_StrPWD)<>16 Or IsNull(f_StrName) Or IsNull(f_StrPWD) Then
  658. checkStat = False
  659. Else
  660. Dim f_RsUserObj
  661. set f_RsUserObj = Server.CreateObject (G_FS_RS)
  662. f_RsUserObj.Open "select isLock,UserName,RealName,GroupID,Integral,LoginNum,RegTime, LastLoginTime,LastLoginIP,UserNumber,FS_Money,ConNumber,UserID,HomePage,BothYear,Tel,MSN,QQ,Corner,Province,City,Address,PostCode,PassQuestion,SelfIntro,isOpen,Certificate,CertificateCode,Vocation,HeadPic,NickName,Mobile,CloseTime,IsCorporation,isMessage,Email,sex,safeCode,UserLoginCode,HeadPicsize,OnlyLogin,UserFavor,IsMarray,PassAnswer from FS_ME_Users where UserName='"& f_StrName &"' and UserPassword='"& f_StrPWD &"'",User_Conn,1,1
  663. if not f_RsUserObj.EOF then
  664. if cint(f_RsUserObj("isLock"))<>0 Then
  665. checkStat = False
  666. Else
  667. m_StrUserName = f_RsUserObj("UserName")
  668. m_StrRealName = f_RsUserObj("RealName")
  669. m_NumGroupID = f_RsUserObj("GroupID")
  670. m_NumIntegral = f_RsUserObj("Integral")
  671. m_NumLoginNum = f_RsUserObj("LoginNum")
  672. m_StrRegTime = f_RsUserObj("RegTime")
  673. m_Paper =  f_RsUserObj("Certificate")
  674. m_Papercode =  f_RsUserObj("Certificatecode")
  675. m_OnlyLogin = f_RsUserObj("OnlyLogin")
  676. m_PassAnswer = f_RsUserObj("PassAnswer")
  677. m_IsMarray  = f_RsUserObj("IsMarray")
  678. m_StrLastLoginTime = f_RsUserObj("LastLoginTime")
  679. m_StrLastLoginIP = f_RsUserObj("LastLoginIP")
  680. m_StrUserNumber = f_RsUserObj("UserNumber")
  681. m_NumFS_Money = f_RsUserObj("FS_Money")
  682. m_NumConNumber = f_RsUserObj("ConNumber")
  683. m_UserID = f_RsUserObj("UserID")
  684. m_StrHomePage = f_RsUserObj("HomePage")
  685. m_StrBothYear = f_RsUserObj("BothYear")
  686. m_StrTel = f_RsUserObj("Tel")
  687. m_StrMSN = f_RsUserObj("MSN")
  688. m_StrQQ = f_RsUserObj("QQ")
  689. m_StrCorner = f_RsUserObj("Corner")
  690. m_StrProvince = f_RsUserObj("Province")
  691. m_StrCity = f_RsUserObj("City")
  692. m_StrAddress = f_RsUserObj("Address")
  693. m_StrPostCode = f_RsUserObj("PostCode")
  694. m_PassQuestion = f_RsUserObj("PassQuestion")
  695. m_SelfIntro = f_RsUserObj("SelfIntro")
  696. m_UserFavor =  f_RsUserObj("UserFavor")
  697. m_isOpen = f_RsUserObj("isOpen")
  698. m_Vocation = f_RsUserObj("Vocation")
  699. m_HeadPic = f_RsUserObj("HeadPic")
  700. m_HeadPicsize = f_RsUserObj("HeadPicsize")
  701. m_StrNickName = f_RsUserObj("NickName")
  702. Mobile = f_RsUserObj("Mobile")
  703. m_CloseTime = f_RsUserObj("CloseTime")
  704. m_IsCorporation = f_RsUserObj("IsCorporation")
  705. isMessage = f_RsUserObj("isMessage")
  706. m_StrEmail = f_RsUserObj("Email")
  707. m_NumSex = f_RsUserObj("sex")
  708. safeCode = f_RsUserObj("safeCode")
  709. m_UserLoginCode =  f_RsUserObj("UserLoginCode")
  710. end if
  711. Else
  712. checkStat = False
  713. End If
  714. f_RsUserObj.Close:set f_RsUserObj = Nothing
  715. End If
  716. End Function
  718. Public Function CheckPostinput()
  719. On Error Resume Next
  720. Dim server_v1, server_v2
  721. CheckPost = False
  722. server_v1 = CStr(Request.ServerVariables("HTTP_REFERER"))
  723. server_v2 = CStr(Request.ServerVariables("SERVER_NAME"))
  724. If Mid(server_v1, 8, Len(server_v2)) = server_v2 Then
  725. CheckPost = True
  726. End If
  727. End Function
  729. Public Sub out()
  730. Session("FS_UserName") = ""
  731. Session("FS_UserNumber") = ""
  732. Session("FS_UserPassword") = ""
  733. Session("FS_Group") = ""
  734. Session("FS_IsCorp") = ""
  735. Session("FS_NickName") = ""
  736. response.Cookies("FoosunUserCookies")("UserLogin_Style_Num")  = ""
  737. Session("UserLoginCode") = ""
  738. End Sub
  740. Public Function ChangePWD(f_StrName,StrOldPWD,StrNewPWD)
  741. If f_StrName="" Or StrOldPWD="" Then
  742. ChangePWD = "帐号或密码不正确"
  743. Else
  744. Dim ObjPWD
  745. Set ObjPWD = server.CreateObject("Adodb.RecordSet")
  746. objPWD.open "select Password from FS_Members where MemName='"&f_StrName&"' and Password='"&StrOldPWD&"'",User_Conn,3,3
  747. If Not ObjPWD.EOF Then
  748. ObjPWD("Password")=StrNewPWD
  749. ObjPWD.update
  750. Response.Cookies("Foosun")("MemPassword") = StrNewPWD
  751. ChangePWD = True
  752. Else
  753. ChangePWD = "您不是风讯会员"
  754. End If
  755. End If
  756. End Function
  758. Public Function FriendList()
  759. FriendList = ""
  760. Dim f_RsFriend,f_StrFriend
  761. Set f_RsFriend = User_Conn.Execute("Select  top 50 F_UserNumber from FS_ME_Friends where FriendType =0 and UserNumber='"& session("FS_UserNumber") &"' order by FriendID desc")
  762. Do While Not f_RsFriend.EOF 
  763. if f_RsFriend("F_UserNumber")= "0" then
  764. f_RsFriend.MoveNext
  765. Else
  766. f_StrFriend = f_RsFriend(0)
  767. Dim f_GetUserClsObj ,f_strGetCls,f_StrTmpFriend,f_StrUserNamechar
  768. 'Call UserExist(f_StrFriend)
  769. Set f_GetUserClsObj = User_Conn.execute("select UserNumber,RealName,UserName from FS_ME_Users where UserNumber ='"& f_RsFriend("F_UserNumber") &"'")
  770. if Not f_GetUserClsObj.eof then
  771. if f_GetUserClsObj("RealName") = "" then
  772. f_strGetCls = f_GetUserClsObj("UserName")
  773. Else
  774. f_strGetCls = f_GetUserClsObj("RealName")
  775. End if
  776. f_StrTmpFriend = f_GetUserClsObj("UserName")
  777. f_StrUserNamechar = "("&f_GetUserClsObj("UserName")&")"
  778.     Else
  779. f_RsFriend.MoveNext
  780.     End if
  781. FriendList = FriendList & "<option value="""&f_StrTmpFriend&""">·"&f_strGetCls & f_StrUserNamechar&"</option>" & vbcrlf
  782. f_RsFriend.MoveNext
  783. End if
  784. Loop 
  785. set f_GetUserClsObj = nothing
  786. Set f_RsFriend = Nothing 
  787. End Function
  789. Public Function AddFriend(f_FriendName,f_FriendCName,f_SelfName,f_type)
  790. Dim f_RsFriend
  791. Set f_RsFriend = Server.CreateObject(G_FS_RS)
  792. f_RsFriend.Open "select * from FS_Friend where FriendName='"&f_FriendName&"'",User_Conn,1,3
  793. If f_RsFriend.EOF = False Then 
  794. AddFriend = False
  795. Else
  796. f_RsFriend.addNew
  797. f_RsFriend("FriendName")=f_FriendName
  798. f_RsFriend("RealName")=f_FriendCName
  799. f_RsFriend("MemName")=f_SelfName
  800. f_RsFriend("type")=f_type
  801. f_RsFriend.Update
  802. AddFriend = True 
  803. End If 
  804. Set f_RsFriend = Nothing 
  805. End Function
  807. Public Function InsertMyPara(f_strUserNumber)
  808. Dim f_Rsmypara
  809. Set f_Rsmypara = server.CreateObject(G_FS_RS) 
  810. f_Rsmypara.open "select  * From FS_ME_MySysPara where 1=0",User_Conn,1,3
  811. f_Rsmypara.addnew
  812. f_Rsmypara("DownFileRule") = ",,,,"
  813. f_Rsmypara("NewsFileRule") = ",,,,"
  814. f_Rsmypara("ProductFileRule") = ",,,,"
  815. f_Rsmypara("ilogFileRule") = ",,,,"
  816. f_Rsmypara("mysiteName") = "我的个人空间"
  817. f_Rsmypara("UserNumber") = f_strUserNumber
  818. f_Rsmypara("Keywords") = "风讯,CMS,Foosun"
  819. f_Rsmypara("Description") = "风讯,CMS,Foosun"
  820. f_Rsmypara("NaviPic") = ""
  821. f_Rsmypara("isHtml") = 0
  822. 'f_Rsmypara("RedirectUrl") = ""
  823. f_Rsmypara.update
  824. f_Rsmypara.close:Set f_Rsmypara = nothing
  825. End Function
  827. Public Function DelFriend(f_NumID)
  828. On Error Resume Next
  829. User_Conn.Execute("Delete From FS_Friend Where id in("&f_NumID&")")
  830. If Err Then 
  831. Err.clear
  832. DelFriend = False
  833. Else
  834. DelFriend = True
  835. End If 
  836. End Function 
  838. Public Function GetFriendNumber(f_strNumber)
  839. Dim RsGetFriendNumber
  840. Set RsGetFriendNumber = User_Conn.Execute("Select UserNumber From FS_ME_Users Where UserName = '"& f_strNumber &"'")
  841. If  Not RsGetFriendNumber.eof  Then 
  842. GetFriendNumber = RsGetFriendNumber("UserNumber")
  843. Else
  844. GetFriendNumber = "用户已经被删除"
  845. End If 
  846. set RsGetFriendNumber = nothing
  847. End Function 
  849. Public Function GetFriendName(f_strNumber)
  850. Dim RsGetFriendName
  851. Set RsGetFriendName = User_Conn.Execute("Select UserName From FS_ME_Users Where UserNumber = '"& f_strNumber &"'")
  852. If  Not RsGetFriendName.eof  Then 
  853. GetFriendName = RsGetFriendName("UserName")
  854. Else
  855. GetFriendName = "用户已经被删除"
  856. End If 
  857. set RsGetFriendName = nothing
  858. End Function 
  860. Public Function ChangeFriend(f_NumID,f_Type)
  861. On Error Resume Next
  862. User_Conn.Execute("update FS_Friend set type="&f_Type&" Where id in("&f_NumID&")")
  863. If Err Then 
  864. Err.clear
  865. ChangeFriend = False
  866. Else
  867. ChangeFriend = True
  868. End If 
  869. End Function 
  871. Public Function getUserConfig(f_Num)
  872. Dim f_RsUserConfig
  873. Set f_RsUserConfig = User_Conn.Execute("select MemberType,UserConfer,NumberContPoint,NumberLoginPoint,isEmail,isChange,SendPoint,MaxContent,QPoint,IsReg,IsCheck,IsCorpus,IsFavorite,IsMessage,FirstPoint,IsEmailCert,RegOption,UserGroup,BadName,NumberBadLoginPoint,NumberContPassPoint,NumberContBadPoint,BadLoginTime,BadLoginNum from Fs_Config")
  874. If f_RsUserConfig.EOF Then 
  875. getUserConfig = False
  876. Else
  877. getUserConfig = f_RsUserConfig(f_Num)
  878. End If
  879. Set f_RsUserConfig = Nothing 
  880. End Function 
  882. Public Function AddCorpus(f_title,f_subtitle,f_Content,f_User,f_Corpus)
  883. If f_title="" Or f_Content="" Or f_Corpus="" Or f_User="" Then
  884. AddCorpus = False
  885. Else
  886. Dim f_fields,f_values
  887. f_fields = "UserName,Corpus,Title,SubTitle,Content,AddTime"
  888. f_values = "'"&f_User&"','"&f_Corpus&"','"&f_title&"','"&f_subtitle&"','"&f_Content&"','"&Now()&"'"
  889. ' On Error Resume Next 
  890. User_Conn.Execute("insert into FS_Corpus("&f_fields&") values("&f_values&")")
  891. If Err Then 
  892. Err.clear 
  893. AddCorpus = False
  894. Else
  895. AddCorpus = True 
  896. End if 
  897. End If 
  898. End Function 
  900. Public Function AddLog(f_type,f_StrUserName,f_Strpoints,fs_Strmoneys,f_StrContent,f_Numstyle)'用户编号,点数,金币,描述
  901. If f_StrUserName="" Or f_Strpoints="" Or fs_Strmoneys="" Then
  902. AddLog = False
  903. Else
  904. dim f_AddlogObj
  905. Set f_AddlogObj = server.CreateObject(G_FS_RS)
  906. f_AddlogObj.open "select  * From FS_ME_Log where 1=0",User_Conn,1,3
  907. f_AddlogObj.addnew
  908. f_AddlogObj("LogType")=f_type
  909. f_AddlogObj("UserNumber")=f_StrUserName
  910. f_AddlogObj("points")=f_Strpoints
  911. f_AddlogObj("moneys")=fs_Strmoneys
  912. f_AddlogObj("LogTime")=Now
  913. f_AddlogObj("LogContent")=f_StrContent
  914. if f_Numstyle = 0 then
  915. f_AddlogObj("Logstyle")=0
  916. Else
  917. f_AddlogObj("Logstyle")=1
  918. End if
  919. f_AddlogObj.update
  920. f_AddlogObj.close
  921. set f_AddlogObj = nothing
  922. If Err Then 
  923. Err.clear
  924. AddLog = False
  925. Else
  926. AddLog = True
  927. End If 
  928. End If 
  929. End Function 
  931. Public Function update(f_Fields,f_values,f_NumID)
  932. If f_Fields="" Or f_values="" Or f_NumID="" Then
  933. update = False
  934. Else
  935. On Error Resume Next 
  936. Dim f_ArrField,f_ArrValue,f_StrDeal,i
  937. If InStr(f_Fields,",")>0 And InStr(f_values,",")>0 Then 
  938. f_ArrField = Split(f_Fields,",")
  939. f_ArrValue = Split(f_values,",")
  940. If UBound(f_ArrField) <> UBound(f_ArrValue) Then update = False : Exit Function 
  941. Else
  942. f_ArrField = Array(f_Fields)
  943. f_ArrValue = Array(f_values)
  944. End If 
  945. f_StrDeal = ""
  946. For i=LBound(f_ArrField) To UBound(f_ArrField)
  947. If i=LBound(f_ArrField) Then 
  948. f_StrDeal = f_ArrField(i)&"="&f_ArrValue(i)
  949. Else
  950. f_StrDeal = f_StrDeal&","&f_ArrField(i)&"="&f_ArrValue(i)
  951. End If 
  952. Next 
  953. User_Conn.Execute("update FS_members set "&f_StrDeal&" where id="&f_NumID)
  954. If Err Then
  955. Err.clear
  956. update = False
  957. Else
  958. update = True
  959. End if
  960. End If
  961. End Function
  962. End Class
  964. Class Cls_Message
  965. Private m_RsMessage,m_Number,m_UserName,m_LenContent
  966. Public Property Let UserName(ByVal StrValue)
  967. m_UserName = StrValue
  968. m_RsMessage.open "Select count(MessageID) from FS_ME_Message Where M_ReadUserNumber='"& m_UserName &"' and M_ReadTF=0 and isDelR=0 and isRecyle=0 and isDraft=0",User_Conn,1,1
  969. m_Number = m_RsMessage(0)
  970. m_RsMessage.close
  971. End Property 
  972. Public Property Get Number() '未读信息数量
  973. Number = m_Number
  974. End Property
  976. Public Function LenContent(f_StrUserNumber) '内容总长度
  977. m_RsMessage.open "Select sum(LenContent) from FS_ME_Message where M_ReadUserNumber='"& f_StrUserNumber &"' and IsDelR = 0",User_Conn,1,3
  978. LenContent = m_RsMessage(0)
  979. m_RsMessage.close
  980. End Function 
  982. Public Function LenbContent(f_StrUserNumber) '内容总长度
  983. dim m_book
  984. set m_book= Server.CreateObject(G_FS_RS)
  985. m_book.open "Select sum(LenContent) from FS_ME_book where M_ReadUserNumber='"& f_StrUserNumber &"'",User_Conn,1,3
  986. LenbContent = m_book(0)
  987. m_book.close
  988. End Function 
  990. Private Sub Class_Initialize()
  991. Set m_RsMessage = server.CreateObject(G_FS_RS)
  992. End Sub
  994. Private Sub Class_Terminate()
  995. Set m_RsMessage = Nothing 
  996. End Sub
  998. Public Function update(f_Fields,f_values,f_NumID)
  999. If f_Fields="" Or f_values="" Or f_NumID="" Then
  1000. update = False
  1001. ElseIf f_NumID="_new_" Then
  1002. On Error Resume Next 
  1003. User_Conn.Execute("insert into FS_Me_Message("&f_Fields&") values("&f_values&")")
  1004. If Err Then
  1005. Err.clear
  1006. update = False
  1007. Else
  1008. update = True
  1009. End if
  1010. Else 
  1011. On Error Resume Next 
  1012. Dim f_ArrField,f_ArrValue,f_StrDeal,i
  1013. If InStr(f_Fields,",")>0 And InStr(f_values,",")>0 Then 
  1014. f_ArrField = Split(f_Fields,",")
  1015. f_ArrValue = Split(f_values,",")
  1016. If UBound(f_ArrField) <> UBound(f_ArrValue) Then update = False : Exit Function 
  1017. Else
  1018. f_ArrField = Array(f_Fields)
  1019. f_ArrValue = Array(f_values)
  1020. End If 
  1021. f_StrDeal = ""
  1022. For i=LBound(f_ArrField) To UBound(f_ArrField)
  1023. If i=LBound(f_ArrField) Then 
  1024. f_StrDeal = f_ArrField(i)&"="&f_ArrValue(i)
  1025. Else
  1026. f_StrDeal = f_StrDeal&","&f_ArrField(i)&"="&f_ArrValue(i)
  1027. End If 
  1028. Next 
  1029. User_Conn.Execute("update FS_Message set "&f_StrDeal&" where MeId in("&f_NumID&")")
  1030. If Err Then
  1031. Err.clear
  1032. update = False
  1033. Else
  1034. update = True
  1035. End if
  1036. End If
  1037. End Function 
  1039. Public Function CreateUserDir(f_UserNumber,f_number)
  1041. End Function
  1042. End Class
  1043. %>