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

需要在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..是条数..即调几个会员,可自行更改..