PageRenderTime 30ms CodeModel.GetById 1ms RepoModel.GetById 1ms app.codeStats 0ms

/Wap/Space/Index.asp

https://github.com/joechen2010/health
ASP | 137 lines | 122 code | 12 blank | 3 comment | 0 complexity | 1e0cd083aa9fc27bd31e5c5cdd046fde MD5 | raw file
    

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

    2. 

  2. <%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?>

    3. 

  3. <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">

    4. 

  4. <!--#include file="../Conn.asp"-->

    5. 

  5. <!--#include file="../KS_Cls/Kesion.CommonCls.asp"-->

    6. 

  6. <!--#include file="../KS_Cls/Kesion.Label.CommonCls.asp"-->

    7. 

  7. <!--#include file="../KS_Cls/Kesion.SpaceCls.asp"-->

    8. 

  8. <!--#include file="SpaceCls.asp"-->

    9. 

  9. <%

    10. 

  10. 

    11. 

  11. 

    12. 

  12. Dim KSCls

    13. 

  13. Set KSCls = New BlogIndex

    14. 

  14. KSCls.Kesion()

    15. 

  15. Set KSCls = Nothing

    16. 

  16. 

    17. 

  17. Class BlogIndex

    18. 

  18.         Private KS,KSSCls,KSBCls,KSRFObj

    19. 

  19. 		Private UserName,BlogName,Template,UserType

    20. 

  20. 		Private Sub Class_Initialize()

    21. 

  21. 		    Set KS=New PublicCls

    22. 

  22. 		    Set KSBCls=New BlogCls

    23. 

  23. 			Set KSRFObj=New Refresh

    24. 

  24. 		End Sub

    25. 

  25.         Private Sub Class_Terminate()

    26. 

  26. 		    Call CloseConn()

    27. 

  27. 		    Set KS=Nothing

    28. 

  28. 			Set KSSCls=Nothing

    29. 

  29. 		    Set KSBCls=Nothing

    30. 

  30. 			Set KSRFObj=Nothing

    31. 

  31. 		End Sub

    32. 

  32. 		Public Sub Kesion()

    33. 

  33. 		    If KS.SSetting(0)=0 Then

    34. 

  34. 			   Call KS.ShowError("对不起！","对不起，本站点关闭空间站点功能！")

    35. 

  35. 		    End If

    36. 

  36. 			'If Request.ServerVariables("QUERY_STRING")<>"" Then 

    37. 

  37. 			If Request.QueryString("i")<>"" Then

    38. 

  38. 			 Call Show()

    39. 

  39. 			Else

    40. 

  40. 			    

    41. 

  41. 				Dim FileContent

    42. 

  42. 				FileContent = KSRFObj.LoadTemplate(KS.WSetting(29))

    43. 

  43. 				FileContent = KSRFObj.KSLabelReplaceAll(FileContent)

    44. 

  44. 				FileContent = KS.GetEncodeConversion(FileContent)

    45. 

  45. 				Response.Write FileContent  

    46. 

  46. 			End If

    47. 

  47. 		End Sub

    48. 

  48. 		Sub Show()

    49. 

  49. 		     UserName=KS.R(KS.S("i"))

    50. 

  50. 			If UserName="" Then Response.End()

    51. 

  51. 		    Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")

    52. 

  52. 		    RS.Open "Select top 1 * From KS_Blog Where UserName='" & UserName & "'",Conn,1,1

    53. 

  53. 		    If RS.Eof And RS.Bof Then

    54. 

  54. 		       RS.Close:Set RS=Nothing

    55. 

  55. 			   Call KS.ShowError("该用户没有开通空间站点！","该用户没有开通空间站点！")

    56. 

  56. 		    End If

    57. 

  57. 		    If KSUser.GroupID<>4 Then

    58. 

  58. 		       If RS("Status")=0 Then

    59. 

  59. 			      RS.Close:Set RS=Nothing

    60. 

  60. 				  Call KS.ShowError("该空间站点尚未审核！","该空间站点尚未审核！")

    61. 

  61. 			   ElseIf RS("Status")=2 Then

    62. 

  62. 			      RS.Close:Set RS=Nothing

    63. 

  63. 				  Call KS.ShowError("该空间站点已被管理员锁定！","该空间站点已被管理员锁定！")

    64. 

  64. 			   End If

    65. 

  65. 		    End If

    66. 

  66. 			

    67. 

  67. 			BlogName=RS("BlogName")

    68. 

  68. 			Template="<wml>" &vbcrlf

    69. 

  69. 			Template=Template & "<head>" &vbcrlf

    70. 

  70. 			Template=Template & "<meta http-equiv=""Cache-Control"" content=""no-Cache""/>" &vbcrlf

    71. 

  71. 			Template=Template & "<meta http-equiv=""Cache-Control"" content=""max-age=0""/>" &vbcrlf

    72. 

  72. 			Template=Template & "</head>" &vbcrlf

    73. 

  73. 			Template=Template & "<card id=""main"" title=""" & BlogName & """>" &vbcrlf

    74. 

  74. 		    UserType=KS.ChkClng(Conn.Execute("Select top 1 UserType From KS_User Where UserName='" & UserName & "'")(0))

    75. 

  75. 			If UserType=1 Then

    76. 

  76. 			   Template=Template & KSRFObj.KSLabelReplaceAll(KSRFObj.LoadTemplate(KS.WSetting(23)))'企业主模板

    77. 

  77. 			Else

    78. 

  78. 		       Template=Template & KSRFObj.KSLabelReplaceAll(KSRFObj.LoadTemplate(KS.WSetting(20)))'个人主模板

    79. 

  79. 			End If

    80. 

  80.           

    81. 

  81. 		  

    82. 

  82.               

    83. 

  83. 		    Template=KSBCls.ReplaceBlogLabel(RS,Template)

    84. 

  84. 		    Template=KSBCls.ReplaceAllLabel(UserName,Template)

    85. 

  85. 		    RS.Close:Set  RS=Nothing

    86. 

  86. 			Action=KS.S("Action")

    87. 

  87. 			Set KSSCls=New SpaceCls

    88. 

  88. 			Select Case Action

    89. 

  89. 			    Case "friend"

    90. 

  90. 				Template=Replace(Template,"{$BlogMain}",KSSCls.FriendList)

    91. 

  91. 				Case "group"

    92. 

  92. 				Template=Replace(Template,"{$BlogMain}",KSSCls.GroupList)

    93. 

  93. 				Case "photo"

    94. 

  94. 				Template=Replace(Template,"{$BlogMain}",KSSCls.PhotoList)

    95. 

  95. 				Case "log"

    96. 

  96. 				Template=Replace(Template,"{$BlogMain}",KSSCls.LogList)

    97. 

  97. 				Case "guest"

    98. 

  98. 				Template=Replace(Template,"{$BlogMain}",KSSCls.GuestList)

    99. 

  99. 				Case "info"

    100. 

  100. 				Template=Replace(Template,"{$BlogMain}",KSSCls.UserInfo)

    101. 

  101. 				Case "xx"       Template=Replace(Template,"{$BlogMain}",KSSCls.xxList)

    102. 

  102. 				Case "job"      Template=Replace(Template,"{$BlogMain}",KSSCls.EnterPriseJob)

    103. 

  103. 				Case "news"     Template=Replace(Template,"{$BlogMain}",KSSCls.EnterpriseNews)

    104. 

  104. 				case "intro"    Template=Replace(Template,"{$BlogMain}",KSSCls.EnterpriseIntro)

    105. 

  105. 				case "product"  Template=Replace(Template,"{$BlogMain}",KSSCls.EnterprisePro)

    106. 

  106. 				Case Else

    107. 

  107. 				Template=Replace(Template,"{$BlogMain}",GetMain)

    108. 

  108. 			End Select

    109. 

  109. 			Template=Template & "</card>" &vbcrlf

    110. 

  110. 			Template=Template & "</wml>" &vbcrlf

    111. 

  111. 		    Response.Write Template

    112. 

  112. 		End Sub

    113. 

  113. 		

    114. 

  114. 		Function GetMain()

    115. 

  115. 		    Dim I,TemplateSub

    116. 

  116. 			If UserType=1 Then

    117. 

  117. 			   TemplateSub=KSRFObj.LoadTemplate(KS.WSetting(24))'企业首页副模板

    118. 

  118. 			Else

    119. 

  119. 			   TemplateSub=KSRFObj.LoadTemplate(KS.WSetting(21))'个人首页副模板

    120. 

  120. 			End If

    121. 

  121. 			TemplateSub=Replace(TemplateSub,"{$ShowNewAlbum}",GetNewAlbum)'照片

    122. 

  122. 			TemplateSub=Replace(TemplateSub,"{$ShowNewInfo}",KSSCls.ListXX)'10条信息集

    123. 

  123. 			

    124. 

  124. 			'=================企业空间替换==========================

    125. 

  125. 			TemplateSub=Replace(TemplateSub,"{$ShowNews}",GetEnterPriseNews)'公司动态

    126. 

  126. 			TemplateSub=Replace(TemplateSub,"{$ShowSupply}",GetSupply)'供应信息

    127. 

  127. 			TemplateSub=Replace(TemplateSub,"{$ShowProduct}",GetProduct)'最新产品

    128. 

  128. 			TemplateSub=Replace(TemplateSub,"{$ShowProductList}",GetProductList)'文本方式显示最新产品

    129. 

  129. 			TemplateSub=Replace(TemplateSub,"{$ShowIntro}",GetEnterpriseintro)'企业简介

    130. 

  130. 			TemplateSub=Replace(TemplateSub,"{$ShowShortIntro}",GetEnterpriseShortintro)'企业简介(短)

    131. 

  131. 			'========================================================

    132. 

  132. 			GetMain=KSBCls.ReplaceAllLabel(UserName,TemplateSub)

    133. 

  133. 		End Function

    134. 

  134. 

    135. 

  135. 		

    136. 

  136. End Class

    137. 

  137. %>
    138.