<% Set Rsreg=Server.CreateObject("ADODB.Recordset") rsreg.open "select * from status",conn,3,3 %> <% If Request.ServerVariables("CONTENT_LENGTH") > 0 Then cd_name=request.form("cd_name") cd_mail=request.form("cd_mail") set rscard=Server.CreateObject("ADODB.Recordset") rscard.open "select count('cd_sn') as cdsn from card where cd_name='" & cd_name & "' and cd_mail='" & cd_mail & "'",conn,3,3 if rscard("cdsn")=0 then cd_com=request.form("cd_com") cd_dep=request.form("cd_dep") cd_pos=request.form("cd_pos") cd_com_serial=request.form("cd_com_serial") cd_tel=request.form("cd_tel") cd_mobil=request.form("cd_mobil") cd_fax=request.form("cd_fax") cd_addr=request.form("cd_addr") sqllist="insert into card (cd_name,cd_com,cd_dep,cd_pos,cd_com_serial,cd_tel,cd_mobil,cd_fax,cd_addr,cd_send,cd_ucode,cd_mail) values ('" & cd_name & "','" & cd_com & "','" & cd_dep & "','" & cd_pos & "','" & cd_com_serial & "','" & cd_tel & "','" & cd_mobil & "','" & cd_fax & "','" & cd_addr & "',1,7,'" & cd_mail & "')" conn.execute sqllist %> <% else %> <% end if end if %> 國立交通大學科技法律研究所推廣教育碩士學分班

歡迎您留下您的相關資料,若有任何新的活動消息,我們將透過E-mail主動與您聯繫。
謝謝您的支持。
* 者為必填欄位,請務必填寫。
* 姓名
* E-mail
* 服務單位
部門
職稱
統一編號
聯絡電話
行動電話
傳真
通訊地址

國立交通大學科技法律研究所推廣教育碩士學分班
TEL:03-5131588 | FAX:03-5733037 | E-mail:
clin0306@mail.nctu.edu.tw
本網站所陳列之文字與圖片為國立交通大學科技法律研究所有,未經許可嚴禁轉貼與複製