📄 index.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;
}
.tables {
background-image: url(../Image/bigbg.jpg);
background-repeat: no-repeat;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url(../Image/bg.gif);
background-color: #3399FD;
}
a:link {
text-decoration: none;
color: #003399;
}
a:visited {
text-decoration: none;
color: #003366;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.STYLE15 {
font-size: 18px;
font-family: "黑体";
color: #FFFFFF;
}
-->
</style><script language="JavaScript" type="text/JavaScript">
function delpay()
{
if(confirm("确定要删除此吗？"))
return true;
else
return false;
}
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body onmouseover="self.status='红笛软件:服务网址[http://weekaa.com/red]';return true">
<%
dim stv,sqstv,La
La=request.form("La")
Lb=request.form("Lb")
if Lb="" then
Lc=La
else
Lc=Lb
end if
tab="Fee"
If Request.QueryString("deln") = "del" Then
call hdobj.Deler("FeeB","I")
end if
Set stv = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&tab&"'"
stv.Open Sqstv,Connkaa,1,3
Na=stv("a")
Nb=stv("b")
Nc=stv("c")
Nd=stv("d")
Ne=stv("e")
Nf=stv("f")
Ng=stv("g")
Nh=stv("h")
Ni=stv("i")
Nj=stv("j")
%>
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#3399fd">
<tr>
<td height="150" align="center" valign="bottom"><img src="../Image/bigbga.jpg" width="1003" height="150"></td>
</tr>
<tr>
<td height="28" align="center" valign="bottom" background="../Image/bg01a.jpg"> </td>
</tr>
<tr>
<td height="600" align="center" valign="top"><table width="800" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25"> </td>
</tr>
<tr>
<td height="25" align="center">
<table width="100%" height="25" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0066CC">
<tr valign="bottom" bordercolor="#6A8FDA" bgcolor="#FFFFFF">
<td height="80" align="center" valign="bottom" bgcolor="#FFFFFF">
<form name="form1" method="post" action="">
<span class="STYLE10">班级
<input name="La" type="text" id="La" size="14">
学期
<input name="Lb" type="text" id="Lb" size="14">
</span>
<input type="submit" name="Submit" value="查询">
</form>
<p><a href="#" onClick="MM_openBrWindow('Lm.asp','红笛软件','scrollbars=no,width=800,height=130,top=200,left=50')">[项目设置]</a> <a href="#" onClick="MM_openBrWindow('ADD.asp','红笛软件','scrollbars=no,width=400,height=150,top=200,left=200')">[新增标准]</a> </p></td></tr></table>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="center" valign="bottom"><p class="STYLE15"><%=Lc%>缴费标准管理</p></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellspacing="0" bordercolor="#0033CC">
<tr>
<td height="28" align="center" background="../Image/bg01.jpg"><p class="STYLE14"> </p></td>
</tr>
<tr>
<td><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#E8EBEE">
<tr align="center" bgcolor="#F1F3F5">
<td width="15%" height="25" bgcolor="#F1F3F5" class="style3">班 级</td>
<td width="15%" height="25" bgcolor="#F1F3F5" class="style3">学 期</td>
<td width="6%" bgcolor="#F1F3F5" class="style3"><%=Na%></td>
<td width="6%" bgcolor="#F1F3F5" class="style3"><%=Nb%></td>
<td width="6%" bgcolor="#F1F3F5" class="style3"><%=Nc%></td>
<td width="6%" bgcolor="#F1F3F5" class="style3"><%=Nd%></td>
<td width="6%" bgcolor="#F1F3F5" class="style3"><%=Ne%></td>
<td width="6%" bgcolor="#F1F3F5" class="style3"><%=Nf%></td>
<td width="6%" bgcolor="#F1F3F5" class="style3"><%=Ng%></td>
<td width="6%" bgcolor="#F1F3F5" class="style3"><%=Nh%></td>
<td width="6%" bgcolor="#F1F3F5" class="style3"><%=Ni%></td>
<td width="6%" bgcolor="#F1F3F5" class="style3"><%=Nj%></td>
<td width="5%" bgcolor="#F1F3F5" class="style3">改</td>
<td width="5%" bgcolor="#F1F3F5" class="style3">删</td>
</tr>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
if La="" then
if Lb="" then
sqls = "Select * From [FeeB] order by y,ID asc"
else
sqls = "Select * From [FeeB] where x like '%"& Lb &"%' order by y,ID asc"
end if
else
if Lb="" then
sqls = "Select * From [FeeB] where y like '%"& La &"%' order by y,ID asc"
else
sqls = "Select * From [FeeB] where x like '%"& Lb &"%' and y like '%"& La &"%' order by y,ID asc"
end if
end if
rs.Open Sqls,Connkaa,1,3
'=========================================================
Dim i, text, checkpage, page, MaxPerPage, CurrentPage
MaxPerPage = Request.Form("pages")
If MaxPerPage = "" Then
MaxPerPage = 30
End If
If MaxPerPage < 1 Or MaxPerPage > 1000 Then
MaxPerPage = 30
End If
MaxPerPage = MaxPerPage * 1
text = "0123456789"
rs.PageSize = MaxPerPage
GoPage = Request.Form("pagee")
For i = 1 To Len(GoPage)
checkpage = InStr(1, text, Mid(GoPage, i, 1))
If checkpage = 0 Then
Exit For
End If
Next
If checkpage <> 0 Then
If Not IsEmpty(GoPage) Then
CurrentPage = CInt(GoPage)
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > rs.PageCount Then CurrentPage = rs.PageCount
Else
CurrentPage = 1
End If
If Not rs.EOF Then
rs.AbsolutePage = CurrentPage
End If
Else
CurrentPage = 1
End If
RsSum = CStr(rs.RecordCount) '记录总条数
pageOn = CStr(CurrentPage) '当前第几页
pageSum = CStr(rs.PageCount) '总共几页
NextPage = pageOn + 1
If NextPage > pageSum*1 Then
NextPage = 1
End If
'==============================================================
i=0
do while not rs.eof
%>
<tr align="center" valign="bottom" bgcolor="#FFFFFF" height="25">
<td align="center"><%=rs("y")%></td>
<td align="center"><%=rs("x")%></td>
<td align="center"><%=rs("a")%></td>
<td align="center"><%=rs("b")%></td>
<td align="center"><%=rs("c")%></td>
<td align="center"><%=rs("d")%></td>
<td align="center"><%=rs("e")%></td>
<td align="center"><%=rs("f")%></td>
<td align="center"><%=rs("g")%></td>
<td align="center"><%=rs("h")%></td>
<td align="center"><%=rs("i")%></td>
<td align="center"><%=rs("j")%></td>
<td><a href="#" onClick="MM_openBrWindow('Edit.asp?ID=<%=rs("ID")%>','红笛软件','scrollbars=no,width=800,height=130,top=200,left=50')">改</a></td>
<td><a href="?deln=del&ID=<%=rs("id")%>" onClick="return delpay();">删</a></td>
</tr>
<%
i=i+1
if i >= MaxPerpage then exit do
rs.movenext
loop
%>
</table></td></tr>
<%
Response.Write "<tr><form name='form2' method='post' action=''><td height='28' align='center' background='../Image/bg01.jpg'>"
Response.Write "<span class='STYLE13'><input type='hidden' name='La' value='" & La & "'>"
Response.Write "第" & pageOn & "/" & pageSum & "页 共" & RsSum & "条记录 每页"
Response.Write "<input name='pages' type='text' id='pages' value='" & MaxPerPage & "'"
Response.Write " size='2' style='background-color: #DEE7FF; border-color: #FFFFFF; border-style: solid; border-width: 0px 0px 1px 0px, font-family:Verdana,Arial; font-size: 10pt; color: #000000'>"
Response.Write "条记录 转到</span>"
Response.Write "<input name='pagee' type='text' id='pagee' value='" & NextPage & "' size='2' style='background-color: #dee7ff; border-color: #FFFFFF;"
Response.Write " border-style: solid; border-width: 0px 0px 1px 0px, font-family:Verdana,Arial; font-size: 10pt; color: #000000'>"
Response.Write "<input name='Submit' type='submit' class='STYLE10' value='Go'></td></form></tr>"
%></table></td>
</tr>
</table> </td>
</tr>
<tr>
<td height="25"> </td>
</tr>
<tr>
<td height="28" background="../Image/bg01a.jpg"> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -