29-10-2005, 16:06
|
|
|
חבר מתאריך: 29.10.05
הודעות: 8
|
|
קוד:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
</HEAD>
<body>
<P>
<%
Function CreateHTMLPage(nameOfpage2,myHTML2)
MakeOk="No Page"
strRetrieveVal=myHTML2
set FSO = Server.CreateObject("scripting.FileSystemObject")
set myFile = FSO.CreateTextFile("C:\Inetpub\wwwroot\makehtm\" & nameOfpage2, true)
myFile.WriteLine(strRetrieveVal)
MakeOk="Page ok"
myFile.Close
set myFile = nothing
set FSO = nothing
Set TearObj = Nothing
End Function
myHTML="<STRONG><EM><FONT face='Arial (Hebrew)' size='6'>Nicole</FONT></EM></STRONG></P>"
nameOfpage="a.htm"
x= CreateHTMLPage(nameOfpage,myHTML)
%>
page ok
</body>
</HTML>
או אני חדש פה ורק אכשיו הבנתי איך לצרף קוד
|