📄 this_kithe.asp
字号:
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<!--#include file="sk2.asp"-->
<%
If Session("SK2Admin")="" Then
Response.Redirect "Admin_Login.Asp"
Response.End
End If
Get_Kithe_Para
Close_Rs6
%>
<script>
if(self==top){
location.href="index.asp";
}
</script>
<html>
<head>
<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">
<!--
body {
margin-top: 0px;
}
.style1 {color: #FF0000}
.style2 {
color: #996600;
font-weight: bold;
}
.style4 {color: #996600}
-->
</style>
<Script language="javascript">
function checkFrm(){
if (!cheStr(testFrm.Issue.value,"1234567890")){alert("对不起，期数只能填写数字!");return false;}
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<0){alert("对不起，所填最大值不能超过49,最小值不能小于0!");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>
</head>
<body>
<%IF Current_Kithe_Num>0 then%>
<%If Current_KitheTable(1,0)=Current_Kithe_Num Then%>
<form name="testFrm" method="post" action="Kithe_num.asp?K6=K6">
<%Else%>
<form name="testFrm" method="post" action="Kithe_num.asp?K6=K1">
<%End If%>
<p> </p>
<table width="60%" height="35" border="1" align="center" cellpadding="1" cellspacing="0">
<tr align="center" bgcolor="#FFFFFF">
<td><span class="style2">期数：</span></td>
<td><span class="style4">
<%If Current_KitheTable(1,0)=Current_Kithe_Num Then%>
<input name="Issue" type="hidden" id="Issue" size="10" value="<%=Current_Kithe_Num%>"><b><%=Current_Kithe_Num%></b>
<%Else%>
<input name="Issue" type="text" id="Issue" size="10" value="<%=Current_Kithe_Num%>">
<%End If%>
<!--<input name="Front_Num" type="hidden" id="Front_Num" value="<%=NN-1%>">-->
</span></td>
</tr>
</table>
<br>
<br>
<table width="60%" height="144" border="1" align="center" cellpadding="1" cellspacing="0">
<tr align="center" bgcolor="#c1c2c6">
<td colspan="2" bgcolor="#c1c2c6"> <p>
<%If Kithe_Open=1 Then%>
<input type="button" name="Submit" value="现在状态为开盘">
<%Else%>
<input type="button" name="Submit" value="现在状态为封盘">
<span class="style1"><br>
<br>
您现在可以设定开奖号码</span> 设置时间为：<%=Current_KitheTable(2,0)%>
<p></p>
<table width="60%" border="1" align="center" cellpadding="1" cellspacing="0">
<%
If Current_KitheTable(1,0)=Current_Kithe_Num Then
Dim I,Writed
Writed=False
For I=4 To 9
If Current_KitheTable(I,0)>0 Then%>
<tr height=25 align="center">
<td width="32%">平码<%=I-3%>：</td>
<td width="41%"><input name="Num" type="text" id="Num" size="10" value='<%=Current_KitheTable(I,0)%>'></td>
<td width="27%"> <%if Current_KitheTable(I,0)=0 then%><input type="submit" name="Submit3" value=".开奖." ><%end if%></td>
</tr>
<% End If
If Current_KitheTable(I,0)=0 And Not Writed Then
%>
<tr height=25 align="center">
<td width="32%">平码<%=I-3%>：</td>
<td width="41%"><input name="Num" type="text" id="Num" size="10" value='<%=Current_KitheTable(I,0)%>'></td>
<td width="27%"> <%if Current_KitheTable(I,0)=0 then%><input type="submit" name="Submit3" value=".开奖." ><%end if%></td>
</tr>
<%
Writed=True
End If
Next
Else
%>
<tr align="center">
<td width="32%">平码1：</td>
<td width="41%"><input name="Num" type="text" id="Num" size="10"></td>
<td width="27%"> <%if Current_KitheTable(I,0)<>0 then%><input type="submit" name="Submit3" value=".开奖." ><%end if%></td>
</tr>
<%End If
If Current_KitheTable(9,0)>0 And Current_KitheTable(1,0)=Current_Kithe_Num Then
If Current_KitheTable(3,0)>0 Then
%>
<tr align="center">
<td>特码：</td>
<td><input name="Num" type="text" id="Num" size="10" value='<%=Current_KitheTable(3,0)%>'></td>
<td width="27%"> <%if Current_KitheTable(I,0)=0 then%><input type="submit" name="Submit3" value=".开奖." ><%end if%></td>
</tr>
<%
Else
%>
<tr align="center">
<td>特码：</td>
<td><input name="Num" type="text" id="Num" size="10" value='0'></td>
<td width="27%"> <input type="submit" name="Submit3" value=".开奖." ></td>
</tr>
<%
End IF
End IF%>
<%End If%>
</table>
</td>
</tr>
</table>
</form>
<%else%>
<form name="testFrm" method="post" action="Kithe_num.asp?K6=K6">
<p> </p>
<table width="60%" height="35" border="1" align="center" cellpadding="1" cellspacing="0">
<tr align="center" bgcolor="#FFFFFF">
<td><span class="style2">期数：</span></td>
<td><span class="style4">
<input name="Issue" type="hidden" size="10" value="1">
<!--<input name="Front_Num" type="hidden" id="Front_Num" value="<%'=NN-1%>">-->
</span></td>
</tr>
</table>
<br>
<br>
<table width="60%" height="144" border="1" align="center" cellpadding="1" cellspacing="0">
<tr align="center" bgcolor="#c1c2c6">
<td colspan="2" bgcolor="#c1c2c6"> <p>
<%If Kithe_Open=1 Then%>
<input type="button" name="Submit" value="现在状态为开盘">
<%Else%>
<input type="button" name="Submit" value="现在状态为封盘">
<span class="style1"><br>
<br>
您现在可以设定开奖号码</span> 设置时间为：<%'=Current_KitheTable(2,0)%>
<p></p>
<table width="60%" border="1" align="center" cellpadding="1" cellspacing="0">
<%for I=4 to 9%>
<tr height=25 align="center">
<td width="32%">平码<%=I-3%>：</td>
<td width="41%"><input name="Num<%=I-3%>" type="text" id="Num" size="10" value=""></td>
<td width="27%"> </td>
</tr>
<%next%>
<tr align="center">
<td>特码：</td>
<td><input name="Num7" type="text" id="Num" size="10" value=""></td>
<td width="27%"> <input type="submit" name="Submit3" value=".开奖." ></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<%end if%>
<%end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -