📄 modify_grade.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
grade="1"
If (Request.Form("INgrade") <> "") Then
grade= Replace(Request.Form("INgrade"), "'", "''")
End If
set rs_grade=Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM DB_rebate WHERE grade = '" & grade & "'"
rs_grade.open sql,conn,3,3
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>会员级别信息设置！</title>
<link href="style.css" rel="stylesheet">
</head>
<body leftmargin="0" topmargin="0">
<table width="639" height="133" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td width="639" background="images/grade_top.jpg"> </td>
</tr>
</table>
<table width="640" height="341" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td valign="top" background="images/buycar_bottom.jpg">
<div align="center">
<form name="form1" method="post" action="modify_grade.asp">
<table width="96%" height="159" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td height="37"> <div align="center">
<table width="97%" height="58" border="0" cellpadding="-2"
cellspacing="-2">
<tr>
<td height="21" colspan="2"> </td>
</tr>
<tr>
<td width="59%" height="37">
<div align="right"><strong><font color="#C60001" size="3">
请输入等级：</font></strong>
<input name="INgrade" type="text" id="INgrade"
size="3" maxlength="1">
</div></td>
<td width="41%" valign="middle">
<input name="search" type="image" value="搜索" id="search"
src="./images/go.gif" align="bottom" width="35"
height="25" border="0">
<font color="#003366"> </font> </td>
</tr>
</table>
<strong></strong></div></td>
</tr>
<tr>
<td valign="top"> <br>
<div align="center">
<% If Not rs_grade.EOF Or Not rs_grade.BOF Then %>
<table width="30%" height="79" border="1" align="center" cellpadding="0"
cellspacing="0" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF"
bordercolordark="#77aaff">
<tr>
<td width="24%"><div align="center"><font color="#003366">等级</font>
</div></td>
<td width="76%"><div align="center"><font color="#003366">
<input name="fgrade" type="text" disabled id="fgrade"
value="<%=(rs_grade("grade"))%>" size="12">
</font></div></td>
</tr>
<tr>
<td><div align="center"><font color="#003366"> 金额</font>
</div></td>
<td><div align="center"><font color="#003366">
<input name="fsum" type="text" id="fsum"
value="<%=(rs_grade("sum"))%>" size="12">
元</font></div></td>
</tr>
<tr>
<td><div align="center"><font color="#003366"> 折扣 </font>
</div></td>
<td><div align="center"><font color="#003366">
<input name="frebate" type="text" id="frebate"
value="<%=left(rs_grade("rebate"),len(rs_grade("rebate"))-1)%>"
size="12">
折 </font></div></td>
</tr>
</table>
<br><% End If %>
<% If rs_grade.EOF And rs_grade.BOF Then %>
<strong><font color="#C60001" size="3">
很报歉，没有该等级！</font></strong>
<% End If %>
</div></td>
</tr>
</table>
</form>
<script language="JavaScript">
function submit2(){
form2.hgrade.value=form1.fgrade.value;
form2.hsum.value=form1.fsum.value;
form2.hrebate.value=form1.frebate.value;
form2.submit();
}
</script>
<table width="95%" height="44" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<form name="form2" method="post" action="modifygrade_OK.asp">
<td height="44"> <div align="center"><br>
<input name="Inmodify" type="image" id="Inmodify" value="修改"
src="images/modify_butt.gif" width="81" height="36" border="0"
onClick="submit2()">
<input name="hgrade" type="hidden" id="hgrade">
<input name="hsum" type="hidden" id="hsum">
<input name="hrebate" type="hidden" id="hrebate">
<a href="manager.htm"><img src="images/register_back.gif" width="81" height="36" border="0"></a> </div></td>
</form>
</tr>
</table>
</div></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -