Visual_Basic 板


LINE

我想要建立一個註冊使用者的頁面adduser.asp, 可以輸入帳號並且在按下"送出"的時候, 驗證使用者是否有輸入帳號, 如果有輸入, Session("addOpen") = "open", 跳到CusAdd_p.asp新增帳號, 如果按下"看該帳號是否已有人使用", Session("addOpen") = "" 則在CusAdd_p.asp驗證資料是否有重複的帳號, 驗證完後跳回adduser.asp。 現在我的問題是只要按過一次送出, Session("addOpen") = "open"的值就不會改變了, 所以就連按下"看該帳號是否已有人使用", 也會直接就新增帳號到資料庫, 麻煩幫我看一下我的程式有什麼問題, 感激不盡m(_ _)m ********************************* 讓使用者填入表單的頁面adduser.asp ********************************* -------------------------- 當使用者按下Submit2按鈕, 則驗證是否有輸入帳號, 如沒有輸入則跳出訊息。 驗證通過則進入CusAdd_p.asp 並且設定一個Session -------------------------- <script language="javascript"> function CheckArea() { var theForm = document.addForm; if ( theForm.txtLoginID.value == "" ) { alert("帳號不得為空白"); theForm.txtLoginID.focus(); return; } <% Session("addOpen") = "open" %> theForm.submit(); } </script> <FORM NAME="addForm" METHOD="post" ACTION="CusAdd_p.asp" ID="Form"> <table> <tr> <th>帳號</th> <td> <input name="txtLoginID" type="text" CLASS="form" ID="txtLoginID" value=""> <input name="btnChkLoginID" type="submit" CLASS="form" ID="btnSubmit" value="看該帳號是否已有人使用"> </td> </tr> </table> ----------------------------------- 點下送出按鈕進行資料驗證, 並且設定Session("addOpen") = "open" ----------------------------------- <input name=btnSubmit type=button CLASS="form" ID="Submit2" onClick="CheckArea();" value=送出> </FORM> **************************** CusAdd_p.asp 驗證帳號是否已存在於資料庫, 驗證通過則新增帳號至資料表, (省略資料庫連結的程式碼) (省略pfShowMessage()程式碼) **************************** <% ---------------------------------- 如果Session("addOpen") 不是 "open" 則判斷帳號是否已存在資料庫, 是"open"就新增帳號。 ---------------------------------- If Session("addOpen") <> "open" then Set oRS = oConn.Execute ( sSQL ) If Not oRS.EOF Then Call pfShowMessage("帳號已存在,請重新輸入") Response.End Else Call pfShowMessage("帳號 " & sLoginID & " 目前尚無人使用") Response.End oRS.Close End If Else Set oRS = Server.CreateObject("ADODB.RecordSet") oRS.Open "alantest" , oConn, 1, 3 id = request.Form("txtLoginID") oRS.AddNew oRS("id")= id oRS.Update oRS.Close response.Write("帳號新增完成") Session("addOpen") = "" End If %> --



※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.134.245.169
1F:→ passli:Session("addOpen") = "open" 寫在javascript那邊會動作嗎? 09/07 18:33
2F:→ hdd525:那如果我想要在按下送出時執行Session("addOpen") = "open" 09/07 18:55
3F:→ hdd525:請問該寫在哪邊呢?可以給個方向或關鍵字嗎?謝謝 09/07 18:57
4F:→ passli:你的邏輯這樣怪怪的,每次按button之後session = "open" 09/07 21:59
5F:→ passli:就變成只會去新增帳號,並不會跑檢查那一段。 09/07 22:00
6F:→ hdd525:我就是想要每次按button btnSubmit就直接新增帳號, 09/07 22:30
7F:→ hdd525:按"btnChkLoginID"時才跑檢查那段。 09/07 22:30
8F:→ hdd525:要讓btnSubmit按下也檢查帳號只要改一下If的位置, 09/07 22:30
9F:→ hdd525:可是我現在問題是出在更前面.... 09/07 22:30
10F:→ hdd525:目前問題出在不知如何按下btnSubmit讓Session = "open" 09/07 22:31







like.gif 您可能會有興趣的文章
icon.png[問題/行為] 貓晚上進房間會不會有憋尿問題
icon.pngRe: [閒聊] 選了錯誤的女孩成為魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一張
icon.png[心得] EMS高領長版毛衣.墨小樓MC1002
icon.png[分享] 丹龍隔熱紙GE55+33+22
icon.png[問題] 清洗洗衣機
icon.png[尋物] 窗台下的空間
icon.png[閒聊] 双極の女神1 木魔爵
icon.png[售車] 新竹 1997 march 1297cc 白色 四門
icon.png[討論] 能從照片感受到攝影者心情嗎
icon.png[狂賀] 賀賀賀賀 賀!島村卯月!總選舉NO.1
icon.png[難過] 羨慕白皮膚的女生
icon.png閱讀文章
icon.png[黑特]
icon.png[問題] SBK S1安裝於安全帽位置
icon.png[分享] 舊woo100絕版開箱!!
icon.pngRe: [無言] 關於小包衛生紙
icon.png[開箱] E5-2683V3 RX480Strix 快睿C1 簡單測試
icon.png[心得] 蒼の海賊龍 地獄 執行者16PT
icon.png[售車] 1999年Virage iO 1.8EXi
icon.png[心得] 挑戰33 LV10 獅子座pt solo
icon.png[閒聊] 手把手教你不被桶之新手主購教學
icon.png[分享] Civic Type R 量產版官方照無預警流出
icon.png[售車] Golf 4 2.0 銀色 自排
icon.png[出售] Graco提籃汽座(有底座)2000元誠可議
icon.png[問題] 請問補牙材質掉了還能再補嗎?(台中半年內
icon.png[問題] 44th 單曲 生寫竟然都給重複的啊啊!
icon.png[心得] 華南紅卡/icash 核卡
icon.png[問題] 拔牙矯正這樣正常嗎
icon.png[贈送] 老莫高業 初業 102年版
icon.png[情報] 三大行動支付 本季掀戰火
icon.png[寶寶] 博客來Amos水蠟筆5/1特價五折
icon.pngRe: [心得] 新鮮人一些面試分享
icon.png[心得] 蒼の海賊龍 地獄 麒麟25PT
icon.pngRe: [閒聊] (君の名は。雷慎入) 君名二創漫畫翻譯
icon.pngRe: [閒聊] OGN中場影片:失蹤人口局 (英文字幕)
icon.png[問題] 台灣大哥大4G訊號差
icon.png[出售] [全國]全新千尋侘草LED燈, 水草

請輸入看板名稱,例如:BuyTogether站內搜尋

TOP