百分求教动网高手

libaisongtuye 2005-04-20 03:56:24

今天接到客户最新要求，要论坛里可能不注册会员也可以发贴回贴，我到论坛的后台管理里看了，帮助文件上说什么国家规定，不注册的会员不能发贴。我这个晕啊，不知道哪位高手知道怎么实现不注册发贴回贴的功能？？？？

...全文

204 25 打赏收藏转发到动态举报

写回复

用AI写文章

25 条回复

切换为时间正序

请发表友善的回复…

发表回复

jzywh 2005-04-27

打赏
举报

再用我的

Login "Guest","",1 登陆

就可以发帖了

jzywh 2005-04-27

打赏
举报

在数据库的 [Dv_User]表中添加一条记录Guest

填充相应的字段

libaisongtuye 2005-04-26

打赏
举报

TO　 jzywh(江小鱼)
你给的代码是哪个页的？我应该怎么调用？没看明白！

其他高手知道也请帮忙！

libaisongtuye 2005-04-25

打赏
举报

游客的权限改过也不能发和回。
我就是用上面的办法在验证未登陆后想存入cookies里一个默认的用户及其相关信息，只是每次登陆后的密码每次都不一样，好像是用md5加密过的，初始的密码123456加密后跟每次登陆显示的密码不一样，高手帮下怎么样才可以不登陆就发回帖

bluesun 2005-04-25

打赏
举报

在登陆的时候显示一个GUEST账号就可以了,我看有些网站就是这样搞的.凡是没有登陆的网站都看做guest.

jzywh 2005-04-25

打赏
举报

jzywh 2005-04-25

打赏
举报

Function Login(username,usercookies,ctype)

Dim rsUser,article,userclass,titlepic,TruePassWord
Dim userhidden,lastip,UserLastLogin
Dim GroupID,ClassSql,FoundGrade
Dim regname,iMyUserInfo
Dim Sql,sqlstr

FoundGrade=False
lastip=Dvbbs.UserTrueIP

sqlstr=" SysUserName='"&username&"'"

Sql="Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday,UserMoney,UserTicket,FollowMsgID,Vip_StarTime,Vip_EndTime"
Sql=Sql+" From [Dv_User] Where "&sqlstr&""

set rsUser=Dvbbs.Execute(sql)

iMyUserInfo=rsUser.GetString(,1, "|||", "", "")

rsUser.Close:Set rsUser = Nothing

iMyUserInfo = "Dvbbs|||"& Now & "|||" & Now &"|||"& Dvbbs.BoardID &"|||"& iMyUserInfo &"|||"&Dvbbs.FoundUserPermission_All()&"|||0||||||Dvbbs"
'iMyUserInfo = "Dvbbs|||"& Now & "|||" & Now &"|||"& Dvbbs.BoardID &"|||"& iMyUserInfo &"||||||Dvbbs"
iMyUserInfo = Split(iMyUserInfo,"|||")

Session(Dvbbs.CacheName & "UserID") = iMyUserInfo
Dvbbs.UserID = iMyUserInfo(4)
RegName = iMyUserInfo(5)
Article = iMyUserInfo(8)
UserLastLogin = iMyUserInfo(15)
UserClass = iMyUserInfo(18)
GroupID = iMyUserInfo(19)
TitlePic = iMyUserInfo(34)
If Article<0 Then Article=0

REM 判断用户组(等级)资料，当用户级别为跟随文章数增长则自动更新用户组(等级)
REM 自动更新用户数据
REM 如果属于系统或特殊或多属性组
Set rsUser=Dvbbs.Execute("Select MinArticle,IsSetting,ParentGID,UserTitle,GroupPic From Dv_UserGroups Where UserGroupID="&GroupID)
If Not (rsUser.Eof And rsUser.Bof) Then
If rsUser(2)=1 Or rsUser(2)=2 Or rsUser(2)=4 Or rsUser(2)=5 Then
'用户等级不按照文章升级，用户为系统或特殊或多属性组
UserClass=rsUser(3)
TitlePic=rsUser(4)
FoundGrade=True
End If
End If
If Not FoundGrade Then
'如果不属于系统或特殊或多属性组,则将该用户属于注册用户组且按照其文章数自动更新其用户组(等级)
Set rsUser=Dvbbs.Execute("Select Top 1 usertitle,GroupPic,UserGroupID From Dv_UserGroups Where ParentGID=3 And Minarticle<="&Article&" Order By MinArticle Desc,UserGroupID")
If Not (rsUser.Eof And rsUser.Bof) Then
UserClass=rsUser(0)
TitlePic=rsUser(1)
GroupID=rsUser(2)
FoundGrade=True
End If
End If
Set rsUser=nothing
If Not FoundGrade Then Response.Redirect "showerr.asp?ErrCodes=<li>系统没有找到您的注册用户组资料，请联系管理员进行修正。&action=OtherErr"
select case ctype
case 1
If Datediff("d",UserLastLogin,Now())=0 Then
sql="update [Dv_User] set LastLogin="&SqlNowString&",UserLogins=UserLogins+1,UserLastIP='"&lastip&"',userclass='"&userclass&"',titlepic='"&titlepic&"',UserGroupID="&GroupID&",TruePassWord='"&TruePassWord&"' where userid="&dvbbs.UserID
Else
sql="update [Dv_User] set userWealth=userWealth+"&Dvbbs.Forum_user(4)&",userEP=userEP+"&Dvbbs.Forum_user(9)&",userCP=userCP+"&Dvbbs.Forum_user(14)&",LastLogin="&SqlNowString&",UserLogins=UserLogins+1,UserLastIP='"&lastip&"',userclass='"&userclass&"',titlepic='"&titlepic&"',UserGroupID="&GroupID&",TruePassWord='"&TruePassWord&"' where userid="&dvbbs.UserID
End If
case 2
sql="update [Dv_User] set UserPost=UserPost+1,UserTopic=UserTopic+1,userWealth=userWealth+"&Dvbbs.Forum_user(1)&",userEP=userEP+"&Dvbbs.Forum_user(6)&",userCP=userCP+"&Dvbbs.Forum_user(11)&",LastLogin="&SqlNowString&",UserLastIP='"&lastip&"',userclass='"&userclass&"',titlepic='"&titlepic&"',UserGroupID="&GroupID&",TruePassWord='"&TruePassWord&"' where userid="&dvbbs.UserID
case 3
sql="update [Dv_User] set UserPost=UserPost+1,userWealth=userWealth+"&Dvbbs.Forum_user(2)&",userEP=userEP+"&Dvbbs.Forum_user(7)&",userCP=userCP+"&Dvbbs.Forum_user(12)&",LastLogin="&SqlNowString&",UserLastIP='"&lastip&"',userclass='"&userclass&"',titlepic='"&titlepic&"',UserGroupID="&GroupID&",TruePassWord='"&TruePassWord&"' where userid="&dvbbs.UserID
end select
Dvbbs.Execute(sql)
Dim StatUserID,UserSessionID
StatUserID = Dvbbs.checkStr(Trim(Request.Cookies(Dvbbs.Forum_sn)("StatUserID")))
If IsNumeric(StatUserID) = 0 or StatUserID = "" Then
StatUserID = Replace(Dvbbs.UserTrueIP,".","")
UserSessionID = Replace(Startime,".","")
If IsNumeric(StatUserID) = 0 or StatUserID = "" Then StatUserID = 0
StatUserID = Ccur(StatUserID) + Ccur(UserSessionID)
End If
StatUserID = Ccur(StatUserID)
Dvbbs.Execute("delete from dv_online where id="&StatUserID&"")
If trim(username)<>trim(Dvbbs.membername) Then
Response.Cookies(Dvbbs.Forum_sn)("username")=""
Response.Cookies(Dvbbs.Forum_sn)("password")=""
Response.Cookies(Dvbbs.Forum_sn)("userclass")=""
Response.Cookies(Dvbbs.Forum_sn)("userid")=""
Response.Cookies(Dvbbs.Forum_sn)("userhidden")=""
Response.Cookies(Dvbbs.Forum_sn)("usercookies")=""
Dvbbs.Execute("delete from dv_online where username='"&Dvbbs.membername&"'")
End If
If isnull(usercookies) or usercookies="" Then usercookies="0"
select case usercookies
case "0"
Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
case 1
Response.Cookies(Dvbbs.Forum_sn).Expires=Date+1
Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
case 2
Response.Cookies(Dvbbs.Forum_sn).Expires=Date+31
Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
case 3
Response.Cookies(Dvbbs.Forum_sn).Expires=Date+365
Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
end select
Response.Cookies(Dvbbs.Forum_sn).path = Dvbbs.cookiepath
Response.Cookies(Dvbbs.Forum_sn)("username") = regname
Response.Cookies(Dvbbs.Forum_sn)("userid") = Dvbbs.UserID
Response.Cookies(Dvbbs.Forum_sn)("password") = TruePassWord
Response.Cookies(Dvbbs.Forum_sn)("userclass") = userclass
Response.Cookies(Dvbbs.Forum_sn)("userhidden") = userhidden
rem 清除图片上传数的限制
Response.Cookies("upNum")=0
Dim iUserInfo
iUserInfo = Session(Dvbbs.CacheName & "UserID")
iUserInfo(35) = TruePassWord
Session(Dvbbs.CacheName & "UserID") = iUserInfo

End Function

libaisongtuye 2005-04-25

打赏
举报

TO　 jzywh(江小鱼)
你给的代码是哪个页的？我应该怎么调用？没看明白！

libaisongtuye 2005-04-23

打赏
举报

我在各位的指点下，准备弄个默认的帐号给不登陆不注册的用户使用
下面是申请好以后的用户信息，我存到cookies里，可在我打开首页的时候没有加载到cookies里，想发不登陆就发贴的时候还是不行，高手帮看看，动网论坛的客户端存的cookies信息是怎么存上的？？
if request.cookies(Dvbbs.Forum_sn)("username")="" then
Response.Cookies(Dvbbs.Forum_sn)("username")="公共帐号"
response.Cookies(Dvbbs.Forum_sn)("password")=md5(trim(Dvbbs.CheckStr("123456")),16)
response.Cookies(Dvbbs.Forum_sn)("userclass")="新手上路"
response.Cookies(Dvbbs.Forum_sn)("userid")="4"
response.Cookies(Dvbbs.Forum_sn)("userhidden")="2"
response.Cookies(Dvbbs.Forum_sn)("usercookies")="0"
end if

bighearted 2005-04-23

打赏
举报

把设置游客的属性改下就可以了

sfply 2005-04-23

打赏
举报

容易改
在检测页面检测登陆否，是否免登陆，否则就直接指定用户名即可

libaisongtuye 2005-04-21

打赏
举报

我想在论坛加载的时候，在index.asp里加一段代码，里面存入cookies一个已经申请下来的新的公共用户名，我想这样可以满足客户的要求，现在的问题是我没搞清楚具体都需要存到cookies里什么信息，如果我有一个已申请的公共帐号：用户名和密码都为guest的话，在index.asp里需要加入什么代码，我看到动网里用的是md5密码加密，是否需要将密码加密后存入cookies？动网高手指点下！我自己也去看看！

libaisongtuye 2005-04-21