📄 admin_free.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>admin</title>
</head>
<body>
<%
set newconn=server.createobject("adodb.connection")
DBpath=server.mappath("football.mdb")
newconn.open"driver={Microsoft Access Driver (*.mdb)};dbq=" & dbpath
newcmd="select * from free"
set newrst=newconn.execute(newcmd)
%>
<form method="POST" action="admin_free.asp">
<p><font color="#0000FF">免费推荐:</font></p>
<table border="1" width="100%">
<tr>
<td width="12%">编号</td>
<td width="12%">日期</td>
<td width="12%">球队</td>
<td width="12%">让球</td>
<td width="13%">球队</td>
<td width="13%">推荐</td>
<td width="13%">结果</td>
<td width="13%">成绩</td>
</tr>
<%do while not newrst.eof%>
<tr>
<td width="12%"><%=newrst(0)%></td>
<td width="12%"><%=newrst(1)%></td>
<td width="12%"><%=newrst(2)%></td>
<td width="12%"><%=newrst(3)%></td>
<td width="13%"><%=newrst(4)%></td>
<td width="13%"><%=newrst(5)%></td>
<td width="13%"><%=newrst(6)%></td>
<td width="13%"><%=newrst(7)%></td>
</tr>
<%newrst.movenext%>
<%loop%>
<%newrst.close%>
</table>
<p><input type="text" name="T1" size="14"><input type="text" name="T2" size="14"><input type="text" name="T3" size="14"><input type="text" name="T4" size="14"><input type="text" name="T5" size="14"><input type="text" name="T6" size="14"><input type="text" name="T7" size="14"><input type="submit" value="添加记录" name="B4"></p>
<p>编号:<input type="text" name="T8" size="14"></p>
<p><input type="text" name="T9" size="14"><input type="text" name="T10" size="14"><input type="text" name="T11" size="14"><input type="text" name="T12" size="14"><input type="text" name="T13" size="14"><input type="text" name="T14" size="14"><input type="text" name="T15" size="14"><input type="submit" value="修改记录" name="B6"></p>
<p>编号:<input type="text" name="T16" size="14"><input type="submit" value="删除记录" name="B7"><input type="submit" value="全部清除" name="B8"><input type="submit" value="添加到历史记录" name="B10"></p>
<p align="center">
<input type="submit" value="刷 新" name="B9"></p>
</form>
<%
if request("b4")="添加记录" then
aaa=request("T1")
aaa=aaa & "T1"
if aaa<>"T1" then
riqi=request("T1")
zhudui=request("T2")
rangqiu=request("T3")
kedui=request("T4")
tuijian=request("T5")
jieguo=request("T6")
chengji=request("T7")
SQLcmd="Insert into free(begindate,teamA,give,teamB,introduce,result,grade) values('" & riqi & "','" & zhudui & "','" & rangqiu & "','" & kedui & "','" & tuijian & "','" & jieguo & "','" & chengji & "')"
newconn.execute SQLcmd
end if
end if
aaa=""
%>
<%
if request("b6")="修改记录" then
aaa=request("T8")
aaa=aaa & "T8"
if aaa<>"T8" then
number=request("T8")
riqi=request("T9")
zhudui=request("T10")
rangqiu=request("T11")
kedui=request("T12")
tuijian=request("T13")
jieguo=request("T14")
chengji=request("T15")
SQLcmd="Update free set begindate='" & riqi & "',teamA='" & zhudui & "',give='" & rangqiu & "',teamB='" & kedui & "',introduce='" & tuijian & "',result='" & jieguo & "',grade='" & chengji & "' where ID=" & number
newconn.execute SQLcmd
end if
end if
aaa=""
%>
<%
if request("b7")="删除记录" then
aaa=request("T16")
aaa=aaa & "T16"
if aaa<>"T16" then
number=request("T16")
SQLcmd="delete * from free where ID=" & number
newconn.execute SQLcmd
end if
end if
aaa=""
%>
<%
if request("b8")="全部清除" then
SQLcmd="delete * from free"
newconn.execute SQLcmd
end if
%>
<%
if request("b10")="添加到历史记录" then
cmd_from="select * from free"
set rst_from=newconn.execute(cmd_from)
do while not rst_from.eof
SQLcmd="Insert into past(begindate,teamA,give,teamB,introduce,result,grade) values('" & rst_from(1) & "','" & rst_from(2) & "','" & rst_from(3) & "','" & rst_from(4) & "','" & rst_from(5) & "','" & rst_from(6) & "','" & rst_from(7) & "')"
rst_from.movenext
newconn.execute SQLcmd
loop
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -