标题:submit之后该页跳转到哪了,郁闷中
取消只看楼主
Kettyjin1983
Rank: 1
等 级:新手上路
帖 子:303
专家分:0
注 册:2007-8-17
结帖率:66.67%
 问题点数:0 回复次数:2 
submit之后该页跳转到哪了,郁闷中
Submit之后是跳转到所谓的nextpage,可我并没有找到啊,请问下该页submit之后跳到哪去了,我完全找不到。

<%@ Language="VBSCRIPT" %>
<!--#include virtual ="/Include/Conn.asp"-->
<!--#include virtual ="/Include/Frequent.asp"-->
<%
MyAccount=GetAccount()
Badge=GetBadge(MyAccount)
if(Badge = "6969CE") then
 Badge = "7477ME"
end if
'response.Write(Badge)
IsSecretary="T"
If IsSecretary="F" then
 Response.Write("<BR>" & "<BR>" & "<ul>")
 Response.Write("Error detected:" & "<BR>")
 Response.Write("<ul>" & "<BR>")
 Response.Write("<li> You are NOT secretary, or Server time is out.</li>" & "<BR>")
 Response.Write("<BR>")
 Response.Write("</ul>" & "<BR>")
 Response.Write("Please click BACK button retry." & "<BR>")
 Response.Write("<BR> </ul>")
 Response.Write("<ul><ul><a href='../Delegation.htm' target='_parent'>")
 Response.Write("<img src='../Image/Back.gif' width='63' height='24' border='0'")
 Response.Write(" alt='Back and Login retry'></a> </ul> </ul>")
 Response.End
End if
NextPage=Request.Form("NextPage") & "?Flag=S"
Sub Candidate(ReadDele,MyAccount)
 Dim Sql,Conn,rs
' Sql="Select * From DeleCache Where NTAccount='" & MyAccount & "'  AND CacheType='For' Order by Times DESC,TargetBadge"
 Sql="select e.badge,e.engname from employee e,orginfo o where deptid in (select distinct deptid from dept where secretary = '"& Badge &"') and servicestatus = 1 and e.badge = o.owner order by engname"
 Set conn=server.createobject("adodb.connection")
 Conn.open=ReadDele
 Set rs=Conn.Execute(Sql)
 If rs.EOF then
  rs.Close
  Set rs=Nothing
  Conn.Close
  Set Conn=Nothing
'  Response.Redirect("AddNewTarget.asp")
 Else
     Response.Write("<select name='SelectMgr'>")
  Response.Write("<option value='-'>*** Please Select ***</option>")
 
  Do While NOT rs.EOF
      Response.Write("  <option value='" & Trim(rs("badge")) & "'>")
   Response.Write(  rs("badge") & " "  & rs("engname"))
   Response.Write(  "</option>")
   rs.MoveNext
  Loop
     Response.Write("</select>")
  Response.Write("&nbsp")
  rs.Close
  Set rs=Nothing
  Conn.Close
  Set Conn=Nothing
 End if
End Sub
%>

<html>
<head>
<title>Delegation System: Secretary Module</title>
<meta http-equiv="Content-Type" c>
<link rel="stylesheet" href="../Dele.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" background="../Image/ForSecretary.gif">
<table width="600" border="0">
  <tr>
    <td height="43">
      <div align="center"><font face="Arial, Helvetica, sans-serif" size="4" color="#FF0000">SECRETARY
        FUNCTION</font></div>
    </td>
  </tr>
</table>
  
<p> </p>
<form name="form01" method="post" action="<%=NextPage%>">
  <table width="600" border="0" height="120">
    <tr>
      <td>
        <table width="570" border="0">
          <tr>
            <td width="140" height="19">  
            
            </td>
            <td width="145" height="19">
              <div align="left"><font face="Arial, Helvetica, sans-serif" size="2"><b><font color="#0000FF">Select Employee</font></b></font></div>
            </td>
            <td width="303" height="19">
              <%Call Candidate(ReadDele,MyAccount)%>
            </td>
          </tr>
        </table>
        
      </td>
    </tr>
  </table>
  <table width="600" border="0" height="57">
    <tr>
      <td width="270">
        <div align="right">
          <input type="image" border="0" name="imageField" src="../Image/OK.gif" width="63" height="24" alt="Submit the form">
        </div>
      </td>
      <td width="60"> </td>
      <td width="270"><a href="javascript:history.back(1)"><img src="../Image/Back.gif" width="63" height="24" alt="Back to previous page" border="0"></a></td>
    </tr>
  </table>
</form>
</body>
</html>
搜索更多相关主题的帖子: submit Badge Response Write 
2007-11-28 15:50
Kettyjin1983
Rank: 1
等 级:新手上路
帖 子:303
专家分:0
注 册:2007-8-17
得分:0 
那这个页面submit之后去哪了、
2007-11-28 15:59
Kettyjin1983
Rank: 1
等 级:新手上路
帖 子:303
专家分:0
注 册:2007-8-17
得分:0 
谢谢yms123,通过你的方法,我已经找到了,问题也解决了,谢谢你啊。
2007-11-28 16:32



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-189006-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.864867 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved