|
成航物流网全站系统,用花香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
增加:<!--#include file="../inc/cmsprivate.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  Q:"&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..是条数..即调几个会员,可自行更改..
下载地址:
|
评分
-
查看全部评分
|