📄 index.asp

📁 集合了学习asp的100个实例

💻 ASP

字号:

<html>

<head>

<title>留言本</title>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

</head>

<script language="VBScript">

sub check()

if frm1.user.value=empty then

msgbox "请输入您的留言昵称！"

focusto(0)

exit sub

end if 

if frm1.email.value=empty then

msgbox "请输入您的电子邮件地址！"

focusto(1)

exit sub

end if 

if instr(frm1.email.value, "@")=0 then

  msgbox "请正确填写您的电子邮件地址！"

  focusto(1)

exit sub

end if

if frm1.content.value=empty then

msgbox "请输入您的留言内容！"

focusto(2)

exit sub

end if 

frm1.submit

end sub

sub focusto(x)

document.frm1.elements(x).focus()

end sub 

</script>

<body bgcolor="#e2f3f2" text="#333333">

<P align=center>

 <font face="华文行楷" size="+3"><font face="行楷">实例　留言本</font></font> </P>

<P align=center><b><A href="display.asp"><font size="+1">查看留言</font></A></b>

<table width="72%" border="0" align="center">

  <tr bgcolor="#e2f3f2" align="middle" valign="center"> 

    <td height="385"> 

 <form method="post" action="savadata.asp" name="frm1">

   <table align=center bgcolor=#e2f3f2 border=1 cellpadding=0 cellspacing=0 width="100%">

<tbody> 

<tr> 

  <td>留言者:</td>

  <td><input maxlength=30 name="user"></td>

</tr>

<tr> 

  <td>e_mail:</td>

  <td colspan=3><input name="email" >

  </td>

</tr>

<tr> 

  <td>标题:</td>

  <td colspan=3><input maxlength=200 name=subject size=40></td>

</tr>

<tr> 

  <td height="37">留给谁？</td>

  <td colspan=3><input name="towho" >

  </td>

</tr>

<tr> 

  <td>内容:</td>

  <td colspan=3><TEXTAREA cols=51 name=content rows=8></TEXTAREA>

  </td>

</tr>

<tr align=middle> 

  <td colspan=4 align=center><input name=B12  type=button value=" 提 交 " onclick="check()">

    <input name=B2  type=reset value=" 重写 "></td>

</tr>

</tbody> 

   </table>

 </form></td></tr></table></P>

</body>  

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -