⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 add.asp

📁 系统可以实现留言等功能,对于初学者有好处,希望能给大家帮助
💻 ASP
字号:
<!--#include file=setup.asp-->
<!--#include file=conn.inc-->
<%user=request("user")
set rs=server.createobject("adodb.recordset")
sql="select * from user where 用户名='"& user &"'"
rs.open sql,conn
%>
<HTML><HEAD><TITLE></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK 
href="images/css.css" rel=stylesheet type=text/css>
<LINK href="images/css.css" rel=stylesheet type=text/css>
</HEAD>
<BODY background='images/bookbg.gif' topmargin=0>
<CENTER>
<!--#include file=top.asp-->
<center><br><img src=images/welcome.gif><br><br><script>
function form_up(obj)
{
if(obj.name.value==""){alert('请填写您的姓名');obj.name.select();return false}
if(obj.text.value==""){alert('请填写留言内容');obj.text.select();return false}
}
</script>
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
maxLen = 200; // max number of characters allowed
function checkMaxInput(form) {
if (form.text.value.length > maxLen) // if too long.... trim it!
form.text.value = form.text.value.substring(0, maxLen);
// otherwise, update 'characters left' counter
else form.remLen.value = maxLen - form.text.value.length;
}
//  End -->
</script>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=700>
  <FORM action=add2.asp?user=<%=request("user")%>
  method=post align="center" onsubmit="return(form_up(this))">
  <TBODY>
  
  <div align="center">
  <center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700">
  <tr>
    <td width="2%"><img border="0" src="images/T_left.gif"></td>
    <td width="96%" background="images/Tt_bg.gif"></td>
    <td width="2%"><img border="0" src="images/T_right.gif"></td>
  </tr>
</table>
  </center>
</div>
      <TABLE border=0 
      cellPadding=4 cellSpacing=1 height=244 width=700 style="border-collapse: collapse" class=a2>
        <TBODY>
        <TR>
          <TD  colSpan=2 height=25 class=a1 align=center><b><font color="#FF0000">签 写 留 言</font></b></TD></TR>  
        <TR>
          <TD height=131 width=350 bgcolor="#FFFFFF">
            <TABLE border=0 cellPadding=5 cellSpacing=0 height=100 
              width="100%" style="border-collapse: collapse" bordercolor="#111111"><TBODY>
              <TR>
                <TD  width="26%" height="33">您的名字:</TD>
                <TD  width="66%" height="33">&nbsp;<INPUT class=input2 
                  maxLength=20 name=name size="20">
                  <font color="#FF0000">*</font>                  
                    </TD></TR>
              <TR>
                <TD  width="26%" height="33">电子邮件:</TD>
                <TD width="66%" height="33">&nbsp;<INPUT class=input2 maxLength=30 
                  name=email value="@" size="20">
                    </TD></TR>
              <TR>
                <TD  width="26%" height="34">OICQ号码:</TD>
                <TD width="66%" height="34">&nbsp;<INPUT class=input2 maxLength=13 
                  name=oicq size="20">
                    </TD></TR>
              <TR>
                <TD  width="26%" height="34">主页地址: </TD>
                <TD width="66%" height="34">&nbsp;<INPUT class=input2 maxLength=40 
                  name=home value=http:// size="20">
                    </TD></TR>
</TBODY></TABLE></TD>
          <TD height=131 width=350 align="center" bgcolor="#FFFFFF"  >
                        <b>
                        - - - 留 言 内 容 </b><font color="#FF0000">*</font><font color="#FF0000">                   
                        </font><b>- - -</b><Br><Br><TEXTAREA class=input3 cols=35 name=text rows=7 wrap=PHYSICAL maxLength=200 onKeyDown="checkMaxInput(this.form)" onKeyUp="checkMaxInput(this.form)"></TEXTAREA><BR><BR><input type="checkbox" name="image" value="ON"> 
                        此留言是否以悄悄话发表<font color="#FF0000">(仅版主可见)</font>   
</TD></TR>
        <TR class=a3>
          <TD height=23 >
             注意:加 <font color="#FF0000">* </font>为必填选项。</TD><td align=center> 最大留言字数: <font color=green>200</font> 你还可以留言 <input readonly type=text name=remLen size=3 maxlength=3 value="200"> 字。</td></TR>       
        <TR>  
          <TD colSpan=2 height="33" bgcolor="#FFFFFF">  
            <DIV align=center><INPUT class=input2 name=B1 type=submit value=签写留言>&nbsp;&nbsp;&nbsp;&nbsp;  
              <INPUT class=input2 name=B2 type=reset value=重新来过></DIV></TD></TR></FORM></TBODY></TABLE><div align="center">
            <center>
          <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" >
  <tr>
    <td width="1%"><img border="0" src="images/T_bottomleft.gif"></td>
    <td width="97%" background="images/T_bottombg.gif"></td>
    <td width="2%"><img border="0" src="images/T_bottomright.gif"></td>
  </tr>
</table>
            </center>
</div>  
</CENTER>
</table><br>
<!--#include file=copy.asp-->
</BODY>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -