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

Chia sẻ: Szfasf Fadsfs | Ngày: | Loại File: PDF | Số trang:5

Thêm vào BST

Báo xấu

89
lượt xem 13
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

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"),

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Hướng dẫn thiết kế : Thiết kế Forum nhanh chóng và đơn giản phần 8

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