<%@ LANGUAGE="VBSCRIPT" %> <% 'Option Explicit Response.Buffer = True Dim conn, rec, sql Dim filePath Dim USID Dim PSWD Dim hidUSID Dim hidPSWD Dim USID_SW Dim ERR_MSG ' フォームから送られた要素を変数に代入します。 USID = Request("USID") PSWD = Request("PSWD") hidUSID = Request("USID") hidPSWD = Request("PSWD") S_USID = Session("S_USID") S_PSWD = Session("S_PSWD") 'Session("S_USID") = S_USID 'Session("S_PSWD") = S_PSWD %> <% ' データベース の オープン %> <% SET conn = Session("conn") %> <% ID=Session("ID") Session("ID")=ID CALL USID_kensaku() If USID_SW = 0 Then Else Response.Write "IDは"&ID Response.Write "USIDは"&S_USID Response.Write "パスワードは"&S_PSWD Response.Write "認証は"&USID_SW 'Response.Redirect ("default.asp") End If %>
　

　万全のバックアップ体制でゴム加工品を提供します

 Customer Top
　 　 　

　
　 インターネットを利用いただき、どこからでも
モリテックのサービスをご利用いただけます。		 　
　 材料検索 　 ユーザーへ同行プレゼンテーション 　
　 モリテックが保有する豊富な素材と種類の中から、目的に合った商品を検索しご確認いただけます。 　 　 　
　

オリジナルホームページ

 　 　 　 　
　 お客さまの企業名が入った、技術紹介ページを自動的に作成。モリテック・オリジナルのホームページからアドレスにリンクしていただくことで、お客さまのホームページとしてご紹介いただけます。
レイアウトはランダムに割り当てられます。オリジナルロゴを登録される場合はお申し付けください。		 　 　 　 　
　

製品サンプル画像のダウンロードサービス

 　 ※お客さま社名やロゴを表示でき、お客さまのサービスの一つとして紹介していただけます。 　 　
　 素材、加工方法別にニーズに合った製品サンプル画像をお使い下さい。 　 　 　
<% Function USID_kensaku() 'USID、PSWD　エラーチェック ' ＜ 登録ＩＤ、パスワード検索　＞ If ID<>"" Then sql = "SELECT SEQ, 会社名, 担当者名, 仮登録FLG, WebID FROM 得意先ﾃｰﾌﾞﾙ " sql = sql & "WHERE WebID='" & ID & "' and 仮登録FLG='0'" sql = sql & ";" Else sql = "SELECT SEQ, 会社名, 担当者名, 仮登録FLG, WebID FROM 得意先ﾃｰﾌﾞﾙ " sql = sql & "WHERE 希望USID='" & S_USID & "' and 希望PSWD='" & S_PSWD & "' and 仮登録FLG='0'" sql = sql & ";" End If Set rec = conn.Execute(sql) If rec.EOF = false AND rec.BOF = false Then company = rec.Fields("会社名") tantousya = rec.Fields("担当者名") tokuiSEQ = rec.Fields("SEQ") ID = rec.Fields("WebID") USID_SW = 0 ERR_MSG = "" Else tantousya = "*****" USID_SW = 1 ERR_MSG = "登録ＩＤが未登録です。" ' ＜ 仮登録フラグチェック　＞ sql = "SELECT SEQ, 会社名, 担当者名, 仮登録FLG FROM 得意先ﾃｰﾌﾞﾙ " sql = sql & "WHERE 希望USID='" & S_USID & "' and 仮登録FLG='1'" sql = sql & ";" Set rec = conn.Execute(sql) If rec.EOF = false And rec.BOF = false Then USID_SW = 3 ERR_MSG = "ただ今審査中です。審査が終わり次第お知らせしますので少々お待ちください。" End If ' ＜ パスワード登録チェック　＞ sql = "SELECT SEQ, 会社名, 担当者名 FROM 得意先ﾃｰﾌﾞﾙ " sql = sql & "WHERE 希望USID='" & S_USID & "' and 希望PSWD<>'" & S_PSWD & "'" sql = sql & ";" Set rec = conn.Execute(sql) If rec.EOF = false And rec.BOF = false Then USID_SW = 2 ERR_MSG = "パスワードが間違っています。" End If End If Session("ID")= ID End Function %>