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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 中间件编程 > 查看源码
wap.asp
资源名称：www.myworld.net.cn.rar　[点击查看]
上传用户：saigedz
上传日期：2019-10-14
资源大小：997k
文件大小：3k
源码类别：

中间件编程

开发平台：

HTML/CSS

wap.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  2. <%
  3. '///////////////////////////////////////////////////////////////////////////////
  4. '//              Z-Blog
  5. '// 作    者:    (zx.asd)&(sipo)
  6. '// 版权所有:    RainbowSoft Studio
  7. '// 技术支持:    rainbowsoft@163.com
  8. '// 程序名称:    
  9. '// 程序版本:    
  10. '// 单元名称:    wap.asp
  11. '// 开始时间:    2006-3-19
  12. '// 最后修改:    
  13. '// 备    注:    WAP模块
  14. '///////////////////////////////////////////////////////////////////////////////
  16. Option Explicit
  17. On Error Resume Next
  18. Response.Charset="UTF-8"
  19. Response.Buffer=True
  20. Response.Expires = "0"
  21. Response.AddHeader "Pragma", "no-cache"
  22. Response.AddHeader "Cache-Control", "no-cache, must-revalidate"
  23. %>
  24. <!-- #include file="c_option.asp" -->
  25. <!-- #include file="function/c_function.asp" -->
  26. <!-- #include file="function/c_function_md5.asp" -->
  27. <!-- #include file="function/c_system_lib.asp" -->
  28. <!-- #include file="function/c_system_base.asp" -->
  29. <!-- #include file="function/c_system_event.asp" -->
  30. <!-- #include file="function/c_system_wap.asp" -->
  31. <!-- #include file="function/c_system_plugin.asp" -->
  32. <!-- #include file="plugin/p_config.asp" -->
  33. <%
  34. 'If ZC_IE_DISPLAY_WAP Then
  35. ' If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/vnd.wap.wml") > 0 Then Response.ContentType = "text/vnd.wap.wml"
  36. 'Else
  37. ' Response.ContentType = "text/vnd.wap.wml"
  38. 'End If
  40. Response.ContentType = "text/vnd.wap.wml"
  42. ShowError_Custom="Call ShowError_WAP(id)"
  44. %><?xml version="1.0" encoding="utf-8"?>
  45. <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
  46. <wml>
  47. <head><meta forua="true" http-equiv="Cache-Control" content="max-age=0" /></head>
  48. <%
  49. Call System_Initialize()
  51. 'plugin node
  52. For Each sAction_Plugin_Wap_Begin in Action_Plugin_Wap_Begin
  53. If Not IsEmpty(sAction_Plugin_Wap_Begin) Then Call Execute(sAction_Plugin_Wap_Begin)
  54. Next
  56. PubLic intPageCount
  57. Select Case ReQuest("act")
  58. Case "View"
  59. Call WapView()
  60. Case "Com"
  61. Call WapCom()
  62. Case "Main"
  63. Call WapMain()
  64. Case "Login"
  65. Call WapLogin()
  66. Case "Err"
  67. Call WapError()
  68. Case "Cate"
  69. Call WapCate()
  70. Case "Stat"
  71. Call WapStat()
  72. Case "AddCom"
  73. Call WapAddCom(0)
  74. Case "PostCom"
  75. Call WapPostCom()
  76. Case "DelCom"
  77. Call WapDelCom()
  78. Case "AddArt"
  79.     Call WapEdtArt()
  80. Case "PostArt"
  81.     Call WapPostArt()
  82. Case "DelArt"
  83. Call WapDelArt()
  84. Case "Logout"
  85. Call WapLogout()
  86. Case Else
  87. Call WapMenu()
  88. End Select
  90. 'plugin node
  91. For Each sAction_Plugin_Wap_End in Action_Plugin_Wap_End
  92. If Not IsEmpty(sAction_Plugin_Wap_End) Then Call Execute(sAction_Plugin_Wap_End)
  93. Next
  95. Call System_Terminate()
  97. If Err.Number<>0 then
  98. Call ShowError(0)
  99. End If
  100. %>
  101. <br/>
  102. <a href="<%=ZC_BLOG_HOST&ZC_FILENAME_WAP%>"><%=ZC_MSG213%></a>
  103. </p>
  104. </card>
  105. </wml>