Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

arldin

Poblema de acesso negado

Por , em ASP Clássico

Recommended Posts

arldin    1

arldin
Postado

Baixei o WEBCall botei para rodar mais nesta pagina ele me da o sequinte erro

Acesso negado linha 73

Alguem pode me da um Help por favor

 

 

<!--#include file="common.asp" -->
<!--#include file="check.asp" -->
<%
'On Error Resume Next
Dim strQ,login_o
strQ = Request.querystring("Q")
IF strQ = "1" THEN strQ = strTxtAdminRequest ELSE strQ = "" END IF
%>
<%
'Set some variables
Dim rsChatRequest2 'Chat request record sheet

'Open a new connection to the database
adoCon.Open cString

'Create new SQL string
StrSQL="SELECT * FROM tblActiveUsers WHERE IP='" & strIPAddress & "';"
'StrSQL="SELECT * FROM tblActiveUsers;"

'Create new record sheet
set rsChatRequest2	=Server.CreateObject("ADODB.Recordset")

'Set cursor and locktypes
rsChatRequest2.CursorType = 2
rsChatRequest2.LockType = 3

'Open row data where the logged in users IP equals the IP in the database
rsChatRequest2.open StrSQL, CString

'Set
rsChatRequest2.fields("ChatRequest")=0

rsChatRequest2.Update

'Close record sheet and clean up
rsChatRequest2.Close
Set rsChatRequest2 = Nothing

'set rs1 = server.createobject("ADODB.RecordSet")
'StrSq1="SELECT * FROM tblSettings"
'rs1.open StrSq1,cString,3,3

'if rs1.recordcount <= CInt("3") then
'NomeOperador = rsp("OperatorName")
'login_o = rsp("login")
'end if

'if rs1.recordcount => CInt("1") then
'set rs0 = server.createobject("ADODB.RecordSet")
'StrSq0_0="SELECT TOP 1 * FROM tblSettings where o_ocupado <> 1 AND o_online = 1 order by id desc "
'rs0.open StrSq0_0,cString
'if rs0.EOF then
'response.redirect "una.asp"
'end if
'NomeOperador = rs0("OperatorName")
'login_o = rs0("login")
'end if


%>

<%
	'Redirect the administrator if the password in query string matches the one in the database
	IF strAdminPass	 = QstrAdminPass THEN Response.redirect("chat.asp?addpass="&strAdminPass&"&ID="&intUsrID)
%>
<html>
<head>
<title><%=strTxttitulosite%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="style.css" rel="stylesheet" type="text/css">
<script language="javascript">
function centraliza(x,y)
{
		window.resizeTo(x,y);
		window.moveTo((window.screen.width-x)/2,(window.screen.height-y)/2);
}
centraliza(410,350);
</script>
<script language="javascript">
function centraliza(x,y)
{
		window.resizeTo(x,y);
		window.moveTo((window.screen.width-x)/2,(window.screen.height-y)/2);
}
centraliza(410,350);
</script>
<style type="text/css">
<!--
.style1 {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 10px;
}
.formulario {  font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000}
-->
	</style>
<script>

function carregar(){
var url;
url = '<%=strTxtDominio%>/chat/remote1.asp?aux=1&depto='+document.form1.Departamento[document.form1.Departamento.selectedIndex].valu
e;
document.form1.login_o.options.length = 0;
if (document.form1.Departamento.value=="semdepto"){
window.location.href='default.asp';
}else{
addItem(document.form1.login_o,"Aguarde...carregando", "",false,document.form1.login_o.length)
}
myIframe.location = url;
//document.form1.login_o.focus()

}

function inicia(){
local1 = new Array();
var maximo1, i, campo1;
local1 = myIframe.org;
campo1 = document.form1.login_o;
maximo1 = local1.length;
document.form1.login_o.options.length = 0;
//addItem(campo1,'TODAS','',false,campo1.length);
for (i=0;i<maximo1;i++){
  addItem(campo1,local1[i][1],local1[i][0],false,campo1.length);
}
}

function addItem(obj,strText,strValue,blSel,intPos){ 
	var newOpt,i,ArTemp,selIndex; 
	selIndex = (blSel)?intPos:obj.selectedIndex; 
	newOpt = new Option(strText,strValue); 
	Len = obj.options.length+1 
	if (intPos > Len) return 
	obj.options.length = Len 
	if (intPos != Len) { 
		 ArTemp = new Array(); 
		 for(i=intPos;i<obj.options.length-1;i++) 
			  ArTemp[i] = Array(obj.options[i].text,obj.options[i].value); 
		 for(i=intPos+1;i<Len;i++) 
			  obj.options[i] = new Option(ArTemp[i-1][0],ArTemp[i-1][1]); 
	} 
	obj.options[intPos] = newOpt; 
	if (selIndex > intPos) 
		 obj.selectedIndex = selIndex+1; 
	else if (selIndex == intPos)  
		 obj.selectedIndex = intPos; 
} 
function validar(){
  if ((document.form1.login.value=="")||(document.form1.Departamento.value=="semdepto")||(document.form1.login_o.value=="0")){
	alert("Preencha todos os campos!");
	return;
}
}


</script>
</head>

<body bgcolor="#FFFFFF" text="#000000" link="#176093" vlink="#176093" alink="#176093" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onload="java script:document.all.operadores.style.visibility = 'hidden'" >
<div style="DISPLAY: none; POSITION: absolute" align="left"><IFRAME src=<%=strTxtDominio%>/chat/remote1.asp name="myIframe" id="myIframe" width="100" height="100" marginwidth="0" marginheight="0"></IFRAME></div>
<table width="400" height="300" border="0" cellpadding="0" cellspacing="0">
  <tr> 
	<td valign="top"><img src="images/topo.gif"></td>
  </tr>
  <tr> 
	<td height="200"> 
	  <table  width="98%" border="0" cellspacing="0" cellpadding="2" align="center">
		<tr> 
		  <td class="main" align="center"> 
			<form action="chat_sort.asp" method="post" name="form1" id="form1" onSubmit=java script:validar();>
			  <div align="center"> 
				<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
				  <tr> 
					<td align="center"> </td>
				  </tr>
				  <tr> 
					<td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
					  <%=strTxtWelcome%> </font></td>
				  </tr>
				  <tr> 
					<td align="center"> </td>
				  </tr>
				  <tr> 
					<td align="center"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">Seu 
					  nome:</font> <input type="text" name="login" size="15" class="form"> 
					</td>
				  </tr>
				  <tr> 
					<td align="center"><img src="#" width="8" height="5"></td>
				  </tr>
				  <tr> 
					<td align="center"> <select name="Departamento" onChange="java script:carregar();document.all.operadores.style.visibility = 'visible' " class="form">
						<option value="semdepto" selected>Escolha o departamento:</option>
						<%
set rsq = server.createobject("ADODB.RecordSet")
StrSqq="SELECT distinct Departamento FROM tblSettings where o_online = 1  order by departamento asc "
rsq.open StrSqq,cString
if rsq.EOF then
response.redirect "una.asp"
end if
While NOT rsq.EOF
departamento = rsq("Departamento")
%>
						<option value="<%=departamento%>"><%=departamento%></option>
						<%
rsq.movenext
wend
%>
					  </select> </td>
				  </tr>
				  <tr> 
					<td align="center"><img src="#" width="8" height="5"></td>
				  </tr>
				  <tr> 
					<td align="center" id="operadores"> <select name="login_o" size="1" class="form">
					  </select> </td>
				  </tr>
				  <tr> 
					<td align="center"><img src="#" width="8" height="5"></td>
				  </tr>
				  <tr> 
					<td align="center"> <input name="Submit" type="submit" class="form" value="entrar"></td>
				  </tr>
				  <tr> 
					<td align="center"> </td>
				  </tr>
				</table>
			  </div>
			</form>
		  </td>
		</tr>
	  </table>
	</td>
  </tr>
  <tr>
	<td height="25"> 
	  <table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
		<tr> 
		  <td align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666666">Powered 
			by <a href="http://www.webcallsuporte.com.br" target="_blank">WEBcall 
			Suporte </a></font></td>
		</tr>
	  </table>
	</td>
  </tr>
</table>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Qual é exatamente esta linha?

Compartilhar este post

Link para o post
Compartilhar em outros sites

arldin    1

arldin
Postado

SÃO ESTA LINHAS

window.resizeTo(x,y);

window.moveTo((window.screen.width-x)/2,(window.screen.height-y)/2);

Compartilhar este post

Link para o post
Compartilhar em outros sites

ska_ska    0

ska_ska
Postado

só testando mesmo pra saber... alguem amanha faz isso pra você (ahuhau..)

 

mas nao está duplicado a funcao centraliza?

<link href="style.css" rel="stylesheet" type="text/css">
<script language="javascript">
function centraliza(x,y)
{
window.resizeTo(x,y);
window.moveTo((window.screen.width-x)/2,(window.screen.height-y)/2);
}
centraliza(410,350);
</script>
<script language="javascript">
function centraliza(x,y)
{
window.resizeTo(x,y);
window.moveTo((window.screen.width-x)/2,(window.screen.height-y)/2);
}
centraliza(410,350);
</script>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito