<tr align="center">
                            <td width="400" class="txt9" height="17">
                              <p>请注意您现在已处于登录状态。</p>
                              <p><a href="winload.asp">&gt;&gt;登出--临时用&lt;&lt;</a></p>
                            </td>
                          </tr>
                          <%elseif MyCommand("ReturnCode")=-1 then %>
                          <tr>
                            <td width="400" class="txt105" height="120" align="center"><font color="#CC0000">请先登录。</font></td>
                          </tr>
                          <%elseif MyCommand("ReturnCode")=-2 then %>
                          <tr>
                            <td width="400" class="txt105" height="120" align="center"><font color="#CC0000">用户超时</font></td>
                          </tr>
                          <%elseif MyCommand("ReturnCode")=-3 then %>
                          <tr>
                            <td width="400" class="txt105" height="120" align="center"><font color="#CC0000">用户资料输入错误</font></td>
                          </tr>
                          <%else%>
                          <%end if%>
                        </table>
                       
                      </td>
                    </tr>
                  </table>
                </td>
                <td width="146" valign="top">&nbsp;</td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr align="center">
    <td height="76">&nbsp;</td>
  </tr>
</table>
<%Con.Close%>
</body>
</html>


---文件winload.asp


<!-- #include file = "../inc/adovbs.inc" -->
<!-- #include file = "../inc/begin.asp" -->
<%
validlogin=Session("lotto_isLogin")
if validlogin<>"" then
Set MyComquit=Server.CreateObject("ADODB.Command")
Set MyComquit.ActiveConnection=Con
MyComquit.CommandType=adCmdStoredProc
MyComquit.CommandText="proc_UserLogout"
MyComquit.Parameters.Append MyComquit.CreateParameter("ReturnCode",adInteger,adParamReturnValue)
MyComquit.Parameters.Append MyComquit.CreateParameter("quitid",adVarChar,adParamInput,30)
MyComquit.Parameters("quitid")=validlogin
MyComquit.Execute()
end if
Session("lotto_isLogin")=""
Session("lotto_username")=""
Session("lotto_UserLevel")=""
%>
<%Con.Close%>
<meta http-equiv=refresh content='0;url=http://myang.533.net'>

上一页  [1] [2] [3] [4] [5] [6] 

	输入您的搜索字词 提交搜索表单
	军旅同心论坛 军旅同心博客 军旅同心网