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

Mở file ha_language_file_inc.asp a.1.. Mở file default.asp a.1... Mở file ha_language_file_inc.asp a.1... Mở file default.asp a.1.. Tìm dòng code 'Clean up Call closeDatabase a.2.. Thay

Trang 1

Bài 3: Chào mừng

1 Mở file ha_language_file_inc.asp

a.1 Tìm dòng code

Const strTxtFemale = "Nữ"

a.2 Thêm xuống dưới

Const strTxtWelcomeHA = "Chào mừng bạn

đến với Cộng đồng ASP Việt Nam"

Const strTxtWelcomeDetail1 = "Nếu là lần

đầu tiên bạn duyệt Diễn đàn này, hãy click chuột vào"

Const strTxtWelcomeDetail2 = "để xem hướng dẫn Bạn nên"

Const strTxtWelcomeDetail3 = "trước khi gửi bài Để xem các bài viết, hãy chọn các Diễn đàn mà bạn muốn ở bên dưới "

2 Mở file default.asp

a.1 Tìm dòng code

vbCrLf & " </td>")

End If

%>

</table>

Trang 2

</tr>

<tr>

<td colspan="5" class="tableRow"><% = strTxtWelcomeDetail1 %> <a href="help.asp"><% = strTxtHelp

%></a> <% = strTxtWelcomeDetail2 %> <a href="registration_rules.asp?FID=0"><% = strTxtRegister %></a>

<% = strTxtWelcomeDetail3 %></td>

</tr>

</table><br />

Bài 4: Thành viên tích cực – thành viên mới – chủ đề mới – bài viết mới

1 Mở file ha_language_file_inc.asp

a.1 Tìm dòng code

Const strTxtWelcomeDetail3 = "trước khi gửi bài Để xem các bài viết, hãy chọn các Diễn đàn mà bạn muốn ở bên dưới "

Const strTxtBestMember = "Thành viên tích cực"

Const strTxtNewMember = "Thành viên mới" Const strTxtLastNewTopic = "Chủ đề mới"

Const strTxtLastNewPost = "Bài viết mới" Const strTxtNoMember = "Không có Thành viên nào cả"

Const strTxtNoTopic = "Không có Chủ

đề nào cả"

Const strTxtNoPost = "Không có Bài viết nào cả"

Trang 3

2 Mở file default.asp

a.1 Tìm dòng code

'Clean up

Call closeDatabase()

a.2 Thay thế bằng

'Clean up

'Call closeDatabase()

b.1 Tìm dòng code

%>

</table>

<br />

b.2 Thêm lên trên

'Clean up

Set rsCommon = Nothing

Call closeDatabase()

c.1 Tìm dòng code

<td colspan="5" class="tableRow"><% = strTxtWelcomeDetail1

%> <a href="help.asp"><% = strTxtHelp %></a> <% =

href="registration_rules.asp?FID=0"><% = strTxtRegister %></a>

<% = strTxtWelcomeDetail3 %></td>

</tr>

</table><br />

c.2 Thêm xuống dưới

<%Dim intLoop%>

<table cellspacing="1" cellpadding="3" class="tableBorder"

align="center">

Trang 4

<td width="25%" align="center"> + <% = strTxtLastNewTopic

%> + </td>

<td width="25%" align="center"> + <% = strTxtLastNewPost

%> + </td>

</tr>

<%

strSQL = "SELECT TOP 10 " & strDbTable &

"Author.Username, " & strDbTable & "Author.Author_ID , " & strDbTable & "Author.No_of_posts " & _

"FROM " & strDbTable & "Author" & strDBNoLock & " "

& _

"WHERE " & strDbTable & "Author.No_of_posts > 0 " & _

"ORDER BY " & strDbTable & "Author.No_of_posts

DESC;"

'Query the database

rsCommon.Open strSQL, adoCon, 3, 3

if rsCommon.RecordCount > 0 then

For intLoop = 1 To rsCommon.RecordCount

if rsCommon.EOF then exit For

if Len(intLoop) < 2 then intLoop = 0 & intLoop Response.Write intLoop & " <A

HREF=""member_profile.asp?PF=" & rsCommon("Author_ID")

& " & rsCommon("Username") & "</A> [" & strTxtPosts & ": " & rsCommon("No_of_posts") & "]<BR>"

rsCommon.MoveNext Next

else

Trang 5

Response.Write(vbCrLf & "<img src=" &

strImagePath & "moved_icon.gif border=0> " & strTxtNoMember)

end if

'Clean up

rsCommon.close

%>

</td>

<%

"Author.Username, " & strDbTable & "Author.Author_ID , " & strDbTable & "Author.No_of_posts " & _

"FROM " & strDbTable & "Author" & strDBNoLock & " "

& _

"WHERE " & strDbTable & "Author.Author_ID > 2 " & _

"ORDER BY " & strDbTable & "Author.Author_ID DESC;"

'Query the database

HREF=""member_profile.asp?PF=" & rsCommon("Author_ID")

& """>" & rsCommon("Username") & "</A> [" & strTxtPosts & ":

" & rsCommon("No_of_posts") & "]<BR>"

else

strImagePath & "moved_icon.gif border=0> " & strTxtNoMember)

Trang 6

end if

'Clean up

rsCommon.close

%>

</td>

<%

"Topic.Topic_ID, " & strDbTable & "Topic.Subject , " &

strDbTable & "Topic.No_of_replies " & _

"FROM " & strDbTable & "Topic" & strDBNoLock & " " & _

"ORDER BY " & strDbTable & "Topic.Topic_ID DESC;"

'Query the database

HREF=""forum_posts.asp?TID=" & rsCommon("Topic_ID") &

""">" & Left(rsCommon("Subject"), 20) & "</A> [" &

strTxtReplies & ": " & rsCommon("No_of_replies") & "]<BR>"

else

strImagePath & "moved_icon.gif border=0> " & strTxtNoTopic)

end if

'Clean up

Trang 7

rsCommon.close

%>

</td>

<%

"Topic.Topic_ID, " & strDbTable & "Topic.Subject , " &

strDbTable & "Topic.No_of_replies, " & strDbTable &

"Topic.Last_Thread_ID, " & strDbTable & "Thread.Message, " & strDbTable & "Thread.Message_date, " & strDbTable &

"Thread.Thread_ID " & _

"FROM " & strDbTable & "Topic" & strDBNoLock & "," & strDbTable & "Thread" & strDBNoLock & " " & _

"WHERE " & strDbTable & "Topic.Last_Thread_ID = " & strDbTable & "Thread.Thread_ID " & _

"ORDER BY " & strDbTable & "Topic.Last_Thread_ID DESC;"

'Query the database

if Len(intLoop) < 2 then intLoop = 0 & intLoop Response.Write intLoop & " <A TITLE=""" & removeHTML(rsCommon("Message"), 150, true) & """

HREF=""forum_posts.asp?TID=" & rsCommon("Topic_ID") &

"&get=last#" & rsCommon("Thread_ID") & """>" &

Left(rsCommon("Subject"), 20) & "</A> [" & strTxtReplies & ": "

& rsCommon("No_of_replies") & "]<BR>"

else

strImagePath & "moved_icon.gif border=0> " & strTxtNoTopic)

Trang 8

end if

'Clean up rsCommon.close

%>

</td>

</tr>

</table><br />

Định dạng
Số trang	8
Dung lượng	87,56 KB