تبدیل یک خط کد از vb به aspclassic

[bamzi software]

سلام و خسته نباشید


Dim sw As New StringWriter()من کد بالا رو از زبان VB گرفتم و می خوام به asp classic تبدیل کنم چون این خطا رو میده:



Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/Report_4x/Cnt_login2_events.asp, line 27, column 7
Dim sw As New StringWriter()
------^



ممنون میشم کمکم کنید و بگید که باید چطور بنویسمش..

[alireza_s_84]

در زبان VB Script برای ساخت اشیا از متد CreateObject استفاده میکنیم و واژه کلیدی New نداریم.
ضمنا کلاس StringWriter که شی مورد نظر ماست اگر بصورت یک شی Com رجیستر شده باشه امکان استفاده از اون وجود داره و گرنه نمیتونید از اون نمونه سازی کنید.

[bamzi software]

در زبان VB Script برای ساخت اشیا از متد CreateObject استفاده میکنیم و واژه کلیدی New نداریم.

ممنون


ضمنا کلاس StringWriter که شی مورد نظر ماست اگر بصورت یک شی Com رجیستر شده باشه امکان استفاده از اون وجود داره و گرنه نمیتونید از اون نمونه سازی کنید.

بله، درست گفتید.این کلاس وجود نداره..

من در حقیقت می خوام کد پایین رو به asp classic تبدیل کنم تا بتونم جدولم رو به اکسل تبدیل کنم.هر چی search کردم نتونستم کد asp پیدا کنم..:ناراحت:


Response.Clear()

Response.Buffer = True



Response.AddHeader("content-disposition",

"attachment;filename=GridViewExport.xls")

Response.Charset = ""

Response.ContentType = "application/vnd.ms-excel"



Dim sw As New StringWriter()

Dim hw As New HtmlTextWriter(sw)



GridView1.AllowPaging = False

GridView1.DataBind()




GridView1.HeaderRow.Style.Add("background-color", "#FFFFFF")



GridView1.HeaderRow.Cells(0).Style.Add("background-color", "green")

GridView1.HeaderRow.Cells(1).Style.Add("background-color", "green")

GridView1.HeaderRow.Cells(2).Style.Add("background-color", "green")

GridView1.HeaderRow.Cells(3).Style.Add("background-color", "green")



For i As Integer = 0 To GridView1.Rows.Count - 1

Dim row As GridViewRow = GridView1.Rows(i)


row.BackColor = System.Drawing.Color.White



row.Attributes.Add("class", "textmode")



If i Mod 2 <> 0 Then

row.Cells(0).Style.Add("background-color", "#C2D69B")

row.Cells(1).Style.Add("background-color", "#C2D69B")

row.Cells(2).Style.Add("background-color", "#C2D69B")

row.Cells(3).Style.Add("background-color", "#C2D69B")

End If

Next

GridView1.RenderControl(hw)


Dim style As String = "<style>.textmode{mso-number-format:\@;}</style>"

Response.Write(style)

Response.Output.Write(sw.ToString())

Response.Flush()

Response.End()

خط های دیگه ای از این کد هم قابل اجرا نیست در محیط برنامه نویسی Asp.

ممنون میشم راهنماییم کنید و اگه کد تبدیل به اکسل به زبان Asp دارین برام بذارین یا معادل کد بالا رو به Asp.