近日需要用动网论坛拓展一些独立页面以供调用,接口整合显得多余,所以自己新建了些页面来操作,以下是些资料整理,前提是页面文件都需在论坛根目录,动网是有路径判断的。
判断用户是否登陆方法一:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%if Dvbbs.Userid>0 then%>
您好:
<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@username").text%>,您已登陆
<%else%>
未登陆
<%end if%>
(另,如需要用户资料可用<%Dim UserMsg
UserMsg=Split((Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermsg").text),"||")%>)
判断用户是否登陆方法二:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%If Clng(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userid").text)>0 Then,"||")%>
你好,<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@username").text%>
您已登陆
<%end if%>
调用动网连接文件时
打开数据库用:Set rsUser=Dvbbs.Execute(sqlstrs)
如:
sqlstrs="select * from [Dv_User] where UserID=" & Clng(UserID)
Set rsUser=Dvbbs.Execute(sqlstrs)
更新:
Dvbbs.Execute("Update Dv_user set userpassword='"&userpassword&"',qq= '"&qq&"',shouji='"&shouji&"',usersex='"&sex&"',useremail='"&email&"',dizhi='"&dizhi&"',tuiguang='"&tuiguang&"',userbirthday='"&userbirthday&"' Where userid ="&userid)