新微赢技术网

标题: [求助]怎样用ASP语言在DW中控制文本框的文字数量。 [打印本页]

作者: 爱人好难a 时间: 2010-1-13 04:08
标题: [求助]怎样用ASP语言在DW中控制文本框的文字数量。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>   <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>:::来搞信息登记:::</title> <link href="../css/fontsize.css" rel="stylesheet" type="text/css"> <link href="../css/input_form.css" rel="stylesheet" type="text/css"> <link href="../css/inputform1.css" rel="stylesheet" type="text/css"> <link href="../css/selectform.css" rel="stylesheet" type="text/css"> <link href="../css/inputform2.css" rel="stylesheet" type="text/css"> <link href="../css/inputform3.css" rel="stylesheet" type="text/css"> <link href="../css/inputform3.css" rel="stylesheet" type="text/css"> <link href="../css/link.css" rel="stylesheet" type="text/css"> <link href="../css/buttoncss.css" rel="stylesheet" type="text/css"> <link href="../css/inputchaxun.css" rel="stylesheet" type="text/css"> <link href="../css/city.css" rel="stylesheet" type="text/css"> <style type="text/css">  </style></head> <body bgcolor="#6699cc" > <p> <% '--------------------------删除单条记录 if request("method")="del" then id=request("id") sql = "DELETE FROM tongxunyuan WHERE id=" + cstr(id) conn.execute sql response.Write "<script >" response.Write("alert('删除操作成功!');") response.Write("window.navigate('tongxunyuan.asp')") response.Write("</script>") %> <% end if %> </p> <p align="center"> </p> <p align="center" class="style3">来搞信息登记</p> <table width="72%" border="0" align="center" cellpadding="0" cellspacing="0" area="fontsize"> <tr> <td width="100%"></td> </tr> <tr> <td> <form name="input_form" action="add_laigaodengji.asp" method="post" onSubmit="return checkform();"> <table width="680" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" style="border-collapse: collapse"> <tr> <td height="24" colspan="3"><div align="left"><font size="2">     以下为添加来稿信息部分 (带<font color="#FF0000">*<font color="#000000">为必填项</font></font>):</font> </div></td> <td height="24"><font size="2"> <div align="center">登记人员<span class="style5">：<span class="style6"><%=session("name")%></span></span></div></td> </tr> <tr> <td width="140"><div align="right"> <table width="100" border="0" align="right" cellpadding="0" cellspacing="0"> <tr> <td width="50" height="15"><font size="2">省份:</font> </td> </tr> </table> </div></td> <td width="196"><div align="left"> <font size="2"> <select name="province" area="selectformat" id="province" onMouseOver="this.focus();" onChange="make_city_menu(this.value,document.input_form.city)"> <option value="" selected>--省份信息--</option> <% set rs=server.CreateObject("adodb.recordset") sql="select * from province order by id desc" rs.open sql,conn ,1,1 if rs.recordcount<>0 then do while not rs.eof %> <option value="<%=rs("province")%>" ><%=rs("province")%></option> <% rs.movenext loop end if %> </select> </font><font color="#FF0000">*</font><font size="2"> </font></div></td> <td width="167"><div align="right"> <table width="100" border="0" align="right" cellpadding="0" cellspacing="0"> <tr> <td width="112" height="15"><font size="2">通讯员:</font></td> </tr> </table> </div></td> <td width="167"><div align="left"> <font size="2"> <select name=txy class="selectformat" id="select19" onmouseover="this.focus();" > <option selected>-通讯员信息-</option> </select> </font><font color="#FF0000"> *</font></div></td> </tr> <tr> <td><div align="right"> <table width="100" border="0" align="right" cellpadding="0" cellspacing="0"> <tr> <td width="83" height="15"><font size="2">地州:</font> </td> </tr> </table> </div></td> <td><div align="left"> <font size="2"> <select name="city" area="selectformat" id="city" onMouseOver="this.focus();" onChange="make_area_menu(this.value,document.input_form.area)"> <option value="" selected>--地区信息--</option> <% set rs=server.CreateObject("adodb.recordset") sql="select * from city order by id desc" rs.open sql,conn ,1,1 if rs.recordcount<>0 then do while not rs.eof %> <option value="<%=rs("city")%>" ><%=rs("city")%></option> <% rs.movenext loop end if %> </select> </font><font color="#FF0000">*</font></div></td> <td><div align="right"> <table width="100" border="0" align="right" cellpadding="0" cellspacing="0"> <tr> <td width="112" height="15"><font size="2">性别:</font></td> </tr> </table> </div></td> <td><div align="left"> <font size="2"> <input name="get_sex" type="radio" class="fontsize" value="男" checked> 男 <input name="get_sex" type="radio" class="fontsize" value="女"> 女 </font><font color="#FF0000"> *</font></div></td> </tr> <tr> <td><div align="right"> <table width="100" border="0" align="right" cellpadding="0" cellspacing="0"> <tr> <td width="112" height="15"><font size="2">县（市）:</font></td> </tr> </table> </div></td> <td><div align="left"> <font size="2"> <select name="area" area="selectformat" id="area" onMouseOver="this.focus();" onChange="make_txy_menu(this.value,document.input_form.txy)"> <option value="" selected>--县市信息--</option> <% set rs=server.CreateObject("adodb.recordset") sql="select * from area order by id desc" rs.open sql,conn ,1,1 if rs.recordcount<>0 then do while not rs.eof %> <option value="<%=rs("area")%>" ><%=rs("area")%></option> <% rs.movenext loop end if %> </select> </font><font color="#FF0000">*</font></div></td> <td><div align="right"> <table width="100" border="0" align="right" cellpadding="0" cellspacing="0"> <tr> <td width="112" height="15"><font size="2">联系电话:</font></td> </tr> </table> </div></td> <td><div align="left"> <font size="2"> <input name="get_tel" type="text" id="get_tel" onMouseOver="this.focus();" size="13.5" txy="inputform1"> </font><font color="#FF0000"> *</font></div></td> </tr> <tr> <td><div align="right"> <table width="100" border="0" align="right" cellpadding="0" cellspacing="0"> <tr>

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)