?? feez.asp
字號:
<% Set hdobj = Server.CreateObject("HD.comOpen")'請保證此行在最前面
Conn = hdobj.WeekaaConn()
%>
<html>
<head>
<style type="text/css">
<!--
body {
background-color: #CED7F7;
}
body,td,th {
font-size: 12px;
}
.style3 {
font-size: 16px;
font-family: "黑體";
}
-->
</style>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
</head>
<body>
<%
%>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CED7F7">
<tr> <td height="28" colspan="6" align="center" background="../Image/bg01.jpg" bgcolor="#FFFFFF"> </td> </tr>
<tr>
<td height="40" colspan="6" align="center" bgcolor="#FFFFFF"><span class="style3">繳費名稱管理</span></td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF"><form name="form1" method="post" action="">
<td height="30" colspan="6"><p>班級查詢<%call hdobj.%>
<input name="La" type="text" id="years" value="" size="6">
<input type="submit" name="Submit2" value="Go">
</p> </td></form></tr>
<tr align="center" bgcolor="#F1F3F5">
<td width="22%" height="30">編號</td>
<td width="29%">班級名稱</td>
<td width="21%">類別</td>
<td width="9%">人數</td>
<td width="9%">修改</td>
<td width="10%">刪除</td>
</tr>
<%
Set rs=Server.Createobject("Adodb.RecordSet")
if La="" then
sqltext = "Select * From [Classs] order by a asc"
else
sqltext = "Select * From [Classs] where b like '%"& La &"%' order by a asc"
end if
rs.Open sqltext,Conn,1,3
Do While Not rs.Eof
%>
<tr align="center" valign="bottom" bgcolor="#FFFFFF"> <td height="30"><%=rs("a")%></td>
<td><%=rs("b")%></td>
<td><%=rs("c")%></td>
<td><%=rs("c")%></td>
<td><a href="../Fee/?XGID=<%=rs("ID")%>&years=<%=years%>">修改</a></td>
<td><a href="../Fee/?delon=del&deid=<%=rs("ID")%>&years=<%=years%>"" onClick="return delpay();">刪除</a></td></tr>
<%
rs.MoveNext
loop
rs.close
set rs=nothing
ID=Request.QueryString("XGID")
if ID<>"" Then
Set rv=Server.Createobject("Adodb.RecordSet")
ssq = "Select * From [Classs] where id="&ID
rv.Open ssq,Conn,1,3
ra=rv("a")
rb=rv("b")
rc=rv("c")
end if
if ra="" then
ra="住宿費"
end if
if rb="" then
rb=years
end if
%>
<form action="../Fee/?XGID=<%=ID%>&ss=ss" method="post" name="form2" id="form2">
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td height="25"> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td height="25"><input name="a" type="text" id="a" value="<%=ra%>" size="10"></td>
<td><input name="b" type="text" id="b" value="<%=rb%>" size="16"></td>
<td><input name="c" type="text" id="c" value="<%=rc%>" size="10"></td>
<td><input name="c2" type="text" id="c2" value="<%=rc%>" size="10"></td>
<td colspan="2"><input name="years" type="hidden" id="years2" value="<%=years%>">
<input type="submit" name="Submit" value="提交"></td>
</tr></form>
<tr align="center" valign="bottom">
<td height="28" colspan="6" background="../Image/bg01.jpg"> </td>
</tr>
</table>
</body>
</html>
<%
if Request.QueryString("ss")<>"" then
call add()
end if
if Request.QueryString("delon")<>"" then
call deler()
end if
sub add()
XGID=Request.QueryString("XGID")
a=request.form("a")
b=request.form("b")
c=request.form("c")
Set rc=Server.Createobject("Adodb.RecordSet")
if XGID<>"" then
sqc = "Select * From [Classs] where ID="&XGID
else
sqc = "Select * From [Classs] where (ID is null)"
end if
rc.Open sqc,Conn,1,3
IF XGID="" then
rc.addnew
end if
rc("a")=a
rc("b")=b
rc("c")=c
rc("nam")=Session("AdminUser")
rc("tim")=now()
rc.update
rc.close
set rc=nothing
if XGID="" then
Loonog="添加標準" & a &"," & b &"," & c
else
Loonog="修改標準" & a &"," & b &"," & c
end if
Set Urs = Server.CreateObject("ADODB.RecordSet")
sqlUrs = "Select * From [LogInfo] Where (ID is null)"
Urs.Open sqlUrs, Conn, 1, 3
Urs.AddNew
Urs("a") = Session("AdminUser")
Urs("b") = Now()
Urs("c") = Loonog
Urs("d") = Request.ServerVariables("REMOTE_ADDR")
Urs("e") = Request.ServerVariables("REMOTE_ADDR")
Urs.Update
Urs.Close
Set Urs = Nothing
info = "Feez.asp?ss=&XGID="
Response.Redirect (info)
end sub
sub deler()
DeID=Request.QueryString("deid")
Set rse=Server.Createobject("Adodb.RecordSet")
sqe = "Select * From [Feez] where ID=" & DeID
rse.Open sqe,Conn,1,3
a=rse("a")
b=rse("b")
c=rse("c")
rse.Delete
rse.Update
rse.close
set rse=nothing
Loonog="刪除標準" & a &"," & b &"," & c
Set Urs = Server.CreateObject("ADODB.RecordSet")
sqlUrs = "Select * From [LogInfo] Where (ID is null)"
Urs.Open sqlUrs, Conn, 1, 3
Urs.AddNew
Urs("a") = Session("AdminUser")
Urs("b") = Now()
Urs("c") = Loonog
Urs("d") = Request.ServerVariables("REMOTE_ADDR")
Urs("e") = Request.ServerVariables("REMOTE_ADDR")
Urs.Update
Urs.Close
Set Urs = Nothing
info = "Feez.asp?ss=&XGID"
Response.Redirect (info)
end sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -