Hướng dẫn thiết kế : Thiết kế Forum nhanh chóng và đơn giản phần 4 pptx

Bài 7: Thay skin


1. Hình vẽ

2. Copy images đè lên các file trong thư mục forum_images
3. Copy default_style vào thư mục css_styles


Bài 8: Music


1. Mở file functions_format_post.asp
a.1. Tìm dòng code
'Return the function
searchHighlighter = strTempMessage
End Function
a.2. Thêm xuống dưới
Function formatWMAPL(ByVal strMessage)


'Declare variables
Dim lngStartPos 'Holds search start postions
Dim lngEndPos 'Holds end start postions
Dim saryWMAAttributes 'Holds the features of the input
WMA file
Dim intAttrbuteLoop 'Holds the attribute loop counter
Dim strWMAWidth 'Holds the string value of the width
of the WMA file
Dim intWMAWidth 'Holds the interger value of the
width of the WMA file

Dim strWMAHeight 'Holds the string value of the
height of the WMA file
Dim intWMAHeight 'Holds the interger value of the
height of the WMA file
Dim strBuildWMALink 'Holds the converted BBcode for
the WMA file
Dim strTempWMAMsg 'Tempoary store for the BBcode
Dim strWMALink 'Holds the link to the WMA file



'Loop through all the codes in the message and convert them
to formated WMA links
Do While InStr(1, strMessage, "[MUSIC", 1) > 0 AND
InStr(1, strMessage, "[/MUSIC]", 1) > 0

'Initiliase variables
intWMAWidth = 300
intWMAHeight = 300
strWMALink = ""
strBuildWMALink = ""
strTempWMAMsg = ""

'Get the WMA BBcode from the message
lngStartPos = InStr(1, strMessage, "[MUSIC", 1)
lngEndPos = InStr(lngStartPos, strMessage,
"[/MUSIC]", 1) + 8

'Make sure the end position is not in error
If lngEndPos < lngStartPos Then lngEndPos =

lngStartPos + 6

'Get the original WMA BBcode from the message
strTempWMAMsg = Trim(Mid(strMessage,
lngStartPos, lngEndPos-lngStartPos))




'Get the start and end in the message of the attributes
of the WMA file
lngStartPos = InStr(1, strTempWMAMsg, "[MUSIC",
1) + 6
lngEndPos = InStr(lngStartPos, strTempWMAMsg,
"]", 1)

'Make sure the end position is not in error
If lngEndPos < lngStartPos Then lngEndPos =
lngStartPos

'If there is something returned get the details (eg.
dimensions) of the WMA file
If strTempWMAMsg <> "" Then

'Place any attributes for the WMA file in an
array
saryWMAAttributes =
Split(Trim(Mid(strTempWMAMsg, lngStartPos, lngEndPos-
lngStartPos)), " ")

'Get the dimensions of the WMA file
'Loop through the array of atrributes that are for
the falsh file to get the dimentions
For intAttrbuteLoop = 0 To
UBound(saryWMAAttributes)

'If this is the width attribute then read in
the width dimention
If InStr(1,
saryWMAAttributes(intAttrbuteLoop), "WIDTH=", 1) Then

'Get the width dimention
strWMAWidth =
Replace(saryWMAAttributes(intAttrbuteLoop), "WIDTH=", "", 1,
-1, 1)

'Make sure we are left with a
numeric number if so convert to an interger and place in an interger
variable
If isNumeric(strWMAWidth) Then
intWMAWidth = CInt(strWMAWidth)
End If

'If this is the height attribute then read in
the height dimention
If InStr(1,
saryWMAAttributes(intAttrbuteLoop), "HEIGHT=", 1) Then

'Get the height dimention
strWMAHeight =

Replace(saryWMAAttributes(intAttrbuteLoop), "HEIGHT=", "",
1, -1, 1)

'Make sure we are left with a
numeric number if so convert to an interger and place in an interger
variable
If isNumeric(strWMAHeight)
Then intWMAHeight = CInt(strWMAHeight)
End If
Next



'Get the link to the WMA file
lngStartPos = InStr(1, strTempWMAMsg, "]",
1) + 1
lngEndPos = InStr(lngStartPos,
strTempWMAMsg, "[/MUSIC]", 1)

'Make sure the end position is not in error
If lngEndPos < lngStartPos Then lngEndPos =
lngStartPos + 8

'Read in the code to be converted into a
hyperlink from the message
strWMALink = Trim(Mid(strTempWMAMsg,
lngStartPos, (lngEndPos - lngStartPos)))


'Build the HTML for the displying of the WMA

file
If strWMALink <> "" Then

'===========================================
===========================
strBuildWMALink="<object
id=""mediaPlayer"" height="& intWMAHeight &" width="&
intWMAWidth &" classid=""clsid:6BF52A52-394A-11d3-B153-
00C04F79FAA6"" name=""mediaPlayer"" valign=""top""
bgcolor=#000000>" & _
"<param NAME=""URL""
VALUE="""& strWMALink &""">"& _
"<PARAM NAME=""ShowStatusBar""
VALUE=""-1"">"& _
"<param NAME=""rate""
VALUE=""1"">"& _
"<param NAME=""balance""
VALUE=""0"">"& _
"<param NAME=""currentPosition""
VALUE=""0"">"& _
"<param NAME=""defaultFrame""
VALUE>"& _
"<param NAME=""playCount""
VALUE=""100"">"& _
"<param NAME=""autoStart""
VALUE=""0"">"& _
"<param NAME=""currentMarker""
VALUE=""0"">"& _
"<param NAME=""invokeURLs""
VALUE=""-1"">"& _

"<param NAME=""baseURL""
VALUE>"& _
"<param name=""BufferingTime""
value=""5"">"& _
"<param NAME=""volume""
VALUE=""100"">"& _
"<param NAME=""mute""
VALUE=""0"">"& _
"<param NAME=""uiMode""
VALUE=""full"">"& _
"<param NAME=""stretchToFit""
VALUE=""0"">"& _
"<param NAME=""windowlessVideo""
VALUE=""0"">"& _
"<param NAME=""enabled""
VALUE=""-1"">"& _
"<param
NAME=""enableContextMenu"" VALUE=""0"">"& _
"<param NAME=""fullScreen""
VALUE=""0"">"& _
"<param NAME=""SAMIStyle""
VALUE>"& _
"<param NAME=""SAMILang""
VALUE>"& _
"<param NAME=""SAMIFilename""
VALUE>"& _
"<param NAME=""captioningID""
VALUE>"& _
"<param NAME=""enableErrorDialogs""
VALUE=""0"">"& _

"<param NAME=""_cx""
VALUE=""7541"">"& _
"<param NAME=""_cy""
VALUE=""1058"">"& _
"</object>"

End If
End If


'Replace the WMA codes in the message with the new
formated WMA link
If strBuildWMALink <> "" Then
strMessage = Replace(strMessage,
strTempWMAMsg, strBuildWMALink, 1, -1, 1)
Else
strMessage = Replace(strMessage,
strTempWMAMsg, Replace(strTempWMAMsg, "[", "&#91;", 1, -
1, 1), 1, -1, 1)
End If
Loop

'Return the function
formatWMAPL= strMessage
End Function
2. Mở file forum_posts.asp
a.1. Tìm dòng code
If blnFlashFiles Then
If InStr(1, strMessage, "[FLASH", 1) > 0 AND
InStr(1, strMessage, "[/FLASH]", 1) > 0 Then strMessage =

formatFlash(strMessage)
If InStr(1, strAuthorSignature, "[FLASH", 1) >
0 AND InStr(1, strAuthorSignature, "[/FLASH]", 1) > 0 Then
strAuthorSignature = formatFlash(strAuthorSignature)
End If
a.2. Thêm xuống dưới
If InStr(1, strMessage, "[MUSIC", 1) > 0 AND InStr(1,
strMessage, "[/MUSIC]", 1) > 0 Then
strMessage = formatWMAPL(strMessage)
End If
3. Mở file forum_codes.asp
a.1. Tìm dòng code
If blnFlashFiles Then
%>
<tr class="tableLedger">
<td width="62%"><% = strTxtTypedForumCode %></td>
<td width="62%"><% = strTxtConvetedCode %></td>
<tr />
<tr class="tableSubLedger">
<td colspan="2"><% = strTxtFlashFilesImages %></td>
</tr>
<tr class="tableRow">
<td colspan="2">[FLASH WIDTH=50
HEIGHT=50]
</tr><%
End If
a.2. Thay thế bằng
If blnFlashFiles Then
%>
<tr class="tableLedger">

<td width="62%"><% = strTxtTypedForumCode %></td>
<td width="62%"><% = strTxtConvetedCode %></td>
<tr />
<tr class="tableSubLedger">
<td colspan="2"><% = strTxtFlashFilesImages %></td>
</tr>
<tr class="tableRow">
<td colspan="2">[FLASH WIDTH=150
HEIGHT=150]
</tr>
<tr class="tableLedger">
<td width="62%"><% = strTxtTypedForumCode %></td>
<td width="62%"><% = strTxtConvetedCode %></td>
<tr />
<tr class="tableSubLedger">
<td colspan="2"><% = strTxtMediaFiles %></td>
</tr>
<tr class="tableRow">
<td colspan="2">[MUSIC WIDTH=300
HEIGHT=300]
</tr><%
End If
4. Mở file ha_language_file_inc.asp
a.1. Tìm dòng code
Const strTxtAdv = "D&#224;nh cho Qu&#7843;ng c&#225;o"
a.2. Thêm xuống dưới
Const strTxtMediaFiles = "Music"