📄 admin.asp
字号:
<!--#include file="conn.asp"-->
<%if Session.Contents("thegbmaster")="enshi" then%>
<%
dim cj, pp, cx, pl, jg, mc, dh
cj=Request("cj")
cx=Request("cx")
pl=Request("pl")
jg=Request("jg")
mc=Request("mc")
dh=Request("dh")
%>
<%
if cj<>"" and cx<>"" and pl<>"" and jg<>"" and mc<>"" and dh<>"" Then
rs.AddNew
rs("cj")=cj
rs("cx")=cx
rs("pl")=pl
rs("jg")=jg
rs("mc")=mc
rs("dh")=dh
rs.Update
response.redirect "admin.asp"
Else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css">
<title>金融天地成绩查询系统</title>
</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<table width="100%" border="0" cellspacing="0" cellpadding="0" vspace="0" hspace="0" bordercolordark="#FFFFFF" bordercolorlight="#316395" height="34">
<tr>
<td height="34">
<div align="center"><a href="http://fintd.126.com" target="_blank">金融天地
</a></div></td>
</tr>
</table>
<br>
<table border="1" cellspacing="0" cellpadding="0" width="615" align="center" height="42" bordercolor="#7C96B8" bordercolordark="#FFFFFF">
<TR>
<td colspan="10" height="20" bgcolor="#7C96B8">
<div align="center"><font color="#FFFFFF">金融天地成绩查询系统-后台管理 </font></div></td>
</TR>
<TR>
<TD width="29" height="20"><font color="#336699">编号</font></TD>
<TD width="80"><font color="#336699">学号</font></TD>
<TD width="74"><font color="#336699">姓名</font></TD>
<TD width="47"><font color="#336699">性别</font></TD>
<TD width="46"><font color="#336699">出生</font></TD>
<TD width="35"><font color="#336699">修改</font></TD>
<TD width="31"><font color="#336699">删除</font></TD>
</TR>
<%
if rs.EOF then
response.write "暂时还没有任何数据"
else
do while not rs.eof
response.write ("<tr>"&_
"<td>"& rs("ID") &"</td>"&_
"<td>"& rs("cj") &"</td>"&_
"<td>"& rs("cx") &"</td>"&_
"<td>"& rs("pl") &"</td>"&_
"<td>"& rs("jg") &"</td>"&_
"<td>"& rs("mc") &"</td>"&_
"<td>"& rs("dh") &"</td>"&_
"<td><a href='edit.asp?id="& rs("id") &"'>修改</a></td>"&_
"<td><p align='center'><a href='del.asp?id="& rs("id") &"'>删除</a></p></td></tr>")
rs.MoveNext
loop
end if
%>
</TABLE>
</body>
</html>
<%end if%>
<%
Else
response.redirect "login.asp"
end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -