asp 悬赏求助多行添加数据库的问题，目前代码不能多行循环添加到数据库

丈二和尚阿尼纳 2018-06-27 04:32:58 

<%

Dim RegName,shenfen,syadd,klid,sex,Birth,National,Mian,bschool,gkbm,schoolxj

Dim Tadd,Tcode,TTel,qianli,Ticha,BigPic,xiaxTime,fxcs,t

Dim fclass,Fname,ftel,mclass,mname,mtel

Dim zhiya,zhiyb,zhiyc,Tiaoj

Dim language,math,foreign,physics,chemistry,biont,polity,history,geography,Liberal,calculator

Dim ViewVlag,mtype



%>



<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

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

<title>在线提交报修</title>

<script src="images/jquery-1.10.2.min.js" type="text/javascript"></script>

<script src="images/gotopku.js" type="text/javascript"></script>

<script src="images/jquery.uploadify.min.js" type="text/javascript"></script>

<script language="javascript" type="text/javascript" src="Include/date/WdatePicker.js"></script>

<script language="javascript" type="text/javascript" charset="utf-8" src="images/addrow.js"></script>

<link rel="stylesheet" type="text/css" href="images/uploadify.css">

<link href="images/style.css" rel="stylesheet" type="text/css">

</head>



<body>

	<div class="header_logo">

       	<div class="header_logo_con">

			<h1 class="h1_logo"><%=SiteTitle%></h1>

		</div>

	</div>

	<div class="header_login_info">

       	<div class="header_login_info_con">

			<span class="fl welcome_info">VIN：<%=session("ZhiRegName")%>！　　你的车型信息：<%=session("zhishenfen")%></span>

			<span class="fr"><a class="header_nav" href="#">



			</a>　　　<a class="header_nav" href="UserPassUp.asp">修改密码</a>　　　<a class="header_nav" href="UserLogin.asp?Action=logout">退出登录</a></span>

		</div>

	</div>



	<div class="main">

    	<div class="mainCon">

			 	<div class="leftNav">

		<ul>

			<li><a id="Nav_begin" class="leftNav_li" href="senior.asp">报修信息导航</a></li>

			<li><span class="leftNav_block"></span></li>

			<li><a href="senior.asp#Nav_profile_basic" class="leftNav_li">在线报修</a></li>

			<li><a href="statelist.asp#Nav_profile_image" class="leftNav_li">报修列表</a></li>

			<li><a href="UserPassUp.asp" class="leftNav_li">个人信息</a></li>

			<span id="show_hide_app" style="display:'none'"> 

			</span>

		</ul>

	</div>  

	

	<div class="rightContent">

      <!--start -->

<form action="seniorSave.asp" method="post" name="form1" onSubmit="JavaScript: return checkForm();"> 

<table class="app_table">

  <tbody><tr>

	<td align="left" class="text12">

		<span class="text14b">填写说明：</span>

		<br>（1）请认真填写以下信息，填完完毕后点击最下方的“信息提交审核”；

		<br>（2）“<span class="bitian">*</span>”为必填项；</td>

  </tr>

</tbody>

</table>

<table id="Nav_profile_basic" class="app_table">

	<tbody><tr align="left" bgcolor="#D9DDE9">

    	<td colspan="2" class="text14b">在线报修 </td>

  	</tr>

  <tr>

      <td width="25%" align="right"  class="text12">责任单位：</td>

      <td  class="text12">

	  <%

				Response.Write "<select name='Cityid' class='select' class='Nkebox'>"

				set rsc=server.CreateObject("ADODB.recordset")

				sqlc="select id,Cname from Tru_s_zrdw order by id asc"

				Response.Write("<option value=''>选择责任单位</option>")

				rsc.open sqlc,conn,1,3

				do while not rsc.eof

				Response.Write"<option value='"&rsc("Cname")&"'"

				if Trim(Cityid)=rsc("Cname") then 

				response.write " selected='selected' "

				End if

				Response.Write" >"&rsc("Cname")&"</option>"

				rsc.movenext

				loop

				rsc.close

				set rsc=nothing 

				Response.Write"</select>"

		%>

	  </td>

    </tr>

    <tr>

      <td height="28" align="right"  class="text12">VIN信息：</td>

      <td  class="text12"><input name="Sname" type="text" class="app_table_input"  id="Sname" value="<%=session("ZhiRegName")%>" size="10" maxlength="50" readonly /></td>

    </tr>

    <tr>

      <td height="28" align="right"  class="text12">ND信息：</td>

      <td  class="text12"><input name="ND" type="text" class="app_table_input"  id="ND" value="<%=session("ND")%>" size="20" maxlength="50" readonly /></td>

    </tr>

    <tr>

      <td height="28" align="right"  class="text12">车型信息：</td>

      <td  class="text12"><input name="Frstdegree" type="text" class="app_table_input"  id="Frstdegree" value="<%=session("zhishenfen")%>" size="20" maxlength="50" readonly /></td>

    </tr>

    <tr>

      <td height="28" align="right"  class="text12">客户类别：</td>

      <td  class="text12"><input name="Schoolt" type="text" class="app_table_input"  id="Schoolt" value="<%=session("CADD")%>" size="80" maxlength="200" readonly /></td>

    </tr>

      <tr>

      <td height="28" align="right"  class="text12">下线时间：</td>

      <td  class="text12"><input name="xiaxTime" type="text" class="app_table_input"  id="xiaxTime" value="<%=session("xiaxTime")%>" size="80" maxlength="200" readonly /></td>

    </tr>

     <tr>

      <td width="25%" align="right"  class="text12">故障产生阶段：</td>

      <td  class="text12">

	  <%

				Response.Write "<select name='gzcsjd' class='select' class='Nkebox'>"

				set rsc=server.CreateObject("ADODB.recordset")

				sqlc="select id,Cname from Tru_s_gzcsjd order by id asc"

				Response.Write("<option value=''>选择故障产生发现阶段</option>")

				rsc.open sqlc,conn,1,3

				do while not rsc.eof

				Response.Write"<option value='"&rsc("Cname")&"'"

				if Trim(gzcsjd)=rsc("Cname") then 

				response.write " selected='selected' "

				End if

				Response.Write" >"&rsc("Cname")&"</option>"

				rsc.movenext

				loop

				rsc.close

				set rsc=nothing 

				Response.Write"</select>"

		%>

	  </td>

    </tr>

    </tbody></table>

      <table class="app_table">    

    <tr align="left" valign="middle" bgcolor="#eeeeee">

      <td height="92" align="center" bgcolor="#eeeeee">

        <li> 设置条数

          <input type="text" name="upcount" value="1">

          <input type="button" name="Button" onClick="setid();" value="· 设定 ·">

      <input type="button" name="ButtonAdd" onClick="setSetAddOne();" value="· 增加 ·">

        </li>

      </td>

    </tr>

    <tr align="center" valign="middle">

      <td align="center" id="upid" height="122"><br>

       故障描述：<input type="text" id="t0" name="t0" class="app_table_input"/>  返修措施：<select name=fxcs0><option value="补装">补装</option><option value="更换">更换</option><option value="调整">调整</option><option value="紧固">紧固</option></option><option value="补漆">补漆</option></option><option value="补加">补加</option></select> <br>

      </td>

    </tr>        

  </table>

<!--提交命令-->

<table class="app_table"> 

<tbody>

	<tr>

    	<td align="center" colspan="3"><input value="信息提交报备" type="submit" class="submit_button"></td>

  	</tr>

</tbody>

</table>

</form>

  <!--end -->

		  </div>

			<div class="clear"></div>

        </div>

    </div>

	

    <div class="foot">

    	<div class="footer">

			<div class="copyright">

    			<%=SiteTitle%>  版权所有    <%=year(now())%><br>

			</div>

		</div>

    </div>

</body>

</html>

以上是显示页面


<!--#include file="Include/conn.asp"-->

<!--#include file="Include/Fun_SqlIn.Asp"-->

<!--#include file="Include/CheckLog.asp"-->

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

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

<title>登记</title>

</head>

<body>

<%

	Dim ComeUrl,ClassId

	ComeUrl=lcase(CheckStr(request.ServerVariables("HTTP_REFERER")))

	if ComeUrl="" then

			Call Alert ("系统安全，不允许从外部链接地址访问本系统的页面!","-1")

		rs.close

		set rs=nothing

		Response.end

	end if

	

   ClassId=trim(Request.Form("ClassId"))

 

	set rs = server.createobject("adodb.recordset")

	sql="select * from Zhi_rui_s_Dossier where 1=1 "

    rs.open sql,conn,1,3

   	for i=0 to ubound(t)-1

	if trim(t(i))<>"" then

	fxcs=Request.Form("fxcs(i)")

	t=trim(Request.Form("t(i)"))

	rs.addnew

	  rs("Useid")=0

	  rs("Usid")=Cint(session("ZhiUserId"))

      rs("cityid")=trim(Request.Form("cityid"))

      rs("Sname")=trim(Request.Form("Sname"))

	  rs("ND")=trim(Request.Form("ND"))

      rs("Frstdegree")=trim(Request.Form("Frstdegree"))

	  rs("Schoolt")=trim(Request.Form("Schoolt"))

	  rs("xiaxTime")=Request.Form("xiaxTime")

	  rs("gzbw")=trim(Request.Form("gzbw"))

	  rs("gzcsjd")=trim(Request.Form("gzcsjd"))

	  rs("fxcs")=fxcs

	  rs("Schoolo")=t

	  rs("HEducation")="是"

      rs("addIP")=Request.ServerVariables("Remote_Addr")

	  rs("AddTime")=now()

	rs.update

	end if

	next

	Call Alert ("你的信息已经提交，相同问题请勿重复提交。","senior.asp")

	rs.close

	set rs=nothing

	

%>



</body>

</html>

以上是保存页面


function setid()

{

    str='<br>';    

    if(!window.form1.upcount.value)

        window.form1.upcount.value=1;

    for(i=1;i<=window.form1.upcount.value;i++)

        //str+='文件'+i+':<input type=file name=file'+i+' style=width:400><br><br>';

        str=getStrValue();

    //alert(str);

    window.upid.innerHTML=str+'<br>';

}

//增加一个

function setSetAddOne()

{

    var str;

    var id=eval(window.form1.upcount.value);

    id+=1;

    window.form1.upcount.value=id;

    str=window.upid.innerHTML;

    str+=addOne(id);

    window.upid.innerHTML=str;

}

//取得最终生成的innerHTML

function getStrValue()

{

    var str='';

    if(!window.form1.upcount.value)

        window.form1.upcount.value=1;

    //alert(window.form1.upcount.value);

    for(i=1;i<=window.form1.upcount.value;i++)

    {

        str+=addOne(i);

        //alert(str);

    }

    return str;

}

//返回增加一项的字符，参数是当前是每几个

function addOne(i)

{

	var str='<br>故障描述：<input id="t'+i+'" name="t'+i+'" type="text"  class="app_table_input"/>  返修措施：<select name=fxcs'+i+'><option value="补装">补装</option><option value="更换">更换</option><option value="调整">调整</option><option value="紧固">紧固</option></option><option value="补漆">补漆</option></option><option value="补加">补加</option></select><br>';

    return str;

}

//这个函数是根据用户设置的数字去重新生成innerHTML

//以上是动态添加多行页面
...全文
290 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
bysjlwdx 2018-06-28
  • 打赏
  • 举报
 回复
曾经的ASP
丈二和尚阿尼纳 2018-06-27
  • 打赏
  • 举报
 回复 


 rs.open sql,conn,1,3

 upcount=cint(request.form("upcount"))

    for i=1 to upcount

    t=request.form("t"&i)

    fxcs=request.form("fxcs"&i)

    '========入库代码

	if trim("t"&i)<>"" then

	rs.addnew

我的<>这个为空 停止写入 不好用呢
Go 旅城通票 2018-06-27
  • 打赏
  • 举报
 回复
还以为红包。。积分，呵呵。。

自己asp循环window.form1.upcount.value的值获取t和fxcs的值入库
upcount=cint(request.form("upcount"))

for i=1 to upcount

t=request.form("t"&i)

fxcs=request.form("fxcs"&i)

'========入库代码

next
ASP.NET管理系统
一个简单的asp.net管理系统，有权限分配，控制到按钮级别.采用vs2008开发，数据库附加即可。
超酷论坛EDD8 Ver.2003 for DV
酷窗版演示：http://www.edd8.com/bbs/index.asp?style=0 简装版演示：...如果还不问题，可以到我的论坛上来交流。??注意，由于本人时间不限，技术支持是有限的，请不要过于强求！
基于ASP.NET网站开发的 SQL SERVER 数据库教学辅导 新手基础实用技术精讲
ASP.NET网站开发 数据库教学辅导 实用技术精讲,主要针对基于ASP.NET的Visual Studio 2010和SQL SERVER 2008 R2下开发的基础数据库部分
浪子文章管理程序-特别版
七、自带友情链接，可自由添加，由管理员审批后通过！ 八、自带一个简单公告， 九、自带一个留言板，支持UBB、可回复、删除管理 十、算是完整的后台管理，可管理会员、编辑/修改/审批　文章， 十一...
mysql-connector-odbc-5.1.5-win32.msi MySql ODBC驱动
MySQL Connector/ODBC是MYSQL数据库的ODBC驱动程序，统安装了这个程序之后，就可以通过ODBC来访问MySQL，这样就可以实现SQLServer、Access和MySQL之间的数据转换，还可以支持ASP访问MySQL数据库。
ASP

28,391

社区成员

357,060

社区内容

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

加载中

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

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

+ 用AI写文章