教你如何實現不支持HTM格式的留言本

KinKALaw

該程序教你如何實現不支持的htm格式的留言本，運行留言，加入留言後會顯示信息

1. <%dim input()
   
2. 
   
3. '讀取guestadd.htm表單中的各項內容
   
4. name = Request.Form("name")
   
5. from = Request.Form("from")
   
6. email = Request.Form("email")
   
7. homename = Request.Form("homename")
   
8. url = Request.Form("url")
   
9. ly = Request.Form("ly")
   
10. ip = Request.ServerVariables("REMOTE_ADDR")
    
11. 
    
12. '取得伺服器上當前日期和時間
    
13. n=Year(date())
    
14. y=Month(date())
    
15. r=Day(date())
    
16. t=formatdatetime(time(),3)
    
17. if len(y)=1 then y="0" & y
    
18. if len(r)=1 then r="0" & r
    
19. sj=n & "-" & y & "-" & r & "　" & t
    
20. 
    
21. '檢查姓名、主頁名稱、地址、留言是否為空。
    
22. if name = "" then
    
23. Response.write "<p align='center'>你不會沒有名字吧</p>"
    
24. Response.write "<p align='center'><a href='javascript:history.go(-1);'>點擊這裡進行修改</a></p>"
    
25. Response.end
    
26. end if
    
27. if homename <> "" and (url = "http://" or url = "") then
    
28. Response.write "<p align='center'>沒地址我無法看你的網站</p>"
    
29. Response.write "<p align='center'><a href='javascript:history.go(-1);'>點擊這裡進行修改</a></p>"
    
30. Response.end
    
31. end if
    
32. if ly = "" then
    
33. Response.write "<p align='center'>寫一句留言也好呀</p>"
    
34. Response.write "<p align='center'><a href='javascript:history.go(-1);'>點擊這裡進行修改</a></p>"
    
35. Response.end
    
36. end if
    
37. 
    
38. '格式化留言使其不支持HTML，使留言薄支持HTML，可刪除此段代碼
    
39. name=server.HTMLEncode(name)
    
40. from=server.HTMLEncode(from)
    
41. email=server.HTMLEncode(email)
    
42. homename=server.HTMLEncode(homename)
    
43. url=server.HTMLEncode(url)
    
44. ly=server.HTMLEncode(ly)
    
45. lytemp = ""
    
46. for i = 1 to len(ly)
    
47. zh = mid(ly,i,1)
    
48. if zh=" " then zh = " "
    
49. if asc(zh)=10 then zh = "
    
50. "
    
51. if asc(zh)=13 then zh = ""
    
52. lytemp = lytemp + zh
    
53. next
    
54. ly = lytemp
    
55. 
    
56. 
    
57. '把檔內容讀到 input() 陣列中
    
58. lyfile = server.mappath("guestbook.htm") '此處的 guestbook.htm 即為留言薄，可按需修改
    
59. Set fs = CreateObject("Scripting.FileSystemObject")
    
60. Set thisfile = fs.OpenTextFile(lyfile,1,False)
    
61. counter = 0
    
62. do while not thisfile.AtEndOfStream
    
63. thisline = thisfile.readline
    
64. Redim preserve input(counter)
    
65. input(counter) = thisline
    
66. counter = counter + 1
    
67. loop
    
68. thisfile.Close
    
69. '創建新檔，保存留言資料，本段中的<p><!--insert here--></p>不能更改，否則不能工作
    
70. Set outfile = fs.CreateTextFile(lyfile)
    
71. for each item in input
    
72. if item = "<p><!--insert here--></p>" then
    
73.   outfile.WriteLine "<p><!--insert here--></p>"
    
74.   outfile.WriteLine "<b>" & name & "</b> "
    
75.   if from <> "" then outfile.WriteLine "<font color=#FF0000>來自：</font><font color=#9900FF>" & ip & " " & from & "</font>"
    
76.   outfile.WriteLine "<font color=#8000FF>(" & sj & ")</font>"
    
77.   if homename <> "" then outfile.WriteLine "
    
78. <font color=#FF00FF>主頁：</font><a href='" & url & "' target=_blank>" & homename & "</a>"
    
79.   if url <> "" and url <> "http://" and homename = "" then outfile.WriteLine "
    
80. <font color=#FF00FF>主頁：</font><a href='" & url & "' target=_blank>" & url & "</a>"
    
81.   if email <> "" then outfile.WriteLine "
    
82. <font color=#009900>信箱：</font><a href='mailto:" & email & "'>" & email & "</a>"
    
83.   outfile.WriteLine "<p>" & ly
    
84.   outfile.WriteLine "<hr noshade size=1 color=#009900>"
    
85. else
    
86.   outfile.WriteLine item
    
87. end if
    
88. next
    
89. outfile.close
    
90. set fs = nothing
    
91. Response.Redirect "guestbook.htm" '返回到留言薄觀看留言
    
92. Response.end
    
93. %>
    

複製代碼