<!--#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()
%>