谁能帮忙做个这样的提交表单的程序，小弟不胜感激啊~

lishunhu253 2004-05-12 01:22:15
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="4">
<tr>
<td valign="top">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="6">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="10%"><img src="../img/online.gif" width="111" height="28"></td>
<td width="52%" background="../img/xian-1.gif"><a name="1"></a></td>
<td width="22%" background="../img/xian-1.gif"> <div align="center"><img src="../img/online1.gif" width="130" height="12"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td class="zi-1">
<TABLE cellSpacing=0 cellPadding=5 width="100%" border=0>
<TBODY>
<TR>
<TD class=font14 vAlign=top>
<FORM name=submitform onsubmit="return checkform();"
action=http://nt1.ce.net.cn/scripts/email/send.asp
method=post>
<INPUT type=hidden value=dfedu@dfedu.net
name=sendemail>
<TABLE width=96% border=0 align=center cellPadding=5 cellSpacing=1 bgcolor="#6699CC">
<TBODY>
<TR bgcolor="#EEF9FF" class="zi-1">
<TD height=35 colspan="2"> <b>报名信息</b>
<DIV align=left> </DIV></TD>
</TR>
<TR class="zi-1">
<TD bgColor=#D0EEFF height=35>报名专业:</TD>
<TD bgColor=#EEF9FF height=35> <font color="#5BBFEA">
<select name="KeMu" size="1">
<option>计算机软件开发</option>
<option>网站建设与维护</option>
</select>
</font></TD>
</TR>
<TR class="zi-1">
<TD height=35 colspan="2" bgcolor="#EEF9FF"><b>个人信息</b></TD>
</TR>
<TR class="zi-1">
<TD bgColor=#D0EEFF>
<DIV align=center>姓名:</DIV></TD>
<TD bgColor=#EEF9FF>
<DIV align=left>
<font color="#5BBFEA">
<input type="text" name="name" size="10">
</font></DIV></TD>
</TR>
<TR class="zi-1">
<TD bgColor=#D0EEFF>
<DIV align=center>性别:</DIV></TD>
<TD bgColor=#EEF9FF>
<DIV align=left>
<font color="#5BBFEA">
<input type="radio" name="sex" value="男" checked>
</font>男<font color="#5BBFEA">
<input type="radio" name="sex" value="女">
</font>女</DIV></TD>
</TR>
<TR class="zi-1">
<TD bgColor=#D0EEFF>
<DIV align=center>出生日期:</DIV></TD>
<TD bgColor=#EEF9FF>
<DIV align=left>
<font color="#5BBFEA">
<input type="text" name="year" size="4" maxlength="4">
</font>年<font color="#5BBFEA"> 
</font>
<select name=month class=p1>
<script language=vbscript>
for i=1 to 12
document.write "<option value='" & i & "'>" & i & "</option>"
next
</script>
</select>
月<font color="#5BBFEA">  </font>
<select name="day">
<script language=vbscript>
for i=1 to 31
document.write "<option value='" & i & "'>" & i & "</option>"
next
</script>
</select>
日</DIV></TD>
</TR>
...全文
56 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
liaoxing 2004-05-12
  • 打赏
  • 举报
 回复
up
Amely 2004-05-12
  • 打赏
  • 举报
 回复
仔细看吧。
这是数据库读出。。。。。。。。

跟写入一个道理
Amely 2004-05-12
  • 打赏
  • 举报
 回复
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--------------------------------------------------------------------
管理员身份验证页面
Author: Koyon Amely Date:2004-4-12
//-------------------------------------------------------------------->
<!-- #include file = "conn.asp" -->
<%
dim username,password,passrnd,temprnd,number,message
message= ""
number = 0
passrnd = session("passrnd")
username = Request.Form("username")
password = Request.Form("password")
temprnd = Request.Form("passrnd")
if typename(temprnd - 0) = "String" then
number = number + 1
message =message & "<br>"&number&"、随机验证码输入错误！"
elseif not passrnd - temprnd = 0 then
number = number + 1
message =message & "<br>"&number&"、随机验证码输入错误！"
end if

dim rs
set rs=server.CreateObject("adodb.recordset")
sql = "select * from manager where C_username = '" & username &"'"
rs.open sql,conn,1,3

'response.write rs("count") + 1
'response.end

if not rs.eof then '更新管理员的登录次数
rs("count") = rs("count") + 1
rs.update
end if

if rs.eof then
number = number + 1
message = message & "<br>"&number&"、用户名或密码输入有误！<br>"
elseif not rs("C_password") = password then
number = number + 1
message = message & "<br>"&number&"、用户名或密码输入有误！<br>"
end if

if number > 0 then '如果有错误不再前进
response.write "对不起! 您有<font color=red>" & number & "</font>个错误！<br>"
response.write message
else '如果没错误前进
select case rs("C_lever")
case "超级管理员"
session("lever") = 1
case "高级管理员"
session("lever") = 2
case "普通管理员"
session("lever") = 3
Case Else
session("lever") = 3
End Select
session("so_mark") = true
session("username") = username
session("turename") = rs("C_turename")
session("count") = rs("count")
Session.Timeout = 15
response.write "OK"
Response.Redirect "manage.asp"
end if
rs.close
set rs = nothing
%>
<a href=# onclick="window.history.go(-1)">返回</a>
Amely 2004-05-12
  • 打赏
  • 举报
 回复
代码多没有看清。
给你一个实例我的作品：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--------------------------------------------------------------------
管理员登录页面
Author: Koyon Amely Date:2004-4-12
//-------------------------------------------------------------------->

<%
'----------------------生成随机验证码-----------------------------
dim passrnd
Randomize '初始化随机数
passrnd =round(rnd()*10000)
do while passrnd < 1000
passrnd = passrnd * 10
loop
session("passrnd") = passrnd
'response.write passrnd
'response.end
'------------------------------------------------------------------
%>
<html>
<head>
<script language="VBScript">
Function check(ss)
if trim(ss.username.value)="" then
msgbox("用户名为空")
ss.username.focus()
Exit Function
end if
if trim(ss.password.value)="" then
msgbox("密码为空")
ss.password.focus()
Exit Function
end if
if trim(ss.passrnd.value)="" then
msgbox("验证码为空")
ss.passrnd.focus()
Exit Function
end if
ss.submit()
End Function
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link type="text/css" href="../main_style.css" rel="stylesheet">
<link type="text/css" href="../second.css" rel="stylesheet">
<title>管理登录</title>
<style type="text/css">
<!--
.style1 {color: #CC0000}
-->
</style>
</head>
<form name="form1" method="post" action="check.asp">
<body topmargin=0 leftmargin=0>
<table width="410" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="80" scope="col"> </td>
</tr>
<tr>
<td scope="col"><table width="356" height="200" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td background="../images/manager/1.gif" bgcolor="#000000"><table width="356" height="200" border="0" cellpadding="0" cellspacing="1">
<tr>
<td><table width="356" height="200" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="200" height="142" border="0" align="left" cellpadding="1" cellspacing="0">
<tr>
<td width="74" scope="col"><div align="center"><img height="13" src="../images/home/admin.gif" width="34"></div></td>
<td width="122" height="25" scope="col">
<div align="center">
<input name="username" type="text" id="username2" value="" size="15" maxlength="15">
</div></td>
</tr>
<tr>
<td width="74" scope="col"><div align="center"><img height="13" src="../images/home/password.gif" width="34"></div></td>
<td height="25" scope="col"><div align="center">
<input name="password" type="password" id="password" value="" size="15" maxlength="15">
</div></td>
</tr>
<tr>
<td height="25" colspan="2" scope="col"><div align="center">随机码 　<strong><span class="style1"><%=passrnd%></span>　 </strong>
<input name="passrnd" type="text" id="passrnd" size="6" maxlength="4">
</div></td>
</tr>
<tr>
<td height="25" colspan="2" scope="col">
<div align="center">
<input name="button" type="button" value="管理登录" onClick="check(form1)">
　
<input name="reset" type="reset" value="重写">
</div></td>
</tr>
<tr>
<td height="22" colspan="2" scope="col"><div align="center"><a href="login.asp">忘记密码？</a> 　 <a href="../html/other/manager_help.htm">管理帮助</a></div></td>
</tr>
</table></td>
<td> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td scope="col"><p class="red"> </p>
<p align="center" class="red">管理员注意事项</p></td>
</tr>

</table>
</body>
</form>
</html>
AspDelphi 2004-05-12
  • 打赏
  • 举报
 回复
http://www.csdn.net/Develop/Read_Article.asp?Id=23889
lishunhu253 2004-05-12
  • 打赏
  • 举报
 回复
希望哪位可以帮忙，不胜感激。
提交到ACCESS库
lishunhu253 2004-05-12
  • 打赏
  • 举报
 回复
<TR class="zi-1">
<TD bgColor=#D0EEFF>
<DIV align=center>学历:</DIV></TD>
<TD bgColor=#EEF9FF>
<DIV align=left>
<font color="#5BBFEA">
<select name=xueli>
<option value="请选择" selected>请选择</option>
<option value="高中">高中</option>
<option value="中专">中专</option>
<option value="大专">大专</option>
<option value="本科">本科</option>
</select>
</font></DIV></TD>
</TR>
<TR class="zi-1">
<TD bgColor=#D0EEFF>
<DIV align=center>身份证号码:</DIV></TD>
<TD bgColor=#EEF9FF>
<DIV align=left>
<INPUT size=52 name=textfield6>
</DIV></TD>
</TR>
<TR class="zi-1">
<TD vAlign=top bgColor=#D0EEFF>
<DIV align=center>通信地址:</DIV></TD>
<TD bgColor=#EEF9FF>
<INPUT size=52 name=textfield62></TD>
</TR>
<TR class="zi-1">
<TD vAlign=top bgColor=#D0EEFF>
<div align="center">邮政编码:</div></TD>
<TD bgColor=#EEF9FF><font color="#5BBFEA">
<input type="text" name="mail_address">
</font></TD>
</TR>
<TR class="zi-1">
<TD vAlign=top bgColor=#D0EEFF>
<div align="center">E-mail:</div></TD>
<TD bgColor=#EEF9FF><font color="#5BBFEA">
<input type=text name=email maxlength=50>
</font></TD>
</TR>
<TR class="zi-1">
<TD vAlign=top bgColor=#D0EEFF>
<div align="center">电话号码:</div></TD>
<TD bgColor=#EEF9FF><font color="#5BBFEA">
<input type="text" name="phone">
</font></TD>
</TR>
<TR bgcolor="#EEF9FF" class="zi-1">
<TD colspan="2" vAlign=top><b>学习/工作简历及特长</b>
</TD>
</TR>
<TR class="zi-1">
<TD colspan="2" vAlign=top bgcolor="#EEF9FF">
<div align="center">
<textarea name="textarea" cols="50"></textarea>
</div></TD>
</TR>
<TR>
<TD height=45 colSpan=2 bgcolor="#EEF9FF" class=font20>
<DIV align=center>
<INPUT type=hidden name=tHtml>
<INPUT id=button1 onclick="submitform.tHtml.value=submitform.innerHTML; submitform.submit();" type=button value=发送 name=button1>
<INPUT type=reset value=全部重写 name=B1>
</DIV></TD>
</TR>
<TR>
<TD colSpan=2 bgcolor="#EEF9FF" class=font20>
<div align="center">
<p class="zi-1"></p>
</div></TD>
</TR>
</TBODY>
</TABLE>
</FORM></TD>
</TR>
</TBODY>
</TABLE>

</td>
</tr>
<tr>
<td class="zi-1"><div align="right"><a href="#1"><img src="../img/top-2.jpg" width="32" height="14" border="0"></a></div></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
基于微信小程序原生开发从头实现小程序常见功能（基础篇）
公共常用组件：实现公共组件的抽离以便能进行扩展及复用，包括输入框、选择框、分步组件、swiper组件、视频播放、富文本编辑、文件上传、视频上传、编辑表单、详情界面、列表界面、tab组件、地图等常用的组件。...
Help!! 表单提交的判断
最近两天一直在弄一个注册...有哪位高手来指点下,小弟不胜感激 ..... sub tijiao_onclick() if len(document.login.userid.value) msgbox"用户名太短,请选择一个大于3的用户名" document.login.userid.select r
c# 读取txt并绘图
现在又一个txt文件，里面存了几列采集到的数据，如下所示 其中，我想读取此文本的数据到picturebox里，横坐标为时间，纵坐标为s（信号），分别显示两条曲线s1和s2(其中，S1x和S1y分别为S1的横坐标点和纵...
初试SpringMVC，REST风格遇到405错误，Request method 'PUT' not supported
前提：配置文件没问题 在表单处action属性改为项目绝对路径就可以解决问题 ...具体原理在探索中，有大神知道的，恳请教教小弟，不胜感激 转载于:https://www.cnblogs.com/liangqinghai/p/6994324.html...
Html A标签的href属性在IE与firefox的问题
最近在做web前端开发时，用到了html的a标签提交表单，但是请求连接地址不写在href属性中，而是在a标签中添加onclick事件，通过js来提交表单，  如下：(具体js方法在这就略去了)  &lt;a href="...
ASP

28,390

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章