麻烦你们能不能帮我把下面的asp代码换成.net c#版代码，并且结果一样。谢谢我很着急，这个是数据库定义的谢谢

dim conn
On Error Resume Next
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AccessPath&"/"&AccessFile)
Conn.Open
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write("<head><meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" /><title>数据库连接出错，请检查连接字串</title></head><body><div align=""center"" style=""width:400px;height:100px;padding: 8px;font-size:9pt;border: 1px solid ThreeDShadow;POSITION:absolute;top:expression((document.body.offsetHeight-100)/2);left:expression((document.body.offsetWidth-400)/2);""><table width=""100%"" height=""100%"" style=""font-size:12px;font-family:Tahoma;""><tr><td align=""center""><strong>数据库连接出错，请检查连接字串</strong></td></tr></table></div></body>")
Response.End
End IfDim SQL,TempVar,siteTitle,InfoTemp '定义常用变量Dim SiteName,SiteUrl,blogPerPage,blog_LogNums,blog_CommNums,blog_MemNums,blog_VisitBaseNums,blog_VisitNums,blog_QuoteNums,blog_GuestbookNums,blog_PageViewNums,Site_TodayDate,TodayVisitNums,YesterdayVisitNums,ArchivingStr,SiderbarCate,SiderbarWhere,MaxemNum,IsCheckComm,DisplayCalendar,TablePageNums,Home_Announce,blogcomm_letter_Num InfoTemp=Application(CookieName&"_blog_Info") IF NOT IsArray(InfoTemp) then
call ReloadBlogInfo
Application.Lock
Application(CookieName&"_blog_VisitNums") = cCur(InfoTemp(7,0))
Application(CookieName&"_today_VisitNums") = cCur(InfoTemp(13,0))
Application.UnLock
End if
SiteName=InfoTemp(1,0)
SiteURL=InfoTemp(2,0)
blogPerPage= cCur(InfoTemp(3,0))
blog_LogNums= cCur(InfoTemp(4,0))
blog_CommNums= cCur(InfoTemp(5,0))
blog_MemNums= cCur(InfoTemp(6,0))
blog_QuoteNums= cCur(InfoTemp(8,0))
blog_VisitBaseNums= cCur(InfoTemp(9,0))
blog_GuestbookNums= cCur(InfoTemp(10,0))
blog_PageViewNums= cCur(InfoTemp(11,0))
Site_TodayDate= InfoTemp(12,0)
TodayVisitNums= cCur(InfoTemp(13,0))
YesterdayVisitNums= cCur(InfoTemp(14,0))
ArchivingStr=InfoTemp(15,0)
IsCheckComm=cCur(InfoTemp(16,0))
DisplayCalendar=cCur(InfoTemp(17,0))
TablePageNums=cCur(InfoTemp(18,0))
MaxemNum=cCur(InfoTemp(19,0))
SiderbarWhere=InfoTemp(20,0)
SiderbarCate=InfoTemp(21,0)
Home_Announce=cCur(InfoTemp(22,0))
blogcomm_letter_Num=InfoTemp(23,0)
blog_VisitNums = Application(CookieName&"_blog_VisitNums") + blog_VisitNums + blog_VisitBaseNums
TodayVisitNums = Application(CookieName&"_today_VisitNums")
dim blogcommLetter,blogcomm_min,blogcomm_max
blogcommLetter=split(blogcomm_letter_Num,"|")
blogcomm_min=int(blogcommLetter(0))
blogcomm_max=int(blogcommLetter(1))
const BlogVer="01P-Blog 1.1"Sub ReloadBlogInfo
Dim blog_Infos,Getinfos
Set blog_Infos=Server.CreateObject("ADODB.Recordset")
SQL="SELECT TOP 1 * FROM blog_Info"
blog_Infos.Open SQL,Conn,1,1
SQLQueryNums=SQLQueryNums+1
If blog_Infos.EOF And blog_Infos.BOF Then
Response.Write("站点出错，请检查数据库中的站点基本信息设置……")
Response.End
Else
Getinfos = blog_Infos.GetRows(1)
Application.Lock
Application(CookieName&"_blog_Info") = Getinfos
Application.UnLock
InfoTemp = Application(CookieName&"_blog_Info")

End if
blog_Infos.Close
Set blog_Infos=Nothing
End subDim Guest_IP
Guest_IP=Replace(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),"'","")
If Guest_IP=Empty Then Guest_IP=Replace(Request.ServerVariables("REMOTE_ADDR"),"'","")