Question

asp网页与数据库问题

<input value="未发货" type=button onClick="if(this.value=='未发货'){this.value='已发货';this.disabled=true;}" /> 这个代码，但是网页刷新后，又回到 未发货，怎样实现，点击后永久显示已发货，就是一台电脑上点击了 ，其他电脑照样看到效果，谢谢，如果用数据库，麻烦大姐大哥，给数据库代码和ASP网页代码 因为小妹对代码不懂，麻烦给完整的代码。谢谢

Answer 1

不懂还弄？

共两个asp页面，，一个前台显示，一个后台改数据
index.asp

<%
dim db,conn,connstr '定义数据
db="db1.mdb" '数据库地址
set Conn = server.CreateObject("ADODB.Connection") '创建数据库对象
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr '打开连接

set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from table1 where id=1" '要执行的查询，看看是否已经发货
rs.Open sql,conn,0,1 '执行上面的语句
%>
<!--定义一个表单。。。。-->
<form action="action.asp?disable=true" method=post>
<input
<%
if (trim(rs("已发货"))="Y") then '判断数据库里的“已收货”字段是否为Y
response.write "disabled=disabled value='未发货' "
else
response.write "value='已发货' "
end if
%>
type="submit" />
</form>

----------------------------------------------------------------------------------
<form action="action.asp?disable=false" method=post>
<input
<%
if (trim(rs("已发货"))="N") then
response.write "disabled=disabled value='已发货' "
else
response.write "value='未发货' "
end if
%>
value="已发货" type="submit" />
</form>
<%rs.close()%>

action.asp

<%
dim db,conn,connstr
db="db1.mdb"
set Conn = server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

set rs=server.CreateObject("ADODB.RecordSet")
action=trim(request("disable")) '获取前一个页面传过来的值

if(action="true") then '判断是否已发货
Sql="update table1 set 已发货='Y' where id=1"
else
Sql="update table1 set 已发货='N' where id=1"
end if

conn.execute sql '执行语句
response.redirect "index.asp" '跳到index.asp页面
%>

忘了，还有数据库，
一张表，table1
id 自增
已收货 文本

追问

数据库，怎样加，是否可以给你完整的，直接放到网页就可以的，大哥，小妹实在太笨了，谢谢大哥

追答

额。。。。。。。。。。。。。。。。。。。。。。。。。

直接给你例子得了
http://a.unknownn.tk/demo/condb/index.asp
demo地址，，效果什么的，，自己看

你要是再不懂。。。你就。。。。。。。。。。。。。。。。。。。。。

直接给我留言