📄 feeedit.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;
background-color: #3399FD;
}
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;}
-->
</style>
<script language=javascript>
function winclose() {
window.opener.location.reload();
window.close();
}
function accu()
{
with(document.form1){
sa=a.value;
sa=parseFloat(sa);
sb=b.value;
sb=parseFloat(sb);
sc=c.value;
sc=parseFloat(sc);
sd=d.value;
sd=parseFloat(sd);
se=e.value;
se=parseFloat(se);
sf=f.value;
sf=parseFloat(sf);
sg=g.value;
sg=parseFloat(sg);
sh=h.value;
sh=parseFloat(sh);
si=i.value;
si=parseFloat(si);
sj=j.value;
sj=parseFloat(sj);
ssum=sa+sb+sc+sd+se+sf+sg+sh+si+sj;
Fsum.value=ssum + "元"
Fsum.value=Fsum.value.toString();}
}
</script>
</head>
<body onmouseover="self.status='红笛软件:服务网址[http://weekaa.com/red]';return true" onUnload="winclose();">
<p>
<%
dim stv,sqstv
tab="Fee"
if request.QueryString("action") = "" then
Set stv = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&tab&"'"
stv.Open Sqstv,Connkaa,1,3
IDD=request.QueryString("IDD")
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "Select * From [Fee] where IDD="&IDD
rs.Open sql,Connkaa,1,3
Tim = rs("tim")
YY = Year(Tim)
MM = Month(Tim)
DD = Day(Tim)
If MM < 10 Then
MM = "0" & MM
End If
If DD < 10 Then
DD = "0" & DD
End If
Londate = YY & "-" & MM & "-" & DD
rss = rs("s")
rss = Mid(rss, 1, 5)
rsr = rs("r")
rsr = Mid(rsr, 1, 5)
If Len(rsr) = 2 Then
rsr = Mid(rsr, 1, 1) & " " & Mid(rsr, 2, 1)
End If
rsa=rs("a")
rsb=rs("b")
rsc=rs("c")
rsd=rs("d")
rse=rs("e")
rsf=rs("f")
rsg=rs("g")
rsh=rs("h")
rsi=rs("i")
rsj=rs("j")
sum=0+rsa+rsb+rsc+rsd+rse+rsf+rsg+rsh+rsi+rsj
%>
</p>
<form name="form1" method="post" action="?action=action&IDD=<%=IDD%>">
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#0033cc" bgcolor="#E8EBEE">
<tr>
<td height="28" align="center" bordercolor="#E8EBEE" background="../Image/bg01.jpg" class="STYLE12">缴费修改</td>
</tr>
<tr>
<td><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#E8EBEE">
<tr align="center" bgcolor="#F1F3F5">
<td width="80" bgcolor="#FFFFFF" class="style3">日期</td>
<td width="80" height="25" bgcolor="#FFFFFF" class="style3">班级</td>
<td width="80" bgcolor="#FFFFFF" class="style3">姓名</td>
<td width="60" bgcolor="#FFFFFF" class="style3"><%=stv("a")%></td>
<td width="60" bgcolor="#FFFFFF" class="style3"><%=stv("b")%></td>
<td width="60" bgcolor="#FFFFFF" class="style3"><%=stv("c")%></td>
<td width="60" bgcolor="#FFFFFF" class="style3"><%=stv("d")%></td>
<td width="60" bgcolor="#FFFFFF" class="style3"><%=stv("e")%></td>
<td width="60" bgcolor="#FFFFFF" class="style3"><%=stv("f")%></td>
<td width="60" bgcolor="#FFFFFF" class="style3"><%=stv("g")%></td>
<td width="60" bgcolor="#FFFFFF" class="style3"><%=stv("h")%></td>
<td width="60" bgcolor="#FFFFFF" class="style3"><%=stv("i")%></td>
<td width="60" bgcolor="#FFFFFF" class="style3">其它</td>
<td width="70" bgcolor="#FFFFFF" class="style3">改前合计</td>
<td width="70" bgcolor="#FFFFFF" class="style3">改后合计</td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td><%=Londate%></td>
<td height="30"><%=rss%></td>
<td><%=rsr%></td>
<td><input name="a" type="text" id="a" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=rs("a")%>" size="6"></td>
<td><input name="b" type="text" id="b" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=rs("b")%>" size="6"></td>
<td><input name="c" type="text" id="c" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=rs("c")%>" size="6"></td>
<td><input name="d" type="text" id="d" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=rs("d")%>" size="6"></td>
<td><input name="e" type="text" id="e" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=rs("e")%>" size="6"></td>
<td><input name="f" type="text" id="f" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=rs("f")%>" size="6"></td>
<td><input name="g" type="text" id="g" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=rs("g")%>" size="6"></td>
<td><input name="h" type="text" id="h" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=rs("h")%>" size="6"></td>
<td><input name="i" type="text" id="i" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=rs("i")%>" size="6"></td>
<td><input name="j" type="text" id="j" onKeyUp="accu();value=value.replace(/[^0-9,^.]/g,'');" value="<%=rs("j")%>" size="6"></td>
<td><%=sum%></td>
<td><input name="Fsum" type="text" id="Fsum" size="6" style='background-color: #FFFFFF; border-color: #FF0000; border-style: solid; border-width: 0px 0px 0px 0px, font-family:Verdana,Arial; font-size: 14pt; color: #FF0000'></td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td height="30" colspan="15" bgcolor="#FFFFFF"><input type="submit" name="Submit" value="保 存"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="28" align="center" background="../Image/bg01.jpg"> </td>
</tr>
</table>
</form>
<%
else
IDD=request.QueryString("IDD")
a=request.form("a")
b=request.form("b")
c=request.form("c")
d=request.form("d")
e=request.form("e")
f=request.form("f")
g=request.form("g")
h=request.form("h")
i=request.form("i")
j=request.form("j")
if a="" then a=0 end if
if b="" then b=0 end if
if c="" then c=0 end if
if d="" then d=0 end if
if e="" then e=0 end if
if f="" then f=0 end if
if g="" then g=0 end if
if h="" then h=0 end if
if i="" then i=0 end if
if j="" then j=0 end if
Set rss = Server.CreateObject("ADODB.RecordSet")
sqsl = "Select * From [Fee] where IDD="&IDD
rss.Open sqsl,Connkaa,1,3
rss("a")=a
rss("b")=b
rss("c")=c
rss("d")=d
rss("e")=e
rss("f")=f
rss("g")=g
rss("h")=h
rss("i")=i
rss("j")=j
rss.update
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -