标题:关于ASP修改ACCESS数据库的问题
只看楼主
qishaxing
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2006-6-26
 问题点数:0 回复次数:6 
关于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
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1214
专家分:1366
注 册:2005-3-14
得分:0 

呵呵,这谁能看得清?


http://toorup.3v.do
loading...
2006-06-26 19:49
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
janefishfish
Rank: 1
等 级:新手上路
帖 子:50
专家分:0
注 册:2006-6-24
得分:0 

一个字~~~~乱


2006-06-27 10:49
特种兵
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2006-7-12
得分:0 
哥哥,下次贴码的时候给大家个指南针好不。

我坐在一个黑暗的角落/憧憬着光明/人生就是不断的历练自己的心志/于是我渴望失败/因为我渴望成功
2006-07-12 21:21
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
得分:0 
你的问题是什么,只贴个代码上来.而且又是乱七八糟的,别人怎么帮你?

http://www./
2006-07-13 09:35
yejianglin
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-5-24
得分:0 
可能是黑客的病毒代码,我搞不定.发者给懂asp?
2006-08-05 18:12



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-74974-1-1.html




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

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