<%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim UserName, ZipCode, Adress1, Adress2 'ユーザー名、郵便番号、住所１、住所２
Dim TelNo, FaxNo, KanrishaId, Password '電話番号、ＦＡＸ、管理者ＩＤ、パスワード
Dim KyotsuPath, KojinPath, SystemName, Version, IPAddress, GakkoCD, hoshiki '共通データパス、個人データパス、システム名称、バージョン
Dim WebCollaboPort 'TV電話ポート番号
Dim FAXRiyo
Dim ExtArray
Dim TopMargin
Dim LeftMargin
Dim Query
Dim Content
Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
UserName = Content.Fields("ユーザー名")
KanrishaId = Content.Fields("管理者コード")
Password = Content.Fields("パスワード")
KyotsuPath = Content.Fields("共通データパス")
SystemName = Content.Fields("システム名称")
Version = Content.Fields("バージョン")
IPAddress = Content.Fields("IPアドレス")
GakkoCD = Content.Fields("学校CD")
hoshiki = Content.Fields("方式")
FAXRiyo = "" & Content.Fields("FAX利用")
ExtArray = Content.Fields("FAX利用可能拡張子")
TopMargin = Content.Fields("名刺印刷余白上")
LeftMargin = Content.Fields("名刺印刷余白左")
End If
'IPアドレス・ポート番号分解
WebCollaboPort = ""
If InStr("" & IPAddress, ":") > 0 Then
Dim IPAddressAry
IPAddressAry = Split(IPAddress, ":")
If UBound(IPAddressAry) = 1 Then
IPAddress = IPAddressAry(0)
WebCollaboPort = IPAddressAry(1)
End If
End If
'学校CD固定
If "" & GakkoCD = "" Then
GakkoCD = "0123"
End If
If "" & TopMargin = "" Then
TopMargin = 0
End If
If "" & LeftMargin = "" Then
LeftMargin = 0
End If
Dim objFS
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Dim FileFolder
FileFolder = "/" & HomeAlias & "/data/topimage"
If Not(objFS.FolderExists(Server.MapPath(FileFolder))) Then
objFS.CreateFolder(Server.MapPath(FileFolder))
End If
Dim jj,tmps
%>
<% = HtmlHeader("") %>
<% If BASPLEADDisable = 1 Then 'ASP.NETモード %>
<% = HtmlFooter %>
<%
End Sub
%>