userinfo.asp

程序网络论坛HigroupBBS v4.00 默认管理员帐号密码都是Marcos

<!--#include file="MarcosCB.asp"-->
<%
	rem =========================== 页面显示代码 ====================================
	getConn()
	dim userId,userName
	userId=getPost("userId")
	userName=replace(getPost("userName"),"'","''")

	str=getMainCode(mySkinId)
	
	pageTitle="<a href=javascript:location.reload();>查看其他用户的资料</a>"
	pageOther="<script>document.title+=' - 查看其他用户的资料';</script>"
	
	showHead str,pageTitle,pageOther
	showBody()
	showFoot(str)
	
	sub showBody()
		pageCode=getPageCode(mySkinId,"PageUserInfo")
		PageProFile=split(pageCode,"$$$")
		body=PageProFile(0)
		if isNumeric(userId) then
			sql="select * from Marcos_User where userId="&userId
		 else
			sql="select * from Marcos_User where userName like '"&userName&"'"
		end if

		rs.open sql,conn,1,1
		if rs.eof then
			echo "<script>alert('对不起,此用户并不存在!');window.close();</script>"
			closeConn()
			response.end
		end if
		
		nowWhere "查看其他用户资料","userInfo.asp?userName="&rs("userName")
		
		body=replace(body,"{$userName}",rs("userName"))
		body=replace(body,"{$userId}",rs("userId"))
		if rs("userSex") then
			userSex="男"
		 else
			userSex="女"
		end if
		body=replace(body,"{$userSex}",userSex)
		body=replace(body,"{$userBirthday}",rs("userBirthday"))
		body=replace(body,"{$userGroup}",enCode(rs("userGroup")))
		userPic=fixNull(rs("userPic"))
		body=replace(body,"{$userPic}",getUserPic(userPic))
		userOther=split(fixNull(enCode(rs("userOther"))),"$$$")
		for i=0 to uBound(userOther)-1
			body=body&PageProFile(1)
			body=replace(body,"{$otherName}",split(userOther(i),"@@")(0))
			body=replace(body,"{$otherValue}",split(userOther(i),"@@")(1))
		next
		body=body&PageProFile(2)
		body=replace(body,"{$userSign}",enCodeStr(fixNull(rs("userSign"))))
		
		echo body
		rs.close
		queryTimes=queryTimes+1
	end sub
	
	closeConn()
%>