[讨论]源程序修改 — 编程爱好者社区

沙发

kingwm [专家分：0] 发布于 2008-09-28 15:22:00

源程序如下:




<%
  If Session("SK2User")="" Then
    Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');window.open('index.asp','_top');</script>")
    Response.End
  End If

Get_Kithe_Para
Set Rs6=Server.CreateObject("Adodb.RecordSet")
    Dim NN
      NN=1
    Set Rs6=Conn.Execute("select top 1 NN from m_Kithe order by ID desc")
    If Not Rs6.Eof Then
      NN=Rs6("NN")+1
    End If
   Set Rs6=Conn.Execute("select top 1 tray_time,affice,tray_switch from m_config")
    Dim affice,tray_time,tray_switch
    If Not Rs6.Eof Then
     affice=Rs6("affice")
     tray_time=Rs6("tray_time")
     tray_switch=Rs6("tray_switch")
    End If
  Set Rs6=Conn.Execute("Select Top 2 item_value,rate,current_rate,wager_gold,ID from m_rate where item_sort='六肖' Order By ID")
Dim ShowTable
  ShowTable=Rs6.GetRows(2)
Set Rs6=Nothing

Set Rs6=Conn.Execute("Select Top 2 item_value,rate,current_rate,wager_gold,ID from m_rate where item_sort='六肖' and item_name='中 ' Order By ID")
Dim ShowTable1
  ShowTable1=Rs6.GetRows(2)
Set Rs6=Nothing
Set Rs6=Conn.Execute("Select Top 2 item_value,rate,current_rate,wager_gold,ID from m_rate where item_sort='六肖' and item_name='不中 ' Order By ID")
Dim ShowTable2
  ShowTable2=Rs6.GetRows(2)
Set Rs6=Nothing

%><%
                                      Set Rs7=Server.CreateObject("Adodb.RecordSet")
                                    Set Rs7=Conn.Execute("select * from open_on where code='lx' and del_flag<>'1' ")
                                        If Not Rs7.Eof Then
                                         Response.Write "非下单时间段"
                                          Response.End
                                        End If
                                      %>

板凳

kingwm [专家分：0] 发布于 2008-09-28 15:25:00

<HTML><HEAD><TITLE>body_lotto_na</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="images/client_LT_game.css" type=text/css rel=stylesheet>
<SCRIPT language=JAVASCRIPT>
if (self == top)
{
    window.open('/','_top');
}

</SCRIPT>
<SCRIPT language=javascript>
window.setTimeout("self.location='ls_sp.asp'", 180000);
</SCRIPT>
<SCRIPT language=javascript>
if(self == top) location = '/';
var type_nums = 6;  //预设为 3中2
var type_min = 6;
var cb_num = 1;
var mess1 =  '最少选择';
var mess11 = '个肖';
var mess2 =  '最多选择6个肖';
var mess = mess2;

function select_types(type) {
    if (type == 1 || type == 2) {

    if (type==1 ){
    document.all.allgold.innerHTML =<%=ShowTable1(2,0)%>;
    document.all.muz.value =<%=ShowTable1(2,0)%>;

    }else{
    document.all.allgold.innerHTML =<%=ShowTable2(2,0)%>;
    document.all.muz.value =<%=ShowTable2(2,0)%>;

    }
        type_nums = 6;
        type_min = 6;


    }
}
function SubChk(obj) {
    var checkCount = 0;
    var checknum = obj.elements.length;
    var rtypechk = 0;


    for(i=0; i<obj.rtype.length; i++) {
        if (obj.rtype[i].checked) {
            rtypechk ++;
        }
    }

    if (rtypechk == 0) {
      alert('请选择类别');
      return false;
    }

    for(i=0; i<checknum; i++) {
        if (obj.elements[i].checked) {
            checkCount ++;
        }
    }


    if (checkCount > (type_nums + 1)) {
        alert(mess2);
        return false;
    }if(checkCount < (type_min+1)){
        alert(mess1+type_min+mess11);
        return false;
    }else{
        return true;
    }
}

function SubChkBox(obj) {

    if(obj.checked == false)
    {
        cb_num--;
        //obj.checked = false;
    }

    //alert (cb_num);

    if(obj.checked == true)
    {
        if ( cb_num > type_nums )
        {
            alert(mess);
            cb_num--;
            obj.checked = false;
        }
        cb_num++;
    }
}

</SCRIPT>

3 楼

kingwm [专家分：0] 发布于 2008-09-28 15:27:00

4 楼

kingwm [专家分：0] 发布于 2008-09-28 15:28:00

<TR>
                      <TD height=5></TD></TR></TBODY></TABLE></TD></TR></TBODY>
              <TBODY>
              <TR>
                <TD>
                  <TABLE class=table_banner cellSpacing=0 cellPadding=0
                  width=100% border=0>
                    <TBODY>
                    <TR>
                      <TD>
                        <table border=1 cellspacing=0 cellpadding=0 width=100% bgcolor="#FFFFCC"
         style='mso-cellspacing:0cm;
         border:none;mso-padding-left-alt:3.75pt;mso-padding-right-alt:3.75pt'>
                          <tr style='height:15.0pt'>
                            <td width=100 height=23 style='border:none;padding:.75pt 3.75pt .75pt 3.75pt;
          height:17.0pt'> 六肖<INPUT class=select_cen onClick="location.href='ls_sp.asp?tm=<%=tm%>'" type=button value=更新 name=button> </td>
                            <td style='border:none;padding:.75pt 3.75pt .75pt 3.75pt;height:17.0pt'><table width="100%" border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                <%if month(Now())<10 then
                                    now11=year(now())&"/0"
                                    else
                                    now11=year(now())&"/"
                                    end if
                                    now11=now11&month(now())&"/"
                                    if day(now())<10 then
                                    now11=now11&"0"
                                    end if
                                    now11=now11&day(now())&"  "&time()%>
                                <%
                                    year1=year(Kithe_OpenTime)
                                    month1=month(Kithe_OpenTime)
                                    day1=day(Kithe_OpenTime)
                                    hour1=Hour(Kithe_OpenTime)
                                    Minute1=Minute(Kithe_OpenTime)
                                    Second1=Second(Kithe_OpenTime)
                                now12=year1&","&month1&","&day1&","&hour1&","&Minute1&","&Second1
                                %>

5 楼

kingwm [专家分：0] 发布于 2008-09-28 15:28:00

6 楼

kingwm [专家分：0] 发布于 2008-09-28 15:29:00

7 楼

kingwm [专家分：0] 发布于 2008-09-28 15:30:00

8 楼

kingwm [专家分：0] 发布于 2008-09-28 15:31:00

9 楼

kingwm [专家分：0] 发布于 2008-09-28 15:39:00

10 楼

kingwm [专家分：0] 发布于 2008-09-28 15:40:00

您尚未登录，请登录后再回复。点此登录或注册

主题：[讨论]源程序修改

回复列表（共13个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖