耳根我欲封天完整版txt:为什么elite的值不能写进数据库?

来源:百度文库 编辑:高考问答 时间:2024/04/30 04:07:56
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_lib/my_request.asp"-->
<%
id=request("id")
call elite()
response.write "<script>window.opener.document.location.reload();</script>"
response.write "<script>window.close();</script>"
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" rel=stylesheet type=text/css>
<body>
<form action="3class_elite.asp" method="post" name=form1 onsubmit="return checkdata();">
<table width="100%" id="table1">
<tr>
<td><input value=1 name="elite" size="8"></input>

<input type="hidden" name="action" value="elite">
<input type="hidden" name="id" value="<%=id%>">
</td>
</tr>
</table>
</form>
</body>

</html>
<%
sub elite()
id=request("id")
elite=request("elite")

sql="select * from san_class where id="&id
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
rs("elite")=elite
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing

end sub
%>

sub name 改个名,call 新的sub name