帮我看看这个asp文件是哪里出错了，要怎么修改
帮我看看这个asp文件是哪里出错了，要怎么修改
&%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%&
&%option explicit%&
&!--#include file="KS_Cls/Kesion.AppCls.asp"--&
'****************************************************
' Software name:Kesion CMS 7.0
' Copyright (C) Kesion Network All Rights Reserved.
'****************************************************
Set KSCls = New SiteIndex
KSCls.Kesion()
Set KSCls = Nothing
Const AllowSecondDomain=true '是否允许开启空间二级域名 true-开启 false-不开启
Class SiteIndex
Private KS,AppCls
Private Sub Class_Initialize()
If (Not Response.IsClientConnected)Then
Response.Clear
Response.End
Set AppCls=New KesionAppCls
Set KS=New PublicCls
Private Sub Class_Terminate()
Set KS=Nothing
Set AppCls=Nothing
Call CloseConn()
Public Sub Kesion()
'================================判断自动生成==============================
Const PerTime=2 '自动生成间隔的时间数，单位为分钟。
Dim Template,KSR,LastModified,FsoIndex:FsoIndex=KS.Setting(5)
If PerTime&0 and Split(FsoIndex,".")(1)&&"asp" Then
Set KSR = New Refresh
Dim fs:set fs=Server.CreateObject(KS.Setting(99))
If KS.CheckFile(KS.Setting(5))=false Then
LastModified=""
Dim f:set f=fs.getfile(server.MapPath(KS.Setting(5)))
LastModified=f.DateLastModified
if datediff("n",LastModified,Now)&=PerTime Then
Template = KSR.LoadTemplate(KS.Setting(110))
FCls.RefreshType = "INDEX" '设置刷新类型，以便取得当前位置导航等
FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签
Template=KSR.KSLabelReplaceAll(Template)
Call KS.WriteTOFile(KS.Setting(5),Template)
Set KSR=Nothing
'===================================自动生成结束======================================
If AllowSecondDomain=True And KS.IsNul(Request.QueryString("do")) Then
SecondDomain
Call AppCls.HomePage()
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)
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
'=====================这里定义其它系统非个人空间的二级域名转向，如论坛等=============================
if instr(Request.ServerVariables("SERVER_NAME"),"")&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"),"")&0 Then
if instr(Request.ServerVariables("HTTP_ACCEPT"),"text/vnd.wap.wml")&0 then
response.redirect KS.GetDomain & "wap" '这里我是想要手机访问自动跳转到网站WAP地址
response.redirect KS.GetDomain & "wapmo" '而电脑用这个的域名访问则跳转到网站WEB地址，这里我的想法是做个wap模拟页面
elseif instr(Request.ServerVariables("SERVER_NAME"),"")&0 Then
if instr(Request.ServerVariables("HTTP_ACCEPT"),"text/vnd.wap.wml")&0 then
response.redirect KS.GetDomain & "wap" '网站WAP地址 这里同上
response.redirect KS.GetDomain & "wapmo" '网站WEB地址
'===出错的代码===
'===我改动的部分结束===
'============================================================================
Set AppCls=New KesionAppCls
if instr(domain,replace(replace(lcase(KS.Setting(2)),"http://",""),"www.",""))=0 and domain1="www" then
Call AppCls.Domain(domain)
Call AppCls.Domain(domain1)
怎么都是一样的问题呀！
相关知识等待您来回答
网页制作领域专家这个错误信息是怎么回事啊？怎么改阿？_百度知道
这个错误信息是怎么回事啊？怎么改阿？
0 warning(s)2.edits....Compiling: error LNK2001.obj .cppeditsDprotected...editsDlg1: unresolved external symbol &quot.exe - 1 error(s)?OnChangeinitials@CEditsDlg@@IAEXXZ)Debug&#47.edits:.--------------------Configuration.exe .cppGenerating Code..Creating browse info file.Linking: edits - Win32 Debug--------------------Cedits - Win32 Debug&#39.在class view中的变量或者类上点右键那个reference是干什么的啊.: 1 unresolved externals执行..cppCompiling: void __thiscall CEditsDlg: fatal error LNK1120.Deleting intermediate files and output files for project &#39.;edits.exe 时出错:OnChangeinitials(void)&quot.; (..cppcinitials.StdAfx.
提问者采纳
提问者评价
mei ban fa
其他类似问题
错误信息的相关知识
其他1条回答
。如果是这样的话你可以在头文件中找到这个函数的声明；在cpp文件中找到BEGIN_MESSAGE_MAP()，后来发现这个函数没必要添加，删除，就删除了，将其中定义的消息处理函数删除..END_MESSAGE_MAP()。再次编译即可你是不是给控件添加了消息处理函数
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁您还未登陆，请登录后操作！
出现了这个问题该怎么办？
<img onerror="imgDelByClass('comimg_box');" class="piczoom mpic" alt="
您的举报已经提交成功，我们将尽快处理，谢谢！
大家还关注请教高手这个错误如何修改？
编辑：www.fx114.net
本篇文章主要介绍了"请教高手这个错误如何修改？
0ntfyhua]"，主要涉及到请教高手这个错误如何修改？
0ntfyhua]方面的内容，对于请教高手这个错误如何修改？
0ntfyhua]感兴趣的同学可以参考一下。
错误类型：Microsoft&OLE&DB&Provider&for&ODBC&Drivers&(0x80040E57)[Microsoft][ODBC&Microsoft&Access&Driver]非法的字符串或缓冲区长度&/myykjsite/regist.asp,&第&61&行
本文标题：
本页链接：您还未登陆，请登录后操作！
我这怎么办啊
也通，卵巢也没问题，检查说是我的子宫是鞭行的，为什么月经还不正常那，也没怀孕，现在好希望得到大家的帮忙啊，是不是子宫的问题啊，医生说是没问题的，说是能怀孕了，就是容易流产，为什么我连怀孕也没有那
共有 1 位网友向您献上回答啦， 对答案满意？赶快给出你的好评，感谢他们吧！
子宫的结构决定了容不容易流产的问题，不过要孩子的话要多方检查才做决定。
忠告：有些事不能完全听医生的，想想我们的母亲生我们下来多么容易，可现在医院总是这的那的，哎。。。
妇产科相关知识
答: 你好，紧急避孕药是不能频繁服用，频繁服用可能导致月经紊乱甚至避孕失败。应该尽量少服用紧急避孕药。目前你的情况，八个月内服用三次，这个只要你月经还是正常的，就不至...
大家还关注