关于ASP更新数据库的问题
下面的代码是我写的一个页面，请高手给我看看错在哪儿了，每次提交都会出错，数据库的项也没有改变……url参数：edit3.asp?sfz=46749876165465465...
下面的代码是我写的一个页面，请高手给我看看错在哪儿了，每次提交都会出错，数据库的项也没有改变……
url参数：
edit3.asp?sfz=467498761654654651&k2t=&k2=true&k2bt=&k2b=true&k3t=&k3=true&k3bt=&k3b=true
下面是edit3.asp的内容：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/conn.asp" -->
<%
Dim strsql
%>
<%
Dim yw3up_k2
yw3up_k2 = "No"
If (Request.QueryString("k2") = "true") Then
yw3up_k2 = "Yes"
%>
<%
Dim yw3up_k2b
yw3up_k2b = "No"
If (Request.QueryString("k2b") = "true") Then
yw3up_k2b = "Yes"
%>
<%
Dim yw3up_k3
yw3up_k3 = "No"
If (Request.QueryString("k3") = "true") Then
yw3up_k3 = "Yes"
%>
<%
Dim yw3up_k3b
yw3up_k3b = "No"
If (Request.QueryString("k3b") = "true") Then
yw3up_k3b = "Yes"
%>
<%
strsql = "UPDATE 客户信息 SET [科2情况]='"&yw3up_k2&"', [科2补考情况]='"&yw3up_k2b&"', [科3情况]='"&yw3up_k3&"', [科3补考情况]='"&yw3up_k3b&"'"
%>
<%
Dim yw3up_sfz
yw3up_sfz = ""
If (Request.QueryString("sfz") <> "") Then
yw3up_sfz = Request.QueryString("sfz")
End If
%>
<%
Dim yw3up_k2t
yw3up_k2t = ""
If (Request.QueryString("k2t") <> "") Then
yw3up_k2t = Request.QueryString("k2t")
strsql = strsql&", [科2日期]=#"&yw3up_k2t&"#"
End If
%>
<%
Dim yw3up_k2bt
yw3up_k2bt = ""
If (Request.QueryString("k2bt") <> "") Then
yw3up_k2bt = Request.QueryString("k2bt")
strsql = strsql&", [科2补考时间]=#"&yw3up_k2bt&"#"
End If
%>
<%
Dim yw3up_k3t
yw3up_k3t = ""
If (Request.QueryString("k3t") <> "") Then
yw3up_k3t = Request.QueryString("k3t")
strsql = strsql&", [科3日期]=#"&yw3up_k3t&"#"
End If
%>
<%
Dim yw3up_k3bt
yw3up_k3bt = ""
If (Request.QueryString("k3bt") <> "") Then
yw3up_k3bt = Request.QueryString("k3bt")
strsql = strsql&", [科3补考时间]=#"&yw3up_k3bt&"#"
End If
%>
<%
strsql = strsql&" WHERE [身份证号]='"&yw3up_sfz&"'"
%>
<%
Dim rs
Set rs = Server.CreateObject ("ADODB.Connection")
rs.Execute(strsql)
Response.Redirect(request.ServerVariables("HTTP_REFERER"))
%>
<!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=utf-8" />
<title>无标题文档</title>
</head>
<body>
</body>
</html> 展开
url参数：
edit3.asp?sfz=467498761654654651&k2t=&k2=true&k2bt=&k2b=true&k3t=&k3=true&k3bt=&k3b=true
下面是edit3.asp的内容：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/conn.asp" -->
<%
Dim strsql
%>
<%
Dim yw3up_k2
yw3up_k2 = "No"
If (Request.QueryString("k2") = "true") Then
yw3up_k2 = "Yes"
%>
<%
Dim yw3up_k2b
yw3up_k2b = "No"
If (Request.QueryString("k2b") = "true") Then
yw3up_k2b = "Yes"
%>
<%
Dim yw3up_k3
yw3up_k3 = "No"
If (Request.QueryString("k3") = "true") Then
yw3up_k3 = "Yes"
%>
<%
Dim yw3up_k3b
yw3up_k3b = "No"
If (Request.QueryString("k3b") = "true") Then
yw3up_k3b = "Yes"
%>
<%
strsql = "UPDATE 客户信息 SET [科2情况]='"&yw3up_k2&"', [科2补考情况]='"&yw3up_k2b&"', [科3情况]='"&yw3up_k3&"', [科3补考情况]='"&yw3up_k3b&"'"
%>
<%
Dim yw3up_sfz
yw3up_sfz = ""
If (Request.QueryString("sfz") <> "") Then
yw3up_sfz = Request.QueryString("sfz")
End If
%>
<%
Dim yw3up_k2t
yw3up_k2t = ""
If (Request.QueryString("k2t") <> "") Then
yw3up_k2t = Request.QueryString("k2t")
strsql = strsql&", [科2日期]=#"&yw3up_k2t&"#"
End If
%>
<%
Dim yw3up_k2bt
yw3up_k2bt = ""
If (Request.QueryString("k2bt") <> "") Then
yw3up_k2bt = Request.QueryString("k2bt")
strsql = strsql&", [科2补考时间]=#"&yw3up_k2bt&"#"
End If
%>
<%
Dim yw3up_k3t
yw3up_k3t = ""
If (Request.QueryString("k3t") <> "") Then
yw3up_k3t = Request.QueryString("k3t")
strsql = strsql&", [科3日期]=#"&yw3up_k3t&"#"
End If
%>
<%
Dim yw3up_k3bt
yw3up_k3bt = ""
If (Request.QueryString("k3bt") <> "") Then
yw3up_k3bt = Request.QueryString("k3bt")
strsql = strsql&", [科3补考时间]=#"&yw3up_k3bt&"#"
End If
%>
<%
strsql = strsql&" WHERE [身份证号]='"&yw3up_sfz&"'"
%>
<%
Dim rs
Set rs = Server.CreateObject ("ADODB.Connection")
rs.Execute(strsql)
Response.Redirect(request.ServerVariables("HTTP_REFERER"))
%>
<!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=utf-8" />
<title>无标题文档</title>
</head>
<body>
</body>
</html> 展开
3个回答
展开全部
从URL参数可以知道yw3up_k2t取得的值是""（字符串）。但是数据库里的[科2日期]应该是日期型的吧。如果要把空数据写入数据库，那么应该用null而不是""，其他项也类似。
具体代码，你可以自己想想，不难！~
希望上面的答案能给你帮助，谢谢
具体代码，你可以自己想想，不难！~
希望上面的答案能给你帮助，谢谢
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<%
Dim rs
Set rs = Server.CreateObject ("ADODB.Connection")
rs.Execute(strsql)
Response.Redirect(request.ServerVariables("HTTP_REFERER"))
%>
这里只看到创建了数据库连接对象，并没有open打开数据库。。
有什么错误提示呢？
Dim rs
Set rs = Server.CreateObject ("ADODB.Connection")
rs.Execute(strsql)
Response.Redirect(request.ServerVariables("HTTP_REFERER"))
%>
这里只看到创建了数据库连接对象，并没有open打开数据库。。
有什么错误提示呢？
追问
错误提示是500，是不是要加一句open？
追答
500返回的是IE浏览器的友好提示，去除此提示方便调试程序。。
去除方法：工具--Internet选项--高级--显示友好HTTP错误信息 前面的钩去掉。。
再提交表单测试程序显示的错误。。
估计是没有open的原因。。以及你的程序编写不规范。。数据库表应该以英文命名。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
1. ASP与Access数据库连接：
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>
2. ASP与SQL数据库连接：
<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
%>
希望采纳啊 再有问题百度HI我
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>
2. ASP与SQL数据库连接：
<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
%>
希望采纳啊 再有问题百度HI我
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
