attribute2.asp

来自「asp+access开发的网上购物程序」· ASP 代码 · 共 72 行

ASP
72 行
字号 
<%@ codepage ="936" %><!--#include file="../../conn/dbconn2.asp" --><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>注册会员审核</title><LINK href="../Style.css" rel=stylesheet type=text/css></head><%IF request("action")="save" Thencall save()Elsecall main()End Ifsub main()if not isEmpty(request("id")) thenuserid=request("id")elseuserid=1end ifSet rs= Server.CreateObject("ADODB.Recordset") sql="select * from Qyml where hybz=true and id="&userid&""rs.open sql,conn,1,1%><CENTER><FORM action=attribute2.asp method=post name=form1><INPUT name=action type=hidden value="save"><INPUT name=userid type=hidden value="<%=userid%>"><TABLE align=center border=0 cellPadding=3 cellSpacing=0 width="98%"><TBODY><TR><TD align=left><INPUT <%if rs("flag")=0 then response.write "checked"%> name=flag type=radio value=0> 等待付费 </TD><TD><INPUT <%if rs("flag")=1 then response.write "checked"%> name=flag type=radio value=1> 已经付费</TD></TR><TR><TD align=left><INPUT <%if rs("flag")=2 then response.write "checked"%> name=flag type=radio value=2> 等待续费 </TD><TD><INPUT <%if rs("flag")=3 then response.write "checked"%> name=flag type=radio value=0> 注销资格</TD></TR><TR><TD height="40" align="center" colspan=2><input type="submit" value="确&nbsp;&nbsp;定" name="Submit2" onclick="window.opener.location.href='payment.asp';window.close();" style="font-size: 9pt; ">&nbsp;&nbsp;<input type="button" value="返&nbsp;&nbsp;回" name="B4" onclick="javascript:window.close();"></TD></TR></TBODY></TABLE></form><%end subsub save()set rs=server.createobject("adodb.recordset")sql="select id,flag,hybz from Qyml where id="&request("userid")&""rs.open sql,conn,3,3rs("flag")=request("flag")if request("flag")=3 thenrs("hybz")=0end ifrs.updateend subrs.closeset rs=nothingconn.closeset conn=nothing%></body></html>

attribute2.asp - 源码说明

本页面展示了「asp+access开发的网上购物程序」中的 attribute2.asp 源码文件，采用 ASP 编程语言编写，共 72 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与access相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?