ساخت يك فايل در Host به وسيله asp

N

nima_isp

Member
سلام آقايان من يه مشكل داو و اونهم ايه كه ميخوام يه فايل با محتوياتي كه يه فايل asp مي سازه روي Host ايجاد كنم ايبته با نام دلخواه

فرض كنيد خروجي فايل asp من اينه

<html>
<p> Nima </p>
</html>

حايلا ميخوام اي مقاير كه توستط فايل a2.asp ساخته ميشود در فايل S.htm در Host ايجاد شود

آقا مجيد منتظر جواب شما و دوستانمون هستم
 
O

omidak

Active Member
سلام:
اين يك نمونه: :wink:
کد: 
Dim objFName
    Dim FName
    Dim HTMLname

    Sub MakeHTML()
    	On Error Resume Next
    	HTMLname = "c:\inetpub\whatever\TestPage.htm"
    	Set objFName = server.CreateObject("Scripting.FileSystemObject")
    	Set FName = objFName.CreateTextFile(HTMLname,8,True)

    FName.writeline("<HTML>")
    FName.writeline("<HEAD><TITLE>TEST</TITLE></HEAD>")
    FName.writeline("<BODY bgcolor=white>")
    FName.writeline("MajidOnline.Com")
    FName.writeline("</BODY>")
    FName.writeline("</HTML>")

    	FName.close
    	Set FName = nothing
    End Sub

    if condition Then
    	MakeHTML()
    End if
    Response.Redirect "TestPage.htm"
    Response.End
 
N

nima_isp

Member
omidak گفت:
سلام:
اين يك نمونه: :wink:
کد: 
Dim objFName
    Dim FName
    Dim HTMLname

    Sub MakeHTML()
    	On Error Resume Next
    	HTMLname = "c:\inetpub\whatever\TestPage.htm"
    	Set objFName = server.CreateObject("Scripting.FileSystemObject")
    	Set FName = objFName.CreateTextFile(HTMLname,8,True)

    FName.writeline("<HTML>")
    FName.writeline("<HEAD><TITLE>TEST</TITLE></HEAD>")
    FName.writeline("<BODY bgcolor=white>")
    FName.writeline("MajidOnline.Com")
    FName.writeline("</BODY>")
    FName.writeline("</HTML>")

    	FName.close
    	Set FName = nothing
    End Sub

    if condition Then
    	MakeHTML()
    End if
    Response.Redirect "TestPage.htm"
    Response.End
کلیک کنید تا باز شود...
آقا مرسي ولي يه كمك ديگه بكنيد يعني 2 تا كمك

اول - من بر روي كامپيوتر خودم اين كار رو انجام نميدم Host خريداري كردم

دوم- ميشه يه كاري كرد كه بره به جاي اين
FName.writeline("<HTML>")
FName.writeline("<HEAD><TITLE>TEST</TITLE></HEAD>")
FName.writeline("<BODY bgcolor=white>")
FName.writeline("MajidOnline.Com")
FName.writeline("</BODY>")
FName.writeline("</HTML>")

محتويات يه فايل asp رو بياره كه خروجي اون همون اين كد ها باشه
كمك كنيد لطفا
 
O

omidak

Active Member
سلام:
خواهش ميكنم.
در مورد اولی شما باید از Map.Path("TestFile.html") استفاده کنید.
دومی هم > خوب چطور شما چرا خروجي رو مستقيم از اون فايل ASP دریافت نمیکنید؟ :roll:
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا