Xem mẫu
- Bài 16: Độ dài chữ ký 1000 ký tự
1. Mở file register.asp
a.1. Tìm dòng code
strSignature = Mid(Request.Form("signature"), 1, 200)
a.2. Thay thế bằng
strSignature = Mid(Request.Form("signature"), 1, 1000)
b.1. Tìm dòng code
'Trim signature down to a 255 max characters to prevent database
errors
strSignature = Mid(strSignature, 1, 255)
b.2. Thay thế bằng
'Trim signature down to a 1200 max characters to prevent database
errors
strSignature = Mid(strSignature, 1, 1200)
c.1. Tìm dòng code
//Check that the signature is not above 200 chracters
if (formArea.signature.value.length > 200){
c.2. Thay thế bằng
//Check that the signature is not above 1000 chracters
if (formArea.signature.value.length > 1000){
d.1. Tìm dòng code
(max 200
characters)
d.2. Thay thế bằng
(max 1000
characters)
2. Mở table wwForum.mdb
a.1. Mở tblAuthor, sửa trường: Signature, kiểu: Text -> Memo
- a.2. Hình vẽ
Bài 17: Sắp xếp lại trang hiển thị phụ mục giống trang default.asp
1. Mở file forum_topics.asp
a.1. Tìm dòng code
a.2. Thay thế bằng
-
b.1. Tìm dòng code
vbCrLf & " " & lngNumberOfTopics &
"" & _
vbCrLf & " " & lngNumberOfPosts &
"" & _
vbCrLf & " ")
If lngNumberOfPosts 0 Then 'Don't disply last post details if
there are none
Response.Write(DateFormat(dtmLastEntryDate) &
" " & strTxtAt & " " &
TimeFormat(dtmLastEntryDate) & "" & _
"" & strTxtBy & " " & strLastEntryUser & "
")
End If
Response.Write("" & _
vbCrLf & " ")
b.2. Thay thế bằng
vbCrLf & " ")
If lngNumberOfPosts 0 Then 'Don't disply last post details if
there are none
Response.Write(DateFormat(dtmLastEntryDate) &
" " & strTxtAt & " " &
TimeFormat(dtmLastEntryDate) & "" & _
- "" & strTxtBy & " " & strLastEntryUser & "
")
End If
Response.Write("" & _
vbCrLf & " " & lngNumberOfTopics &
"" & _
vbCrLf & " " & lngNumberOfPosts &
"")
%>
a.2. Thêm xuống d ưới
-
b.1. Tìm dòng code
b.2. Thêm xuống dưới
2. Copy file top-bottom vào thư mục forum_images/mod
nguon tai.lieu . vn