set.asp

来自「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」· ASP 代码 · 共 75 行

ASP
75 行
字号 
<%@ 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
userid=request("id")
else
userid=1
end if
Set rs= Server.CreateObject("ADODB.Recordset") 
sql="select * from spzs where id="&userid&""
rs.open sql,conn,1,1
%>
<CENTER>
<FORM action=set.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=0 cellSpacing=0 width="98%">
<TBODY>
<TR>
<TD>
<INPUT <%if instr(rs("zsbz"),"01")<>0 then response.write "checked"%> name=zsbz type=checkbox value="01"> 首页推荐 
</TD>
<TD>
<INPUT <%if instr(rs("zsbz"),"02")<>0 then response.write "checked"%> name=zsbz type=checkbox value="02"> 展厅首页
</TD>
</TR>
<TR>
<TD>
<INPUT <%if instr(rs("zsbz"),"03")<>0 then response.write "checked"%> name=zsbz type=checkbox value="03"> 其它页面 
</TD>
<TD>
<INPUT <%if instr(rs("zsbz"),"04")<>0 then response.write "checked"%> name=zsbz type=checkbox value="04"> 展厅推荐 
</TD>
</tr>
<tr>
<TD>
<INPUT <%if instr(rs("zsbz"),"00")<>0 then response.write "checked"%> name=zsbz type=checkbox value="00"> 取消推荐
</TD>
</TR>
<TR>
<TD height="40" align="center" colspan=2>
<INPUT type=submit value='确&nbsp;&nbsp;定' name=Submit2>&nbsp;&nbsp;&nbsp;&nbsp;
<input type="button" value="返&nbsp;&nbsp;回" 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("userid")&""
rs.open sql,conn,3,3
rs("zsbz")=request("zsbz")
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>

set.asp - 源码说明

本页面展示了「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」中的 set.asp 源码文件，采用 ASP 编程语言编写，共 75 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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