presee.asp

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

<!--#include file="MarcosCB.asp"-->
<%
	dim i,topicId,boardId
	dim str,url,page,theAct,editLink,quotaLink,newTopic,boardName,pageCode,pageTitle,pageOther,pageCountList,rights

	getConn()
	isIn()
	str=getMainCode(mySkinId)

	boardId=getPost("boardId")
	boardName=getPost("boardName")
	mood=getPost("mood")
	title=encodeStr(rtrim(getPost("title")))
	content=rtrim(getPost("content"))
	
	if not isNumeric(boardId) then
		echo "对不起,投票无法被预览！"
		closeConn()
		response.End()
	end if

	if boardName="" then
		sql="select boardName from Marcos_Board where topBoardId<>0 and boardId="&boardId
		set rs_sys=conn.execute(sql)
		if rs_sys.eof then
			echo "错误的数据参数(版块已经被删除或者不可进入)！"
			closeConn()
			response.end
		end if
		queryTimes=queryTimes+1
		boardName=rs_sys(0)
	end if
	
	if boardName="用户短信服务" then
		url="sms.asp?userId="&userId
		pageOther="<script>document.title+=' - 预览短信';</script>"
		pageTitle="<a href=""" & url & """>" & boardName & "</a> &raquo; <a href=""javascript:;"" onclick=location.reload();>预览短信</a>"
	 else
		url="topicList.asp?boardId="&boardId&"&boardName="&boardName
		pageOther="<script>document.title+=' - 预览帖子';</script>"
		pageTitle="<a href=""" & url & """>" & boardName & "</a> &raquo; <a href=""javascript:;"" onclick=location.reload();>预览帖子</a>"
	end if

	showHead str,pageTitle,pageOther
	showBody()
	showFoot(str)
	
	sub showBody()
	
		dim rs_sys
		dim str,body,theBody,tTop,tEnd
		
		pageCode=getPageCode(mySkinId,"PageShow")
		PageShow=split(pageCode,"$$$")
		tTop=PageShow(0)
		body=PageShow(1)
		tEnd=PageShow(2)
		
		tTop=replace(tTop,"{$pageList}","")
		tTop=replace(tTop,"{$topicTitle}",title)
		theBody=body
		theBody=replace(theBody,"{$userName}",getValue("userName"))
		theBody=replace(theBody,"{$content}","<img src=""" & mood & """><b>" & title & "</b><br>" & mUbb(content))
		theBody=replace(theBody,"{$addTime}",mid(now(),3))
		sql="select * from Marcos_User where userName='" & getValue("userName") & "'"
		set rs_sys=conn.execute(sql)
		queryTimes=queryTimes+1
		theBody=replace(theBody,"{$userArticle}",rs_sys("userArticle"))
		theBody=replace(theBody,"{$userWealth}",rs_sys("userWealth"))
		theBody=replace(theBody,"{$userLevelTxt}",getUserLevel(rs_sys("userWealth"),rs_sys("userLevel")))
		theBody=replace(theBody,"{$userGroup}",rs_sys("userGroup"))
		theBody=replace(theBody,"{$regTime}",rs_sys("regDate"))
		theBody=replace(theBody,"{$userSign}",rs_sys("userSign"))
		userPic=fixNull(rs_sys("userPic"))
		if userPic=""  then
			userPic="images/001/alpha.gif"
		end if
		theBody=replace(theBody,"{$userPic}",userPic)
		otherLink=""
		editLink="javascript:window.close();"
		quotaLink=editLink
		theBody=replace(theBody,"{$editLink}",editLink)
		theBody=replace(theBody,"{$otherLink}",otherLink)
		theBody=replace(theBody,"{$quotaLink}",quotaLink)
		
		echo tTop
		echo theBody
		tEnd=replace(tEnd,"{$pageList}","")
		echo replace(tEnd,"{$newReply}","<a href=""javascript:window.close();"">关闭窗口</a>")
	end sub
	
	closeConn()
%>