IP电话/视频会议

开发平台：

ASP/ASPX

List_Save1.asp：源码内容

							<!--#include file="../../inc/conn.asp"-->
<!--#include file="../../inc/FUNC.asp" -->
<!--#include file="../../inc/upload_5xsoft.inc" -->
<%
'-----------------------------
	Dim rs
	Dim sql
'-----------------------------
	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
'-----------------------------
	Function Add
		if UPLOAD.FORM("money")=""  then
			call showerr("系统提示：不能为空!")
		end if
		
		
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from xf",conn,1,3
		rs.addnew
		rs("user_id")=UPLOAD.FORM("id")
		rs("money")=UPLOAD.FORM("money")
		rs("time1")=UPLOAD.FORM("bysj")
		rs("postdate")=DATE()
		rs.Update	
		call showmsg("系统提示：信息添加成功!","list.asp")
	End Function
'-----------------------------
	Function Edit
		if UPLOAD.FORM("title")="" or UPLOAD.FORM("title2")="" or UPLOAD.FORM("title3")="" or UPLOAD.FORM("title4")="" or UPLOAD.FORM("title5")="" or UPLOAD.FORM("title6")="" or UPLOAD.FORM("title7")=""   then
			call showerr("系统提示：不能为空!")
		end if
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from info3 where id="&UPLOAD.FORM("id"),conn,1,3
		rs("title")=UPLOAD.FORM("title")
		rs("title2")=UPLOAD.FORM("title2")
		rs("title3")=UPLOAD.FORM("title3")
		rs("title4")=UPLOAD.FORM("title4")
		rs("title5")=UPLOAD.FORM("title5")
		rs("title6")=UPLOAD.FORM("title6")
		rs("title7")=UPLOAD.FORM("title7")
		rs("postdate")=DATE()
		
		
		rs.Update
		call showmsg("系统提示：信息修改成功!","list.asp")
	
	End Function
	
	
function GetExtendName(FileName)
dim ExtName
ExtName = LCase(FileName)
ExtName = right(ExtName,3)
ExtName = right(ExtName,3-Instr(ExtName,"."))
GetExtendName = ExtName
end function
'-----------------------------
	call COCLS
%>

						