个人空间问题-领先建站CMS提供服务商我们专注于CMS建站产品的研发

1958 查看	3 回复

主题：[求助]个人空间问题[感谢官方管理员,问题已解决] [收藏主题]

转到：

jilins 当前离线

107 主题	0 广播	0 粉丝

级别:一年级

用户积分:1120 分
登录次数:32 次
注册时间:2007/12/24
最后登录:2009/4/7

jilins 发表于：2007/12/24 14:04:00 | 只看该作者查看该作者主题楼主

做线上考试培训就选#科汛网校

打开个人空间出现如下错误:

无法显示网页
试图访问的网页出现问题，无法显示。
请尝试执行下列操作：单击刷新按钮，或稍后重试。打开 localhost 主页，然后查找与所需信息相关的链接。 HTTP 错误 500.100 - 内部服务器错误 - ASP 错误 Internet 信息服务技术信息（用于支持人员）错误类型： Microsoft VBScript 运行时错误 (0x800A000D) 类型不匹配: 'RS' /life/KS_Cls/KS.BlogCls.asp, 第 142 行浏览器类型： Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1) 网页： GET /life/space/space.asp 时间： 2007年12月24日, 下午 02:02:34 详细信息： Microsoft 支持

-----------------------------------------

我按照论坛高手提供的,修改ks_cls/ks.blogcls.asp, 也没有解决!!!!求助!!!!!!!!!!!!!!!!

Function GetEnterpriseContact(username)
Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
RS.Open "Select top 1 * From KS_EnterPrise Where UserName='" & UserName & "'",conn,1,1
IF RS.Eof Then
RS.Close:Set RS=Nothing
GetEnterpriseContact=""
->end if 改为 else
GetEnterpriseContact="联系人：" & RS("Contactman") & " "
GetEnterpriseContact=GetEnterpriseContact & "公司地址：" & RS("address") & " "
GetEnterpriseContact=GetEnterpriseContact & "邮政编码：" & RS("zipcode") & " "
GetEnterpriseContact=GetEnterpriseContact & "联系电话：" & RS("telphone") & " "
GetEnterpriseContact=GetEnterpriseContact & "传真号码：" & RS("fax") & " "
GetEnterpriseContact=GetEnterpriseContact & "公司网址：" & RS("weburl") & " "
RS.Close:Set RS=Nothing
->这里加 End if
End Function

[此贴子已经被作者于2007-12-24 16:13:58编辑过]

一分钟快速开通线上知识店铺

支持(0) |

反对(0)

顶端

底部

科汛官方当前离线

47268 主题	145 广播	405 粉丝

级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
创始人

科汛官方发表于：2007/12/24 14:07:00 | 只看该作者查看该作者主题沙发

做线上考试培训就选#科汛网校

正式版已修复

或按以下方法修复

IF RS.Eof Then
RS.Close:Set RS=Nothing
GetEnterpriseContact=""

eixt function
end if
GetEnterpriseContact="联系人：" & RS("Contactman") & " "
GetEnterpriseContact=GetEnterpriseContact & "公司地址：" & RS("address") & " "
GetEnterpriseContact=GetEnterpriseContact & "邮政编码：" & RS("zipcode") & " "
GetEnterpriseContact=GetEnterpriseContact & "联系电话：" & RS("telphone") & " "
GetEnterpriseContact=GetEnterpriseContact & "传真号码：" & RS("fax") & " "
GetEnterpriseContact=GetEnterpriseContact & "公司网址：" & RS("weburl") & " "
RS.Close:Set RS=Nothing
End Function

加上红色的

做新职业技能培训平台就选#科汛网校

支持(0) |

反对(0)

顶端

底部