Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
keep.asp
Package: shop2.rar [view]
Upload User: btntkt
Upload Date: 2021-04-16
Package Size: 5296k
Code Size: 1k
Category:
WEB(ASP,PHP,...)
Development Platform:
DOS
- <!--#include file="conn.asp"-->
- <%
- dim cls
- if session("admin")="" then
- Response.Redirect("admin.asp")
- else
- if session("flag")<>"0" then
- cls = Instr(session("flag"), "manprofig")
- if cls <= 0 then
- %>
- <script language="javascript">
- if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
- location.href="login.asp";
- else
- location.href="index.asp";
- </script>
- <%
- end if
- end if
- end if
- %>
- <%
- action=request("action")
- id=request("id")
- set rs=server.createobject("adodb.recordset")
- if action="sj" then
- rs.open "select * from products where bookid="&id ,conn,1,3
- rs("zhuangtai")=0
- rs.update
- response.redirect request.servervariables("http_referer")
- elseif action="xj" then
- rs.open "select * from products where bookid="&id ,conn,1,3
- rs("zhuangtai")=1
- rs.update
- response.redirect request.servervariables("http_referer")
- end if
- %>