?? user_cartoon_face.asp
字號:
<%
'===================================================================
'= ASP FILENAME : /user/user_cartoon_face.asp
'= CREATED TIME : SEP,8,2003
'= LAST MODIFIED: SEP,8,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" -->
<!-- #include file = "../main_func.asp" -->
<!-- #include file = "./user_inc.asp" -->
<%
'========================================================
'== Action參數設置
'========================================================
'== 頁面名
Const CONST_PAGE_FILE = "user/user_cartoon_face.asp"
'== 頁面標題/功能
Const CONST_PAGE_TITLE = "用戶卡通選擇"
'== 功能函數名字空間
Const CONST_ACTION_FUNC = "ShowPopCartoonFacelist"
'== 相對根目錄路徑
GBL_strHomeURL = "../"
'== 頁面構造
Call ActionBuild()
'== 請求校驗與過濾
Call ActionFilter(CONST_PAGE_FILE,CONST_ACTION_FUNC)
'== 頁面析構
Call ActionOver()
%>
<%
'===================================================================
'= Function : LoadPageTpl()
'= Time : Created At 2006-5-4
'= Description : 加載頁面模塊
'===================================================================
Function LoadPageTpl()
%>
<!-- #include file = "../template_c/page_pop.html.asp" -->
<%
End Function
Dim strFaceDir
'=============== FUNCTION BODY BEGIN ===============================
'===================================================================
'= Function : ShowPopCartoonFacelist()
'= Time : Created At SEP,8,2003
'= Input : None
'= Called by : /board/cartoon_face.asp
'= Calls :
'= Return :
'= Table :
'= Description : 用做簽名圖的用戶卡通頭像列表
'= Modify :
'= Time Description
'===================================================================
Function ShowPopCartoonFacelist()
Dim intPerNum
intPerNum = 12 '== 每屏顯示數量(偶數)
Dim strFaceType
strFaceType = Trim(Request.QueryString("strFaceType"))
strFaceDir = GBL_strHomeURL & GBL_strCartoonFacePath
If strFaceType = "" Then
strFaceType = "c1"
End If
Select Case strFaceType
Case "c1" : intPerNum = 12
Case "c2" : intPerNum = 5
Case "ht" : intPerNum = 12
Case "xj" : intPerNum = 12
Case "foot" : intPerNum = 10
Case "kd" : intPerNum = 11
Case "ho" : intPerNum = 12
Case "ho" : intPerNum = 12
Case "ct2" : intPerNum = 12
Case "ct3" : intPerNum = 12
Case "ct4" : intPerNum = 12
Case "ct5" : intPerNum = 12
Case "ct6" : intPerNum = 12
Case "ct7" : intPerNum = 12
Case "ct8" : intPerNum = 12
Case "ct9" : intPerNum = 12
Case "ct" : intPerNum = 12
Case "cta" : intPerNum = 12
Case "ctb" : intPerNum = 12
Case "ctc" : intPerNum = 5
Case Else intPerNum = 12
End Select
%>
<table align=center class=l cellpadding="0" cellspacing="5">
<tr>
<td colspan=8><table><tr>
<td><a href="user_cartoon_face.asp?strFaceType=c1">|大頭卡通1|
<a href="user_cartoon_face.asp?strFaceType=c2">|大頭卡通2|</a><a href="user_cartoon_face.asp?strFaceType=ht">FACE| </a><a href="user_cartoon_face.asp?strFaceType=xj">仙劍| </a><a href="user_cartoon_face.asp?strFaceType=foot">球星| </a><a href="user_cartoon_face.asp?strFaceType=kd">最終幻想| </a><a href="user_cartoon_face.asp?strFaceType=ho">小鬼| </a><a href="user_cartoon_face.asp?strFaceType=ct9">卡通9| </a><a href="user_cartoon_face.asp?strFaceType=ct">卡通10| </a><a href="user_cartoon_face.asp?strFaceType=ct8">卡通11| </a></td>
</tr>
<tr>
<td><a href="user_cartoon_face.asp?strFaceType=cta">|卡通1| </a><a href="user_cartoon_face.asp?strFaceType=ct2">卡通2| </a><a href="user_cartoon_face.asp?strFaceType=ct3">卡通3| </a><a href="user_cartoon_face.asp?strFaceType=ct4">卡通4| </a><a href="user_cartoon_face.asp?strFaceType=ct5">卡通5| </a><a href="user_cartoon_face.asp?strFaceType=ct6">卡通6| </a><a href="user_cartoon_face.asp?strFaceType=ct7">卡通7| </a><a href="user_cartoon_face.asp?strFaceType=ctb">卡通8| </a><a href="user_cartoon_face.asp?strFaceType=ctc">卡通11| </a></td>
</tr>
</table></td>
</tr>
<%
Dim n
For n = 1 To intPerNum
Response.Write "<tr align=center>" & VbCrLf
Response.Write " <td>" & VbCrLf
Response.Write " " & string(3 -len(cstr(n)),"0") & n
Response.Write " </td>" & VbCrLf
Response.Write " <td>" & VbCrLf
Response.Write " <a href=#1 onClick="&chr(34)&"MM_setTextOfTextfield('userface','','" & strFaceType & string(3 - len(cstr(n)),"0") & n &"')"&chr(34)&"><img src=" & strFaceDir & strFaceType & string(3 - len(cstr(n)),"0")&n&".gif border=0 >"
Response.Write "</td>" & VbCrLf
n = n + 1
If n > intPerNum Then Exit For
Response.Write " <td>" & VbCrLf
Response.Write " " & string(3 -len(cstr(n)),"0") & n
Response.Write " </td>" & VbCrLf
Response.Write " <td>" & VbCrLf
Response.Write " <a href=#1 onClick="&chr(34)&"MM_setTextOfTextfield('userface','','" & strFaceType & string(3 - len(cstr(n)),"0") & n &"')"&chr(34)&"><img src=" & strFaceDir & strFaceType & string(3 - len(cstr(n)),"0")&n&".gif border=0 >"
Response.Write "</td>" & VbCrLf
n = n + 1
If n > intPerNum Then Exit For
Response.Write " <td>" & VbCrLf
Response.Write " " & string(3 -len(cstr(n)),"0") & n
Response.Write " </td>" & VbCrLf
Response.Write " <td>" & VbCrLf
Response.Write " <a href=#1 onClick="&chr(34)&"MM_setTextOfTextfield('userface','','" & strFaceType & string(3 - len(cstr(n)),"0") & n &"')"&chr(34)&"><img src=" & strFaceDir & strFaceType & string(3 - len(cstr(n)),"0")&n&".gif border=0 >"
Response.Write "</td>" & VbCrLf
n = n + 1
If n > intPerNum Then Exit For
Response.Write "<td>" & string( 3 - len(cstr(n)),"0") & n
Response.Write "</td>"
Response.Write "<td>"
Response.Write "<a href=#1 onClick="&chr(34)&"MM_setTextOfTextfield('userface','','" & strFaceType & string(3 - len(cstr(n)),"0") & n &"')"&chr(34)&"><img src=" & strFaceDir & strFaceType & string(3 - len(cstr(n)),"0") & n &".gif border=0 >"
Response.Write "</td>"
Response.Write "</tr>" & VbCrLf
Next
%>
<tr>
<td colspan=8>
<hr size=1>
</td>
</tr>
</table>
</center>
<center>
<a href=#1 onClick='returnvalue();'>
[關閉]
</a>
</center>
<%
End Function
'============ End of Function ShowPopSmileFaceList() ===============
'=============== FUNCTION BODY END =================================
%>
<script>
function closeit()
{
setTimeout("self.close()",90000)
}
function MM_findObj(n, d)
{ //v3.0
var p,i,x;
if(!d) d=document;
if((p=n.indexOf("?"))>0&&parent.frames.length)
{
d=parent.frames[n.substring(p+1)].document;
n=n.substring(0,p);
}
if(!(x=d[n])&&d.all) x=d.all[n];
for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
return x;
}
function MM_setTextOfTextfield(objName,x,newText)
{ //v3.0
var obj = MM_findObj(objName);
if (obj) obj.value = newText;
opener.document.frmFormCartoon.iptCartoonFace.value=newText;
opener.document.imgCartoonFace.src='<%= strFaceDir %>'+newText+'.gif'
window.close();
}
function returnvalue(){
window.returnValue = 1;
window.close();
}
function cancelPost(){
window.close();
}
</script>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -