账号通
    

账号  

密码  

1196

查看

2

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

120

主题

1

广播

0

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

用户积分:1332 分
登录次数:223 次
注册时间:2007/12/8
最后登录:2014/9/26
qingsong 发表于:2007/12/15 14:28:00   | 显示全部帖子 查看该作者主题 楼主 
科汛在线商城系统(NET)

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

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

: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) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.25195秒 powered by KesionCMS 9.0