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
List_Save.asp
Package: NetPhone.rar [view]
Upload User: xxtaishan
Upload Date: 2022-01-02
Package Size: 4063k
Code Size: 2k
Category:
VOIP program
Development Platform:
ASP/ASPX
- <!--#include file="../../inc/conn.asp"-->
- <!--#include file="../../inc/FUNC.asp" -->
- <!--#include file="../../inc/upload_5xsoft.inc" -->
- <%
- '-----------------------------
- DIM UPLOAD
- SET UPLOAD=NEW UPLOAD_5XSOFT
- If UPLOAD.FORM("operation")="add" Then
- call Add
- elseif UPLOAD.FORM("operation")="edit" Then
- call Edit
- ELSE
- call showerr("操作无效!")
- end if
- '-----------------------------
- Dim rs
- Dim sql
- '-----------------------------
- Function Add
- set rs=server.createobject("adodb.recordset")
- rs.open "select * from news",conn,1,3
- rs.addnew
- rs("title")=UPLOAD.FORM("title")
- rs("content")=htmlencode(UPLOAD.FORM("content"))
- rs("posttime")=DATE()
- DIM FILE
- set file=upload.file("file")
- if file.FileSize>0 then
- file.saveAs Server.mappath("../../upload/"&rs("id")&getfilename(file.FileName))
- rs("pic")=rs("id")&getfilename(file.FileName)
- end if
- rs.Update
- call showmsg("信息添加成功!","list.asp")
- End Function
- '-----------------------------
- Function Edit
- set rs=server.createobject("adodb.recordset")
- rs.open "select * from news where id="&UPLOAD.FORM("id"),conn,1,3
- rs("title")=UPLOAD.FORM("title")
- rs("content")=htmlencode(UPLOAD.FORM("content"))
- rs("posttime")=DATE()
- DIM FILE
- set file=upload.file("file")
- if file.FileSize>0 then
- IF GETFILENAME(RS("pic"))<>GETFILENAME(FILE.FILENAME) THEN
- CALL DoDelFile("../../upload/"&RS("pic"))
- END IF
- file.saveAs Server.mappath("../../upload/"&rs("id")&getfilename(file.FileName))
- rs("pic")=rs("id")&getfilename(file.FileName)
- end if
- rs.Update
- call showmsg("信息修改成功!","list.asp")
- End Function
- '-----------------------------
- %>
- <%
- call COCLS
- %>