需要在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..是条数..即调几个会员,可自行更改..
欢迎光临 源码论坛,商业源码下载,尽在锦尚中国商业源码论坛 (https://bbs.52jscn.com/) | Powered by Discuz! X3.3 |