开发者

pagination classic asp, and button changed to hyperlinks

开发者 https://www.devze.com 2023-03-11 02:16 出处：网络
I\'ve created buttons that have been edited with css to look like hyperlinks so I can use form post instead of using querystring. I\'ve made it so t开发者_运维问答hat when a button is clicked it creat
相关专题：asp-classicpagination

I've created buttons that have been edited with css to look like hyperlinks so I can use form post instead of using querystring. I've made it so t开发者_运维问答hat when a button is clicked it creates a checkbox for each user. I want it so that when i change the state of the checkbox I want it to save as I'm going through different letters. I believe the problem I am having is because the "hyperlinks" are really buttons and changing the checked state of a checkbox is creating problems. I would prefer not to use JavaScript but if its the only way for me to get the results that I want then I would use java-script. Code provided below - 

<form action="Table.asp" method="post" name="form2">
<input type="submit" name="Button" value="#" style="background:transparent;border:0;display:inline;color:#00F;text-decoration:underline;padding:0px;cursor:pointer">
<% for i = 97 to 122 %>     
     <input type="submit" name="Button" value="<%=CHR(i) %>" style="background:transparent;border:0;display:inline;color:#00F;text-decoration:underline;padding:0px;cursor:pointer;">&nbsp;
<% next %>

 </br></br></br>

 <%
    alphaB = request.form("Button")
 if alphaB <>"" then
        %>
        <input type="checkbox" name="checkBox" value="<%=alphaB %>" <%=session("checkBox") %>>
        <%
        response.write alphaB


 end if


alphaCheck = request.form("checkBox")

if alphaCheck <>"" then
    session("checkBox") = "checked"
else
    session("checkBox") = ""
end if

all you got wrong is the place where you set your session ...

move 

alphaCheck = request.form("checkBox")
if alphaCheck <>"" then
    session("checkBox_"&alphaCheck) = "checked"
else
    session("checkBox_"&alphaCheck) = ""
end if 
...
<input type="checkbox" name="checkBox" value="<%=alphaB %>" <%=session("checkbox_"&alphaB ) %>/>

before the checkbox creation

what happen is that on the first time your session is not initialized once you hit the page

<!--#include file="session_check.asp"-->
<!--#include file="connection.asp"-->
<%

'    Last updated by Arun Sharma
'    last updation pourpos mintain the paging of POP closed calls
'    last updated on 6th sep. 2007`enter code here`

%>
<%
     if session("type1")=0 and session("type2") =0 then 
     response.redirect "Default.asp"
     end if
%>

<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns="http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<title>view</title>


</head>

<body>

<%
If session("type") ="sa" Then
 %>
 <p><!--#include file="header_sa.asp"--></p>  
 <%
 else
 %><p><!--#include file="header_a.asp"--></p><%
 End If
 %>
<!--
<table width="100%" style="border-left-width: 0; border-top-width: 0; border-bottom-width: 0">
  <tr>
    <td width="24%" bgcolor="#FFFFFF" style="border-top:medium none #111111; border-bottom:medium none #111111; border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium" height="25">&nbsp;&nbsp;
   <center> <img border="0" height=90 width=312 src="images/tulipconnect12.jpg">&nbsp;&nbsp;&nbsp;</center> </td>

  </tr>
</table>

<table width="100%"  style="border-collapse: collapse" bordercolor="#FFCC99" cellpadding="0" cellspacing="0">
  <tr>
    <td width="20%" style="border-style: solid; border-width: 1" align="center" bordercolor="#FFFFFF" bgcolor="#F37D7D">
    <b><font color="#FFFFFF">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; </font>
    <font color="#006699" face="Verdana" size="2"> 
    <a style="color: #FFFFFF" href="view_list.asp">Home</a></font></b></td>
    <td width="20%" bgcolor="#F37D7D" style="border-style: solid; border-width: 1" align="center" bordercolor="#FFFFFF">
    <p align="center"><b>&nbsp;&nbsp; &nbsp;<font face="Verdana" size="2" color="#FFFFFF"> View-Calls</font></b></td>
    <td width="20%" style="border-style: solid; border-width: 1" align="center" bordercolor="#FFFFFF" bgcolor="#F37D7D">
    <b><font color="#FFFFFF">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    </font>
    <font face="Verdana" color="#FF6600">
    <a href="changepassword.asp"><font size="2" color="#FFFFFF">Change</font></a></font><font face="Verdana"><font size="2"><a style="color: #FFFFFF" href="changepassword.asp"> 
    Password</a></font><font color="#FF6600"><a href="changepassword.asp"><font size="2" color="#FFFFFF">
    </font> </a>
    </font></font></b></td>
    <td width="20%" bgcolor="#F37D7D" style="border-style: solid; border-width: 1" align="center" bordercolor="#FFFFFF">
    <p align="center">
    <b>
    <font color="#FFFFFF">&nbsp;<font face="Verdana" size="2">&nbsp;&nbsp; <a href="down.ASP">
    <font color="#FFFFFF">Downtime Report</font></a></font></font></b></td>
    <td width="20%" bgcolor="#F37D7D" style="border-style: solid; border-width: 1" align="center" bordercolor="#FFFFFF">
    <p align="center">
    <b>
    <font color="#FFFFFF">&nbsp;<font face="Verdana" size="2">&nbsp;&nbsp; <a href="LOGOUT.ASP">
    <font color="#FFFFFF">Logout</font></a></font></font></b></td>

  </tr>
</table>
-->
<%
   if session("type1") =1 then
  end if
%>
   <center> 
     <font color="#F37D7D" face="Georgia, Times New Roman, Times, serif" size="4">&nbsp;</font><font color="#FF3300" face="Georgia, Times New Roman, Times, serif" size="3"><b>Circuit Closed Calls</b></font>
   </center>

<%
    dim name
   pno=request.querystring("page")
   name= request.form("engineer")
    if pno="" then
    pno=0
    end if 

'     set con =server.createobject("ADODB.CONNECTION")
     set rs=server.createobject("ADODB.RECORDSET")
 '    con.open "Provider=SQLOLEDB; Data Source = database.tulipconnect.com\CALLMANAGER1; Initial Catalog = support; User Id = app; Password=App_access_2009"


     sql="select Fault_Ticket_Num,Organisation,Link_Location,Fault_Detail,dDate,tTime,cldate,Assigned_To from Call_Login  where Call_Status <> 'OPEN' and region='"&session("region")&"' order by dDate desc"


     rs.open sql,con


     %>





<table height="90%" align="center">
<tr>
<td valign="top">
    <table  width="95%" height="70" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFCC99" style="border-collapse: collapse">
  <tr bordercolor="FF3333" bgcolor="FF3333">
    <td width="6%" height="56" align="center" style="border-style: solid; border-width: 1"><b><font face="Verdana" color="#FFFFFF" size="2">Call history</font></b></td>
    <td width="13%" height="56" align="center" style="border-style: solid; border-width: 1"><font color="#FFFFFF" face="Verdana" size="2"><b>Fault Ticket Number</b></font></td>
    <td width="9%" height="56" align="center" style="border-style: solid; border-width: 1"><b><font color="#ffffff" face="Verdana" size="2">Organization</font></b></td>
    <td width="8%" height="56" align="center" style="border-style: solid; border-width: 1" ><b><font color="#FFFFFF" face="Verdana" size="2">&nbsp;Location</font></b></td>
    <td width="25%" height="56" align="center" style="border-style: solid; border-width: 1"><b><font color="#ffffff" face="Verdana" size="2">Fault Details </font> </b> </td>
    <td width="10%" height="56" align="center" style="border-style: solid; border-width: 1" ><b><font face="Verdana" color="#FFFFFF" size="2">Call Status</font></b></td>
    <td width="8%" height="56" align="center" style="border-style: solid; border-width: 1" ><b><font face="Verdana" color="#FFFFFF" size="2">Assigned To</font></b></td>
    <td width="10%" height="56" align="center" style="border-style: solid; border-width: 1" ><b><font color="#FFFFFF" face="Verdana" size="2">Opening Date</font></b></td>
    <td width="10%" height="56" align="center" style="border-style: solid; border-width: 1" ><b><font color="#FFFFFF" face="Verdana" size="2">Closing Date</font></b></td>
  </tr>
  <% 
     If rs.eof Then
      response.write("No call for this user")
      response.End
      End if
      rs.move(10*pno)
      rno=0

      while not rs.eof and rno<10
       rno=rno+1

     %>
  <tr>
    <td width="6%" style="border-style: solid; border-width: 1" bordercolor="#F37D7D" bgcolor="#F9EFF6" height="15"><center>
      <a href=fault_history.asp?reportid=<%=rs("Fault_Ticket_Num")%>&assignto=<%=rs("Assigned_To")%>> <img border="0" src="images/right_arrow.gif" width="13" height="13"></a>
    </center></td>
    <td width="12%" style="border-style: solid; border-width: 1" align="center" bgcolor="#F9EFF6" bordercolor="#F37D7D" height="15"><font color="blue" face="verdana" size=2><%=rs("Fault_Ticket_Num")%></font></td>
    <td width="9%" style="border-style: solid; border-width: 1" align="center" bgcolor="#F9EFF6" bordercolor="#F37D7D" height="15"><font color="blue" face="verdana" size=2><%=rs("Organisation")%></font></td>
    <td width="8%" style="border-style: solid; border-width: 1" align="center" bgcolor="#F9EFF6" bordercolor="#F37D7D" height="15"><font color="blue" face="verdana" size=2><%=rs("Link_Location")%></font></td>
    <td width="25%" style="border-style: solid; border-width: 1" align="center" bgcolor="#F9EFF6" bordercolor="#F37D7D" height="15"><font color="blue" face="verdana" size=2><%=rs("Fault_Detail")%></font><font color="blue" face="verdana"> </font></td>
    <td width="10%" style="border-style: solid; border-width: 1" align="center" bgcolor="#F9EFF6" bordercolor="#F37D7D" height="15"><font color="blue" face="verdana" size=2>
      <% response.write("Call Closed")%>
    </font><font color="blue" face="verdana"> </font>&nbsp;</td>
    <td width="8%" style="border-style: solid; border-width: 1" align="center" bgcolor="#F9EFF6" bordercolor="#F37D7D" height="15">&nbsp;<font color="blue" face="verdana" size=2><%=rs("Assigned_To")%></font><font color="blue" face="verdana"> </font></td>
    <td width="10%" style="border-style: solid; border-width: 1" align="center" bgcolor="#F9EFF6" bordercolor="#F37D7D" height="15"><font color="blue" face="verdana" size=2><%=rs("dDate")%></font></td>
    <td width="10%" style="border-style: solid; border-width: 1" align="center" bgcolor="#F9EFF6" bordercolor="#F37D7D" height="15"><font color="blue" face="verdana" size=2><%=rs("clDate")%></font></td>
  </tr>
  <%   rs.movenext
    wend 
   %>
  <tr>
    <td width="20%" style="border-style: solid; border-width: 1" align="center" bgcolor="#F9EFF6" bordercolor="white" height="15" colspan="7">
    <p align="left">
    <a style="color: #663399; font-family:verdana; font-size:12px" href="view_close.asp?D1=<%=oth%>&page=<%response.write(0)%>">First</a>
    <font color="#F37D7D">
      <%  if pno>0 then 
 %>
      </font>&nbsp;&nbsp;&nbsp;
       <a  style="color: #663399; font-family:verdana; font-size:12px" href="view_close.asp?D1=<%=oth%>&page=<%response.write(pno-1)%>">Previous</a><font color="#F37D7D">
        <% end if %>
        <%
if rno=10 Then
pno=pno+1 
  %>
        </font>&nbsp;&nbsp;&nbsp; <a style="color:#663399; font-family:verdana; font-size:12px" href="view_close.asp?D1=<%=oth%>&page=<%response.write(pno)%>">Next</a><font color="#F37D7D">
          <% end if%>
        </font></p></td>
    <td width="20%" style="border-style: solid; border-width: 1" align="center" bgcolor="#F9EFF6" bordercolor="white" height="15" colspan="2"><p><a href="view_open_excel.asp"><font color="black" size="2">MOVE TO EXCEL</font></a> </p></td>
  </tr>
</table>

  </form>





<%
   pno1=request.querystring("page1")

%>
   <center> 
     <p><font color="#F37D7D" face="Georgia, Times New Roman, Times, serif" size="4">&nbsp;</font><font color="#FF3300" face="Georgia, Times New Roman, Times, serif" size="3"><b>POP Closed Call</b></font></p>
     </center>
    <% 

   Set rs_pop =server.CreateObject("adodb.recordset")
   sql_pop_calls="Select distinct(location_b),call_status,fault_detail,ddate,cldate from call_login where pop_call='Y' and call_status='CLOSE' group by  location_b,circuit_id,fault_detail,ddate,call_status,cldate"
    'response.write(sql_pop_calls)
        rs_pop.open sql_pop_calls ,con  %>

  <table  width="95%" height="70" border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#FF3300" bgcolor="#FFF0F4" style="border-collapse: collapse">
  <tr bgcolor="FF3333">
  <td width="5%" height="40" bordercolor="#EED5D5" style="border-style: none; border-width: 1">
<b><font face="Verdana" color="#FFFFFF" size="2">S.NO.</font></b></td>
<td width="10%" height="40" bordercolor="#EED5D5" style="border-style: none; border-width: 1">
<b><font face="Verdana" color="#FFFFFF" size="2">POP Name</font></b></td>
    <td width="19%" height="40" align="left" bordercolor="#EED5D5" style="border-style: none; border-width: 1">
    <font color="#FFFFFF" face="Verdana" size="2"><b>Fault Details</b></font></td>
    <td width="15%" height="40" align="left" bordercolor="#EED5D5" style="border-style: none; border-width: 1">
    <b><font color="#FFFFFF" face="Verdana" size="2">Opening Date</font></b></td>
    <td width="15%" height="40" align="left" bordercolor="#EED5D5" style="border-style: none; border-width: 1">
    <b><font color="#FFFFFF" face="Verdana" size="2">Closing Date</font></b></td>
    <td width="13%" height="40" align="left" bordercolor="#EED5D5" style="border-style: none; border-width:1" >
    <b><font color="#FFFFFF" face="Verdana" size="2">No. of Affected Circuits</font></b></td>
  </tr>
    <%
    if pno1="" then
    pno1=1
    end if 
    if pno1=1 then
    sno=0
    else
    sno=(pno1-1)*10
    end if

      rs_pop.move(10*pno1)
      rno=0

    'sno=0
        if not rs_pop.eof then
            do while not rs_pop.eof and rno<10
            rno=rno+1

            sno=sno+1
            %>
            <tr>
            <td align="center"><font color="blue" face="Verdana, Arial, Helvetica, sans-serif" size="2">
            <%=sno%></font>         </td>
            <td>
            <font color="blue" face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs_pop("location_b")%></font>           </td>
            <td><font color="blue" face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs_pop("fault_detail")%></font></td>
            <td><font color="blue" face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs_pop("ddate")%><%'=rs_pop("ddate")%></font></td>
            <td><font color="blue" face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs_pop("cldate")%><%'=rs_pop("ddate")%></font></td>
            <td>&nbsp;&nbsp;
            <% 
            set rs_count_fault=server.CreateObject("adodb.recordset")
            sql_count_fault="select count(circuit_id) as no_of_faults from call_login where ddate='"&rs_pop("ddate")&"' and pop_call='Y' and call_status='CLOSE' and location_b='"&rs_pop("location_b")&"' group by location_b "
            'response.Write(sql_count_fault)
            rs_count_fault.open sql_count_fault,con
            if not rs_count_fault.eof then %>
            <a href="#" onClick="javascript:imgB('pop_call_effected_cir_list.asp?pop_name=<%=rs_pop("location_b")%>&call_status=<%=rs_pop("call_status")%>&d_date=<%=rs_pop("ddate")%>')" title="View Affected Circuits">
            <font color="blue" face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs_count_fault("no_of_faults")%></font></a>

            <%
            end if
            %>          </td>
            </tr>

        <%  rs_pop.movenext
            loop
        else
        %>
        <tr><td colspan="6"><font color="#000099" face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>No Open Calls </b></font></td></tr>
        <%
        end if  

        %>

       <tr><td width="20%" style="border-style: solid; border-width: 1" align="center" bgcolor="#F9EFF6" bordercolor="white" height="15" colspan="7"> 
   <p align="left"><a style="color: #663399; font-family:verdana; font-size:12px" href="view_close.asp?page1=<%response.write(1)%>">First</a><font color="#F37D7D">
  <%  if pno1>1 then 
 %>    
    </font>&nbsp;&nbsp;&nbsp;
     <a style="color: #663399; font-family:verdana; font-size:12px" href="view_close.asp?page1=<%response.write(pno1-1)%>">Previous</a><font color="#F37D7D">
      <% end if %>
      <%
if rno=10 Then
pno1=pno1+1 
  %> 
        </font>&nbsp;&nbsp;&nbsp;
        <a style="color: #663399; font-family:verdana; font-size:12px" href="view_close.asp?page1=<%response.write(pno1)%>">Next</a><font color="#F37D7D">
      <% end if%></font></p></td></tr>
</table>
<br>
 </td>
 </tr>
 </table>
  <!--#include file="footer.asp"-->


  <script>
 function imgB(useridVal)
{
    urlImg=useridVal;
    nwin1 = window.open(urlImg,"imgB","toolbar=no,directories=no, scrollbars=1, resizable=1,menubar=no,location=no,maximize=yes,width=450,height=230");
}
function boxes()
{
    if(f1.C2.checked==true)
    {
       for(i=0;i<f1.C1.length;i++)
       document.f1.C1[i].checked=true
    }
   if(f1.C2.checked==false)
    {
       for(i=0;i<f1.C1.length;i++)
       document.f1.C1[i].checked=false
    }
}
function Delete()
{
   if(confirm("Are you sure"))
   return true
   else 
   return false

   }

</script>
      </font>   </p>
</body>
</html>
0

上一篇:

:下一篇

更多 问答 相关资讯：

精彩评论

暂无评论...
登录 注册
Qedev.com
验证码 换一张
取 消

关注公众号

热门标签

图文推荐

Delphi - Custom drawing a message list

Delphi - Custom drawing a message list
C++ header-only include pattern

C++ header-only include pattern
IE7 Margin Collapses Into Padding

IE7 Margin Collapses Into Padding
in CoffeeScript, how can I use a variable as a key in a hash?

in CoffeeScript, how can I use a variable as a key in a hash?
Interactive visualization of a graph in python [closed]

Interactive visualization of a graph in python [closed]
How to customise PHP MYSQL tables?

How to customise PHP MYSQL tables?
High quality, simple random password generator

High quality, simple random password generator
Image Recognition ApI in android

Image Recognition ApI in android

开发者开发者网给大家分享系统运维,大数据运维,云计算,编程开发技巧,路由交换,运维和开发相关的资讯及技术文章，同时StackOverflow中文社区，知识经验交流分享。

法律声明：本站内容均为网友上传，网站举办方负责审核和监督，如存在版权或非法内容，欢迎举报，我们将尽快予以删除。邮箱：devze@qq.com

Copyright © 2018-2020 开发者. All rights reserved. Powered by 开发者ICP备案号: 京ICP备10032868号-9