?? edit.asp
字號:
<% Set hdobj = Server.CreateObject("HD.comOpen")'請確保此行在最前
Connkaa = hdobj.WeekaaConn()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="pragma" content="no-cache">
<title>紅笛軟件</title>
<style type="text/css">
<!--
.style3 {font-size: 12px}
.style4 { color: #FFFFFF;
font-size: 14px;
}
body,td,th {
font-size: 12px;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.STYLE12 {font-family: "黑體"; font-size: 16px;}
.STYLE13 {color: #000066}
.STYLE14 {font-size: 12px; color: #000066; }
-->
</style>
<script language=javascript>
function winclose() {
window.opener.location.reload();
window.close();
}
</script>
</head>
<body onmouseover="self.status='紅笛軟件:服務網址[http://weekaa.com/red]';return true" onUnload="winclose();">
<%
dim stv,sqstv
tab="Fee"
ID=request.QueryString("ID")
if request.QueryString("action") = "" then
Set stv = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&tab&"'"
stv.Open Sqstv,Connkaa,1,3
MA=stv("a")
MB=stv("b")
MC=stv("c")
MD=stv("d")
MEE=stv("e")
MF=stv("f")
MG=stv("g")
MH=stv("h")
MI=stv("i")
MJ=stv("j")
IF ID<>"" THEN
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "Select * From [FeeB] where ID="&ID
rs.Open Sql,Connkaa,1,3
NA=rs("a")
NB=rs("b")
NC=rs("c")
ND=rs("d")
NE=rs("e")
NF=rs("f")
NG=rs("g")
NH=rs("h")
NI=rs("i")
NJ=rs("j")
Nx=rs("x")
Ny=rs("y")
END IF
%>
<form name="form1" method="post" action="?action=action&ID=<%=ID%>&Ny=<%=Ny%>">
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#DEE7FF">
<tr>
<td height="28" align="center" background="../Image/bg01.jpg" class="STYLE12">班級收費標準修改</td>
</tr>
<tr>
<td><table width="800" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#E8EBEE">
<tr align="center" bgcolor="#F1F3F5">
<td width="153" height="35" bgcolor="#FFFFFF" class="style3 STYLE13">班 級</td>
<td width="70" bgcolor="#FFFFFF" class="STYLE14">學 期</td>
<td width="68" bgcolor="#FFFFFF" class="STYLE14"><%=MA%></td>
<td width="68" bgcolor="#FFFFFF" class="STYLE14"><%=MB%></td>
<td width="68" bgcolor="#FFFFFF" class="STYLE14"><%=MC%></td>
<td width="68" bgcolor="#FFFFFF" class="STYLE14"><%=MD%></td>
<td width="68" bgcolor="#FFFFFF" class="STYLE14"><%=MEE%></td>
<td width="68" bgcolor="#FFFFFF" class="STYLE14"><%=MF%></td>
<td width="68" bgcolor="#FFFFFF" class="STYLE14"><%=MG%></td>
<td width="68" bgcolor="#FFFFFF" class="STYLE14"><%=MH%></td>
<td width="68" bgcolor="#FFFFFF" class="STYLE14"><%=MI%></td>
<td width="68" bgcolor="#FFFFFF" class="STYLE14"><%=MJ%></td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td height="35" bgcolor="#FFFFFF"><%=Ny%><input name="y" type="hidden" id="y" value="<%=Ny%>"></td>
<td bgcolor="#FFFFFF"><%=Nx%><input name="x" type="hidden" id="x" value="<%=Nx%>"></td>
<td bgcolor="#FFFFFF"><input name="a" type="text" id="a" value="<%=Na%>" size="5"></td>
<td bgcolor="#FFFFFF"><input name="b" type="text" id="b" value="<%=Nb%>" size="5"></td>
<td bgcolor="#FFFFFF"><input name="c" type="text" id="c" value="<%=Nc%>" size="5"></td>
<td bgcolor="#FFFFFF"><input name="d" type="text" id="d" value="<%=Nd%>" size="5"></td>
<td bgcolor="#FFFFFF"><input name="e" type="text" id="e" value="<%=Ne%>" size="5"></td>
<td bgcolor="#FFFFFF"><input name="f" type="text" id="f" value="<%=Nf%>" size="5"></td>
<td bgcolor="#FFFFFF"><input name="g" type="text" id="g" value="<%=Ng%>" size="5"></td>
<td bgcolor="#FFFFFF"><input name="h" type="text" id="h" value="<%=Nh%>" size="5"></td>
<td bgcolor="#FFFFFF"><input name="i" type="text" id="i" value="<%=Ni%>" size="5"></td>
<td bgcolor="#FFFFFF"><input name="j" type="text" id="j" value="<%=Nj%>" size="5"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="28" align="center">全部學期
<input name="alls" type="checkbox" id="all" value="checkbox">
<input type="submit" name="Submit" value="提 交"></td>
</tr>
<tr>
<td height="28" align="center" background="../Image/bg01.jpg"> </td>
</tr>
</table>
</form>
<p>
<%
stv.close
set stv=nothing
else
alls=request.form("alls")
Ny=request.QueryString("Ny")
Set rv = Server.CreateObject("ADODB.RecordSet")
if alls="" then
sqlv = "Select * From [FeeB] where ID="&ID
else
sqlv = "Select * From [FeeB] where y='"&Ny&"'"
end if
rv.Open Sqlv,Connkaa,1,3
do while not rv.eof
rv("a")=request.form("a")
rv("b")=request.form("b")
rv("c")=request.form("c")
rv("d")=request.form("d")
rv("e")=request.form("e")
rv("f")=request.form("f")
rv("g")=request.form("g")
rv("h")=request.form("h")
rv("i")=request.form("i")
rv("j")=request.form("j")
rv.update
rv.movenext
loop
end if
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -