<!-- #include file="./include.asp" -->
<%
'<!--
'################################################
' 名称 ：小野テスト
' 作成日：2006/11/14
' 作成者：小野
' 目的 ：テスト
' 概要 ：
' <<表示>>
' ・
' <<入力チェック>>
' ・
'################################################
'-->
'
%>
<%
main()
Sub main()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="./binx/sj3web.css" rel="stylesheet" type="text/css">
<title>クエリテスト</title>
<script language="JScript" src="./include.js"></script>
<script language="JScript" src="./includesj.js"></script>
<script language="JScript.Encode" src="./include_enc.js"></script>
<script language="JScript.Encode" src="./includesj_enc.js"></script>
<% Response.Write("<script type=""text/javascript"" src=""./javascript.js?" & TimeUniq() & """></script>" & vbCrLf) %>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
ExitFlg = 2;
-->
</SCRIPT>
<body>
<%
dim Query
dim i,ct,s,tdal
dim BunsyoSyuruiCD
dim TegataJyotaiKubun
dim AutoFlg
dim Target
dim KaikeiKaishibi
dim KaikeiSyuryobi
dim GyoshuKubun
dim SaimokuKubun
'↓↓↓クエリに必要な引数の変数を入力
GB_SystemCD = "SFC"
EnshuCD = "wada"
KaisyaCD = "wada"
BunsyoSyuruiCD = "wada"
AutoFlg = "wada"
GakuseiNo = "wada"
Target = "061024hh"
GakuseiNo="HARUMI"
KaisyaCD="K001-HARUMI"
BunsyoSyuruiCD="TK"
AutoFlg = "0"
GB_SystemCD = "SFC"
EnshuCD = "SYS00002"
KaisyaCD = "wada"
BunsyoSyuruiCD = "wada"
AutoFlg = "wada"
GakuseiNo = "SJ4ADMIN"
Target = "061024hh"
EnshuCD="collabo"
GakuseiNo="ONO"
KaisyaCD="HOSAKA"
BunsyoSyuruiCD="TY"
AutoFlg = "0"
GB_GyosyuKubun = "S"
GyoshuKubun = "S"
SaimokuKubun = "%"
KaikeiKaishibi = "2006/4/1" '会計開始日
KaikeiSyuryobi = "2007/3/31" '会計終了日
TegataJyotaiKubun="TU"
EnshuCD="061109hhD"
'↑↑↑クエリに必要な引数の変数を入力
'↓↓↓呼び出したいクエリを貼り付ける
'Query = "exec SPR文書番号一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & AutoFlg & "', '" & GakuseiNo & "'"
'Query = "select * from TGA手形F where システムCD= '" & GB_SystemCD & "' and 演習CD= '"& EnshuCD &"' and 会社CD= '"& KaisyaCD &"' and 作成会社CD= '"& KaisyaCD &"' and 文書種類CD= '"& BunsyoSyuruiCD &"' and 振出人CD= '"& KaisyaCD &"' "
'Query = "exec SPK手形取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & TegataJyotaiKubun & "', '" & BunsyoSyuruiCD & "'"
'Query = "exec SPR文書番号一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & AutoFlg & "', '" & GakuseiNo & "'"
'Query = "exec SPM会社一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '1'"
'Query = "exec SPK手形一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TX', '" & BunsyoSyuruiCD & "'"
'Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
'Query = "SELECT * FROM TDA勘定科目M WHERE 演習CD = '" & EnshuCD & "'"
'Query = "exec SPM記帳チェック '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
'Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
'Query = "exec SPM演習一覧 '" & GB_SystemCD & "',2"
'Query = "SELECT 演習CD FROM TC2演習M" '演習一覧配列作成
'Query = "SELECT 会社CD FROM TDA会社M WHERE 演習CD = '061024hh'" '演習単位の会社一覧配列作成
'Query = "SELECT 業種CD FROM TDA会社M WHERE 演習CD = '061024hh' AND 会社CD = 'HOSAKA'"
'Query = "SELECT 勘定CD FROM TDA勘定科目M WHERE システムCD='" & GB_SystemCD & "' AND 演習CD='" & EnshuCD & "' AND 業種CD='" & GB_GyosyuKubun & "'"
'Query = "exec SPK帳簿_仕訳日記帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'Query = "exec SPK自動転記帳簿_仕訳帳照会 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & KaikeiKaishibi & "','" & KaikeiSyuryobi & "'"
'Query = "exec SPK自動転記帳簿_仕訳帳照会_伝票貸方 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & KaikeiKaishibi & "','" & KaikeiSyuryobi & "','0604003'"
'Query = "exec SPK帳簿_仕訳日記帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'Query = "exec SPN受信文書一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', 'KU'"
'Query = "SELECT * FROM COLLABOLIST WHERE 電話帳名='" & ChrW(&h69) & "'"
'Query = "UPDATE COLLABOLIST SET 電話帳名 = '" & ChrW(&hFF) & "' WHERE 方式 = '1' AND APP種類 = '1' AND 学校コード = '0123' AND 演習コース = '23237j-001' AND 生徒ID = 'ONO2'"
'Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Query = "exec SPM勘定科目詳細一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & GyoshuKubun & "','" & SaimokuKubun & "'"
Query = "exec SPV選択可能会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "', '0'"
Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', 2"
Query = "exec SPK自動転記帳簿_合計残高試算表照会 '" & GB_SystemCD & "','" & GB_EnshuCD & "', '" & GB_KaisyaCD & "','" & GB_KaikeiKaishibi & "','" & GB_KaikeiSyuryobi & "'"
Query = "exec SPK帳簿_株主資本等変動計算書取得 'SFC', '00', 'ONO'"
Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
Query = "exec SPK契約書取得 '" & GB_SystemCD & "', '0', 'K001-ONO', 'XK', '%', 'K001-ONO', 'S'"
Query = "exec SPK契約書一覧 '" & GB_SystemCD & "', '0', 'K001-ONO', 'XK', 'S'" '自社が乙の寄託契約書一覧
Query = "exec SPD入出庫一覧 'SFC','0', 'K005-ONO', '', 'SU'"
Query = "exec SPR入出庫在庫明細 'SFC','061109hhD', 'K001-HOSAKA','S001','2007/3/31'"
Query = "exec SPR入出庫在庫明細 'SFC','sj4t', 'WAX','S001','2008/3/31'"
'Query = "exec SPR入出庫在庫 '" & GB_SystemCD & "','061109hhD', 'K001-ONO','2007/3/31'"
'Query = "exec SPNメール受信一覧 '" & GB_SystemCD & "','0', 'K002-ONO '"
Query = "exec SPM商品市場一覧 '" & GB_SystemCD & "','0000','1', '" & GB_GakuseiNo & "'"
Query = "exec SPK伝票_入金伝票取得 '" & GB_SystemCD & "','0000','K001', '0704001'"
Query = "exec SPK自動転記帳簿_総勘定元帳照会 '" & GB_SystemCD & "','sj4t', 'WAX','8111','','2007/4/1','2008/3/31'"
Query = "exec SPM記帳チェック商品 '" & GB_SystemCD & "','061109hhD','H003-HOSAKA'"
Query = "exec SPM記帳チェック一覧 '" & GB_SystemCD & "','061109hhD'"
Query = "exec SPK手形一覧 '" & GB_SystemCD & "','061109hhD', 'HOSAKA', 'TU', 'TG'"
Query = "exec SPK手形顛末済一覧 '" & GB_SystemCD & "','061109hhD','HOSAKA', 'K003-HOSAKA', ''"
Query = "exec SPM記帳チェック '" & GB_SystemCD & "','061109hhD','HOSAKA'"
Query = "exec SPK自動転記帳簿_仕訳集計表照会 '" & GB_SystemCD & "','HOSHI-TEST4', 'HOSHI', '2006/4/1'"
Query = "exec SPK自動転記帳簿_仕訳集計表照会FromTo '" & GB_SystemCD & "','HOSHI-TEST4', 'HOSHI', '2006/4/1', '2006/4/13'"
Query = "exec SPK手形一覧 '" & GB_SystemCD & "','061109hhD', 'HOSAKA', 'TX', ''"
Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "', '061109hhD', 'HOSAKA', '0604007'"
Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "', 'HOSHI-TEST4', 'HOSHI', '0604010'"
'Query = "exec SPK伝票_振替伝票一覧 '" & GB_SystemCD & "', 'HOSHI-TEST4', 'HOSHI'"
'Query = "exec SPK伝票_振替伝票一覧 '" & GB_SystemCD & "', '061109hhD', 'HOSAKA'"
Query = "exec SPM記帳チェック挿入集計 '" & GB_SystemCD & "','HOSHI-TEST4','HOSHI'"
Query = "exec SPM記帳チェック挿入集計 '" & GB_SystemCD & "','0','ONO'"
Query = "exec SPM勘定科目取得特別勘定 '" & GB_SystemCD & "','0', ''"
Query = "exec SPD入出庫取得2 '" & GB_SystemCD & "','00','K001-ONO', '', 'SU', '1'"
Query = "SELECT * FROM BK_COMPANY"
'↑↑↑呼び出したいクエリを貼り付ける
Set Content = MySQLQuery(Query)
'Set Content = OpenQuery(Query)
'Set Content = OpenQuery3(Query) 'webcollabodb用
'↓↓↓クエリ結果をテーブル表示
%>
<P>
<TABLE rules="ALL" bgcolor="#b0b0b0" border="0" cellpadding="3" cellspacing="2"><TBODY>
<TR bgcolor="#d0d0d0">
<% '見出し列の表示
For i = 0 To Content.Fields.Count - 1
Response.Write(" <TD>" & Content(i).Name & "</TD>" & vbCrLf)
Next
%>
</TR>
<% '取得結果の表示
Dim TDAlign
Do While Not(Content.EOF Or Content.EOF)
Response.Write(" <TR bgcolor=""#f0f0f0"">" & vbCrLf)
For i = 0 to Content.Fields.Count - 1
If Content(i).Type <> 131 And Content(i).Type <> 139 Then
TDAlign = ""
Else
TDAlign = " align=right"
End If
Response.Write(" <TD" & TDAlign & ">" & Content(i) & "</TD>" & vbCrLf)
next
Response.Write(" </TR>" & vbCrLf)
Content.MoveNext
Loop
%>
</TBODY></TABLE>
</P>
</body>
<% = HtmlFooter %>
</html>
<%
End Sub
'MySQLクエリー発行関数
Function MySQLQuery(Query)
Dim MySQLConn
Dim db
Dim Content
MySQLConn = "Provider=MSDASQL;"
MySQLConn = MySQLConn & "DRIVER={MySQL ODBC 3.51 Driver};"
MySQLConn = MySQLConn & "SERVER=ono2000sv;"
MySQLConn = MySQLConn & "PORT=3306;"
MySQLConn = MySQLConn & "DATABASE=booking;"
MySQLConn = MySQLConn & "USER=root;"
MySQLConn = MySQLConn & "PASSWORD=WebTest;"
MySQLConn = MySQLConn & "OPTION=1"
Set db = Server.CreateObject("ADODB.Connection")
db.ConnectionTimeout = 60
db.CommandTimeout = 60
db.Open MySQLConn
Set Content = db.Execute(Query)
'クエリ結果待機処理（Contentに結果が返っていないか、もしくはNothing以外の結果が返っている間ループさせる）
' Nothingであれば正しく「フィールド無し」の結果が返っているのでループ内処理を行わなず次へ。
' Nothingでない場合は (1)正しくフィールド結果が返っている (2)まだ結果が返っていない の2パターンがあり得るので
' (1)であればその時点でループを抜け、(2)の場合は念のためNextRecordSet()を発行してからループ先頭に戻る。
Do While Not Content Is Nothing
If Content.Fields.Count > 0 Then
Exit Do
End If
Set Content = Content.NextRecordSet()
Loop
Set MySQLQuery = Content
End Function
%>