<!-- #include virtual="/sj3web/include.asp" --> <% '<!-- '################################################ ' 名称 :名刺 ' 作成日:2003/04/09 ' 作成者:山崎 ' 目的 :名刺作成 ' 概要 : ' <<表示>> ' ・名刺 '################################################ '--> ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim MeishiDesignCD, Font Dim Design MeishiDesignCD = Request("MeishiDesignCD") Font = Request("Font") Dim Query, Content Dim Email, TEL, Jyusyo1, Jyusyo2, YubinBango, Shimei, Katagaki, KaisyaMeisyo Dim ImageFile Dim FAX, Yakusyoku Query = "exec SPT名刺データ取得 '" & GB_SystemCD & "',null, null, '" & GakuseiNo & "', null" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Email = Content.Fields("メールアドレス") TEL = Content.Fields("電話番号") Jyusyo1 = Content.Fields("住所1") Jyusyo2 = Content.Fields("住所2") YubinBango = Content.Fields("郵便番号") Shimei = Content.Fields("氏名") Katagaki = Content.Fields("肩書") KaisyaMeisyo = Content.Fields("会社名称") ImageFile = Content.Fields("画像ファイル") FAX = Content.Fields("FAX") Yakusyoku = Content.Fields("役職") Else Email = "E-mail aaaaa@aaa.aa.aa" TEL = "TEL 00-0000-0000" FAX = "FAX 00-0000-0000" Jyusyo1 = "東京都○○区○○0-00-0" Jyusyo2 = "△△△ビル1F" YubinBango = "〒000-0000" Shimei = "○ 山 △ 男" Katagaki = "○○事業部" KaisyaMeisyo = "○○○○株式会社" Yakusyoku = "○○○○" End If Design = "" Query = "exec SPT名刺デザイン一覧 '" & GB_SystemCD & "','V'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("名刺デザインCD") = MeishiDesignCD Then MeishiDesignCD = Content.Fields("名刺デザインCD") Design = Content.Fields("デザイン") Design = Replace(Design, "<Email />", Email ) Design = Replace(Design, "<TEL />", TEL ) Design = Replace(Design, "<住所1 />", Jyusyo1 ) Design = Replace(Design, "<住所2 />", Jyusyo2 ) Design = Replace(Design, "<郵便番号 />", YubinBango ) Design = Replace(Design, "<氏名 />", Shimei) Design = Replace(Design, "<肩書 />", Katagaki) Design = Replace(Design, "<会社名称 />", KaisyaMeisyo) Design = Replace(Design, "<FAX />", FAX) Design = Replace(Design, "<役職 />", Yakusyoku) If ImageFile = "" Then Design = Replace(Design, "<img src=""<画像ファイル />"" width=""50"" height=""50"">", "") Else Design = Replace(Design, "<画像ファイル />", ImageFile) End If If Request("Font") = "M" Then Design = Replace(Design, "<フォント区分 />", "m") Else Design = Replace(Design, "<フォント区分 />", "") End If End If Content.MoveNext Loop %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=shift_jis"> <meta http-equiv="Pragma" content="no-cache"> <meta http-equiv="Cache-Control" content="no-cache"> <meta http-equiv="Expires" content="-1"> <link href="/sj3web/binx/sj3web.css" rel="stylesheet" type="text/css"> <title><% = AppTitle %></title> <script language="JScript" src="/sj3web/include.js"></script> <script language="JScript" src="/sj3web/includesj.js"></script> <script language="JScript.Encode" src="/sj3web/include_enc.js"></script> <script language="JScript.Encode" src="/sj3web/includesj_enc.js"></script> </head> <SCRIPT LANGUAGE="JavaScript"> <!-- ExitFlg = 1; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#8D9BCC" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <% Response.Write(HtmlDesign(9)) Response.Write(HttpL1(4)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/sj3web/user/bk/')", "名刺作成", "tblbtn('/sj3web/user/manner/default.asp')", "", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("" , "")) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <form OnKeyDown="FormKeyDown(this)" name="form1" method="POST" action="meisi_bin.asp" target="_top"> <input type="hidden" name="Font" value="<% = Font %>"> <input type="hidden" name="MeishiDesignCD" value="<% = MeishiDesignCD %>"> <input type="hidden" name="TateyokoKubun" value="V"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="10" background="/sj3web/images/bmct_bk1.gif" style="border: 1px solid #000000"> <tr> <td align="center" valign="top"> <table width="530" height="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#6CB36B"> <tr> <td> <table width="540" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td height="40" align="center"> <table width="530" height="40" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="135"><img src="/sj3web/images/mm_ttl.gif" width="135" height="40"></td> <td width="375" align="right" background="/sj3web/images/prc_ttl_c.gif"> <table width="290" height="40" border="0" cellpadding="0" cellspacing="5"> <tr> <td width="90" height="30"> </td> <td width="90" height="30" align="center" background="/sj3web/images/mm_btn_2.gif" class="tbtn2" onClick="PrintoutReal()">印刷</td> <td width="90" height="30" align="center" background="/sj3web/images/mm_btn_2.gif" class="tbtn2" onClick="tblbtn('meisi_st.asp')">タイプ変更</td> </tr> </table> </td> <td width="20"><img src="/sj3web/images/prc_ttl_r.gif" width="20" height="40"></td> </tr> </table> </td> </tr> <tr> <td align="center"> <table width="510" height="360" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCEECC"> <tr> <td width="270" valign="top" bgcolor="#6CB36B"> <table width="265" height="360" border="0" cellpadding="0" cellspacing="0" style="border:1px solid #CCEECC"> <tr> <td align="center" valign="top"> <table width="255" height="360" border="0" cellpadding="0" cellspacing="0" class="tx1214"> <tr> <td height="16" valign="bottom">会社名称</td> </tr> <tr> <td height="22"> <input name="KaisyaMeisyo" type="text" value="<% = KaisyaMeisyo %>" size="40">(20) </td> </tr> <tr> <td height="16" valign="bottom">部署</td> </tr> <tr> <td height="22"> <input name="Katagaki" type="text" value="<% = Katagaki %>" size="40">(20) </td> </tr> <tr> <td height="38" valign="bottom"> <table border="0" cellpadding="0" cellspacing="0" class="tx1214"> <tr> <td height="16" valign="bottom">役職</td> <td width="10"></td> <td height="16" valign="bottom">氏名</td> </tr> <tr> <td height="22"> <input name="Yakusyoku" type="text" value="<% = Yakusyoku %>" size="10">(5) </td> <td></td> <td height="22"> <input name="Shimei" type="text" value="<% = Shimei %>" size="20">(20) </td> </tr> </table> </td> </tr> <tr> <td height="16" valign="bottom">住所</td> </tr> <tr> <td height="22"> <input name="YubinBango" type="text" id="YubinBango" value="<% = YubinBango %>" size="20">(10) </td> </tr> <tr> <td height="40" valign="top"> <input name="Jyusyo1" type="text" id="Jyusyo1" value="<% = Jyusyo1 %>" size="40">(25)<br> <input name="Jyusyo2" type="text" id="Jyusyo2" value="<% = Jyusyo2 %>" size="40">(25) </td> </tr> <tr> <td height="16" valign="bottom">電話番号</td> </tr> <tr> <td height="22"> <input name="TEL" type="text" value="<% = TEL %>" size="40">(25) </td> </tr> <tr> <td height="16" valign="bottom">FAX番号</td> </tr> <tr> <td height="22"> <input name="FAX" type="text" value="<% = FAX %>" size="40">(25) </td> </tr> <tr> <td height="16" valign="bottom">メールアドレス</td> </tr> <tr> <td height="22"> <input name="Email" type="text" value="<% = Email %>" size="40">(25) </td> </tr> <tr> <td height="16" valign="bottom">画像ファイル</td> </tr> <tr> <td height="22"> <input name="ImageFile" type="text" value="<% = ImageFile %>" size="30"> <input name="ImageFile1" type="file" value="<% = ImageFile %>" size="1" onChange="ImageChange()" onBlur="ImageChange()" style="border-style: solid; border-color: #6CB36B; font-color: #6CB36B;background-color: #6CB36B; color: #6CB36B"> </td> </tr> <tr> <td height="30" align="right"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td rowspan="2" align="right" valign="bottom"> <table width="100" height="30" border="0" cellpadding="0" cellspacing="5"> <tr> <td width="85" height="30" align="center" background="/sj3web/images/mm_btn_2.gif" class="tbtn2" onClick="SubmitCheck()">データ入力</td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> <td width="240" align="center"> <% = Design %> </td> </tr> </table> </td> </tr> <tr> <td height="20" align="center" valign="top"><img src="/sj3web/images/bmct_s_dd.gif" width="530" height="20"></td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </form> </div> <SCRIPT LANGUAGE="JavaScript"> function ImageChange() { form1.ImageFile.value = form1.ImageFile1.value; } function SubmitCheck() { SubmitReal(form1); } </SCRIPT> </body> <% = HtmlFooter %> </html> <% End Sub %>