超級留言本製作執行個體 <1>    阿餘

來源:互聯網
上載者:User
做了幾年的網頁,到處留言千千萬,用過各種留言本萬萬千。可惜令我喜歡的留言本真少(55555),慢慢的速度讓我無法忍受,醜陋的介面讓我心煩,表徵圖更是讓人作嘔,所以我下決心寫一個自己的超級留言本,阿餘半夜起來,挑燈奮戰,忙了一整天,終於。咱的“超級留言本1.0”出現了,它速度極快。因為根本就是HTML的,並沒有一個冗餘的代碼,表徵圖全是根據俺自己 and 俺的“那個”繪製的,還可以隨時修改色彩配置,呵呵,不敢獨享,趕忙寫給大家,不對的地方,不要忘了到 www.zydn.net 去罵呀,阿餘在那裡等候你的批判。

  好了,下裡具體講講我的留言本怎麼做的吧。(第一次寫教程,還不懂怎麼開頭)
  為了方便管理,這是一個基於資料庫的留言本程式,先看看我的庫結構,(ACCESS 2000)
  庫中有三個表,第一個 ly  就是用來放留言的啦,有12個欄位。。。。(現在看來,用不了這麼多的,我也不想改啦)
1姓名 2性別  3地址   4內容(備忘)   5時間(日期時間)    6日期(日期時間)    7心情    8ID(自動編號)  9URL    10 URLNAME   11 EMAIL   12 臉,
  第二個表 color 用於存放色彩配置 有3個欄位  1 名稱  2 ID(自動編號)   3 方案
  第三一個表 PAS 用來放管理員密碼啦,但這個程式的安全性沒有充分考慮的,朋友們要自已修改啦。

首先做一個表單,用於錄入我們的留言,存為檔案名稱:  index1.htm 代碼如下,你把他全複製了在FONTPAGE中粘出來就得啦。
****************************
<html>
<head>

<title>卓越留言本-填寫留言</title></head>
<body bgcolor="#DEEEFE">
<div><center>
<table border="0" width="95%" height="270" bgcolor="#FCFFE6" style="border: 1 solid #000080">
<tr> <td width="100%" height="16"> <p align="center"><font size="5" color="#0000FF"><b>阿餘的超級留言本</b></font></td>
</tr><tr><td width="100%" height="187">
<form method="POST" action="savely.asp">
<p align="left">   尊姓大名:<input type="text" name="xm" size="33">**    
   性別:<select size="1" name="xb">
<option selected>男</option>
<option>女</option>
</select></p>
<p align="left">    來自:<input type="text" name="lz" size="38">   
EMAIL:<input type="text" name="ema" size="37"></p>
<p align="left">  網站名:<input type="text" name="urname" size="35">   
網址:<input type="text" name="urla" size="37"></p>
<p align="left">  現在的心情:<input type="radio" value="大笑" checked name="xq">大笑   
<input type="radio" name="xq" value="愉快">愉快   <input type="radio" name="xq" value="平靜">平靜   
<input type="radio" name="xq" value="憂鬱">憂鬱   <input type="radio" name="xq" value="痛苦">痛苦   
<input type="radio" name="xq" value="發怒">發怒</p>
<p align="left">  留言內容:<font size="2">(不能超過200漢字)**</font></p>
<p align="center"><textarea rows="5" name="lr" cols="87"></textarea></p>
<p align="center"><input type="submit" value="寫好啦" name="B1"><input type="reset" value="重新寫" name="B2"></p>
</form> <p align="center"><a href="disp.asp">返回</a></td>
</tr> <tr> <td width="100%" height="27"> </td> </tr><tr> <td width="100%" height="16"> </td> </tr> </table> </center></div> </body> </html>
*************************
然後再寫一個程式把我們這些內容加入到資料庫中,我就不全寫出來啦,這樣的話,這篇文章會好長的,你們只要到 WWW.ZYDN.NET 去下一人來就得了,檔案名稱是savely.asp
注意其中這幾個語句:

abcc=len(lr)
sclr=""
absn=1
do while absn<abcc
alsa1=mid(lr,absn,1)
if asc(alsa1)=13 then alsa1="<br>"
if alsa1="<" then alsa1="<"
if alsa1=">" then alsa1=">"
sclr=sclr+alsa1
absn=absn+1
loop
lr=sclr

這是用來判斷使用者輸入的內容中是否有超文本代碼,是否有斷行符號,並把超 檔案的“<”“>”轉為“<”“>”,把斷行符號(換行)轉為“<br>”,稍加發揮,這段程式可以做不少事,如哪位朋友有更好的辦法不妨告訴我一聲。存完內容後用response.redirect "DISP.ASP" 把庫中的內容顯示出來。
    好啦,然後把資料庫顯出來不就成了一個留言本? 開始的時候我也這樣想,但我發現這要讀資料庫,ASP檔案要經ASP.DLL,速度很慢這哪還能叫超級留言本!!阿餘苦苦思索了整整。。。。不知多久。。(想著想著睡著啦),一覺醒來,茅塞頓開,把資料庫中的東東讀出來,再用FILESYSTEMOBJECT寫為HTML不就行了?讀HTML可比讀資料庫快多啦,啊。說幹就幹,於是DISP.ASP  這個檔案出來啦

********************************以下是disp.asp的全部內容
<!--#include file="color.inc"-->
<%
Set Conn=Server.Cr



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。