📄 admin_lottery.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 lottery"
set newrst=newconn.execute(newcmd)
%>
<form method="POST" action="admin_lottery.asp">
<p><font color="#0000FF">足彩推荐</font><font color="#0000FF">:</font></p>
<table border="1" width="100%" height="41">
<tr>
<td width="13%" height="13">编号</td>
<td width="16%" height="13">排号</td>
<td width="16%" height="13">主队</td>
<td width="15%" height="13">客队</td>
<td width="15%" height="13">推荐</td>
<td width="13%" height="13">期号</td>
<td width="12%" height="13">投注金额</td>
</tr>
<%do while not newrst.eof%>
<tr>
<td width="13%" height="16"><%=newrst(0)%></td>
<td width="16%" height="16"><%=newrst(1)%></td>
<td width="16%" height="16"><%=newrst(2)%></td>
<td width="15%" height="16"><%=newrst(3)%></td>
<td width="15%" height="16"><%=newrst(4)%></td>
<td width="13%" height="16"><%=newrst(5)%></td>
<td width="12%" height="16"><%=newrst(6)%></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="T17" size="17"><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="T18" size="13"><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"></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")
jin=request("T17")
SQLcmd="Insert into lottery(paihao,teamA,teamB,introduce,qihao,jine) values('" & riqi & "','" & zhudui & "','" & rangqiu & "','" & kedui & "','" & tuijian & "','" & jin & "')"
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")
jin=request("T18")
SQLcmd="Update lottery set paihao='" & riqi & "',teamA='" & zhudui & "',TeamB='" & rangqiu & "',introduce='" & kedui & "',qihao='" & tuijian & "',jine='" & jin & "' 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 lottery where ID=" & number
newconn.execute SQLcmd
end if
end if
aaa=""
%>
<%
if request("b8")="全部清除" then
SQLcmd="delete * from lottery"
newconn.execute SQLcmd
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -