当前位置：编程学习 > asp >>

帮我看看这个asp文件哪里出错了谢谢

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
  2. <%option explicit%> 
  3. <!--#include file="KS_Cls/Kesion.AppCls.asp"--> 
  4. <% 
  5. '**************************************************** 
  6. ' Software name:Kesion CMS 7.0 
  7. ' Email: service@kesion.com . QQ:111394,9537636 
  8. ' Web: http://www.kesion.com http://www.kesion.cn
  9. ' Copyright (C) Kesion Network All Rights Reserved. 
  10. '**************************************************** 
  11. Dim KSCls 
  12. Set KSCls = New SiteIndex 
  13. KSCls.Kesion() 
  14. Set KSCls = Nothing 
  15. Const AllowSecondDomain=true '是否允许开启空间二级域名 true-开启 false-不开启 
  18. Class SiteIndex 
  19. Private KS,AppCls 
  20. Private Sub Class_Initialize() 
  21. If (Not Response.IsClientConnected)Then 
  22. Response.Clear 
  23. Response.End 
  24. End If 
  25. Set AppCls=New KesionAppCls 
  26. Set KS=New PublicCls 
  27. End Sub 
  28. Private Sub Class_Terminate() 
  29. Set KS=Nothing 
  30. Set AppCls=Nothing 
  31. Call CloseConn() 
  32. End Sub 
  33. Public Sub Kesion() 
  35. '================================判断自动生成============================== 
  36. Const PerTime=2 '自动生成间隔的时间数，单位为分钟。 
  37. Dim Template,KSR,LastModified,FsoIndex:FsoIndex=KS.Setting(5) 
  38. If PerTime>0 and Split(FsoIndex,".")(1)<>"asp" Then 
  39. Set KSR = New Refresh 
  40. Dim fs:set fs=Server.CreateObject(KS.Setting(99)) 
  41. If KS.CheckFile(KS.Setting(5))=false Then 
  42. LastModified="1990-1-1" 
  43. Else 
  44. Dim f:set f=fs.getfile(server.MapPath(KS.Setting(5))) 
  45. LastModified=f.DateLastModified 
  46. End If 
  47. if datediff("n",LastModified,Now)>=PerTime Then 
  48. Template = KSR.LoadTemplate(KS.Setting(110)) 
  49. FCls.RefreshType = "INDEX" '设置刷新类型，以便取得当前位置导航等 
  50. FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签 
  51. Template=KSR.KSLabelReplaceAll(Template) 
  52. Call KS.WriteTOFile(KS.Setting(5),Template) 
  53. Set KSR=Nothing 
  54. End If 
  56. End If 
  57. '===================================自动生成结束====================================== 
  59. If AllowSecondDomain=True And KS.IsNul(Request.QueryString("do")) Then 
  60. SecondDomain 
  61. Else 
  62. Call AppCls.HomePage() 
  63. End If 
  64. End Sub 
  66. Public Sub SecondDomain() 
  67. dim From,gourl,sdomain,title,username,domain 
  68. From = LCase(Request.ServerVariables("HTTP_HOST")) 
  69. sdomain = LCase(KS.SSetting(15)) 
  70. sdomain = Replace(sdomain,"http://","") 
  71. sdomain = Replace(sdomain,"/","") 
  73. dim domain1,domain2 
  74. domain = LCase (from) 
  75. domain = Replace (domain,"http://","") 
  76. domain = Replace (domain,"/","") 
  78. If lcase(domain)=lcase(KS.Setting(69)) or lcase(domain)=lcase(KS.JSetting(41)) or (sdomain=domain and sdomain<>"") Then '小论坛 
  79. Call AppCls.Domain(domain) 
  80. Exit Sub 
  81. else 
  82. domain1= Replace (Left (domain,InStr (domain,".")),".","") 
  83. if Trim (domain1)="" or (domain1="www" and domain=replace(lcase(KS.Setting(2)),"http://","")) or (Request.ServerVariables("HTTP_HOST")="http://" & KS.Setting(2)) or ("http://" & lcase(Request.ServerVariables("HTTP_HOST"))=lcase(KS.Setting(2))) Then 
  84. Call AppCls.HomePage() : Exit Sub 
  85. Else 
  86. '=====================这里定义其它系统非个人空间的二级域名转向，如论坛等============================= 
  87. if instr(Request.ServerVariables("SERVER_NAME"),"bbs.XXX.com")>0 then 
  88. response.redirect KS.GetDomain & "club/index.asp" 
  90. '===我改动的部分===
  91. elseif instr(Request.ServerVariables("HTTP_ACCEPT"),"text/vnd.wap.wml")>0 then 
  92. response.redirect KS.GetDomain & "wap/" '我主要是想让网站如果手机访问自己动跳转到wap目录这句好像跟这上面的内容有冲突不起作用，请问在怎么改 
  94. '===出错的代码===
  95. elseif instr(Request.ServerVariables("SERVER_NAME"),"wap.XXX.com")>0 Then 
  96. if instr(Request.ServerVariables("HTTP_ACCEPT"),"text/vnd.wap.wml")>0 then 
  97. response.redirect KS.GetDomain & "wap" '这里我是想要手机访问自动跳转到网站WAP地址 
  98. else 
  99. response.redirect KS.GetDomain & "wapmo" '而电脑用这个wap.XXX.com的域名访问则跳转到网站WEB地址，这里我的想法是做个wap模拟页面 
  101. elseif instr(Request.ServerVariables("SERVER_NAME"),"3g.XXX.com")>0 Then 
  102. if instr(Request.ServerVariables("HTTP_ACCEPT"),"text/vnd.wap.wml")>0 then 
  103. response.redirect KS.GetDomain & "wap" '网站WAP地址 这里同上 
  104. else 
  105. response.redirect KS.GetDomain & "wapmo" '网站WEB地址 
  106. '===出错的代码===
  107. '===我改动的部分结束=== 
  108. end if 
  109. '============================================================================ 
  110. End If 
  111. Set AppCls=New KesionAppCls 
  112. if instr(domain,replace(replace(lcase(KS.Setting(2)),"http://",""),"www.",""))=0 and domain1="www" then 
  113. Call AppCls.Domain(domain) 
  114. else 
  115. Call AppCls.Domain(domain1) 
  116. end if 
  117. Exit Sub 
  118. end if 
  119. End Sub 
  120. End Class 
  121. %> 
补充：
  • Public Sub SecondDomain() 
  • dim From,gourl,sdomain,title,username,domain 
  • From = LCase(Request.ServerVariables("HTTP_HOST")) 
  • sdomain = LCase(KS.SSetting(15)) 
  • sdomain = Replace(sdomain,"http://","") 
  • sdomain = Replace(sdomain,"/","") 
  • dim domain1,domain2 
  • domain = LCase (from) 
  • domain = Replace (domain,"http://","") 
  • domain = Replace (domain,"/","") 
  • If lcase(domain)=lcase(KS.Setting(69)) or lcase(domain)=lcase(KS.JSetting(41)) or (sdomain=domain and sdomain<>"") Then '小论坛 
  • Call AppCls.Domain(domain) 
  • Exit Sub 
  • else 
  • domain1= Replace (Left (domain,InStr (domain,".")),".","") 
  • if Trim (domain1)="" or (domain1="www" and domain=replace(lcase(KS.Setting(2)),"http://","")) or (Request.ServerVariables("HTTP_HOST")="http://" & KS.Setting(2)) or ("http://" & lcase(Request.ServerVariables("HTTP_HOST"))=lcase(KS.Setting(2))) Then 
  • Call AppCls.HomePage() : Exit Sub 
  • Else 
  • '=====================这里定义其它系统非个人空间的二级域名转向，如论坛等============================= 
  • if instr(Request.ServerVariables("SERVER_NAME"),"bbs.XXX.com")>0 then 
  • response.redirect KS.GetDomain & "club/index.asp" 
  • '===我改动的部分===
  • elseif instr(Request.ServerVariables("HTTP_ACCEPT"),"text/vnd.wap.wml")>0 then 
  • response.redirect KS.GetDomain & "wap/" '我主要是想让网站如果手机访问自己动跳转到wap目录这句好像跟这上面的内容有冲突不起作用，请问在怎么改 
  • '===出错的代码===
  • elseif instr(Request.ServerVariables("SERVER_NAME"),"wap.XXX.com")>0 Then 
  • if instr(Request.ServerVariables("HTTP_ACCEPT"),"text/vnd.wap.wml")>0 then 
  • response.redirect KS.GetDomain & "wap" '这里我是想要手机访问自动跳转到网站WAP地址 
  • else 
  • response.redirect KS.GetDomain & "wapmo" '而电脑用这个wap.XXX.com的域名访问则跳转到网站WEB地址，这里我的想法是做个wap模拟页面 
  • elseif instr(Request.ServerVariables("SERVER_NAME"),"3g.XXX.com")>0 Then 
  • if instr(Request.ServerVariables("HTTP_ACCEPT"),"text/vnd.wap.wml")>0 then 
  • response.redirect KS.GetDomain & "wap" '网站WAP地址 这里同上 
  • else 
  • response.redirect KS.GetDomain & "wapmo" '网站WEB地址 
  • '===出错的代码===
  • '===我改动的部分结束=== 
  • end if 
  • '============================================================================ 
  • End If 
  • Set AppCls=New KesionAppCls 
  • if instr(domain,replace(replace(lcase(KS.Setting(2)),"http://",""),"www.",""))=0 and domain1="www" then 
  • Call AppCls.Domain(domain) 
  • else 
  • Call AppCls.Domain(domain1) 
  • end if 
  • Exit Sub 
  • end if 
  • End Sub 
  • End Class 
  • %> 
    •  
    主要是这一段代码
    追问：好像你改动的没起做用，加QQ帮我解决一下吧！
    答案：把你的这部分替换成我的
    '=====================这里定义其它系统非个人空间的二级域名转向，如论坛等============================= 
    if instr(Request.ServerVariables("SERVER_NAME"),"bbs.XXX.com")>0 then 
    response.redirect KS.GetDomain & "club/index.asp" 

    '===我改动的部分===
    elseif instr(Request.ServerVariables("HTTP_ACCEPT"),"text/vnd.wap.wml")>0 then 
    response.redirect KS.GetDomain & "wap/" '我主要是想让网站如果手机访问自己动跳转到wap目录这句好像跟这上面的内容有冲突不起作用，请问在怎么改 
    '===出错的代码===
    elseif instr(Request.ServerVariables("SERVER_NAME"),"wap.XXX.com")>0 Then 
    if instr(Request.ServerVariables("HTTP_ACCEPT"),"text/vnd.wap.wml")>0 then 
    response.redirect KS.GetDomain & "wap" '这里我是想要手机访问自动跳转到网站WAP地址 
    else 
    response.redirect KS.GetDomain & "wapmo" '而电脑用这个wap.XXX.com的域名访问则跳转到网站WEB地址，这里我的想法是做个wap模拟页面 

    elseif instr(Request.ServerVariables("SERVER_NAME"),"3g.XXX.com")>0 Then 
    if instr(Request.ServerVariables("HTTP_ACCEPT"),"text/vnd.wap.wml")>0 then 
    response.redirect KS.GetDomain & "wap" '网站WAP地址 这里同上 
    else 
    response.redirect KS.GetDomain & "wapmo" '网站WEB地址 
    '===出错的代码===
    '===我改动的部分结束=== 
    end if 
    上面是你的
    下面是我改的
    '=====================这里定义其它系统非个人空间的二级域名转向，如论坛等============================= 
    if instr(Request.ServerVariables("SERVER_NAME"),"bbs.XXX.com")>0 then 
    response.redirect KS.GetDomain & "club/index.asp" 

    '===我改动的部分===
    end if
    if instr(Request.ServerVariables("HTTP_ACCEPT"),"text/vnd.wap.wml")>0 then 
    response.redirect KS.GetDomain & "wap/" '我主要是想让网站如果手机访问自己动跳转到wap目录这句好像跟这上面的内容有冲突不起作用，请问在怎么改 
    '===出错的代码===
    end if 
    if instr(Request.ServerVariables("SERVER_NAME"),"wap.XXX.com")>0 Then 
     if instr(Request.ServerVariables("HTTP_ACCEPT"),"text/vnd.wap.wml")>0 then 
     response.redirect KS.GetDomain & "wap" '这里我是想要手机访问自动跳转到网站WAP地址 
     else 
     response.redirect KS.GetDomain & "wapmo" '而电脑用这个wap.XXX.com的域名访问则跳转到网站WEB地址，这里我的想法是做个wap模拟页面 
     end if
     if instr(Request.ServerVariables("SERVER_NAME"),"3g.XXX.com")>0 Then 
      if instr(Request.ServerVariables("HTTP_ACCEPT"),"text/vnd.wap.wml")>0 then 
      response.redirect KS.GetDomain & "wap" '网站WAP地址 这里同上 
      else 
      response.redirect KS.GetDomain & "wapmo" '网站WEB地址 
      
      '===出错的代码===
      
      '===我改动的部分结束=== 
      
      end if 
     end if
    end if
    程序没有提示哪行出错?你这样给人回答，谁也不会回答。这个是科讯的系统，一般程序不会有错，看你的配置吧。
    页面的错误提示整出来一下就有人回答了

    上一个：求用asp编写的最简单的聊天室
    下一个：asp分页,请高手求救

    更多图片编程知识:
    更多asp疑问解答：
    asp正则过滤重复字符串的代码
    用asp过滤全部html但保留br类似的符号
    会asp，但感觉asp要过点，想学php。但我一般做的都是小公司的站，用access数
    PHP的空间可以用ASP的源代码吗？
    以前做asp程序，现在应该怎样发展？是学.net还是php
    以前做asp程序，现在应该怎样发展？是学.net还是php
    想做一个市级的人才网acess,sql数据库，语言asp,jsp,php分别用哪种好
    jsp，asp，php 区别
    我想找一个有比较多漏洞的网站的源码，比如可以asp，php注入等都可以。供学习研究用。请提供下载地址。。
    现在候找人做个网站，用ASP，还是PHP语言去做好
    asp,php ,jsp,.net 对于做网站前台的重要吗？
    asp和php的区别是什么？
    我是新手SEO菜鸟 请问wp dw php asp cms myspl dede 这些软件应该如何区分呀？
    网页制作相关的三种语言：ASP JSP PHP那个好点，简单点？
    网页制作相关的三种语言：ASP JSP PHP那个好点，简单点？
    asp
    php
    Delphi
    Matlab
    JSP
    Foxpro
    JS
    C/C++
    C#/ASP.NET
    VC++
    JAVA
    VB
    汇编语言
    html/css
    CGI
    XML/UML
    wap
    网站相关
    网页素材
    python
    微信小程序
    thinkphp
    如果你遇到编程学习难题：
    访问www.zzzyk.com 试试
    CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
    部分文章来自网络，