📄 edit_kithe.asp
字号:
<%
If Session("SK2Admin")="" Then
Response.Redirect "Admin_Login.Asp"
Response.End
End If
%>
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
If Not IsNumeric(Request.QueryString("KitID")) Then
Response.Write("<script language=javascript>history.go(-1)</script>")
Response.End
End If
If CLng(Request.QueryString("KitID"))=0 Then
Response.Write("<script language=javascript>history.go(-1)</script>")
Response.End
End If
Dim KitID
KitID=cLng(Request.QueryString("KitID"))
Dim NN,ND,NA,N1,N2,N3,N4,N5,N6
Dim mRs
Set mRs=Server.CreateObject("Adodb.RecordSet")
Set mRs=Conn.Execute("Select NN From m_Kithe Order By ID Desc")
If Not mRs.Eof Then
NN=mRs("NN")
Else
NN=1
End If
ND=Now()
If KitID>0 Then
Set mRs=Conn.Execute("Select NN,ND,NA,N1,N2,N3,N4,N5,N6 From m_Kithe Where ID="&KitID)
If Not mRs.Eof Then
NN=mRs("NN")
ND=mRs("ND")
NA=mRs("NA")
N1=mRs("N1")
N2=mRs("N2")
N3=mRs("N3")
N4=mRs("N4")
N5=mRs("N5")
N6=mRs("N6")
End If
End If
%>
<html>
<head>
<Script language="javascript">
<!--
function checkFrm(){
for (var i=0 ;i<7;i++){
if (testFrm.Num[i].value.length<1){alert("对不起，所有内容均不能为空!"+i);return false;}
if (!cheStr(testFrm.Num[i].value,"1234567890")){alert("对不起，您只能填写数字!");return false;}
if (testFrm.Num[i].value>49||testFrm.Num[i].value<1){alert("对不起，所填最大值不能超过49,最小值不能小于1!");return false;}
for (var j=0;j<7;j++){
if (testFrm.Num[i].value==testFrm.Num[j].value && i!=j){alert("任可两项不可相同!");return false;}
}
}
}
function cheStr(sStr,cStr){ //检测字符串sStr的字符,是否在cStr中,如全部都在返回true,否则返回false;
for (var i=0;i<sStr.length;i++){
var tempstr=sStr.substring(i,i+1);
if (cStr.indexOf(tempstr,0)==-1) return false;
}
return true;
}
-->
</script>
<link href="../images/css-g.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改开奖结果</title>
<style type="text/css">
<!--
.style1 {
color: #FF0000;
font-size: 18px;
}
.style8 {color: #FFFFFF}
-->
</style>
</head>
<body>
<form name="testFrm" method="post" action="Edit_kithe_result.asp" onsubmit="javascript:return checkFrm();">
<p align="center" class="style1">
时间
<input name="time1" type="text" id="time1" value="<%=ND%>">
<input name='KitID' type="hidden" id="KitID" value="<%=KitID%>">
</p>
<p align="center" class="style1">修改开奖结果后请计算一次本期的结果</p>
<p> </p>
<table width="60%" border="1" align="center" cellpadding="1" cellspacing="0" bgcolor="#c1c2c6">
<tr align="center">
<td width="19%">平码1：</td>
<td><input name="Num" type="text" id="Num" size="10" value="<%=N1%>" OnMouseOver='this.select();'></td>
</tr>
<tr align="center">
<td width="19%">平码2：</td>
<td><input name="Num" type="text" id="Num" size="10" value="<%=N2%>" OnMouseOver='this.select();'></td>
</tr>
<tr align="center">
<td width="19%">平码3：</td>
<td><input name="Num" type="text" id="Num" size="10" value="<%=N3%>" OnMouseOver='this.select();'></td>
</tr>
<tr align="center">
<td width="19%">平码4：</td>
<td><input name="Num" type="text" id="Num" size="10" value="<%=N4%>" OnMouseOver='this.select();'></td>
</tr>
<tr align="center">
<td width="19%">平码5：</td>
<td><input name="Num" type="text" id="Num" size="10" value="<%=N5%>" OnMouseOver='this.select();'></td>
</tr>
<tr align="center">
<td width="19%">平码6：</td>
<td><input name="Num" type="text" id="Num" size="10" value="<%=N6%>" OnMouseOver='this.select();'></td>
</tr>
<tr align="center">
<td>特码：</td>
<td><input name="Num" type="text" id="Num" size="10" value="<%=NA%>" OnMouseOver='this.select();'></td>
</tr>
<tr align="center" bgcolor="#FF6600">
<td align="center"><span class="style8">期数：</span></td>
<td align="center"><input name="NumQ" type="text" id="Num" size="10" value="<%=NN%>" OnMouseOver='this.select();'>
<input name="id" type="hidden" id="id" value="253"></td>
</tr>
<tr align="center">
<td colspan="2"><input type="submit" name="Submit3" value=".确定." ></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -