Preciso De Um Livro De Visitas Em Asp

Setembro 29, 2003

Bem estou com um serio problema eu escrevi um livro de visitas em asp mas não ta funcionando.. olhem so eu estou deixando o codigo e o nome dos arquivos a vontade a quem quiser me ajudar .. so que ele não esta funcionando

LivroV.asp

<tr>

</td>

</tr>

</table>

<tr>

<p align="center"><a class="link1" href="assina.asp">Assinar</a></p>

<p align="center"><a class="link1" href="todas.asp">Ver todas Assinaturas</a></p>

</td>

</tr>

</table>

</center>

</div>

<%

dim objeto, texto, cont, total, soma, linha

Set objeto = CreateObject("Scripting.FileSystemObject")

Set cont = Objeto.OpenTextFile(Server.MapPath("cont.txt"))

total = cont.ReadLine

soma = total - 19

cont.close

if soma < 0 then

soma = 0

end if

Set texto = objeto.OpenTextFile(Server.MapPath("Mensagens.txt"))

response.write "<div align='center'><center><table width='400'><td>"

Do While texto.AtEndOfStream <> true

linha = texto.ReadLine

if linha = "<" & soma then

for i = soma to total

if linha = "<" & i then

linha = texto.ReadLine

response.write "<tr><td width='100%' align='center'><p>"

response.write "<hr></hr>"

Do While linha <> i & ">"

response.write linha & "<br>"

linha = texto.ReadLine

loop

response.write "</td></tr>"

on error resume next

linha = texto.ReadLine

end if

loop

response.write "</td></table></center></div>"

Texto.close

%>

<tr>

</td>

<td>

</tr>

</table>

</body>

</html>

Assina.asp

function valida(form) {

var campo = "";

for (i=0; i<3; i++) {

campo = "";

if (form.elements.value == "") {

campo=form.elements.name.substring(3, form.elements.name.length);

alert("O campo " + campo + " deve ser preenchido");

form.elements.focus();

form.elements.select();

return false;

}

function emailCheck (emailStr) {

var emailPat=/^(.+)@(.+)$/

var specialChars=\$\$<>@,;:\\\\\\\"\\.\\[\\]"

var validChars="\[^\\s" + specialChars + "\]"

var firstChars=validChars

var quotedUser="(\"[^\]*\")"

var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/

var atom="(" + firstChars + validChars + "*" + ")"

var word="(" + atom + "|" + quotedUser + ")"

var userPat=new RegExp("^" + word + "(\\." + word + ")*$")

var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$")

var matchArray=emailStr.match(emailPat)

if (matchArray==null) {

alert("Endereço incorreto (verifique @ e .'s)")

return false

}

var user=matchArray[1]

var domain=matchArray[2]

if (user.match(userPat)==null) {

alert("E-mail não válido.")

return false

}

var IPArray=domain.match(ipDomainPat)

if (IPArray!=null) {

for (var i=1;i<=4;i++) {

if (IPArray>255) {

alert("Destination IP address is invalid!")

return false

}

document.form.submit()

}

var domainArray=domain.match(domainPat)

if (domainArray==null) {

alert("O domínio do e-mail não é válido!")

return false

}

var atomPat=new RegExp(atom,"g")

var domArr=domain.match(atomPat)

var len=domArr.length

if (domArr[domArr.length-1].length<2 ||

domArr[domArr.length-1].length>3) {

alert("O final do endereço está incorreto")

return false

}

if (domArr[domArr.length-1].length==3 && len<2) {

var errStr="Endereço Inválido!"

alert(errStr)

return false

}

document.form.submit();

}

</script>

<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0">

<table border="0" width="100%" bgcolor="#083E80">

<tr>

<td width="141%">

<p align="center"><img border="0" src="Imagens/livrovisita.gif" width="155" height="22">

</td>

</tr>

</table>

<p align="center" style="margin-bottom: 0"><font color="#083E80"><big>Assinando o</big><big> Livro de Visitas</big></font></p>

<hr>

<form name="form" method="POST" onSubmit="return emailCheck(this.txtEmail.value);" action="resposta.asp">

<table border="0" width="100%">

<tr>

<td width="50%">

<p align="center"><b>Nome:</b> <input class="input" type="text" name="txtNome" size="20"></td>

<td width="50%">

<p align="center"><b>Email:</b> <input class="input" type="text" name="txtEmail" size="20"></td>

</tr>

</table>

<p align="center" style="margin-top: 3; margin-bottom: 3"><b>Mensagem:</b></p>

<p align="center" style="margin-top: 3; margin-bottom: 3"><textarea class="input" name="txtMensagem" rows="10" name="S1" cols="49"></textarea></p>

<p align="center"><input class="button" type="submit" value="Enviar" name="B1" onclick="return valida(this.form)">         

<input class="button" type="reset" value="Limpar" name="B2"></p>

</form>

</body>

</html>

Resposta.asp

<!--#include file="fobjvb script:window.close();" value="Fechar"></p>

</td>

<td>

<p align="right"> </td>

</tr>

</table>

</body>

</html>

ele da os seguintes erros

no livroV.asp - line 68

no resposta.asp line 28 (permission Denied)

no todos.asp line 54

por favor alguém pode me ajudar sou novo na programaçao em asp.. por isso to precisando de ajuda.. ok.. muito obrigado.. por favor me mostrem meus erros

eu criei.. os arquivos txt.. cont.txt e mensagens.txt

Setembro 30, 2003

Eu já usei este código. Ele funciona bem.

O local em que a Página está hospedada tem que ter permissão para escrita.

Eu testei a página no Brinkster (http://www.brinkster.com).

Neste servidor , por exemplo, eu tenho apenas um diretório com permissão de escrita, que se chama 'db'. Verifique se não é este o caso.

Agora , se você tiver testando no PWS tem que funcionar.

Entrar

Preciso De Um Livro De Visitas Em Asp

Pergunta

Guest - Bolomaster -

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Guest Decio

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades