attribute.asp
来自「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」· ASP 代码 · 共 62 行
ASP
62 行
<%@ codepage ="936" %><!--#include file="../../inc/config.asp"-->
<!--#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" Then
call save()
Else
call main()
End If
sub main()
if not isEmpty(request("id")) then
info_id=request("id")
else
info_id=1
end if
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from spzs where id="&info_id&""
rs.open sql,conn,1,1
%>
<CENTER>
<FORM action=attribute.asp method=post name=form1>
<INPUT name=action type=hidden value="save">
<INPUT name=info_id type=hidden value="<%=info_id%>">
<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 height="40" align="center" colspan=2>
<INPUT type=submit value='确 定' name=Submit2>
<input type="button" value="返 回" name="B4" onclick="javascript:window.close();">
</TD>
</TR>
</TBODY>
</TABLE>
</form>
<%
end sub
sub save()
set rs=server.createobject("adodb.recordset")
sql="select * from spzs where id="&request("info_id")&""
rs.open sql,conn,3,3
rs("flag")=request("flag")
rs.update
response.write "<br><center>"+"操作成功，请<a href=javascript:window.close();><font color=#ff000>关闭窗口</font></a>进行其他操作。"
end sub
rs.close
set rs=nothing
conn.close
set conn=nothing
%></body></html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?