www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > board/board_smile_face.asp

    <%
'===================================================================
'= ASP FILENAME	: /board/board_smile_face.asp
'= CREATED TIME : MAY,4,2003
'= LAST MODIFIED: SEP,1,2003
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 留言心情选择
'= Change Log:
'===================================================================
%>
<!-- #include file = "../inc/customer/include_customer_action_view.asp" -->
<%
'========================================================
'==   Action参数设置
'========================================================
'== 页面名
Const CONST_PAGE_FILE	= "board/board_smile_face.asp"

'== 页面标题/功能
Const CONST_PAGE_TITLE	= "留言心情选择"

'== 功能函数名字空间
Const CONST_ACTION_FUNC	= "ShowPopSmileFacelistCtl"

'== 相对根目录路径 
GBL_strHomeURL			= "../"

'== 页面构造
Call ActionBuild()

'== 在模板中引用的标签变量
Dim TAG_objDicUnit		'== 单列记录


'== 请求校验与过滤
Call ActionFilter(CONST_PAGE_FILE,CONST_ACTION_FUNC)

'== 页面析构
Call ActionOver()
%>

<%
Const FACE_PATH = "./smileface/"
%>
<script>
	function closeit()
	{
		setTimeout("self.close()",90000)
	}
	function MM_setTextOfTextfield(objName,x,newText)
	{ 
		var obj = MM_findObj(objName);
		if (obj) obj.value = newText;
		opener.document.vbform.iptSmileFace.value = newText;
		opener.document.imgSmileFace.src='<%= FACE_PATH %>'+newText+'.gif'
		window.close();
	}

	function returnvalue(){
		window.returnValue = 1;
		window.close();
	}
	function cancelPost(){
		window.close();
	}
</script>
<%
''===================================================================
'= Function    : LoadPageTpl()
'= Time		   : Created At 2006-5-4
'= Description : 加载页面模块
'==================================================================='
Function LoadPageTpl()
%>
	<!-- #include file = "../template_c/page_pop_board_face.html.asp" --> 
<%
End Function
'===================================================================
'= Function    : ShowPopSmileFacelistCtl() 
'= Time	       : Created At 2006-5-14
'= Input       : None
'= Description : 所选取心情图标列表
'===================================================================
Function ShowPopSmileFacelistCtl()

	Dim intPerNum
	Dim strFaceType
	Dim strHtmlCode
	intPerNum = 18		'== 每屏显示数量(偶数,初始)
	strFaceType = Trim(Request.QueryString("strFaceType"))
	strHtmlCode = ""
	If strFaceType = "" Then
		strFaceType = "smile1"
	End If
	Select Case strFaceType
		Case	"smile1"		: intPerNum = 18
		Case	"baozi"		: intPerNum = 10
		Case	"smile2"	: intPerNum = 18
		Case	"blue"		: intPerNum = 18
		Case	"act1"		: intPerNum = 18
		Case	Else		: intPerNum = 18
	End Select
%>
	<center><br>心情头像参考<table align=center class=l cellpadding="0" cellspacing="5">
	<tr>
		<td colspan=4 >
		</td>
	</tr>
	<tr>
		<td><a href="board_smile_face.asp?strFaceType=smile1">笑脸1|</a></td>
		<td><a href="board_smile_face.asp?strFaceType=smile2">笑脸2|</a></td>
		<td><a href="board_smile_face.asp?strFaceType=baozi">包子|</a></td>
		<td><a href="board_smile_face.asp?strFaceType=blue">蓝色|</a></td>
	</tr>
	<tr>
		<td><a href="board_smile_face.asp?strFaceType=act1">动作1|</a></td>
		<td><a href="board_smile_face.asp?strFaceType=act2">动作2|</a></td>
		<td><a href="board_smile_face.asp?strFaceType=blue">蓝色|</a></td>
		<td><a href="board_smile_face.asp?strFaceType=blue">蓝色|</a></td>
	</tr>
	<%
	Dim n
	For n = 1 To intPerNum

		strHtmlCode = strHtmlCode & "<tr align=center>" & VbCrLf
		strHtmlCode = strHtmlCode & "	<td>" & VbCrLf
		strHtmlCode = strHtmlCode & "		" & string(3 -len(cstr(n)),"0") & n
		strHtmlCode = strHtmlCode & "	</td>" & VbCrLf
		strHtmlCode = strHtmlCode & "	<td>" & VbCrLf
		strHtmlCode = strHtmlCode & "		<a href=#1 onClick="&chr(34)&"MM_setTextOfTextfield('userface','','" & strFaceType & string(3 - len(cstr(n)),"0") & n &"')"&chr(34)&"><img src=" & FACE_PATH & strFaceType & string(3 - len(cstr(n)),"0")&n&".gif border=0 >"
		strHtmlCode = strHtmlCode &		"</td>" & VbCrLf
		n = n + 1
		strHtmlCode = strHtmlCode &		"<td>" & string( 3 - len(cstr(n)),"0") & n
		strHtmlCode = strHtmlCode &		"</td>"
		strHtmlCode = strHtmlCode &		"<td>"
		strHtmlCode = strHtmlCode &		"<a href=#1 			onClick="&chr(34)&"MM_setTextOfTextfield('userface','','" & strFaceType & string(3 - len(cstr(n)),"0") & n &"')"&chr(34)&"><img src=" & FACE_PATH & strFaceType & string(3 - len(cstr(n)),"0") & n &".gif border=0 >"
		strHtmlCode = strHtmlCode &		"</td>"
		strHtmlCode = strHtmlCode &	"</tr>" & VbCrLf

	Next

	Response.Write strHtmlCode
	%>
	<tr>
		<td colspan=4>
			<hr size=1>
		</td>
	</tr>
	</table>
	</center>
	<center>
		<a href=#1 onClick='returnvalue();'>
		[关闭]
		</a>
	</center>
<%

End Function
%>