?? hyaddcheck.asp
字號:
<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checksession.asp" -->
<%
hyname = trim(request("hyname"))
HyAge = trim(request("HyAge"))
if Len(HyAge)=0 then
HyAge=0
else
HyAge=cint(HyAge)
end if
HyCardNo = trim(request("HyCardNo"))
HyAddress = trim(request("HyAddress"))
HyTel = trim(request("HyTel"))
HyMobile = trim(request("HyMobile"))
HyMail = trim(request("HyMail"))
HyOpenBank = trim(request("HyOpenBank"))
HyOpenBankNo = trim(request("HyOpenBankNo"))
HyOpenBankName = trim(request("HyOpenBankName"))
HyProduct = trim(request("HyProduct"))
HyBankDate = trim(request("HyBankDate"))
HyBankName = trim(request("HyBankName"))
HyBankNumber = trim(request("HyBankNumber"))
HyBankCur = trim(request("HyBankCur"))
HyBankCount = trim(request("HyBankCount"))
HyBankOperator = trim(request("HyBankOperator"))
HyBankNetNo = trim(request("HyBankNetNo"))
HyMemo = trim(request("HyMemo"))
HyParentName = trim(request("HyParentName"))
HyParentNumber = trim(request("HyParentNumber"))
HyLocation = trim(request("HyLocation"))
%><HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="include/e1.css" type="text/css">
</HEAD>
<BODY>
-------------------------添加會員中...............<br>
<%
set rs=server.CreateObject("adodb.recordset")
sql = "insert into hy(HyName,HyAge,HyCardNo,HyAddress,HyTel,HyMobile,HyMail,HyOpenBank,HyOpenBankNo,HyOpenBankName,HyProduct,HyBankDate,HyBankName,HyBankNumber,HyBankCur,HyBankCount,HyBankOperator,HyBankNetNo,HyParentName,HyParentNumber,HyLocation,HyMemo) values("
sql = sql &"'" & HyName & "','" & HyAge & "','" & HyCardNo & "','" & HyAddress & "','" & HyTel & "','" & HyMobile & "'"
sql = sql &",'" & HyMail & "','" & HyOpenBank & "','" & HyOpenBankNo & "','" & HyOpenBankName & "','" & HyProduct & "','" & HyBankDate & "'"
sql = sql &",'" & HyBankName & "','" & HyBankNumber & "','" & HyBankCur & "','" & HyBankCount & "','" & HyBankOperator & "','" & HyBankNetNo & "'"
sql = sql &",'" & HyParentName & "','" & HyParentNumber & "','" & HyLocation & "','" & HyMemo & "'"
sql = sql & ")"
'Response.Write sql
'Response.End
rs.Open sql,conn
%>
<br>------------------------<font color=red>會員增加成功!</font><br>
<script language="javascript">
window.location.href="hyman.asp"
window.parent.frames(0).location.reload();
</script>
</BODY>
</HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -