|
把index.asp另存為insert.asp，修改頁面標題"留言板首頁"為"填寫留言"，刪除一些表格，并在服務器面板中把除第一條Recordset(rs)以外的行為都選中后按上面的"-"號刪除，完成后大概是這樣：
光標定位到第三行的單元格里后點"Application"工具組里的"Record Insertion Form Wizard"圖標(圖63)，彈出"Record Insertion Form"對話框，刪掉一些項，并作設置如下(沒寫的屬性項均用默認值)：
Connection:conn
Insert into table:main
After inserting,go to:index.asp
Name{
Label:昵稱:
}
Email{
Label:信箱:
}
Homepage{
Label:主頁:
Default value:http://
}
QQ{
Submit as:Numeric
}
Content{
Label:內容:
Display as:Text area
}
ICON{
Display as:Hidden field
Default value:01
}
IP{
Display as:Hidden field
Default value:<%= Request.ServerVariables("REMOTE_ADDR") %>
}
除了上面提到的，其它項按上面的"-"號刪除，并通過上三角和下調整各項的順序，填好后如圖所示
到這里添加留言的頁面在功能上已經(jīng)完成了，下面是我調整一下表單項的位置并用CSS對文本框作了美化后的效果：
把頭像圖片所在的單元格的id設為icon(在單元格td標簽內加上id="icon")，并添加下面的代碼到css.css文件中：
input,textarea {
font-family: Verdana, "宋體";
font-size: 12px;
background-color: #DDDDDD;
height: 18px;
width: 150px;
border: 1px solid #333333;
}
textarea{
height:120px;
width:98%;
overflow:hidden;
}
#icon img{
margin:2px;
cursor:hand;
}
還有下面的腳本代碼添加到insert.asp的head部分：
<script language="JavaScript">
<!--
window.onload=function (){//頁面加載完畢時執(zhí)行
var obj=document.form1;
obj.onmouseover=function(){//表單項(文本框、多行文本框)在鼠標移上時變換背景顏色的函數(shù)(函數(shù)①)
if(event.srcElement.tagName=="INPUT"||event.srcElement.tagName=="TEXTAREA")//判斷當對象標簽為input或textarea時執(zhí)行
event.srcElement.style.backgroundColor="#EEEEEE";//對象背景顏色變換#EEEEEE
}
obj.onmouseout=function(){//表單項(文本框、多行文本框)在鼠標移出時變換背景顏色的函數(shù)(函數(shù)②)
if(event.srcElement.tagName=="INPUT"||event.srcElement.tagName=="TEXTAREA")//判斷當對象標簽為input或textarea時執(zhí)行
event.srcElement.style.backgroundColor="#DDDDDD";//對象背景顏色變換#DDDDDD
}
icon.onclick=function(){//單擊頭像圖片時把圖片名中的數(shù)字傳遞到隱藏域ICON的函數(shù)(函數(shù)③)
if(event.srcElement.tagName=="IMG")
obj.ICON.value=event.srcElement.src.match(/(0[1-6])(?=\.jpg)/g)[0];//將所點擊的圖片路徑地址中的01-06賦值給隱藏域ICON
}
obj.onsubmit=function(){//驗證表單的函數(shù)(函數(shù)④)
var error=""
if(obj.Name.value=="")error+="●昵稱項不能為空\n\n";
if(obj.Email.value=="")error+="●信箱項不能為空\n\n";
else if(!/^\w(\w*\.*)*@(\w+\.)+\w{2,4}$/.test(obj.Email.value))error+="●信箱格式不正確\n\n";
if(obj.Homepage.value!=obj.Homepage.defaultValue&&!/^(http:\/\/[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)$/.test(obj.Homepage.value))error+="●網(wǎng)址格式不正確\n\n"
if(obj.QQ.value!=""&&!/^[1-9]\d{4,8}$/.test(obj.QQ.value))error+="●QQ號碼只能是5位到9位的數(shù)字\n\n"
if(obj.Content.value=="")error+="●留言內容不能為空\n\n";
else if(obj.Content.value.length>1000){error+="●留言字符長度超出1000";obj.Content.value=obj.Content.value.substring(0,1000)}
if(error!=""){alert("錯誤提示：\n\n"+error);return false;}
else return true;
}
}
//-->
</script>
如果不需要表單項在鼠標事件發(fā)生時變換背景顏色，可以去掉函數(shù)①和②，如果嫌手寫表單驗證的代碼太累，可以去掉函數(shù)④，然后到y(tǒng)aromat.com下載一個叫checkForm的插件，找不到的話就從這個地址下：http://vip.5d.cn/Xmercy/form/checkform.mxp。插件下載后雙擊自動安裝，最后在行為面板上點"+"號，選擇"yaromat>>check form"就可以用了，插件的使用很簡單，這里就不多說了。
填寫不正確時的警告
如果填寫正確后提交是500錯誤，那就有可能是"Everyone"對數(shù)據(jù)庫的操作權限太低，解決辦法：
1)在數(shù)據(jù)庫文件上右擊，在快捷菜單中選擇"屬性"
2)切換到"安全"標簽，作設置如下
如果還有錯誤，并且已經(jīng)確認之前的所有操作都正確無誤，請按"Ctrl+`"切換到源碼視圖，檢查代碼中是否出現(xiàn)一個<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>和一個<%@LANGUAGE="VBSCRIPT"%>，有的話刪掉<%@LANGUAGE="VBSCRIPT"%>。
出處：閃吧
責任編輯：藍色
上一頁 數(shù)據(jù)綁定 [7] 下一頁 管理頁面 admin.asp [9]
◎進入論壇網(wǎng)頁制作、網(wǎng)站綜合版塊參加討論
|
第 1 頁 
第 8 頁 添加留言頁 [8]
