账号通
    

账号  

密码  

1195

查看

2

回复
主题:[原创]个人空间不显示的问题?? [收藏主题]  
qingsong 当前离线

120

主题

1

广播

0

粉丝
添加关注
级别:一年级

用户积分:1332 分
登录次数:223 次
注册时间:2007/12/8
最后登录:2014/9/26
qingsong 发表于:2007/12/15 14:28:00   | 只看该作者 查看该作者主题 楼主 

为什么个人空间不可以用,总提示内部系统有问题,无法显示该页,我安装三次了全是这样,

企业空间非常正常,期待解决中!!!

:o
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
qingsong 当前离线

120

主题

1

广播

0

粉丝
添加关注
级别:一年级

用户积分:1332 分
登录次数:223 次
注册时间:2007/12/8
最后登录:2014/9/26
qingsong 发表于:2007/12/16 10:14:00   | 只看该作者 查看该作者主题 沙发 
科汛智能建站系统

修改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") & "<br/>"
GetEnterpriseContact=GetEnterpriseContact & "公司地址:" & RS("address") & "<br>"
GetEnterpriseContact=GetEnterpriseContact & "邮政编码:" & RS("zipcode") & "<br>"
GetEnterpriseContact=GetEnterpriseContact & "联系电话:" & RS("telphone") & "<br>"
GetEnterpriseContact=GetEnterpriseContact & "传真号码:" & RS("fax") & "<br>"
GetEnterpriseContact=GetEnterpriseContact & "公司网址:" & RS("weburl") & "<br>"
RS.Close:Set RS=Nothing
->这里加 End if
End Function

已解决 谢谢

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
平静的生活 当前离线

604

主题

0

广播

0

粉丝
添加关注
级别:六年级

用户积分:2867 分
登录次数:64 次
注册时间:2007/7/27
最后登录:2008/1/30
平静的生活 发表于:2007/12/15 14:40:00   | 只看该作者 查看该作者主题 藤椅 

楼主的不可以?

楼主最好捉张错误提示图上来

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.07813秒 powered by KesionCMS 9.0