<%
'**************************
'** ファイル名 Default.inc
'**************************
' *** データベースコネクション ***
Function ConnOpen(conn,SelectDB)
Set Fs = CreateObject("Scripting.FileSystemObject")
Select Case SelectDB
Case "1" FileName = "C:\inetpub\SSADO\a.txt"
Case "2" FileName = "C:\inetpub\SSADO\b.txt"
Case "3" FileName = "C:\inetpub\SSADO\c.txt"
End Select
Set File = Fs.OpenTextFile(FileName,1,False,0)
Application("ConnString") = File.ReadLine
Set conn = Server.CreateObject("ADODB.connection")
conn.ConnectionString = Application("ConnString")
conn.ConnectionTimeout=3600
conn.Open
End Function
' *** 標準レコードオープン ***
Function RecordOpen(conn,SQL,IO,rs)
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open SQL,conn,3,IO
End Function
' *** 日付リストボックス ***
Function SetDates(DateType,DateCnt)
SetDates = ""
Select Case DateType
Case "YY"
for iii = -5 to 5
if iii = 0 then
SetDates = SetDates & ""
Else
SetDates = SetDates & ""
End if
Next
Case "MM"
for iii = 1 to 12
if iii = Cint(DateCnt) then
SetDates = SetDates & ""
Else
SetDates = SetDates & ""
End if
Next
Case "DD"
for iii = 1 to 31
if iii = Cint(DateCnt) then
SetDates = SetDates & ""
Else
SetDates = SetDates & ""
End if
Next
Case "qMM"
for iii = 1 to 12
if iii = Cint(DateCnt) then
SetDates = SetDates & ""
Else
SetDates = SetDates & ""
End if
iii = iii + 2
Next
End Select
End Function
' *** 簡易文字列チェック ***
Function BlankCheck(ChkData)
if Trim(ChkData) = "" or IsNull(ChkData) then
BlankCheck = "Error"
Else
BlankCheck = ChkData
End if
End Function
' *** 簡易数値チェック ***
Function NumCheck(ChkData)
if Trim(ChkData) = "" or IsNull(ChkData) then
NumCheck = 0
Elseif IsNumeric(Trim(ChkData)) then
NumCheck = FormatNumber(ChkData,0)
Else
NumCheck = 0
End if
End Function
' *** 簡易数値チェック ***
Function SmpleNumcheck(ChkData)
if Trim(ChkData) = "" or IsNull(ChkData) then
SmpleNumcheck = 0
Elseif IsNumeric(Trim(ChkData)) then
SmpleNumcheck = ChkData*1
Else
SmpleNumcheck = 0
End if
End Function
' *** 簡易数値(マイナスは色つき ***
Function NumCheck2(ChkData)
if Trim(ChkData) = "" or IsNull(ChkData) then
NumCheck2 = 0
Elseif IsNumeric(Trim(ChkData)) then
if ccur(ChkData) < 0 then
NumCheck2 = "" & FormatNumber(ChkData,0) & ""
Else
NumCheck2 = FormatNumber(ChkData,0)
End if
Else
NumCheck2 = 0
End if
End Function
' *** 簡易日付チェック ***
Function DateCheck(ChkData,prm)
if Trim(ChkData) = "" or IsNull(ChkData) then
DateCheck = ""
Elseif IsDate(Trim(ChkData)) then
DateCheck = FormatDateTime(ChkData,prm)
Else
DateCheck = ""
End if
End Function
%>