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

Bài 7: Thay skin1. 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
Nội dung trích xuất từ tài liệu:
Hướng dẫn thiết kế : Thiết kế Forum nhanh chóng và đơn giản phần 4Bà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_stylesBài 8: Music 1. Mở file functions_format_post.asp a.1. Tìm dòng code Return the function searchHighlighter = strTempMessage End Functiona.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(strMe ssage,lngStartPos, lngEndPos-lngStartPos)) Get the start and end in the message of the attributesof the WMA file lngStartPos = InStr(1, strTempWMAMsg, [MUSIC,1) + 6 lngEndPos = InStr(lngStartPos, strTempWMAMsg,], 1) Make sure the end p osition 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 anarray saryWMAAttributes =Split(Trim(Mid(strTempWMAMsg, lngStartPos, lngEndPos-lngStartPos)), ) Get the dimensions of the WMA file Loop through the array of atrributes that are forthe falsh file to get the dimentions For intAttrbuteLoop = 0 ToUBound(saryWMAAttributes) If this is the width attribute then read inthe 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 anumeric number if so convert to an interger and place in an intergervariable If isNumeric(strWMAWidth) ThenintWMAWidth = CInt(strWMAWidth) End If If this is the height attribute then read inthe 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 anumeric number if so convert to an interger and place in an intergervariable 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 ahyperlink from the message strWMALink = Trim(Mid(strTempWMAMsg,lngStartPos, (lngEndPos - lngStartPos))) Build the HTML for the displying of the WMAfile ...