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
BBsDel.asp
Package: eat.rar [view]
Upload User: jisenq
Upload Date: 2014-06-29
Package Size: 7216k
Code Size: 1k
Category:
ADO-ODBC
Development Platform:
ASP/ASPX
- <% Option Explicit %>
- <!--#include file="../FS_Inc/Const.asp"-->
- <!--#include file="../FS_InterFace/MF_Function.asp" -->
- <!--#include file="../FS_Inc/Function.asp" -->
- <%
- response.buffer=true
- Response.CacheControl = "no-cache"
- MF_Default_Conn
- Dim Conn,User_Conn
- Dim Configobj,PageS,sql,MSTitle,ShowIP
- Set Configobj=server.CreateObject (G_FS_RS)
- sql="select ID,Title,IPShow,IsUser,IsAut,PageSize,Style From FS_WS_Config"
- configobj.open sql,Conn,1,1
- if not configobj.eof then
- PageS=configobj("PageSize")
- MSTitle=configobj("Title")
- ShowIP=configobj("IPShow")
- end if
- set configobj=nothing
- Dim BBsID,NoteID,ClassName,ClassID,Pag,NoteTilte,ShowRs,url
- if NoSqlHack(Request.querystring("Act"))="SinglDel" then
- NoteTilte=NoSqlHack(Request.QueryString("NoteTilte"))
- BBsID=NoSqlHack(Request.QueryString("BBSID"))
- NoteID=NoSqlHack(Request.QueryString("NoteID"))
- ClassName=NoSqlHack(Request.QueryString("ClassName"))
- ClassID=NoSqlHack(Request.QueryString("ClassID"))
- Pag=NoSqlHack(Request.QueryString("Page"))
- Set ShowRs=Conn.execute("Delete From FS_WS_BBS Where ID="&BBSID&" and User='"&session("FS_UserName")&"'")
- Conn.execute("Delete From FS_WS_BBS Where ParentID='"&BBSID&"' and User='"&session("FS_UserName")&"'")
- url="ShowNote.asp?ClassName="&ClassName&"&NoteID="&NoteID&"&ClassID="&ClassID&"&Page="&Pag&""
- Response.write("<script>location.href='"&url&"'</script>")
- Response.end
- end if
- Set Conn=nothing
- %>