📄 update.asp
字号:
<%Response.Buffer=true%>
<%
'修改：
'时间：
'模板设计：秦怀平(jincao@yeah.net)
'开发时间：2000.12
%>
<!--#include file="../include/odbc.asp" -->
<!--#include file="../include/killStr.asp" -->
<!--#include file="../include/checkUser.asp" -->
<!--#include file="../include/checkServer.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Qinhp NetModel Generator">
<meta name="Author" content="QinHuaiPing(秦怀平)">
<link rel="stylesheet" href="../script/style.css" type="text/css">
<%
set rs=server.CreateObject("adodb.recordset")
if request("submit")<>"" then '数据添加/修改
stoptime=request("stoptime") '保存相同信息
gameterm=clng(request("gameterm"))
gameid=request("gameid")
issue=request("issue")
for i=1 to 20 '取名次信息
marksmanname= request("marksmanname"&trim(cstr(i)))
if trim(marksmanname)<>"" then
teamname= request("teamname"&trim(cstr(i)))
marksmanid=request("marksmanid"&trim(cstr(i)))
toporder=clng(request("toporder"&trim(cstr(i))))
goalnum=clng(request("goalnum"&trim(cstr(i))))
if trim(marksmanid)="" then
sql="select * from news2_marksman order by marksmanid desc"
rs.Open sql,conn,3,3
if rs.Eof then '射手榜编号
marksmanidtemp=1
else
marksmanidtemp=rs("marksmanid")+1
end if
rs.Close
sql="select * from news2_marksman where issue='"&issue&"' and gameid='"&gameid&"' "
rs.Open sql,conn,3,3
rs.AddNew '添加新数据
rs("marksmanid")=marksmanidtemp
rs("gameid")=gameid
rs("stoptime")=stoptime
rs("toporder")=toporder
rs("gameterm")=gameterm
rs("teamname")=teamname
rs("marksmanname")=marksmanname
rs("goalnum")=goalnum
rs("issue")=issue
rs.Update
rs.close
else '更新数据
sql="select * from news2_marksman where marksmanid="&clng(marksmanid)
rs.Open sql,conn,3,3
rs("gameid")=gameid
rs("stoptime")=stoptime
rs("toporder")=toporder
rs("gameterm")=gameterm
rs("teamname")=teamname
rs("marksmanname")=marksmanname
rs("goalnum")=goalnum
rs("issue")=issue
rs.Update
rs.close
end if
end if
next
if trim(request("flag"))="on" then '置立即有效
sql="select * from news2_marksman where gameid='"&gameid&"' and flag='1' "
rs.Open sql,conn,3,3
if not rs.EOF then
for i=1 to rs.RecordCount
rs("flag")="0"
rs.Update
rs.MoveNext
next
end if
rs.Close
sql="select * from news2_marksman where issue='"&issue&"' and gameid='"&gameid&"' "
rs.Open sql,conn,3,3
if not rs.EOF then
for i=1 to rs.RecordCount
rs("flag")="1"
rs.Update
rs.MoveNext
next
end if
rs.Close
end if
%>
<script language=javascript>
alert("修改成功！");
//location.href =history.back();
</script>
<%end if%>
<script src="../script/trim.js" language="JavaScript"></script>
<script src="../script/validdate.js" language="JavaScript"></script>
<script language='JavaScript'>
function check(form1){
if (trim(form1.stopTime.value)=='')
{alert('字段截止日期不允许为空!');
form1.stopTime.focus();
form1.stopTime.select();
return (false);
}
if (trim(form1.gameTerm.value)=='')
{alert('字段轮次不允许为空!');
form1.gameTerm.focus();
form1.gameTerm.select();
return (false);
}
if (isNaN(form1.gameTerm.value))
{alert('字段轮次必须是数字!');
form1.gameTerm.focus();
form1.gameTerm.select();
return (false);
}
for (var i=3;i<106;i=i+5) //检测名次
{if (isNaN(form1.elements[i].value))
{alert("请在名次字段内填入数字");
form1.elements[i].focus();
form1.elements[i].select();
return (false); }
if (form1.elements[i].value<0)
{alert("数字必须大于0");
form1.elements[i].focus();
form1.elements[i].select();
return (false); }
}
for (var i=4;i<108;i=i+5) //检测球星名
{if (trim(form1.elements[i].value)!='')
{
if (trim(form1.elements[i+2].value)=='')
{alert('球队名不允许为空!');
form1.elements[i+2].focus();
form1.elements[i+2].select();
return (false);}
}
}
for (var i=5;i<102;i=i+5)
{
if (isNaN(form1.elements[i].value))
{alert("请在进球字段内填入数字");
form1.elements[i].focus();
form1.elements[i].select();
return (false); }
if (form1.elements[i].value<0)
{alert("数字必须大于0");
form1.elements[i].focus();
form1.elements[i].select();
return (false); }
}
}
</script>
</head>
<body bgcolor="#FFFFE0">
<%
sql = "select * from news2_marksman where gameid='"&request("gameid")&"' and issue='"&request("issue")&"' order by goalnum desc"
rs.open sql,conn,3,3
'if rs.eof then
' response.write "记录没有找到！"
' response.end
'end if
%>
<%
set rsSelect=server.CreateObject("adodb.recordset")
%>
<form method=POST action=<% =request.servervariables("path_info")%> name=add onsubmit="return check(this);">
<p align=center><b><font size=4 color=#0000FF><u>射手榜数据修改</u></font></b></p>
<div align=center>
<%
if trim(request("gamename"))="" then
sqlSelect ="select gameId,gameName from news2_game where gameid='"&request("gameid")&"'"
rsSelect.open sqlSelect,conn,3,1
Response.Write rsselect("gamename")
rsselect.close
else
Response.Write request("gamename")
end if
%> 期号：<%=request("issue")%>
截止日期:<input type=Text name=stopTime value="<%=now()%>" size=16 maxLength=16>格式:2001-01-11 08:11
<%' Response.end %>轮次:<input type=Text name=gameTerm <%if not rs.eof then Response.write "value="&rs("gameterm")%> size=2 maxLength=2><center>
<br>注：射手名为空时整行无效
<table style="border: 1 solid #0000FF" width=95% >
<tr>
<td style="border: 1 solid #0000FF" align=center>名次:</td>
<td style="border: 1 solid #0000FF" align=center>射手名:</td>
<td style="border: 1 solid #0000FF" align=center>进球:</td>
<td style="border: 1 solid #0000FF" align=center>队名:</td>
</tr>
<%
flag=0
for i=1 to 20
if not rs.EOF then
if i=1 and rs("flag")="1" then '保存时是否有效标志
flag=1
end if
%><tr>
<input type=hidden name=marksmanid<%=trim(cstr(i))%> value=<%=rs("marksmanid")%> >
<td style="border: 1 solid #0000FF" align=center><input type=Text name=topOrder<%=trim(cstr(i))%> value='<%=i%>' size=3 maxLength=3></td>
<td style="border: 1 solid #0000FF" align=center><input type=Text name=marksmanName<%=trim(cstr(i))%> value='<%=rs("marksmanName")%>' size=10 maxLength=50></td>
<td style="border: 1 solid #0000FF" align=center><input type=Text name=goalNum<%=trim(cstr(i))%> value='<%=rs("goalNum")%>' size=3 maxLength=3></td>
<td style="border: 1 solid #0000FF" align=center><input type=Text name=teamName<%=trim(cstr(i))%> value='<%=rs("teamname")%>' size=20 maxLength=50></td>
<%
rs.MoveNext
else%><tr>
<input type=hidden name=marksmanid<%=trim(cstr(i))%> >
<td style="border: 1 solid #0000FF" align=center><input type=Text name=topOrder<%=trim(cstr(i))%> value=<%=trim(cstr(i))%> size=3 maxLength=3></td>
<td style="border: 1 solid #0000FF" align=center><input type=Text name=marksmanName<%=trim(cstr(i))%> size=10 maxLength=50></td>
<td style="border: 1 solid #0000FF" align=center><input type=Text name=goalNum<%=trim(cstr(i))%> value=0 size=3 maxLength=3></td>
<td style="border: 1 solid #0000FF" align=center><input type=Text name=teamName<%=trim(cstr(i))%> size=20 maxLength=50></td>
<%
end if%></tr><%
next
rs.Close
%>
</table><input type=hidden name=gameid value=<%=request("gameid")%>>
<input type=hidden name=gamename value=<%=request("gamename")%>>
<tr><input type=hidden name=issue value=<%=request("issue")%>>
<p align=center valign=bottom><INPUT type="checkbox" name=flag <%if flag=1 then Response.Write "checked"%>>WEB上立即有效 <input type=submit value=' 确定 ' name=submit> <input type=reset value=' 重写 ' name=reset></p>
</tr>
</center></div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -