成航物流网全站系统，用花香CMS做的，好象是商业版本

canglong007 · 发表于 2010-3-14 14:18:56

成航物流网全站系统，用花香CMS做的，好象是商业版本

文件太大，所以直接转载

本人不会美化，希望美化后的各位大侠转一个给我美化版的。谢谢！！

花香CMS还是不错的,但不知道是版本原因还是其它方面,这个代码我在使用过程中发现一些bug,并且在其官方网站很难得到及时解答,故我把调试心得记录下来和大家探讨!

1、hx66_job_ok 是否企业用户的标志
需要在inc/cmsprivate.asp中增加该变量的定义hx66_job_ok
Hx66_job_ok=rs0("job_ok")

不然普通注册用户即使填写了企业信息后台也审核通过,前台仍然无法发布招聘信息等.

user_main_s.asp中也需要修改:
普通

会员

2、Hx66_wdzfen 当前用户积分(发表提问时,用户注册后无法发布提问,总是提示积分不够!)

本部分设定了隐藏,您已回复过了,以下是隐藏的内容

需要在inc/cmsprivate.asp中增加该变量的定义Hx66_wdzfen
Hx66_wdzfen=rs0("wdzfen")

3、提问生成的内容修改在hxask目录中的show.asp内

4、会员登录:
UserChkLogin.asp
去掉字符数检测限制,汉字用户名称或密码会出问题!

if UserName="" then 'or strLength(UserName)>12
Call HxErrMsg("用户名为空或错误，请返回！","back")
end if
if Password="" then 'or strLength(Password)>12
Call HxErrMsg("密码为空或错误，请返回！","back")
end if

5、供求信息:
修改Channel_Setting.asp
增加:

这样可以在程序中根据会员登录状态来有选择的显示部分信息.

if UserLogined<>True then '判断会员登录状态
showintro="
>>发布人信息：
联系人：会员可查看
联系电话：会员可查看
电子信箱：会员可查看" else
showintro="
>>发布人信息：
联系人："&rs("ContactMan")&"
联系电话："&rs("Tel")&"
电子信箱："&rs("Email")
if rs("CompanyName")<>"" then showintro=showintro&"
企业名称："&rs("CompanyName")
if rs("Add")<>"" then showintro=showintro&"
联系地址："&rs("Add")
if rs("Homepage")<>"" then showintro=showintro&"
企业网站："&rs("Homepage")
if rs("Postalcode")<>"" then showintro=showintro&"
邮政编码："&rs("Postalcode")
if rs("Fax")<>"" then showintro=showintro&"
传真："&rs("Fax")
if rs("QQ")<>"" then showintro=showintro&"
Q  Q："&rs("QQ")
end if

6、首页会员登陆排行调用:
第一步：打开indexnew.asp文件，在最后加上下面代码（注意，在最后一个%>符的里边）：
'=================================================
'过程名：index_LoginTimes
'作用：首页会员登陆排行调用
'参数：num-------------调用条数
'=================================================
sub index_LoginTimes(num)
Response.Write "" &

vbCrLf
sql="select top "&num&" UserName,LoginTimes from [user] where userlock=0 order by LoginTimes

DESC,userid DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
i=1
do while not rs.eof
Response.Write "
border=""0"">."&rs(0)&" "&rs(1)&"  次


" & vbCrLf
i=i+1
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write " 暂无会员登陆信息！
"
end if
rs.close
set rs=nothing
Response.Write " " & vbCrLf
end sub

第二步：在你首页或其它页面需要调用的地方，用标签调用，即可.

其中：里的10..是条数..即调几个会员,可自行更改..

#原文出处:http://www.jzp.cc/read-tid-31801-page-1.html

不可否认,花香CMS还是不错的,但不知道是版本原因还是其它方面,这个代码我在使用过程中发现一些bug,并且在其官方网站很难得到及时解答,故我把调试心得记录下来和大家探讨!
1、hx66_job_ok 是否企业用户的标志
需要在inc/cmsprivate.asp中增加该变量的定义hx66_job_ok
Hx66_job_ok=rs0("job_ok")
不然普通注册用户即使填写了企业信息后台也审核通过,前台仍然无法发布招聘信息等.
user_main_s.asp中也需要修改:
<%if Hx66_Grade=0 then%>普通
<%if Hx66_job_ok=True then
w="企业"
else
w=""
end if%>
<%=w%>会员
<%end if%>
2、Hx66_wdzfen 当前用户积分(发表提问时)
需要在inc/cmsprivate.asp中增加该变量的定义Hx66_wdzfen
Hx66_wdzfen=rs0("wdzfen")
用户注册后无法发布提问,总是提示积分不够!
3、提问生成的内容修改在hxask目录中的show.asp内
4、会员登录:
UserChkLogin.asp
去掉字符数检测限制,汉字用户名称或密码会出问题!
if UserName="" then 'or strLength(UserName)>12
      Call HxErrMsg("用户名为空或错误，请返回！","back")
end if
if Password="" then 'or strLength(Password)>12
      Call HxErrMsg("密码为空或错误，请返回！","back")
end if
5、供求信息:
修改Channel_Setting.asp
增加:

这样可以在程序中根据会员登录状态来有选择的显示部分信息.
if UserLogined<>True then '判断会员登录状态
            showintro="<h4><font color=""#990000"">>></font>发布人信息：</h4>联 系 人：会员可查看<br />联系电话：会员可查看<br />电子信箱：会员可查看"    else
            showintro="<h4><font color=""#990000"">>></font>发布人信息：</h4>联 系 人："&rs("ContactMan")&"<br />联系电话："&rs("Tel")&"<br />电子信箱："&rs("Email")
            if rs("CompanyName")<>"" then showintro=showintro&"<br />企业名称："&rs("CompanyName")
            if rs("Add")<>"" then showintro=showintro&"<br />联系地址："&rs("Add")
            if rs("Homepage")<>"" then showintro=showintro&"<br />企业网站："&rs("Homepage")
            if rs("Postalcode")<>"" then showintro=showintro&"<br />邮政编码："&rs("Postalcode")
            if rs("Fax")<>"" then showintro=showintro&"<br />传真："&rs("Fax")
            if rs("QQ")<>"" then showintro=showintro&"<br />Q&nbsp&nbspQ："&rs("QQ")
end if
6、首页会员登陆排行调用:
第一步：打开indexnew.asp文件，在最后加上下面代码（注意，在最后一个%>符的里边）：
'=================================================
'过程名：index_LoginTimes
'作用：首页会员登陆排行调用
'参数：num-------------调用条数
'=================================================
sub index_LoginTimes(num)
Response.Write "<TABLE width='100%' cellSpacing=0 cellPadding=1 align=center border=0>" &
vbCrLf
sql="select top "&num&" UserName,LoginTimes from [user] where userlock=0 order by LoginTimes
DESC,userid DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
i=1
do while not rs.eof
Response.Write "<TR><TD height='22' class=table-xia> <img src=""img/blog/top"&i&".gif""
border=""0""><b>.</b>"&rs(0)&"</TD><TD align=right class=table-xia>"&rs(1)&"  次
 </TD></TR>" & vbCrLf
i=i+1
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR><TD align=center>暂无会员登陆信息！</TD></TR>"
end if
rs.close
set rs=nothing
Response.Write "</TABLE>" & vbCrLf
end sub
第二步：在你首页或其它页面需要调用的地方，用<%call index_LoginTimes(10)%>标签调用，即可.
其中：<%call index_LoginTimes(10)%>里的10..是条数..即调几个会员,可自行更改..

下载地址：

游客，如果您要查看本帖隐藏内容请回复

dengjiagui · 发表于 2020-6-2 20:52:56