<%
Dim Page
Dim PageSize
Dim AbsolutePosition
dim cid,fromname
PageSize = 5
set conn = GetSQLServerConnection()
cid = request("cid")
if cid <> "" then
set rs = GetSQLServerRecordset(conn, "select * from ValentineMsgBoard where cid="&cid)
if ( rs.recordcount > 0 ) then
fromname = rs("fromname")
end if
end if
SQL = "Select * from ValentineMsgBoard order by PostDate desc"
set rs = GetSQLServerRecordset(conn, SQL)
rs.PageSize = PageSize
If Request("Page") = "" or CInt(Request("Page")) < 1 then
Page = 1
AbsolutePosition = 1
ElseIf CInt(Request("Page")) > rs.PageCount then
Page = rs.PageCount
AbsolutePosition = ((Page-1) * 5) + 1
Else
Page = Request("Page")
AbsolutePosition = ((Page-1) * 5) + 1
End If
%>
<html>
<head>
<title>YOUTH-ONLINE.COM [Teen天情人節]</title>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<script language="JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
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_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
function OpenBrowser(url)
{
window.open(url,"Valentine","width=420,height=500");
}
function JumpToPage()
{
window.location=document.JumpMenu.Page.value;
}
function CheckInfo()
{
var ToName = document.Valentine.ToName.value;
var FromName = document.Valentine.FromName.value;
var Title = document.Valentine.Title.value;
var Content = document.Valentine.Content.value;
var header_footer = "";
var ErrMsg = "";
if (ToName.length == 0)
{
ErrMsg += " - 邊個係發表宣言者呀??\n";
}
if (FromName.length == 0)
{
ErrMsg += " - 你係諗住寫俾邊個嫁??\n";
}
if (Title.length == 0)
{
ErrMsg += " - 個宣言代號你都未寫呀!!\n";
}
if (Content.length == 0)
{
ErrMsg += " - 你的愛的宣言係咩呀??\n";
}else if (Content.length > 500)
{
ErrMsg += " - 你的愛的宣言好以太長咁喎!!\n [中英文最多係 500 字]\n";
}
if (ErrMsg == "")
{
return true;
}else{
header_footer += " !!--主意--!!\n";
header_footer += "=========================\n";
header_footer += ErrMsg;
header_footer += "=========================\n";
alert (header_footer);
return false;
}
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="../../valentine2004/images/main/bg.gif" link="#006699">
<table width="775" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td>
<!-- Begin Valentine_top -->
<!--#include file="../../valentine2004/include/valentine_top.shtml"-->
<!-- End Valentine_top -->
</td>
</tr>
<tr align="left" valign="top">
<td>
<table width="775" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td width="170">
<!--#include file="../../valentine2004/include/left_menu.shtml"-->
</td>
<td width="605">
<table width="605" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td width="15"><img src="../../valentine2004/images/main/title_2.gif" width="15" height="85"></td>
<td width="590"> <table width="590" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td width="275"><img src="../../valentine2004/images/main/title_3.gif" width="275" height="65"></td>
<td width="315"><img src="../../valentine2004/images/main/title_4.gif" width="315" height="65"></td>
</tr>
<tr align="left" valign="top">
<td colspan="2"><img src="../../valentine2004/images/main/title_5.gif" width="590" height="20"></td>
</tr>
</table></td>
</tr>
<tr align="left" valign="top">
<td width="15"> </td>
<td width="590" align="left"> <table width="583" border="0" cellspacing="0" cellpadding="0" bgcolor="#FAF7E5">
<tr align="center">
<td><img src="../images/message/message_pic.gif" width="583" height="184"></td>
</tr>
<tr align="center">
<td height="40" valign="top">
<% if cid <> "" then %>
<a href="#" onClick="OpenBrowser('ValentineMsg.asp?cid=<%=cid%>')">打開 <<%=fromname%>> 給你的愛的宣言</a>
<% end if %>
</td>
</tr>
<tr align="center">
<td> <table width="450" border="0" cellspacing="0" cellpadding="0" height="352">
<tr align="CENTER">
<td> <table width="445" border="0" cellspacing="0" cellpadding="0">
<form action="../../valentine2004/MsgBoard/message.asp" method="POST" name="JumpMenu">
<tr>
<td colspan="3"><font size="2" face="新細明體" color="#FF0033">現在正睇緊第
<%=page%> 頁 </font></td>
<td colspan="2" align="LEFT"><font face="新細明體" size="2">〔<a href="../../valentine2004/MsgBoard/message.asp?page=<%=page-1%>">上一頁</a>〕||〔<a href="../../valentine2004/MsgBoard/message.asp?page=<%=page+1%>">下一頁</a>〕</font> </font>
</td>
</tr>
</form>
<%
'// --- SHOW THE VISITOR's MESSAGE WHICH ORDER BY POST DATE
If Not rs.EOF then
rs.AbsolutePosition = AbsolutePosition
For i = 1 to PageSize
If Not rs.EOF then
%>
<tr>
<td colspan="5"> </td>
</tr>
<tr>
<td rowspan="2" width="32"><font face="新細明體" size="2"><img src="../../valentine2004/images/message/heart.gif" width="32" height="26"></font></td>
<td width="67"> <div align="RIGHT"><font face="新細明體" size="2" color="#FF33CC">宣言代號：</font></div></td>
<td colspan="3"><font face="新細明體" size="2" color="#FF33CC"><a href="#" onClick="OpenBrowser('ValentineMsg.asp?cid=<%=rs("cid")%>')"><%=rs("Title")%></a></font></td>
</tr>
<tr>
<td width="67"> <div align="RIGHT"><font face="新細明體" size="2" color="#CC66FF">幾時發表：</font></div></td>
<td width="120"><font face="新細明體" size="2" color="#CC66FF"><a href="#" onClick="OpenBrowser('ValentineMsg.asp?cid=<%=rs("cid")%>')"><%=rs("PostDate")%></a></font></td>
<td width="106"> <div align="RIGHT"><font face="新細明體" size="2" color="#CC66FF">發表者：</font></div></td>
<td width="120"><font face="新細明體" size="2" color="#CC66FF"><a href="#" onClick="OpenBrowser('ValentineMsg.asp?cid=<%=rs("cid")%>')"><%=rs("FromName")%></a></font></td>
</tr>
<tr>
<td colspan="5" HEIGHT="10"><font face="新細明體" size="2"> </font></td>
</tr>
<%
rs.MoveNext
End If
Next
End If
%>
<tr>
<td colspan="5" height="15"><font face="新細明體" size="2"> </font></td>
</tr>
<tr>
<td colspan="5" align="LEFT" bgcolor="#FFCC66">
<font face="新細明體" size="2">跳至第： <BR>
<% For i = 1 to rs.PageCount
Response.Write "<A HREF=message.asp?page=" & i & ">" & FormatNumber(i) & "</A> "
If (i mod 18) = 0 Then
Response.Write "<BR>"
End If
Next
rs.Close
set rs = Nothing
%>
</font></td>
</tr>
<tr>
<td colspan="3" align="RIGHT"> </td>
<td colspan="2" align="RIGHT"> </td>
</tr>
</table></td>
</tr>
<tr align="CENTER">
<td> <form action="../../valentine2004/MsgBoard/preview.asp" method="POST" name="Valentine" onSubmit="return CheckInfo();">
<table width="445" border="0" cellspacing="0" cellpadding="0">
<tr valign="BOTTOM" align="center">
<td colspan="2" bgcolor="#FFCC99"> <font face="新細明體" size="2">
<input type="radio" name="Member" value="1" CHECKED>
<font color="#009900">會員</font> <font color="#FF0000">〔如是會員，請用登入名稱〕</font>
<input type="radio" name="Member" value="0">
<font color="#009900">非 會員</font></font></td>
</tr>
<tr valign="BOTTOM">
<td width="150" align="RIGHT" bgcolor="#FFCC99"><font face="新細明體" size="2" color="#009900">
發表宣言者：</font></td>
<td width="295" bgcolor="#FFCC99"> <font face="新細明體" size="2">
<input type="text" name="FromName" maxlength="20" size="40">
</font></td>
</tr>
<tr valign="BOTTOM">
<td width="150" align="RIGHT" bgcolor="#FFCC99"><font face="新細明體" size="2" color="#009900">向誰發表：</font></td>
<td width="295" bgcolor="#FFCC99"> <font face="新細明體" size="2">
<input type="text" name="ToName" maxlength="20" size="40">
</font></td>
</tr>
<tr valign="BOTTOM">
<td align="RIGHT" bgcolor="#FFCC99" WIDTH="112"><font face="新細明體" size="2" color="#009900">宣言代號：</font></td>
<td bgcolor="#FFCC99" WIDTH="366"> <font face="新細明體" size="2">
<input type="text" name="Title" maxlength="50" size="40">
</font></td>
</tr>
<tr valign="BOTTOM" align="CENTER">
<td colspan="2" bgcolor="#FFCC99"><font face="新細明體" size="2"> </font></td>
</tr>
<tr valign="BOTTOM" align="CENTER" bgcolor="#FFCC99">
<td colspan="2"><font face="新細明體" size="2" color="#339900">愛的宣言</font></td>
</tr>
<tr valign="BOTTOM" align="CENTER">
<td colspan="2" bgcolor="#FFCC99"> <font face="新細明體" size="2">
<textarea name="Content" wrap="VIRTUAL" rows="5" cols="50"></textarea>
</font></td>
</tr>
<tr valign="BOTTOM" align="CENTER">
<td colspan="2" bgcolor="#FFCC99"><font face="新細明體" size="2"> </font></td>
</tr>
<tr valign="BOTTOM" align="CENTER">
<td colspan="2"> </td>
</tr>
<tr valign="BOTTOM" align="CENTER">
<td colspan="2" bgcolor="#FFCCCC"><font face="新細明體" size="2" color="#FF0033">請選擇其中一款宣言牌</font></td>
</tr>
<tr valign="BOTTOM">
<td colspan="2"> <div align="CENTER">
<table width="440" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td><img src="../../valentine2004/images/message/broad1.gif" width="151" height="110"></td>
<td><img src="../../valentine2004/images/message/broad2.gif" width="151" height="110"></td>
<td><img src="../../valentine2004/images/message/broad3.gif" width="151" height="110"></td>
</tr>
<tr align="center">
<td bgcolor="#FAF7E5"> <input type="radio" name="Bground" value="1" CHECKED>
</td>
<td bgcolor="#FAF7E5"> <input type="radio" name="Bground" value="2">
</td>
<td bgcolor="#FAF7E5"> <input type="radio" name="Bground" value="3">
</td>
</tr>
<tr> </tr>
<tr bgcolor="#FAF7E5">
<td colspan="3"> </td>
</tr>
<tr bgcolor="#FAF7E5" align="center">
<td colspan="3"> <table width="445" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#FAF7E5" align="center">
<td><img src="../../valentine2004/images/message/broad4.gif" width="151" height="110"></td>
<td><img src="../../valentine2004/images/message/broad5.gif" width="151" height="110"></td>
</tr>
<tr bgcolor="#FAF7E5" align="center">
<td> <input type="radio" name="Bground" value="4">
</td>
<td> <input type="radio" name="Bground" value="5">
</td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#FAF7E5" colspan="3">
</td>
</tr>
</table>
<hr>
<font face="新細明體" size="2"> </font></div></td>
</tr>
<tr align="center">
<td colspan="2"> <INPUT TYPE="image" BORDER="0" NAME="task1" SRC="../../valentine2004/images/message/preview_a.gif" WIDTH="116" HEIGHT="28" OnClick="javascript:document.Valentine.process2.disabled=true;" OnMouseOver="javascript:this.src='../images/message/preview_b.gif'" OnMouseOut="javascript:this.src='../images/message/preview_a.gif'">
<INPUT TYPE="hidden" NAME="process1" VALUE="發表宣言">
<INPUT TYPE="image" BORDER="0" NAME="task2" SRC="../../valentine2004/images/message/ok_a.gif" WIDTH="116" HEIGHT="28" OnClick="javascript:document.Valentine.process1.disabled=true;" OnMouseOver="javascript:this.src='../images/message/ok_b.gif'" OnMouseOut="javascript:this.src='../images/message/ok_a.gif'">
<INPUT TYPE="hidden" NAME="process2" VALUE="發表宣言">
</td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr align="left" valign="top">
<td width="15"> </td>
<td width="590" align="left"> </td>
</tr>
</table>
<table width="605" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="605" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" width="308" valign="top"><img src="../../valentine2004/images/tran.gif" width="10" height="10"></td>
<td width="137" align="left" valign="top"><a href="../form/emailto.asp?url=http://www.youth-onlne.com/valentine2004/wallpaper.html" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('send1','','../../valentine2004/images/send_b.gif',1)"><img name="send1" border="0" src="../../valentine2004/images/send_a.gif" width="137" height="21"></a></td>
<td width="40" align="left" valign="top"><img src="../../valentine2004/images/tran.gif" width="10" height="10"></td>
<td width="69" align="left" valign="top"><a href="#top" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('back1','','../../valentine2004/images/back_b.gif',1)"><img name="back1" border="0" src="../../valentine2004/images/back_a.gif" width="70" height="21"></a></td>
<td width="51" align="left" valign="top"><img src="../../valentine2004/images/tran.gif" width="10" height="10"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!-- Begin Valentine_bottom -->
<!--#include file="../../valentine2004/include/valentine_bottom.shtml"-->
<!-- EndValentine_bottom -->
</body>
</html>
<!-- #include file="../../AspLib.asp" -->
<% Function Formatnumber(num)
If clng(num) < 10 Then
FormatNumber = "00" & num
Elseif clng(num) < 100 then
FormatNumber = "0" & num
else
FormatNumber = num
End If
End Function
%>