Ir para conteúdo

POWERED BY:

Arquivado

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

Daniel Lemes

Documentador

Por , em ASP Clássico

Recommended Posts

Daniel Lemes    0

Daniel Lemes
Postado

Olá pessoal,estive procurando algo parecido com o phpdoc para o ASP, apesar do php doc ser para documentar classe queria ver se tem algo parecido pro ASP pra documentar as funções.Valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

1sys    0

1sys
Postado

Diz ae grande Daniel Lemes

 

de uma olhada neste script q eu achei faz umtempinho sendo q ainda ñ mexi nele e ñ sei como funciona ve ai se e util ai para você qualquer coisa estamos ai...

 

<%@ Language="VbScript"%><HTML><HEAD><TITLE>(Your Title)</TITLE></HEAD><BODY bgColor="#FFFFFF" Background=""><%If Request.ServerVariables("REQUEST_METHOD") = "POST" Then'NOTE: To run this code in your server you need Microsoft Office Object Library - Reference, Microsoft Word Object Library - Reference''Disclaimer:'	   I cannot be responsible if anything goes wrong with this code...Dim WordAppDim WordDocDim MyRange1Dim strSubjectDim strBodyDim uniqueNameuniqueName = replace(Now()," ","")uniqueName = replace(uniqueName,"/","")uniqueName = replace(uniqueName,":","")myfilename = uniqueNamestrSubject = Request.Form("subject")strBody = Request.Form("Body")	   Set WordApp = CreateObject("word.application")	   Set WordDoc = WordApp.Documents.Add()	   WordApp.Application.Visible = False	   Set MyRange1 = WordDoc.Paragraphs.Add.Range	   MyRange1.Font.Bold = True	   MyRange1.InsertBefore(formatdatetime(now(),1))	   Set MyRange1 = WordDoc.Paragraphs.Add.Range	   MyRange1.ParagraphFormat.Alignment = 1	   MyRange1.Font.Bold = True	   MyRange1.Font.Italic = True	   MyRange1.InsertBefore(strSubject)	   Set MyRange1 = WordDoc.Paragraphs.Add.Range	   MyRange1.InsertBefore(vbcrlf & strBody)	   WordDoc.SaveAs  Server.MapPath(".") & "\" & myfilename & ".doc"	   WordDoc.Close	   WordApp.Quit	   Set WordDoc = Nothing	   Set WordApp = Nothing	   Set MyRange1 = NothingResponse.Write("Click <A HRef=" & myfilename & ".doc>Here</A> to get your MSWord document")Else%><Form Method="Post" Action="cadastro_Word.asp"><Table bgcolor="#c0c0c0" border="0" cellpadding="4" cellspacing="0" width="638" Align="Center"><TR>   <TD>	   <font  size="2"><b>Subject:</b></font>   </TD>   <TD>	   <font size="2"><INPUT TYPE="TEXTBOX" NAME="subject" maxlength="255" size="73" VALUE="The subject of your letter goes here..."></font>   </TD></TR></Table><Table bgcolor=#c0c0c0 border="0" cellpadding="4" cellspacing="0" width="638" Align="Center">   <TR>	   <td width="100%">		   <TEXTAREA cols="74" rows="17" name="body" wrap=virtual>Dear Joe Bloggs.....</textarea>	   </TD>   </TR></Table><Center><Input type="Submit" Value="[ Create MSWord ]"></Center></Form><%End If%></BODY></HTML>

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