maktub
-
Total de itens
170 -
Registro em
-
Última visita
Tudo que maktub postou
-
Prezados, tenho um select top para exibir resultados de jogos, é possível assim que exportar os 4 próximo jogos, ao invés do sistema mostrar o nome, incluir uma figura com o escudo do time? exemplo, próximo jogo: Brasil x Portugal dia 23/08 ás 17:00, ao invés de mostrar o nome mostrar o escudo dos dois times <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("_private/HASportal.mdb") set rs = conn.execute("SELECT TOP 5 * FROM EVENTS WHERE EVE_DATED >= DATE() ORDER BY EVE_DATED ASC, EVE_LOCATION ASC") do while not rs.eof %> <div id="wrappercalendar"> <a href="detailcalendar.asp?iEve=<%=rs("EVE_ID")%>&iType=<%=rs("EVE_TYPE")%>"> <div id="leftcolumncalendar"><%=rs("EVE_NAME")%></div> <div id="leftmiddlecalendar"><%=rs("EVE_DATED")%></div> <div id="rightcolumncalendar"><%=rs("EVE_LOCATION")%></div> </a> </div> <% rs.movenext loop rs.close conn.close set rs = nothing set conn = nothing %>
-
Salve! Preciso de um help com um cógigo. Estou criando um cadastro simples para uma página de futebol amador, na página principal, quero incluir uma janela chamada "próximo Jogo" onde mostrará basicamente a data, horário e os times que irão jogar, tem alguma forma de mostrar apenas o próximo jogo? Ex, hoje é dia 08/08/2010 o próximo jogo é dia 10/08/2010 eu queria que fosse mostrado apenas esta data mesmo se o sistema tiver um jogo cadastrado dia 07/08/2010, sacaram? Tem como fazer isso? Segue o fomulário que é mostrado na tela: <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, strConnection 'Conectando com o banco de dados contato.mdb Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'Seleciona da tabela contato strQuery = "SELECT * FROM contato" Set ObjRs = objConn.Execute(strQuery) %> <html> <LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css"> <head> <title>Tela de Consulta - ASPBRASIL</title> </head> <body bgcolor="#FFFFFF"> <form method="GET" action="form_altera.asp"> <table border="1" width="100%"> <tr> <td>Nº</td> <td>Data</td> <td>Horário</td> <td>Time1</td> <td>vs</td> <td>Time2</td> <td><input type="submit" name="Submit" value="Alterar"></td> </tr> <%While Not objRS.EOF %> <tr> <td><%Response.write objRS("autonum")%></td> <td><%Response.write objRS("data")%></td> <td><%Response.write objRS("horario")%></td> <td><%Response.write objRS("time1")%></td> <td>x</td> <td><%Response.write objRS("time2")%></td> <td><input type="radio" name="radio" value="<%=objRS(0)%>"></td> </tr> <% 'Move para o próximo registro objRS.MoveNext Wend 'Fechando as conexões objRs.close objConn.close Set objRs = Nothing Set objConn = Nothing %> </table> </form> </body> </html>
-
Bom dia Pessoal, preciso de uma ajuda, o código abaixo permite trabalhar com planilhas Excel no ASP usando automação OLE, porém ao imprimir na tela fica desconfigurado, é possível definir colunas de uma maneira que fique possível ler os dados?: <% Const adOpenStatic = 3 Const adLockPessimistic = 2 Dim cnnExcel Dim rstExcel Dim I Dim iCols Set cnnExcel = Server.CreateObject("ADODB.Connection") cnnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("classificacao.xls") &";" & "Extended Properties=""Excel 8.0;HDR=Yes;"";" Set rstExcel = Server.CreateObject("ADODB.Recordset") rstExcel.Open "SELECT * FROM huddata",cnnExcel,adOpenStatic,adLockPessimistic Response.Write "Colunas: " iCols = rstExcel.Fields.Count For I = 0 To iCols - 1 Response.Write rstExcel.Fields.Item(I).Name & " - " Next Response.Write "Linhas: " rstExcel.MoveFirst While Not rstExcel.EOF For I = 0 To iCols - 1 Response.Write rstExcel.Fields.Item(I).Value & "," Next Response.Write "<BR>" rstExcel.MoveNext Wend rstExcel.Close Set rstExcel = Nothing cnnExcel.Close Set cnnExcel = Nothing %>
-
Achei este mas eu queria criar na área administrativa e quando eu mudar ficaria com minhas configurações: aqui
-
Galera, criei um site cuja estrutura utiliza layout padrão com cores etc, eu queria criar na área administrativa um campo chamado "temas" quando eu clicar no tema "Verão" com as configurações de figura letra etc ele muda o layout conforme escolha, isso é possível? alguém conhece algo pronto ou parecido para que eu possa basear-me? Valeu, Feliz Natal :natal_biggrin:
-
O erro continua, porém fiz um pesquisando na WEB assim: <% Dim EndUser, BlockIP EndUser = Request.ServerVariables("REMOTE_ADDR") BlockIP = "189.79.105.5" If EndUser = BlockIP Then %> <% Response.Redirect ("negado.asp") %> <% Else %> Olá, seja bem vindo! <% End If %> O problema é que preciso colocar uma faixa de IP, esse limita-se a colocar IP por IP, funciona mas precisava bloquear uma faixa de IP
-
Poderiam ajudar? Encontrei esta solução para bloquear uma determinada faixa de IP no meu site: <% Dim i, sIP Dim vFaixa(2), vIP(5) vFaixa(0) = "200" vFaixa(1) = "201" vIP(0) = "200.162.198.1" vIP(1) = "200.162.199.1" vIP(2) = "200.162.58.1" vIP(3) = "200.162.98.1" vIP(4) = "200.132.198.1" sIP = Trim(Request.ServerVariables("REMOTE_ADDR")) '-- Faixas -- For i = LBound(vFaixa) To UBound(vFaixa) If Left(sIP, InStr(1, sIP, ".")-1) = vFaixa(i) Then Response.Redirect ("bloqueio.asp") End If Next '-- IPs -- For i = LBound(vIP) To UBound(vIP) If sIP = vIP(i) Then Response.Redirect ("bloqueio.asp") End If Next %> Mas esta gerando o erro: Erro de compilação do Microsoft VBScript erro '800a0411' Redefinição do nome D:\WEB\LOCALUSER\MEUSITE\WWW\HOME\../includes/inc_header.asp, line 10 Dim i, sIP ----^ a linha 10 é essa: Dim i, sIP
-
Bom galera acho que vou postar algo inédito, eu construi meu site baseado em usuários, possuo sistema de notícias, enquete, fórum e entre ela uma área para o usuário. O que eu gostaria de fazer é modificar meu fale conosco conforme abaixo: - Quando o usuário acessar o site e entrar com o usuário e senha ele pode enviar uma mensagem ao administrador do site através do sistema de "Fale conosco" esse sistema envia uma mensagem via e-mail para o administrador (até aqui nada complicado). - Quando o administrador recebe o e-mail, ele pode responder do próprio e-mail a questão e a resposta ficar disponível na conta do usuário no site. Sacaram a façanha? Tem como fazer isso? Gostaria de fazer isso pois este site vou usar como uma intranet, já vi algo parecido bom o site "blogger", você cria um e-mail padrão deixa ele automatizado para que sempre que uma mensagem for enviada de um determinado e-mail, ele cadastra o e-mail como um post no site (conhecem isso?) Por favor ajudem, procurei isso no Google mas não encontrei solução....
-
Galera preciso de uma ajuda Estou usando editor para incluir notícias em meu site, consigo formatar sem problema, quando eu chamo a notícia na página principal com limite de texto, ao invés de aparecer a matéria formatada, aparece o código assim: Quando eu retiro a limitação de texto a formatação aparece mas o problema é que desconfigura minha página principal. Estou usando assim para limitar o texto: <% =DoTrimProperly(rsLastestNews.Fields.Item("DAT_DESCRIPTION").value, 600, 1, 1, "..") %> E o VBSCRIPT assim: <script RUNAT=SERVER LANGUAGE=VBSCRIPT> function DoTrimProperly(str, nNamedFormat, properly, pointed, points) dim strRet strRet = Server.HTMLEncode(str) strRet = replace(strRet, vbcrlf,"") strRet = replace(strRet, vbtab,"") If (LEN(strRet) > nNamedFormat) Then strRet = LEFT(strRet, nNamedFormat) If (properly = 1) Then Dim TempArray TempArray = split(strRet, " ") Dim n strRet = "" for n = 0 to Ubound(TempArray) - 1 strRet = strRet & " " & TempArray(n) next End If If (pointed = 1) Then strRet = strRet & points End If End If DoTrimProperly = strRet End Function </SCRIPT> Gostaria que ao chamar a mensagem ela fosse exibida sem a formação (sem exibir o código HTML) e com a limitação de palavras. tem como?
-
Olá galera, Preciso de uma força para incluir uma imagem no formulário de e-mail que envio através do preenchimento de alguns campos no meu site, eu uso Cdosys para envio, gostaria de colocar uma imagem que esta no meu site para personalizar, como posso fazer isso?. Eu queria que o formulário fosse enviado para o usuário com uma imagem no topo tipo uma logomarca, tem como fazer isso? <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim MyMail Dim MyBody Dim MyAssunto Dim MyFirstname Dim MyLastname Dim MyComments MyAssunto = Request.Form("assunto") MyFirstname = Request.Form("nome") MyLastname = Request.Form("sobrenome") MyComments = Request.Form("obs") MyBody = "Nome: "& MyFirstName & vbcrlf MyBody = MyBody & "Sobrenome: "& MyLastName & vbcrlf MyBody = MyBody & "Assunto: "& MyAssunto & vbcrlf MyBody = MyBody & "Comentário:" & vbcrlf MyBody = MyBody & MyComments Set MyMail = CreateObject("CDO.Message") MyMail.From = MyFirstname MyMail.To = "meunome@eu.com.br" MyMail.Subject = "Teste de mensagem usando CDOSYS" MyMail.TextBody = MyBody MyMail.Send Set MyMail= nothing Response.redirect("../includes/inc_obrigado.asp") %>
-
Boa Noite galera, eu estou produzindo um site e me lembrei de um sisteminha de "fale conosco" que o usuário logado no site podia enviar uma pergunta para o administrador, este por sua vez recebia a solicitação em seu e-mail e de lá respondia. A resposta era enviada para o próprio site. Achei isso muito bacana e queria saber se alguém já teve ou tem esse sistema, achei aqui mesmo no SB mas a algum tempo procuro e não acho
-
Meu velho! Muito obrigado, tive uma idéia/solução baseada na sua! Valeu pela ajuda!
-
Isso mesmo Rafael, normalmente salvo ele em uma pasta chamada excel, nomeio eles através de números ex.: 1.2.xls, 1.3.xls e por ai vai
-
Cara, acho que não me expressei bem, não quero gerar arquivo de excel com asp, quero incluir um link onde aponte o arquivo excel quando envio ele via editor na minha área administrativa, tem como fazer isso? Esses exemplos que você enviou eu havia pesquisado mas não é o que eu quero. Quero enviar o arquivo e inserir o link no texto onde produzo em minha área administrativa para que o usuário possa clicar nele e abrir o arquivo.
-
Galera, alguém ai sabe se é possível incluir arquivo excel usando o fckeditor? Como acontece com as fotos, eu queria incluir um arquivo excel como anexo quando enviar algum "post" par ao meu site de forma que ele fique na página ou como um link para ter acesso a pasta, tem como fazer isso ou algum manja fazer?
-
Nada velhão to quebrando a cabeça com isso
-
Alguém conhece alguma funcão para ocultar um link? Tenho um sistema de notícia que ao incluir algum link no textarea, ex.: http://www.ig.com.br ele é exibido da mesma forma para o usuário: ex.: http://www.ig.com.br Gostaria que ao incluir esse link, o que aparecer para o usuário é um icone ou um nome chamado "clique aqui", isso é possível?
-
Tinha visto isso mas não é. Coloquei a pasta FCKeditor dentro da pasta ADMIN na pasta admin tenho um formulário chamado "Inc_Admin.asp" onde configurei da seguinte forma: No "Inc_Admin.asp" inclui o include no topo: <!--#include file="fckeditor/fckeditor.asp" --> e alterei o campo: <td> <textarea name="DESCRIPTION" cols="60" rows="15" class="form"></textarea> </td> e substitui por: <td> <% Dim sBasePath sBasePath = Request.ServerVariables("PATH_INFO") sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) ) Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = sBasePath oFCKeditor.Value = "This is some <strong>sample text</strong>. You are using <a href=""http://www.fckeditor.net/"">FCKeditor</a>." oFCKeditor.Create "DESCRIPTION" %> </td> Realizei todas as configurações deste tutorial: http://forum.imasters.uol.com.br/index.php?showtopic=247439 , mas quando eu rodo o "Inc_Admin.asp" no campo onde deveria chamar o fckeditor.html que esta dentro do FCKeditor.asp mostra uma mensagem que a página não foi localizada ??? Abaixo esta o código completo do "Inc_Admin.asp <!--#include file="fckeditor/fckeditor.asp" --> <!--#include file="../Connections/connHAportal.asp" --> <!--#include file="inc_restriction.asp" --> <!--#include file="../ScriptLibrary/incResizeAddOn.asp" --> <!--#include file="../ScriptLibrary/incPureUpload.asp" --> <% '*** Pure ASP File Upload 2.1.3 Dim GP_uploadAction,UploadQueryString PureUploadSetup If (CStr(Request.QueryString("GP_upload")) <> "") Then Dim pau_thePath,pau_Extensions,pau_Form,pau_Redirect,pau_storeType,pau_sizeLimit,pau _nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHe ight,pau_saveWidth,pau_saveHeight,pau_timeout,pau_progressBar,pau_progressWidth,p au_progressHeight pau_thePath = """../pictures""" pau_Extensions = "GIF,JPG,JPEG,BMP,PNG" pau_Form = "add_data" pau_Redirect = "" pau_storeType = "file" pau_sizeLimit = "" pau_nameConflict = "uniq" pau_requireUpload = "false" pau_minWidth = "" pau_minHeight = "" pau_maxWidth = "" pau_maxHeight = "" pau_saveWidth = "" pau_saveHeight = "" pau_timeout = "600" pau_progressBar = "" pau_progressWidth = "300" pau_progressHeight = "100" Dim RequestBin, UploadRequest CheckPureUploadVersion 2.13 ProcessUpload pau_thePath,pau_Extensions,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConf lict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_ saveWidth,pau_saveHeight,pau_timeout end if %> <% ' *** Smart Image Processor 1.1.2 If (CStr(Request.QueryString("GP_upload")) <> "") Then Dim RUF_Component, RUF_DotNetResize, RUF_ResizeImages, RUF_AspectImages, RUF_maxWidth, RUF_maxHeight, RUF_Quality, RUF_MakeThumb, RUF_AspectThumb, RUF_Suffix, RUF_maxWidthThumb, RUF_maxHeightThumb, RUF_QualityThumb, RUF_RedirectURL RUF_Component = "AUTO" RUF_DotNetResize = "../ScriptLibrary/ResizeImage.aspx" RUF_ResizeImages = true RUF_AspectImages = true RUF_maxWidth = "400" RUF_maxHeight = "400" RUF_Quality = "80" RUF_MakeThumb = true RUF_AspectThumb = true RUF_Suffix = "_small" RUF_maxWidthThumb = "130" RUF_maxHeightThumb = "130" RUF_QualityThumb = "70" RUF_RedirectURL = "" if RUF_ResizeImages then ResizeUploadedFiles RUF_Component, RUF_DotNetResize, pau_thePath, "", RUF_maxWidth, RUF_maxHeight, RUF_Quality, true, pau_saveWidth, pau_saveHeight, RUF_AspectImages, pau_nameConflict, "" end if if RUF_MakeThumb then ResizeUploadedFiles RUF_Component, RUF_DotNetResize, pau_thePath, RUF_Suffix, RUF_maxWidthThumb, RUF_maxHeightThumb, RUF_QualityThumb, false, pau_saveWidth, pau_saveHeight, RUF_AspectThumb, pau_nameConflict, "" end if if RUF_RedirectURL <> "" then Response.Redirect RUF_RedirectURL end if end if %> <% ' *** Edit Operations: (Modified for File Upload) declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (UploadQueryString <> "") Then MM_editAction = MM_editAction & "?" & UploadQueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: (Modified for File Upload) set variables If (CStr(UploadFormRequest("MM_insert")) = "add_data") Then MM_editConnection = MM_connDUportal_STRING MM_editTable = "DATAS" If Request.QueryString("nChannel") = "Polls" Then MM_editRedirectUrl = "pollsAnswers.asp" Else MM_editRedirectUrl = "datas.asp" End If MM_fieldsStr = "TYPE|value|NAME|value|URL|value|PICTURE|value|LOCATION|value|BRAND|value|NUM BER|value|DATED|value|EXPIRED|value|QUANTITY|value|PRICE|value|SHIP|value|DESCRIP TION|value|USER|value|APPROVED|value" MM_columnsStr = "DAT_CATEGORY|none,none,NULL|DAT_NAME|',none,''|DAT_URL|',none,''|DAT_PICTURE|',none,''|DAT_LOCATION|',none,''|DAT_BRAND|',none,''|DAT_SKU|',none,''|DAT_DATED|',none,NULL|DAT_EXPIRED|',none,NULL|DAT_QUANTITY|none,none,NULL|DAT_PRICE|none,none,NULL|DAT_SHIP|non e,none,NULL|DAT_DESCRIPTION|',none,''|DAT_USER|',none,''|DAT_APPROVED|none,none,NULL" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(UploadFormRequest(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And UploadQueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString End If End If End If %> <% ' *** Insert Record: (Modified for File Upload) construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(UploadFormRequest("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim rsTypeListing__MMColParam rsTypeListing__MMColParam = "0" If (Request.QueryString("iChannel") <> "") Then rsTypeListing__MMColParam = Request.QueryString("iChannel") End If %> <% Dim rsTypeListing Dim rsTypeListing_numRows Set rsTypeListing = Server.CreateObject("ADODB.Recordset") rsTypeListing.ActiveConnection = MM_connDUportal_STRING rsTypeListing.Source = "SELECT * FROM CATEGORIES, CHANNELS WHERE CAT_CHANNEL = CHA_ID AND CAT_CHANNEL = " + Replace(rsTypeListing__MMColParam, "'", "''") + " ORDER BY CAT_NAME ASC" rsTypeListing.CursorType = 0 rsTypeListing.CursorLocation = 2 rsTypeListing.LockType = 1 rsTypeListing.Open() rsTypeListing_numRows = 0 %> <% Dim rsChannelListing Dim rsChannelListing_numRows Set rsChannelListing = Server.CreateObject("ADODB.Recordset") rsChannelListing.ActiveConnection = MM_connDUportal_STRING rsChannelListing.Source = "SELECT * FROM CHANNELS ORDER BY CHA_MENU ASC" rsChannelListing.CursorType = 0 rsChannelListing.CursorLocation = 2 rsChannelListing.LockType = 1 rsChannelListing.Open() rsChannelListing_numRows = 0 %> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_jumpMenu(targ,selObj,restore){ //v3.0 eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'"); if (restore) selObj.selectedIndex=0; } function MM_findObj(n, d) { //v4.01 var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) { d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n]; for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); if(!x && d.getElementById) x=d.getElementById(n); return x; } function MM_validateForm() { //v4.0 var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments; for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]); if (val) { nm=val.name; if ((val=val.value)!="") { if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@'); if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n'; } else if (test!='R') { num = parseFloat(val); if (isNaN(val)) errors+='- '+nm+' must contain a number.\n'; if (test.indexOf('inRange') != -1) { p=test.indexOf(':'); min=test.substring(8,p); max=test.substring(p+1); if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n'; } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; } } if (errors) alert('The following error(s) occurred:\n'+errors); document.MM_returnValue = (errors == ''); } //--> </script> <link href="../assets/HAportal.css" rel="stylesheet" type="text/css"> <script language="javascript" src="../ScriptLibrary/incPureUpload.js"></script> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="../assets/bg_header.gif"> <tr> <td width="10"><img src="../assets/header_end_left.gif"></td> <td align="left" valign="middle" class="textBoldColor">ADICIONAR NOVO</td> <td width="28" align="right" valign="middle"><img src="../assets/header_end_right.gif"></td> </tr> </table></td> </tr> </table></td> </tr> <tr> <td align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="1" class="bgTableBorder"><img src="../assets/_spacer.gif"></td> <td align="left" valign="top" class="bgTable"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="left" valign="top"> <table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <form action="<%=MM_editAction%>" method="post" enctype="multipart/form-data" name="add_data" id="add_data" onSubmit="checkFileUpload(this,'GIF,JPG,JPEG,BMP,PNG',false,'','','','','','','');return document.MM_returnValue"> <td width="100%" align="left" valign="top"> <table align="center" cellpadding="3" cellspacing="3" class="textBold"> <tr valign="middle"> <td align="right" nowrap>CANAL:</td> <td><select name="iChannel" class="form" id="iChannel" onChange="MM_jumpMenu('parent',this,0)"> <% While (NOT rsChannelListing.EOF) %> <option value="submit.asp?iChannel=<%=(rsChannelListing.Fields.Item("CHA_ID").Value)%>&nChannel=<%=(rsChannelListing.Fields.Item("CHA_NAME").Value)%>" <%if (CStr(rsChannelListing.Fields.Item("CHA_ID").Value) = CStr(Request.QueryString("iChannel"))) then Response.Write("SELECTED") : Response.Write("")%>><%=(rsChannelListing.Fields.Item("CHA_MENU").Value)%></option> <% rsChannelListing.MoveNext() Wend If (rsChannelListing.CursorType > 0) Then rsChannelListing.MoveFirst Else rsChannelListing.Requery End If %> </select> </td> </tr> <% If Not rsTypeListing.EOF Or Not rsTypeListing.BOF Then %> <tr valign="middle"> <td align="right" nowrap>CATEGORIA:</td> <td> <select name="TYPE" class="form" id="TYPE"> <% While (NOT rsTypeListing.EOF) %> <option value="<%=(rsTypeListing.Fields.Item("CAT_ID").Value)%>"><%=(rsTypeListing.Fields.Item("CAT_NAME").Value)%></option> <% rsTypeListing.MoveNext() Wend If (rsTypeListing.CursorType > 0) Then rsTypeListing.MoveFirst Else rsTypeListing.Requery End If %> </select> </td> </tr> <tr valign="middle"> <td align="right" nowrap>NOME/TÍTULO:</td> <td> <input name="NAME" type="text" class="form" value="" size="60"> </td> </tr> <% If Request.QueryString("nChannel") <> "Fotos" And Request.QueryString("nChannel") <> "Tópicos" And Request.QueryString("nChannel") <> "Polls" Then %> <tr valign="middle"> <td align="right" nowrap>URL:</td> <td> <input name="URL" type="text" class="form" value="http://" size="60"> </td> </tr> <% Else %> <input name="URL" type="hidden" value="0"> <% End If %> <% If Request.QueryString("nChannel") <> "Tópicos" And Request.QueryString("nChannel") <> "Polls" Then %> <tr valign="middle"> <td align="right" nowrap>IMAGEM:</td> <td> <input name="PICTURE" type="file" class="form" id="PICTURE" onChange="checkOneFileUpload(this,'GIF,JPG,JPEG,BMP,PNG',false,'','','','','','','')" size="50"></td> </tr> <% Else %> <input name="PICTURE" type="hidden" value=""> <% End If %> <% If Request.QueryString("nChannel") = "Eventos" Or Request.QueryString("nChannel") = "Negócios" Or Request.QueryString("nChannel") = "Anúncios" Then %> <tr valign="middle"> <td align="right" nowrap>LOCALIZAÇÃO:</td> <td> <input name="LOCATION" type="text" class="form" value="" size="60"> </td> </tr> <% Else %> <input name="LOCATION" type="hidden" value="0"> <% End If %> <% If Request.QueryString("nChannel") = "Produtos" Then %> <tr valign="middle"> <td align="right" nowrap>TIPO DO PRODUTO:</td> <td> <input name="BRAND" type="text" class="form" value="" size="60"> </td> </tr> <tr valign="middle"> <td align="right" nowrap>NÚMERO DO PRODUTO:</td> <td> <input name="NUMBER" type="text" class="form" id="NUMBER" value="" size="20"> </td> </tr> <% Else %> <input name="NUMBER" type="hidden" value="0"> <% End If %> <tr valign="middle"> <td align="right" nowrap> DATA:</td> <td> <input name="DATED" type="text" class="form" value="<%= DATE() %>" size="15"> </td> </tr> <% If Request.QueryString("nChannel") = "Produtos" OR Request.QueryString("nChannel") = "Anúncios" Then %> <tr valign="middle"> <td align="right" nowrap>DATA FINAL:</td> <td> <select name="EXPIRED" class="form" id="EXPIRED"> <option value="1/1/5000" selected>Never</option> <option value="<%= DATE() + 15 %>">15 Days</option> <option value="<%= DATE() + 30 %>">30 Days</option> <option value="<%= DATE() + 90 %>">90 Days</option> <option value="<%= DATE() + 120 %>">120 Days</option> <option value="<%= DATE() + 365 %>">365 Days</option> </select> </td> </tr> <% Else %> <input name="EXPIRED" type="hidden" value="1/1/3000"> <% End If %> <% If Request.QueryString("nChannel") = "Produtos" OR Request.QueryString("nChannel") = "Anúncios"Then %> <tr valign="middle"> <td align="right" nowrap>QUANTIDADE:</td> <td> <input name="QUANTITY" type="text" class="form" id="QUANTITY" value="" size="5"> </td> </tr> <% Else %> <input name="QUANTITY" type="hidden" value="0"> <% End If %> <% If Request.QueryString("nChannel") = "Produtos" OR Request.QueryString("nChannel") = "Anúncios"Then %> <tr valign="middle"> <td align="right" nowrap>PREÇO:</td> <td> <input name="PRICE" type="text" class="form" value="" size="30"> </td> </tr> <tr valign="middle"> <td align="right" nowrap>CUSTO DE TRANSPORTE:</td> <td> <input name="SHIP" type="text" class="form" value="" size="30"> </td> </tr> <% Else %> <input name="PRICE" type="hidden" value="0"> <input name="SHIP" type="hidden" value="0"> <% End If %> <tr valign="middle"> <td align="right" valign="top" nowrap>DESCRIÇÃO:</td> <td> <% Dim sBasePath sBasePath = Request.ServerVariables("PATH_INFO") sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) ) Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = sBasePath oFCKeditor.Value = "This is some <strong>sample text</strong>. You are using <a href=""http://www.fckeditor.net/"">FCKeditor</a>." oFCKeditor.Create "DESCRIPTION" %> </td> </tr> <tr valign="middle"> <td align="right" nowrap> <input type="hidden" name="USER" value="admin"> <input type="hidden" name="APPROVED" value="1"> <input type="hidden" name="CHANNEL" value="<%= Request.QueryString("nChannel") %>"> <input type="hidden" name="MM_insert" value="add_data"> </td> <td> <input name="Add" type="submit" class="button" id="Add" onClick="MM_validateForm('NAME','','R','URL','','R','LOCATION','','R','BRAND','','R','NUMBER','','R','DATED','','R','QUANTITY','','RisNum','PRICE','','RisNum','SHIP','','RisNum','DESCRIPTION','','R');return document.MM_returnValue" value="Adicionar"> </td> </tr> <% End If ' end Not rsTypeListing.EOF Or NOT rsTypeListing.BOF %> </table></td> </form> </tr> </table> </td> </tr> </table></td> <td width="1" class="bgTableBorder"><img src="../assets/_spacer.gif"></td> </tr> </table></td> </tr> <tr> <td align="center" valign="top" background="../assets/bg_header_bottom.gif"></td> </tr> </table></td> </tr> <tr> <td height="7" align="left" valign="top"><img src="../assets/_spacer.gif" width="1" height="1"></td> </tr> </table> <% rsTypeListing.Close() Set rsTypeListing = Nothing %> <% rsChannelListing.Close() Set rsChannelListing = Nothing %>
-
Estou fazendo a configuração para incluir o FCKEditor ao código que eu uso para inclusão de notícias, mas não estou conseguindo, preciso de ajuda: Meu código esta na pasta "Admin", dentro dela tem a pasta do "FCKEditor" As conexões do meu formulário esta abaixo, note que inclui o include FCKEditor no topo: [b]<!--#include file="fckeditor/fckeditor.asp" -->[/b] <!--#include file="../Connections/connHAportal.asp" --> <!--#include file="inc_restriction.asp" --> <!--#include file="../ScriptLibrary/incResizeAddOn.asp" --> <!--#include file="../ScriptLibrary/incPureUpload.asp" --> <% '*** Pure ASP File Upload 2.1.3 Dim GP_uploadAction,UploadQueryString PureUploadSetup If (CStr(Request.QueryString("GP_upload")) <> "") Then Dim pau_thePath,pau_Extensions,pau_Form,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout,pau_progressBar,pau_progressWidth,pau_progressHeight pau_thePath = """../pictures""" pau_Extensions = "GIF,JPG,JPEG,BMP,PNG" pau_Form = "add_data" pau_Redirect = "" pau_storeType = "file" pau_sizeLimit = "" pau_nameConflict = "uniq" pau_requireUpload = "false" pau_minWidth = "" pau_minHeight = "" pau_maxWidth = "" pau_maxHeight = "" pau_saveWidth = "" pau_saveHeight = "" pau_timeout = "600" pau_progressBar = "" pau_progressWidth = "300" pau_progressHeight = "100" Dim RequestBin, UploadRequest CheckPureUploadVersion 2.13 ProcessUpload pau_thePath,pau_Extensions,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout end if %> <% ' *** Smart Image Processor 1.1.2 If (CStr(Request.QueryString("GP_upload")) <> "") Then Dim RUF_Component, RUF_DotNetResize, RUF_ResizeImages, RUF_AspectImages, RUF_maxWidth, RUF_maxHeight, RUF_Quality, RUF_MakeThumb, RUF_AspectThumb, RUF_Suffix, RUF_maxWidthThumb, RUF_maxHeightThumb, RUF_QualityThumb, RUF_RedirectURL RUF_Component = "AUTO" RUF_DotNetResize = "../ScriptLibrary/ResizeImage.aspx" RUF_ResizeImages = true RUF_AspectImages = true RUF_maxWidth = "400" RUF_maxHeight = "400" RUF_Quality = "80" RUF_MakeThumb = true RUF_AspectThumb = true RUF_Suffix = "_small" RUF_maxWidthThumb = "130" RUF_maxHeightThumb = "130" RUF_QualityThumb = "70" RUF_RedirectURL = "" if RUF_ResizeImages then ResizeUploadedFiles RUF_Component, RUF_DotNetResize, pau_thePath, "", RUF_maxWidth, RUF_maxHeight, RUF_Quality, true, pau_saveWidth, pau_saveHeight, RUF_AspectImages, pau_nameConflict, "" end if if RUF_MakeThumb then ResizeUploadedFiles RUF_Component, RUF_DotNetResize, pau_thePath, RUF_Suffix, RUF_maxWidthThumb, RUF_maxHeightThumb, RUF_QualityThumb, false, pau_saveWidth, pau_saveHeight, RUF_AspectThumb, pau_nameConflict, "" end if if RUF_RedirectURL <> "" then Response.Redirect RUF_RedirectURL end if end if %> <% ' *** Edit Operations: (Modified for File Upload) declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (UploadQueryString <> "") Then MM_editAction = MM_editAction & "?" & UploadQueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: (Modified for File Upload) set variables If (CStr(UploadFormRequest("MM_insert")) = "add_data") Then MM_editConnection = MM_connDUportal_STRING MM_editTable = "DATAS" If Request.QueryString("nChannel") = "Polls" Then MM_editRedirectUrl = "pollsAnswers.asp" Else MM_editRedirectUrl = "datas.asp" End If MM_fieldsStr = "TYPE|value|NAME|value|URL|value|PICTURE|value|LOCATION|value|BRAND|value|NUMBER|value|DATED|value|EXPIRED|value|QUANTITY|value|PRICE|value|SHIP|value|DESCRIPTION|value|USER|value|APPROVED|value" MM_columnsStr = "DAT_CATEGORY|none,none,NULL|DAT_NAME|',none,''|DAT_URL|',none,''|DAT_PICTURE|',none,''|DAT_LOCATION|',none,''|DAT_BRAND|',none,''|DAT_SKU|',none,''|DAT_DATED|',none,NULL|DAT_EXPIRED|',none,NULL|DAT_QUANTITY|none,none,NULL|DAT_PRICE|none,none,NULL|DAT_SHIP|none,none,NULL|DAT_DESCRIPTION|',none,''|DAT_USER|',none,''|DAT_APPROVED|none,none,NULL" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(UploadFormRequest(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And UploadQueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString End If End If End If %> <% ' *** Insert Record: (Modified for File Upload) construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(UploadFormRequest("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim rsTypeListing__MMColParam rsTypeListing__MMColParam = "0" If (Request.QueryString("iChannel") <> "") Then rsTypeListing__MMColParam = Request.QueryString("iChannel") End If %> <% Dim rsTypeListing Dim rsTypeListing_numRows Set rsTypeListing = Server.CreateObject("ADODB.Recordset") rsTypeListing.ActiveConnection = MM_connDUportal_STRING rsTypeListing.Source = "SELECT * FROM CATEGORIES, CHANNELS WHERE CAT_CHANNEL = CHA_ID AND CAT_CHANNEL = " + Replace(rsTypeListing__MMColParam, "'", "''") + " ORDER BY CAT_NAME ASC" rsTypeListing.CursorType = 0 rsTypeListing.CursorLocation = 2 rsTypeListing.LockType = 1 rsTypeListing.Open() rsTypeListing_numRows = 0 %> <% Dim rsChannelListing Dim rsChannelListing_numRows Set rsChannelListing = Server.CreateObject("ADODB.Recordset") rsChannelListing.ActiveConnection = MM_connDUportal_STRING rsChannelListing.Source = "SELECT * FROM CHANNELS ORDER BY CHA_MENU ASC" rsChannelListing.CursorType = 0 rsChannelListing.CursorLocation = 2 rsChannelListing.LockType = 1 rsChannelListing.Open() rsChannelListing_numRows = 0 %> No campo textarea substitui o atual: <td> <textarea name="DESCRIÇÃO" cols="60" rows="15" class="form"></textarea> </td> Por: <td> <%Dim sBasePath sBasePath = Request.ServerVariables("PATH_INFO") sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) ) Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = sBasePath If Request.QueryString("Skin") <> "" Then oFCKeditor.Config("SkinPath") = sBasePath + "editor/skins/" & Server.HTMLEncode( Request.QueryString("Skin") ) + "/" End If oFCKeditor.Value = " " oFCKeditor.Create "DESCRIÇÃO" %> </td> Bom, o problema é que ao rodar o arquivo, a mensagem de erro"página não pode ser exibida" aparece. Outra dúvida é: só preciso fazer a alteração nesta página ou precisa alterar a que exibe o tópico incluído na base de dados? Por favor me ajudem!
-
Galera, estou usando pela primeira vez o Illustrator CS3, minha dúvida é se eu pegar uma objeto "elipse Tool" e aplicar um efeito digamos "Distorção - Glass", após aplicado o efeito eu consigo transforma-lo em ponto/vetor ponto a ponto? Caso negativo tem outro software que faz isso? obrigado
-
Galera, não sei se é possível: Criei um circulo e apliquei o efeito "Edges" usando o plugin "Alien Skin" esse efeito é parecido com algumas campanhas da coca-cola. Bom eu queria aplós aplicado esse efeito transformar em pontos novamente esse circulo com os efeitos, isso é possível? Por exemplo Quando eu digito qualquer texto e aplico o "Ctrl+Alt+P" ele transforma o texto em pontos, queria saber se usando qualquer efeito eu consigo transforma-lo em ponto também valeu
-
Não sei se alterei alguma configuração no meu iis mas tudo que eu faço com algum sistema que antes funcionava no campo de data agora aparece como aaaa. Por exemplo, quando eu posto alguma coisa em algum blog que estou testando na minha máquina o campo dia e mês aparece certinho mas a data aparece assim: aaaa no exemplo aparece 25/07/aaaa mas deveria aparece 25/07/2007 alguém sabe como reconfigurar? eu uso o XP
-
Não faço idéia como foi feito mas achei bem interessante, na página do yahoo na lateral direita abaixo de busca tem um link que estende até uma combo chamada "Opções da página" onde o usuário pode alterar a cor da página principal, não sei como isso é possível mas gostaria de saber se alguém sabe fazer isso com css.
-
Olá pessoal, tenho uma dúvida: coloquei em minha default uma div chamada coluna default que fica posicionada a esquerda, dentro dela tenho um texto, o que eu queria fazer é que o texto dentro da div move-se 10px para a direita e mais 10px para baixo mas sem afetar a estrutura da div, tem como? o código que uso para a div, note que tem uma imagem, a preocupação é que ela não se mova e nem o tamanho da div. #colunadefault { background:url('testedefault_r7_c2.gif') left top no-repeat; width:274px; height: 247px; float: left; font: 11px "Trebuchet Ms", Verdana, Arial, Helvetica, sans-serif; list-style-type: none; }
-
Galera, criei um site em ASP e queria coloca-lo no ar, porém não tenho interesse em gastar com sevidores e gostaria de criar meu próprio servidor WEB, queria saber se alguém aqui já fez um e/ou se tem algum tutorial que ensine criar um. Alguém sabe? Abs