ASP上碰到的一个很麻烦的问题!SQL查询并修改(已解决)
数据库如下自动编号 文本 日期/时间 文本
表名 Client 段 Client_Id Client_Name Client_Time Client_Ip
-----------------------------------------------------------------
思路如下:
首先从 Client 表中搜索 Client_Name 段里是否存在 表单文本域中的值
如果不在存的话
则创建新的客户值到数据库
如果存在的话
则修改 存在 表单文本域中值 段 Client_Name(不改动) Client_Time(修改成现行时间) Client_Ip(修改成本机IP) 的内容
(问题就在这里: 修改的Client_Time Client_Ip值却无任何反应！数据库的值也没有办法)
代码如下:
-----------------------------------------------------
Add.asp 代码如下
<!--#include file="Config.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<script type="text/javascript" language="javascript">
//**********添加客户调用**********
function Addclient(the){
//客户名称不能为空
if(the.Client_Name.value==""){
alert("客户名称不能为空！");
the.Client_Name.focus();
return false;
}
}
</script>
<%
If session("Admin") = "" then
Response.redirect "Login.asp"
response.end()
End If
If request("action")="Addclient" then
Client_Name=request.form("Client_Name")
response.cookies("Client_Name")=rs("Client_Name")
session("Client_Name")=Client_Name
response.redirect "search.asp"
End if
%>
<form method="post" Action="search.asp?Action=Addclient" onSubmit="return Addclient(this);">
<input name="Client_Name" type="text" id="Client_Name" value="测试帐号" size="23" maxlength="16">
<input type="submit" style="border: 1px solid #000000; background-color: #f0f0f0;height:28" value="确认添加">
<input type="reset" value="重新输入" style="border: 1px solid #000000; background-color: #f0f0f0;height:28">
</form>
</body>
</html>
----------------------------------------------------
Search.asp 代码如下
<!--#include file="Config.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
Client_Name=Request.form("Client_Name")
sql="select * from Client where Client_Name='" & Client_Name & "'"
set rs=conn.execute(sql)
If rs.eof or rs.bof then
Sql="Insert Into [Client] (Client_Name,Client_Ip,Client_Time) values ('"& Client_Name &"','"& now() &"','"& ip &"')"
conn.execute(Sql)
Response.Redirect "Client.asp"
Response.End
Else
Sql="update [Client] Set Client_Ip='"& ip &"',Client_Time='"& now() &"' where Client_Id="& Id &""
conn.execute(Sql)
Response.Redirect "Client.asp"
Response.End
end if
%>
</body>
</html>
[ 本帖最后由 萧林儿 于 2010-7-12 20:32 编辑 ]
