修改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
已解决 谢谢