?? hyeditcheck.asp
字號:
<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checksession.asp" -->
<%
hyname = trim(request("hyname"))
Approved =request("Approved")
if len(Approved)=0 then
Approved=0
end if
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"))
id=Request("id")
pageno=trim(Request("pageno"))
findcontent=trim(request("findcontent"))
%><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 = "update hy set HyName = '" & HyName & "',HyAge = '" & HyAge & "',HyCardNo = '"
sql = sql & HyCardNo & "',HyAddress='" & HyAddress & "',HyTel='" & HyTel & "',HyMobile='"
sql = sql & HyMobile & "',HyMail='" & HyMail & "',HyOpenBank='" & HyOpenBank & "',HyOpenBankNo='"
sql = sql & HyOpenBankNo & "',HyOpenBankName='" & HyOpenBankName & "',HyProduct='" & HyProduct & "',HyBankDate='"
sql = sql & HyBankDate & "',HyBankName='" & HyBankName & "',HyBankNumber='" & HyBankNumber & "',HyBankCur='"
sql = sql & HyBankCur & "',HyBankCount='" & HyBankCount & "',HyBankOperator='" & HyBankOperator & "',HyBankNetNo='"
sql = sql & HyBankNetNo & "',HyParentName='" & HyParentName & "',HyParentNumber='" & HyParentNumber & "',HyLocation='"
sql = sql & HyLocation & "',HyMemo='" & HyMemo
sql = sql & "' where id =" & id
'Response.Write sql
'Response.End
rs.Open sql,conn
if Approved=1 then
href="hymanok.asp?pageno=" & pageno & "& findcontent=" & findcontent
else
href="hyman.asp?pageno=" & pageno & "& findcontent=" & findcontent
end if
%>
<br>------------------------<font color=red>會員修改成功!</font><br>
<script language="javascript">
window.location.href="<% =href%>"
window.parent.frames(0).location.reload();
</script>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -