parameter_function.asp

北京华信东方网络办公系统

<%
'====================等到数据表列名
function FieldArray(TableName)
sql=" SELECT * FROM "& TableName
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,conn,1,1
tablefield=""
for i= 0 to rs.Fields.count-1
if tablefield<>"" then
tablefield = tablefield  & "," & rs.Fields(i).Name
else
tablefield = rs.Fields(i).Name
end if
next
rs.Close: set rs=nothing
FieldArray = tablefield
end function

'====================得到数据表相应字段的数据
function DataArray(FieldName, TableName)
sql=" SELECT "& FieldName &" FROM "& TableName
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,conn,1,1
if rs.eof then
RsArray=null
else
RsArray=rs.GetRows
end if
rs.close: set rs=nothing
DataArray=RsArray
end function

'====================数据处理，包括添加，修改，删除
function DataDeal(FieldName, FieldData, TableName, DealWay, Condition)
dim rs
set rs=server.CreateObject("adodb.recordset")
sql=" SELECT "& FieldName &" FROM "& TableName &" WHERE N_ID = "& cint(Condition)
on error resume next
rs.open sql,conn,1,3
FN=split(FieldName,",")
FD=split(FieldData,",")
if DealWay="addnew" then
	rs.AddNew
	for i = 1 to ubound(FD)
		if trim(FD(i)) <> "" then
		rs.fields(i).value=FD(i)
		end if
	next
	rs.Update
elseif DealWay="modify" then
	for i=1 to ubound(FD)
		if trim(FD(i)) <> "" then
		rs.fields(i).value=FD(i)
		end if
	next
	rs.Update
elseif DealWay="Delete" then
	rs.Delete
end if
if err.number<> 0 then
flag=false
response.Write err.Description
rs.CancelUpdate
else
flag=true
end if
rs.close: set rs=nothing

DataDeal=flag
end function
%>