A视频无法写入数据库

Suvion 2015-02-25 10:45:57
Asp代码无法传值，点击提交后是空白页。代码如下

<%



action = Trim(Request("action"))

Select Case action

	Case "Main"

		Call Main()

	Case "saveEdit"

		Call saveEditData()

	Case "saveRecords"

		Call saveRecordsData()

	Case "saveHetong"

		Call saveHetongData()

	Case "editRecords"

		Call editRecordsData()

		

	Case Else

		Call main()

End Select

%>




<form name="Hetong" action="?action=saveHetong&cid=<%=cid%>" enctype="multipart/form-data" method="post" onSubmit="return CheckInput();">

    <div class="addcopmay">

       <ul>

         <li class="company_main">合同编号：<input type="text" name="hBianhao" id="hBianhao" size="10" />    合同状态：<% = getSelect("SelectData","Select_Hetong","hType") %>   产品：<select name="hPBigclass" class="int" onChange="hgetTrade(this.options[this.selectedIndex].id);">

									<option value=""><%=L_Please_choose_01%></option>

									<% 

										Set rsb = Conn.Execute("select * from ProductClass where pClassFid = '0' ")

										If Not rsb.Eof then

										Do While Not rsb.Eof

										pClassid= rsb("pClassid")

										pClassname= rsb("pClassname")

									%>

										<option value="<%=pClassname%>" id="<%=pClassid%>"><%=pClassname%></option>

									<%

										rsb.Movenext

										Loop

										End If

										rsb.Close

										Set rsb = Nothing 

									%>

									</select> <span id="hStradediv"  style="margin-left:10px;padding:0;">

										<select name="Strades" class="int">

											<option value=""><%=L_Please_choose_02%></option>

										</select>

									</span>  <input name="Strade" type="hidden" id="Strade" class="int">  </li>

         <li class="company_main">吨数：<input name="hNumber" type="text" id="hNumber" class="int" size="10" />  目的港：<input type="text" name="hMudigang" id="hMudigang" size="20" />  付款方式：<input type="text" name="hFukuanfangshi" id="hFukuanfangshi" size="20" />   价格：<input name="hPrice" type="text" id="hPrice" class="int" size="10" />  总金额：<input name="hMoney" type="text" id="hMoney" class="int" size="10" /><%=L_Yuan%></li>

         <li class="company_main">出运日期：<input name="hCYTime" type="text" maxlength="10" id="hCYTime" class="Wdate" onFocus="WdatePicker({dateFmt:'yyyy-MM-dd HH:mm:00'})" size="25" />   预付款：<input name="hRevenue" type="text" id="hRevenue" class="int" size="10" value="0" />  预付款日期：<input name="hYFTime" type="text" maxlength="10" id="hYFTime" class="Wdate" onFocus="WdatePicker({dateFmt:'yyyy-MM-dd HH:mm:00'})" size="25" />  </li>

         <li class="company_main">尾款金额：<input name="hWeikuan" type="text" id="hWeikuan" class="int" size="10" value="0" />  预计尾款到账期：<input name="hYJWKTime" type="text" maxlength="10" id="hYJWKTime" class="Wdate" onFocus="WdatePicker({dateFmt:'yyyy-MM-dd HH:mm:00'})" size="25" />  实际尾款到账期：<input name="hSJWKTime" type="text" maxlength="10" id="hSJWKTime" class="Wdate" onFocus="WdatePicker({dateFmt:'yyyy-MM-dd HH:mm:00'})" size="25" /></li>

         <li class="company_main">合同主体：<select name="hInvoice" class="int">

										<option value=""><%=L_Please_choose_01%></option>

										<option value="离岸公司">离岸公司</option>

										<option value="境内公司">境内公司</option>

									</select>   <%=L_Hetong_QDTime%>：<input name="hQDTime" type="text" maxlength="10" id="hQDTime" class="Wdate" onFocus="WdatePicker({dateFmt:'yyyy-MM-dd HH:mm:00'})" size="25" />  合同进展：<input type="text" name="HJinzhan" id="HJinzhan" size="40" /></li>

        <li class="Info_tit">备注</li>

        <li><%

Dim oFCKeditor

Set oFCKeditor = New FCKeditor

oFCKeditor.BasePath = "../FCKeditor/"

oFCKeditor.ToolbarSet = "Default"

oFCKeditor.Width = "100%"

oFCKeditor.Height = "100"

oFCKeditor.Value = hContent

oFCKeditor.Create "hContent"

%></li>

      <li class="Info_tit"><%=L_Hetong_Quanxian%></li>

      <li class="Quanxian">

      <%

										Set rs = Server.CreateObject("ADODB.Recordset")

										rs.Open "Select * From [user] Order By uId Asc ",conn,1,1 

										If rs.RecordCount = 0 Then

										Response.Write("暂无会员")

										else

										Do While Not rs.BOF And Not rs.EOF

									%>

										<span><input name="hPurview" type="checkbox" value="<%=rs("uName")%>" <%if rs("uLevel")=9 or rs("uName")=Session("CRM_name")  then response.write ("checked onclick=""return false""")%>> <%=rs("uName")%></span>

									<%

										rs.MoveNext

										Loop

										end if

										rs.Close

										Set rs = Nothing

									%>

      

      </li>

      <input name="cId" type="hidden" id="cId" value="<%=cId%>">

      <input name="hUser" type="hidden" id="hUser" value="<%=Session("CRM_name")%>">

      <li class="Submit_finish"><input type="submit" name="Submit" class="button_Submit" value=" <%=L_Add%> ">　<input name="Back" type="button" id="Back" class="button_back" value=" <%=L_Back%> " onClick="history.back();"></li>

       

       </ul>

    </div>

    </form>


Sub代码如下

<%

Sub saveHetongData()

	

    Dim cId

	Dim hBianhao,hType,hPBigclass,hPSmallclass,hNumber,hMudigang,hFukuanfangshi,hPrice,hMoney,hCYTime,hRevenue

	Dim hYFTime,hWeikuan,hYJWKTime,hSJWKTime,hInvoice,hQDTime,HJinzhan,hContent,hPurview,hUser

		cId = CLng(ABS(Request("cId")))	

		hBianhao = Request.Form("hBianhao")	    

		hType = Request.Form("hType")

		hPBigclass = Request.Form("hPBigclass")

		hPSmallclass = Request.Form("Strade")

		hNumber = Request.Form("hNumber")

		hMudigang = Request.Form("hMudigang")

		hFukuanfangshi = Request.Form("hFukuanfangshi")

		hPrice = Request.Form("hPrice")

		hMoney = Request.Form("hMoney")

		hCYTime = Request.Form("hCYTime")

		hRevenue = Request.Form("hRevenue")

		hYFTime = Request.Form("hYFTime")

		hWeikuan = Request.Form("hWeikuan")

		hYJWKTime = Request.Form("hYJWKTime")

		hSJWKTime = Request.Form("hSJWKTime")

		hInvoice = Request.Form("hInvoice")

		hQDTime = Request.Form("hQDTime")

		HJinzhan = Request.Form("HJinzhan")

		hContent = RTrim(Request.Form("hContent"))

		hPurview = Request.Form("hPurview")

		hUser = Request.Form("hUser")

	If Not IsNumeric(cId) Or cId <= 0 Then

		Response.Write("<script>alert("""&alert03&""");history.back(1);</script>")

	Else

    	Dim rs

    	Set rs = Server.CreateObject("ADODB.Recordset")

    	rs.Open "Select Top 1 * From Hetong",conn,3,2

		

		sql="UPDATE client SET cLastUpdated=' "&now()&" ' Where cId In (" & cId & ")"

		conn.execute sql

		

		sql="UPDATE client SET cType='"&CRTypeEnd&"' Where cId In (" & cId & ")"

		conn.execute sql

		

		rs.AddNew

		rs("cId") = cId

		rs("hBianhao") = hBianhao

		rs("hType") = hType

		rs("hPBigclass") = hPBigclass

		rs("hPSmallclass") = hPSmallclass

		rs("hNumber") = hNumber

		rs("hMudigang") = hMudigang

		rs("hFukuanfangshi") = hFukuanfangshi

		rs("hPrice") = hPrice

		rs("hMoney") = hMoney

		rs("hCYTime") = hCYTime

		rs("hRevenue") = hRevenue

		rs("hYFTime") = hYFTime

		rs("hWeikuan") = hWeikuan

		rs("hYJWKTime") = hYJWKTime

		rs("hSJWKTime") = hSJWKTime

		rs("hInvoice") = hInvoice

		rs("hQDTime") = hQDTime

		rs("HJinzhan") = HJinzhan

		rs("hContent") = hContent

		rs("Purview") = hPurview

		rs("hUser") = hUser

		

    	rs.Update

    	rs.Close

    	Set rs = Nothing 

		conn.execute ("insert into Logfile(lCid,lClass,lAction,lUser,lTime) values('"&cid&"','"&L_insert_class_04&"','"&L_insert_action_01&"','"&Session("CRM_name")&"','"&now()&"')")	

	if ""&YNalert&"" = 1 then

		Response.Write("<script>alert('"&alert4&"');</script>")

	end if



	Response.Write("<script>location.href='view.asp?action=Main&otype=Main&cId="&cId&"';</script>")	 

	End If

End Sub

%>
...全文
74 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
slwsss 2015-02-25
  • 打赏
  • 举报
 回复
调试把sql语句打印出来看下有没有错误
Suvion 2015-02-25
  • 打赏
  • 举报
 回复
引用 1 楼 hefeng_aspnet 的回复:
输出一下你接到的值 看看你跳转地址是否正确
跳转地址没错误，提交后数据库内没写入数据
csdn_aspnet 2015-02-25
  • 打赏
  • 举报
 回复
输出一下你接到的值 看看你跳转地址是否正确
在mssql中 vb6 写入/读取 二进制数据（图片,视频,声音等等都可以）
Saving the Data in a SQL Server Image Column to a File on the Hard Disk；Transfer the Image Stored in a .gif File to an Image Column in a SQL Server Table。
非结构化数据(图片，视频等)写入数据库(MySQL,DWS)
需求要将视频图片等数据存到数据库中，研究测试了一下MySQL和华为高斯库（DWS库，基于PostgreSQL）的相应解决方案，予以记录。
SQL Server数据库基础到精通课程
本课程是陈表达在学习SQL server数据库后做的完整笔记，本课程讲解从最开始的 创建数据库、创建数据表、已经数据的写入、查询、修改更新、删除，字段运算、字段运算统计、分类汇总、数据分析、条件判断，条件筛选及...
python写入列表数据_python列表写入数据库
Python学习(22)--文件操作1Python学习(22)--...但是某些数据我们需要稳定的存储,如一个班级的成绩,这种随时可能被查阅的数据,最好就是存储在硬盘上的文件或者数据库...文章优惠码发放2018-03-23975浏览量python开源...
002-爬取豆瓣电影Top250数据写入数据库二维表
欢迎各位指正豆瓣Top250相信每一个学习爬虫的小伙伴都不陌生，因为网站结构简单明了，算是每位学习爬虫小伙伴的入门网站了那么今天就以豆瓣Top250为例，记录一下怎么使用python将爬取的豆瓣Top250数据写入数据库~...
ASP

28,391

社区成员

357,060

社区内容

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

加载中

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

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

+ 用AI写文章