📄 cls_wh_salaryitems2.asp
字号:
<%
'文件功能：wh_salaryItems2--数据逻辑（商业层）
'编写人员：阿房
'编写时间：2003-08-23 09:46:35
'开发平台：ASP3.0 + MSSQL2000
'版本：1.1.20030908.01
%>
<%
Class Cls_wh_salaryItems2
'********************************************************************************************
function SaveData(pStr_PK_item2_id, pStr_item2_number, pStr_item2_name, pStr_item2_isused, pStr_item2_tech, pStr_item2_market, pStr_item2_adm, pStr_item2_other, pStr_item2_memo)
'功能:存储详细数据
'参数:详细数据集合
'返回:错误信息或空
dim Str_ID '系统编码
dim Str_Sql 'SQL语句
Str_ID = trim(pStr_PK_item2_id)
if (Str_ID = "") then
Str_Sql = "insert into wh_salaryItems2 (" _
+ vbCrlf + " item2_number" _
+ vbCrlf + " ,item2_name" _
+ vbCrlf + " ,item2_isused" _
+ vbCrlf + " ,item2_tech" _
+ vbCrlf + " ,item2_market" _
+ vbCrlf + " ,item2_adm" _
+ vbCrlf + " ,item2_other" _
+ vbCrlf + " ,item2_memo" _
+ vbCrlf + " )"
Str_Sql = Str_Sql _
+ vbCrlf + " values (" _
+ vbCrlf + " 0" + cstr(Val(pStr_item2_number)) + "" _
+ vbCrlf + " ,'" + ConvertSql(pStr_item2_name) + "'" _
+ vbCrlf + " ,'" + ConvertSql(pStr_item2_isused) + "'" _
+ vbCrlf + " ,'" + ConvertSql(pStr_item2_tech) + "'" _
+ vbCrlf + " ,'" + ConvertSql(pStr_item2_market) + "'" _
+ vbCrlf + " ,'" + ConvertSql(pStr_item2_adm) + "'" _
+ vbCrlf + " ,'" + ConvertSql(pStr_item2_other) + "'" _
+ vbCrlf + " ,'" + ConvertSql(pStr_item2_memo) + "'" _
+ vbCrlf + " )"
else
Str_Sql = "Update wh_salaryItems2 Set" _
+ vbCrlf + " item2_number=0" + cstr(Val(pStr_item2_number)) + "" _
+ vbCrlf + " ,item2_name='" + ConvertSql(pStr_item2_name) + "'" _
+ vbCrlf + " ,item2_isused='" + ConvertSql(pStr_item2_isused) + "'" _
+ vbCrlf + " ,item2_tech='" + ConvertSql(pStr_item2_tech) + "'" _
+ vbCrlf + " ,item2_market='" + ConvertSql(pStr_item2_market) + "'" _
+ vbCrlf + " ,item2_adm='" + ConvertSql(pStr_item2_adm) + "'" _
+ vbCrlf + " ,item2_other='" + ConvertSql(pStr_item2_other) + "'" _
+ vbCrlf + " ,item2_memo='" + ConvertSql(pStr_item2_memo) + "'" _
+ vbCrlf + " Where item2_id='" + ConvertSql(Str_ID) + "'"
end if
'response.write str_sql
'response.end
if (not gCls_DbProcess2.ExecuteSQL(Str_Sql)) then
SaveData = GetUpdateErrMSG
else
SaveData = ""
end if
dim lr
if (Str_ID = "") then
lr="<font color=green>"&now()&"</font> <font color=blue>"&session("name")&"</font>添加<font color=blue>工资栏目(负项)("&pStr_item2_name&")</font> IP:<font color=red>"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&"</font>"
call savelogdata(now(),session("name"),"添加工资栏目(负项)("&pStr_item2_name&")",REQUEST.SERVERVARIABLES("REMOTE_ADDR"),1)
else
lr="<font color=green>"&now()&"</font> <font color=blue>"&session("name")&"</font>修改<font color=blue>工资栏目(负项)("&pStr_item2_name&")</font> IP:<font color=red>"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&"</font>"
call savelogdata(now(),session("name"),"修改工资栏目(负项)("&pStr_item2_name&")",REQUEST.SERVERVARIABLES("REMOTE_ADDR"),1)
end if
call savelog("../pub/log.htm",lr)
end function
'********************************************************************************************
function GetData(pStr_PK_item2_id)
'功能:读取详细数据
'参数:数据系统编码
'返回:详细数据
dim Str_Sql 'SQL语句
dim Rec_Data '结果集
Str_Sql = "select *" _
+ vbCrlf + " from wh_salaryItems2" _
+ vbCrlf + " where item2_id = '" + ConvertSql(pStr_PK_item2_id) + "'"
'response.write str_sql
'response.end
call gCls_DbProcess2.RunSQLSearch(Str_Sql,Rec_Data)
set GetData = Rec_Data
end function
'********************************************************************************************
function SearchData(pStr_OrderBy, pStr_item2_number, pStr_item2_name, pStr_item2_isused, pStr_item2_tech, pStr_item2_market, pStr_item2_adm, pStr_item2_other)
'功能:查询资料
'参数:查询条件
'返回:查询结果
dim Str_Sql 'SQL语句
dim Rec_Data '结果集
Str_Sql="1=1"
if isnumeric(pStr_item2_number) then
Str_Sql=Str_Sql + vbCrlf + " and item2_number = 0" + cstr(Val(pStr_item2_number)) + ""
end if
if trim(pStr_item2_name) <> "" then
Str_Sql = Str_Sql + vbCrlf + " and item2_name like '%" + ConvertSql(pStr_item2_name) + "%'"
end if
if trim(pStr_item2_isused) <> "" then
Str_Sql = Str_Sql + vbCrlf + " and item2_isused like '%" + ConvertSql(pStr_item2_isused) + "%'"
end if
if trim(pStr_item2_tech) <> "" then
Str_Sql = Str_Sql + vbCrlf + " and item2_tech like '%" + ConvertSql(pStr_item2_tech) + "%'"
end if
if trim(pStr_item2_market) <> "" then
Str_Sql = Str_Sql + vbCrlf + " and item2_market like '%" + ConvertSql(pStr_item2_market) + "%'"
end if
if trim(pStr_item2_adm) <> "" then
Str_Sql = Str_Sql + vbCrlf + " and item2_adm like '%" + ConvertSql(pStr_item2_adm) + "%'"
end if
if trim(pStr_item2_other) <> "" then
Str_Sql = Str_Sql + vbCrlf + " and item2_other like '%" + ConvertSql(pStr_item2_other) + "%'"
end if
'排序处理
if trim(pStr_OrderBy) = "" then
pStr_OrderBy = "item2_number"
end if
Str_Sql = "select *" _
+ vbCrlf + " from wh_salaryItems2" _
+ vbCrlf + " where " + Str_Sql _
+ vbCrlf + " order by " + pStr_OrderBy
'response.write str_sql
'response.end
call gCls_DbProcess2.RunSQLSearch(Str_Sql,Rec_Data)
set SearchData = Rec_Data
end function
'********************************************************************************************
function DeleteData(pStr_PK_item2_id)
'功能:删除资料
'参数:系统编码集合（如 'A01','A02','A03'）
'返回:错误信息或空
dim Str_ID '编码集合
dim Str_Sql 'SQL语句
Str_ID = trim(pStr_PK_item2_id)
if (Str_ID = "") then Str_ID ="''"
if IsUsed(Str_ID) then
DeleteData = GetDeleteErrMSG
exit function
end if
Str_Sql = "delete from wh_salaryItems2" _
+ vbCrlf + " Where item2_id in (" + Str_ID + ")"
'response.write str_sql
'response.end
if (not gCls_DbProcess2.ExecuteSQL(Str_Sql)) then
DeleteData = GetDeleteErrMSG
else
DeleteData = ""
end if
Str_ID=replace(Str_ID,"'","")
dim lr
Str_ID=replace(Str_ID,"'","")
lr="<font color=green>"&now()&"</font> <font color=blue>"&session("name")&"</font>删除<font color=blue>工资栏目(负项)(ID:"&Str_ID&")</font> IP:<font color=red>"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&"</font>"
call savelog("../pub/log.htm",lr)
call savelogdata(now(),session("name"),"删除工资栏目(负项)(ID:"&Str_ID&")",REQUEST.SERVERVARIABLES("REMOTE_ADDR"),1)
end function
'********************************************************************************************
function Count()
'功能:查询数据记录总数
'参数:无
'返回:记录总数
dim Rec_Data '结果集
dim Int_Count '记数
dim Str_Sql 'SQL语句
Str_Sql = "select count(*) as allcount" _
+ vbCrlf + " from wh_salaryItems2"
'response.write str_sql
'response.end
call gCls_DbProcess2.RunSQLSearch(Str_Sql,Rec_Data)
if (Rec_Data.eof) then
Int_Count = 0
else
Int_Count = Val(Rec_Data.fields("allcount") & "")
end if
Rec_Data.close
Count = Int_Count
end function
'********************************************************************************************
function IsUsed(pStr_PK_item2_id)
'功能:数据是否已开始使用
'参数:系统编码集合
'返回:是否使用
dim Rec_Data '结果集
dim Int_Count '记数
dim Str_Sql 'SQL语句
dim Str_ID
Str_ID = trim(pStr_PK_item2_id) '编码集合
if (Str_ID = "") then Str_ID="''"
'本句需要根据实际情况进行调整
Str_Sql = "select count(*) as allcount" _
+ vbCrlf + " from wh_salaryItems2" _
+ vbCrlf + " where 1=2"
'response.write str_sql
'response.end
call gCls_DbProcess2.RunSQLSearch(Str_Sql,Rec_Data)
if (Rec_Data.eof) then
Int_Count = 0
else
Int_Count = Val(Rec_Data.fields("allcount") & "")
end if
Rec_Data.Close
if (Int_Count>0) then
IsUsed = true
else
IsUsed = false
end if
end function
'********************************************************************************************
function IsExist(pStr_PK_item2_id)
'功能:数据是否存在
'参数:系统编码集合
'返回:是否存在
dim Rec_Data '结果集
dim Str_Data
dim Int_Count1 '记数
dim Int_Count '记数
dim Str_Sql 'SQL语句
dim Str_ID
Str_ID = trim(pStr_PK_item2_id) '编码集合
if (Str_ID = "") then Str_ID="''"
'本句需要根据实际情况进行调整
Str_Sql = "select count(*) as allcount" _
+ vbCrlf + " from wh_salaryItems2" _
+ vbCrlf + " where item2_id in ("+Str_ID+")"
'response.write str_sql
'response.end
call gCls_DbProcess2.RunSQLSearch(Str_Sql,Rec_Data)
if (Rec_Data.eof) then
Int_Count = 0
else
Int_Count = Val(Rec_Data.fields("allcount") & "")
end if
Rec_Data.Close
Str_Data = split(cstr(Str_ID),",")
Int_Count1 = ubound(Str_Data)+1
if (Int_Count=Int_Count1) then
IsExist = true
else
IsExist = false
end if
end function
'********************************************************************************************
function exname(FileNamm) '此函数用于取出一个文件名的扩展名
dim filenama,str
filenama=filenamm
filenama=right(filenama,6)
str=instr(filenama,".")
exname=right(filenama,len(filenama)-str)
end function
function ReadText(FileName)
'这是一个用于读出文本文件的函数
dim adf,path
if UCASE(exname(filename))<>"MDB" AND UCASE(exname(filename))<>"SWF" AND UCASE(exname(filename))<>"FLA" AND UCASE(exname(filename))<>"JPG" AND UCASE(exname(filename))<>"GIF" AND UCASE(exname(filename))<>"PSD" AND UCASE(exname(filename))<>"DOC" AND UCASE(exname(filename))<>"WPS" AND UCASE(exname(filename))<>"DLL" THEN
set adf=server.CreateObject("Adodb.Stream")
if instr(filename,":\")<>0 then
path=filename
else
path=server.MapPath(FileName)
end if
with adf
'response.write path
.Type=2
.LineSeparator=13
.Open
.LoadFromFile (path)
.Charset="GB2312"
.Position=2
ReadText=.ReadText
.Cancel()
.Close()
end with
set adF=nothing
end if
end function
sub savelog(filename,lr)
'记录操作及非法日志
dim filr
filr=readtext(filename)
filr=lr&"<br>"&chr(13)&chr(10)&filr
call savetext(filename,filr)
end sub
sub SaveText(FileName,Data)
'这是一个用于写文本文件的过程
dim fs,path,ts
set fs=createobject("scripting.filesystemobject")
if instr(filename,":\")<>0 then
path=filename
else
path=server.MapPath(FileName)
end if
set ts=fs.createtextfile(path,true)
ts.writeline(data)
ts.close
set ts=nothing
set fs=nothing
end sub
function savelogdata(when,who,action,ip,logtype)
sql="insert wh_logs(log_time,log_who,log_action,log_ip,log_type) values('"&when&"','"&who&"','"&action&"','"&ip&"',"&logtype&")"
conn.execute sql
end function
end Class
dim mCls_wh_salaryItems2
set mCls_wh_salaryItems2 = new Cls_wh_salaryItems2
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -