| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 674 人关注过本帖
标题:关于ASP修改ACCESS数据库的问题
取消只看楼主 加入收藏
qishaxing
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2006-6-26
收藏
 问题点数:0 回复次数:1 
关于ASP修改ACCESS数据库的问题

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn.asp"-->
<%Call MdbConn(Conndb)
If Request("action")=1 Then
Set Rs=Server.CreateObject("Adodb.Recordset")
Sql="Select * From [fwwxdj[ Where id="&Request("id")
Rs.Open Sql,Conn,2,3
Rs("d_address")=Request("d_address")
Rs("b_name")=Request("b_name")
Rs("x_address")=Request("x_address")
Rs("b_time")=Request("b_time")
Rs("b_phone")=Request("b_phone")
Rs("b_xiangmu")=Request("b_xiangmu")
Rs("sfgf")=Request("sfgf")
Rs("yy_time")=Request("yy_time")
Rs("wxg_name")=Request("wxg_name")
Rs("wg_time")=Request("wg_time")
Rs("wxqk")=Request("wxqk")
Rs("szxm")=Request("szxm")
Rs("syhc")=Request("syhc")
Rs.UpDate
Rs.Close
Set Rs=Nothing
Response.Write("<script>alert('恭喜,修改成功!');location.href='xigai.asp';</script>")
End If%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>报修信息</title>
<link href="Css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.inputs {
border: none;
}
-->
</style>
</head>

<body>
<table width="830" height="530" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="25" align="center" bgcolor="#F1F1F1"><font color="#FF0000"><b>管理</b></font></td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF"><table width="180" height="15" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table><table width="800" height="330" border="0" cellpadding="0" cellspacing="0">
<form name="form1" method="post" action="?action=1">
<%
Dim id
id = Request.QueryString("id")
Set rsxx = Server.CreateObject("ADODB.RecordSet")
sql = "Select * FROM fwwxdj WHERE Id =" & id & ""
rsxx.Open sql,conn,1,1%>
<tr>
<td width="3%"> </td>
<td height="30">地区:</td>
<td width="23%"><input name="d_address" type="text" id="d_address" value="<%=Rs("d_address")%>"></td>
<td height="30">报修时间:</td>
<td width="23%"><input name="b_name" type="text" id="b_name" value="<%=Rs("b_name")%>"></td>
<td height="30">具体地址:</td>
<td width="23%"><input name="x_address" type="text" id="x_address" value="<%=Rs("x_address")%>"></td>
<td height="30">报修时间:</td>
<td width="23%"><input name="b_time" type="text" id="b_time" value="<%=Rs("b_time")%>"></td>
<td height="30">联系电话:</td>
<td width="23%"><input name="b_phone" type="text" id="b_phone" value="<%=Rs("b_phone")%>"></td>
<td width="9%">项目:</td>
<td width="56%"><input name="b_xiangmu" type="text" id="b_xiangmu" value="<%=Rs("b_xiangmu")%>"></td>
</tr>
<tr> <td height="30">房屋属性:</td>
<td><input name="sfgf" type="text" id="sfgf" value="<%=Rs("sfgf")%>">
</td>
<td>预约时间:</td>
<td><input name="yy_time" type="text" id="yy_time" value="<%=Rs("yy_time")%>"></td>
</tr>
<tr>

<td height="30">维修工:</td>
<td><input name="wxg_name" type="text" id="wxg_name" value="<%=Rs("wxg_name")%>">
</td>
<td><input name="wg_time" type="text" id="wg_time" value="<%=Rs("wg_time")%>">
</td>
<td><input name="wxqk" type="text" id="wxqk" value="<%=Rs("wxqk")%>">
</td>
<td><input name="szxm" type="text" id="szxm" value="<%=Rs("szxm")%>">
</td>
</tr>
<tr>
<td width="3%"> </td>
<td width="9%" height="161" valign="top"><br>
备注说明:</td>
<td colspan="3"><textarea name="syhc" cols="60" rows="9" id="syhc"><%=Rs("syhc")%></textarea></td>
</tr>
<tr>
<td width="3%"> </td>
<td height="30"> </td>
<td colspan="3">   
<input type="submit" name="Submit" value="提 交" onClick="return emp();">  
<input type="reset" name="Submit2" value="重 置">
<input name="id" type="hidden" id="id" value="<%=Request("id")%>">
</td>
</tr>
<%Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing%>
</form>
</table></td>
</tr>
</table>
</body>
</html>

搜索更多相关主题的帖子: 数据库 ACCESS Request ASP 
2006-06-26 19:29
qishaxing
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2006-6-26
收藏
得分:0 

我来搞清楚点

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn.asp"-->
<%Call MdbConn(Conndb)
If Request("action")=1 Then
Set Rs=Server.CreateObject("Adodb.Recordset")
Sql="Select * From [fwwxdj[ Where id="&Request("id")
Rs.Open Sql,Conn,2,3
Rs("d_address")=Request("d_address")
Rs("b_name")=Request("b_name")
Rs("x_address")=Request("x_address")
Rs("b_time")=Request("b_time")
Rs("b_phone")=Request("b_phone")
Rs("b_xiangmu")=Request("b_xiangmu")
Rs("sfgf")=Request("sfgf")
Rs("yy_time")=Request("yy_time")
Rs("wxg_name")=Request("wxg_name")
Rs("wg_time")=Request("wg_time")
Rs("wxqk")=Request("wxqk")
Rs("szxm")=Request("szxm")
Rs("syhc")=Request("syhc")
Rs.UpDate
Rs.Close
Set Rs=Nothing
Response.Write("<script>alert('恭喜,修改成功!');location.href='xigai.asp';</script>")
End If%>

<%
Dim id
id = Request.QueryString("id")
Set rsxx = Server.CreateObject("ADODB.RecordSet")
sql = "Select * FROM fwwxdj WHERE Id =" & id & ""
rsxx.Open sql,conn,1,1%>



<%Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing%>

提示说中间的错了

2006-06-26 20:11
快速回复:关于ASP修改ACCESS数据库的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.078912 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved