简单留言板代码.doc

简单留言板代码 篇一：留言版代码 ASP留言板源代码：有主页，回复和删除三个版面 主程序 html head title业牧粞员?lt;/title meta http-equiv=Content-Type content=text/html; charset=gb2312 /head script language=VBScript sub check() if form.userid.value=empty then msgbox 请输入您的昵称！ focusto(0) exit sub end if if form.email.value=empty then msgbox 请输入您的E-mail地址！ focusto(1) exit sub end if if instr(form.email.value, @)=0 then msgbox 您的E-mail地址不正确，是不是记错了？再想想！ focusto(1) exit sub end if if form.content.value=empty then msgbox 请输入您的留言内容！ focusto(5) exit sub end if form.submit end sub sub focusto(x) document.form.elements(x).focus() end sub /script body bgcolor=#CCFFCC text=#333333 table width=90% border=0 bordercolorlight=#E2F3F2 height=77 align=center tr td height=47 colspan=2 bgcolor=#00FFFFdiv align=center font face=华文行楷 size=+6font color=#FF0000 face=行楷strong留言本/strong/font/font /div /td /tr tr td colspan=2 height=2 p align=centerfont face=隶书 size=+2font face=楷体 _GB2312ba href=show.aspfont size=+1查看留言 /font/a/b/font /font/p /td /tr /table table width=90% border=0 align=center tr bgcolor=#E2F3F2 align=center valign=middle td height=385 form action=show.asp method=post name=form id=form table align=center bgcolor=#E2F3F2 border=1 cellpadding=0 cellspacing=0 width=100% tbody tr bgcolor=#CCFFCC td width=96 height=34div align=centerfont color=#0000FF昵 称:/font/div/td td width=441 height=34 input maxlength=30 name=userid font color=#FF0000* /font/td /tr tr bgcolor=#CCFFCC td width=96 height=35div align=centerfont color=#0000FF伊妹儿:/font/div/td td width=441 height=35 colspan=3 input type=text name=email font color=#FF0000* /font/td /tr tr bgcolor=#CCFFCC td width=96 height=36div align=centerfont color=#0000FF主 题:/font/div/td td width=441 height=36 colspan=3 input maxlength=200 name=subject size=40/td /tr tr bgcolor=#CCFFCC td width=96 height=36div align=centerfont color=#0000FF你的QQ:/font/div/td td width=441 height=36 colspan=3 input name=qq type=text