<%@ 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 %>