您所在位置：主题：放在过程中的代码不能执行
wwg
[专家分：520] 发布于 2007-09-11 18:45:00
请帮忙指点一下，放在过程中的代码不能执行
<% @LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
set conn=server.CreateObject("adodb.connection")
MyDbPath = ""
Db=MyDbPath & "data/ktdata.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Conn.open ConnStr
set rs=conn.execute("select * from xz where id=1",recordsaffected,adcmdtext)
pxz=rs("xz").value
set conn=nothing
set rs=nothing
%>
<html >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<script language="vbscript">
<!--
sub button3_onclick
set conn=server.CreateObject("adodb.connection")
MyDbPath = ""
Db=MyDbPath & "data/ktdata.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Conn.open ConnStr
set rs=conn.execute("select * from xz where id=1",recordsaffected,adcmdtext)
pxz=rs("xz").value
pxz=pxz+1
set rs=conn.execute("update xz set xz='"&pxz&"' where id=1",recordsaffected,adcmdtext)
set conn=nothing
end sub
-->
</script>
</head>
<body>
<p>姓名：<input id=xm name=xm value="<%=pxz%>"></p><br>
<input type="button" name="button3" value="加一">
</body>
</html>
<% @LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
set conn=server.CreateObject("adodb.connection")
MyDbPath = ""
Db=MyDbPath & "data/ktdata.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Conn.open ConnStr
set rs=conn.execute("select * from xz where id=1",recordsaffected,adcmdtext)
pxz=rs("xz").value
set conn=nothing
set rs=nothing
%>
<html >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<script language="vbscript">
<!--
sub button3_onclick
set conn=server.CreateObject("adodb.connection")
MyDbPath = ""
Db=MyDbPath & "data/ktdata.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Conn.open ConnStr
set rs=conn.execute("select * from xz where id=1",recordsaffected,adcmdtext)
pxz=rs("xz").value
pxz=pxz+1
set rs=conn.execute("update xz set xz='"&pxz&"' where id=1",recordsaffected,adcmdtext)
set conn=nothing
end sub
-->
</script>
</head>
<body>
<p>姓名：<input id=xm name=xm value="<%=pxz%>"></p><br>
<input type="button" name="button3" value="加一">
</body>
</html>
