Line 1: #ExternalChecksum("D:\WebsiteMK\mk.net\store\index.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","0975ED0647E68C30D1D9E78A7533FF5BDBA7F9B1")
Line 2: '------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:4.0.30319.42000
Line 6: '
Line 7: ' Changes to this file may cause incorrect behavior and will be lost if
Line 8: ' the code is regenerated.
Line 9: ' </auto-generated>
Line 10: '------------------------------------------------------------------------------
Line 11:
Line 12: Option Strict Off
Line 13: Option Explicit On
Line 14:
Line 15: Imports Microsoft.VisualBasic
Line 16: Imports System
Line 17: Imports System.Collections
Line 18: Imports System.Collections.Specialized
Line 19: Imports System.Configuration
Line 20: Imports System.Data
Line 21: Imports System.Data.SqlClient
Line 22: Imports System.IO
Line 23: Imports System.Net
Line 24: Imports System.Net.Mail
Line 25: Imports System.Text
Line 26: Imports System.Text.RegularExpressions
Line 27: Imports System.Web
Line 28: Imports System.Web.Caching
Line 29: Imports System.Web.Profile
Line 30: Imports System.Web.Security
Line 31: Imports System.Web.SessionState
Line 32: Imports System.Web.UI
Line 33: Imports System.Web.UI.HtmlControls
Line 34: Imports System.Web.UI.WebControls
Line 35: Imports System.Web.UI.WebControls.WebParts
Line 36: Imports System.Xml
Line 37:
Line 38: Namespace ASP
Line 39:
Line 40: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 41: Public Class store_index_aspx
Line 42: Inherits Global.System.Web.UI.Page
Line 43: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 44:
Line 45: Private Shared __initialized As Boolean
Line 46:
Line 47: Private Shared __stringResource As Object
Line 48:
Line 49: Private Shared __fileDependencies As Object
Line 50:
Line 51:
Line 52: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",129)
Line 53:
Line 54: Dim RowsCount As integer=0
Line 55: Dim pageIndex as Integer=1
Line 56:
Line 57: Public Function GetBookList() As DataTable
Line 58: Dim sSql As String
Line 59:
Line 60: sSql="SELECT TOP 100000 ID,Code, Title, ImageSmall , ImageLarge ,Producer,Author AS AuthorName,Price,Discount,SalePrice,ShopID,IsNew,IsStock,CONVERT(NVARCHAR,IssueDate, 103) AS IssueDate,Description,'' AS SourceBy FROM Products WHERE {0} ORDER BY IsStock DESC, ID DESC"
Line 61: if request("Review")="1" then
Line 62:
Line 63: sSql="SELECT TOP 100000 B.ID,B.Code, B.Title, B.ImageSmall , B.ImageLarge ,B.Producer,B.Author AS AuthorName,B.Price,B.Discount,B.SalePrice,B.ShopID,B.IsNew,B.IsStock,CONVERT(NVARCHAR,IssueDate, 103) AS IssueDate,A.Review AS Description, A.SourceBy FROM ProductReview A, Products B WHERE A.Code=B.Code AND {0} ORDER BY IsStock DESC,CAST( B.Code AS Numeric) DESC"
Line 64: end if
Line 65:
Line 66: Dim sWhere As String=" 1=1 "
Line 67: Dim bookKinds As String()={"IsSole","IsNew","IsBestSell","IsPublished"}
Line 68:
Line 69: If Request("bookKind")<>"" then
Line 70: dim iName As Integer=Request("bookKind")
Line 71: sWhere=sWhere & String.Format(" AND {0}=1" ,bookKinds(iName))
Line 72: end if
Line 73:
Line 74: If Request("discount")<>"" then
Line 75: if IsNumeric(Request("discount")) then
Line 76: Dim sDiscount=Request("discount")
Line 77: sDiscount=Replace(sDiscount,"'","''")
Line 78: if request("more")<>""
Line 79: sWhere=sWhere & " AND (discount>=" & sDiscount & ")"
Line 80: else
Line 81: sWhere=sWhere & " AND (discount=" & sDiscount & ")"
Line 82: end if
Line 83: else
Line 84: sWhere=sWhere & " AND (discount>0)"
Line 85: end if
Line 86: sSql= Replace(sSql,"ORDER BY ", "ORDER BY Discount DESC,")
Line 87:
Line 88: end if
Line 89:
Line 90:
Line 91: If Request("categoryID")<>"" then sWhere=sWhere & String.Format(" AND CategoryID={0}" ,Request("categoryID"))
Line 92: If Request("eventID")<>"" then sWhere=sWhere & String.Format(" AND SaleOnEvent={0}" ,Request("eventID"))
Line 93:
Line 94: Dim sSearchText As String=trim(Replace(Request("searchText"),"'","''"))
Line 95:
Line 96: Dim hasUnicodeChar As Boolean
Line 97: If Request("shopID")<>"" then
Line 98: Dim idxShop AS Integer=Request("shopID")
Line 99: Select Case idxShop
Line 100: Case -3 'All
Line 101: Case -1 'ISBN
Line 102: sWhere=sWhere & String.Format(" AND Code LIKE N'%{0}%'" ,sSearchText )
Line 103: case -2 'Producer
Line 104: sWhere=sWhere & String.Format(" AND Producer LIKE N'%{0}%'" ,sSearchText )
Line 105: Case 0 'Author
Line 106: hasUnicodeChar =Helper.IsUnicodeString(sSearchText)
Line 107: If hasUnicodeChar then sWhere=sWhere & String.Format(" AND Author LIKE N'%{0}%'" ,sSearchText ) else sWhere=sWhere & String.Format(" AND AuthorClear LIKE N'%{0}%'" ,sSearchText )
Line 108: Case Else
Line 109: sWhere=sWhere & String.Format(" AND CategoryID IN (SELECT ID FROM Categories WHERE ShopID={0})" ,Request("shopID"))
Line 110: End Select
Line 111: End If
Line 112:
Line 113:
Line 114: If Request("searchText")<>"" AND Request("shopID")<>"-1" AND Request("shopID")<>"0" AND Request("shopID")<>"-2" then
Line 115: hasUnicodeChar =Helper.IsUnicodeString(sSearchText)
Line 116: If hasUnicodeChar then sWhere=sWhere & String.Format(" AND (Title LIKE N'%{0}%' OR Author LIKE N'%{0}%') " ,sSearchText ) else sWhere=sWhere & String.Format(" AND (TitleClear LIKE N'%{0}%' OR AuthorClear LIKE N'%{0}%')" ,sSearchText )
Line 117:
Line 118: End If
Line 119:
Line 120:
Line 121:
Line 122: sSql=String.Format(sSql,sWhere)
Line 123:
Line 124: Dim sCount As String=Helper.GetSqlCount(sSql)
Line 125: RowsCount=sCount
Line 126: Dim sPage As String=0
Line 127: Dim sPageSize As String=15
Line 128: If Request("pageIndex")<>"" then sPage=Request("pageIndex")
Line 129:
Line 130:
Line 131:
Line 132: Dim t As DataTable =Helper.GetSqlPage(sSql, "ID",sPage,sPageSize, "Products")
Line 133:
Line 134:
Line 135: Helper.ValidateImagePath(Server.MapPath(".."),t)
Line 136:
Line 137: return t
Line 138: End Function
Line 139:
Line 140:
Line 141:
Line 142: #End ExternalSource
Line 143:
Line 144:
Line 145: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",644)
Line 146:
Line 147:
Line 148: Public Function menuCss(v as String) As String
Line 149: if request("q")=v then return "tabSelected"
Line 150: if v<>"" and request("q")<>"" then if v.indexOf(request("q"))>=0 then return "tabSelected"
Line 151: return "tabNormal"
Line 152: End Function
Line 153:
Line 154: Public Function Valid(v As String) As String
Line 155: Return Replace(v,"'","''")
Line 156: End Function
Line 157: Public Function parseAuthorLink(sText As Object, optional url As String="index.aspx?ss&ShopID=0", optional passTest as Boolean=false) As string
Line 158: if sText Is System.DbNull.Value OrElse sText="" then return ""
Line 159: Dim s As string()=Replace(sText,";",",").Split(".")
Line 160: Dim sItem as New ArrayList
Line 161: For i as Integer=0 to s.Length-1
Line 162: if len(trim(s(i)))>3 or passTest then
Line 163: Dim s2 As String()=s(i).Split(",")
Line 164: For each sA As String in s2
Line 165: Dim sx As String=sA
Line 166: if sA.Split(":").Length>1 then sx=sA.Split(":")(1)
Line 167: 'Dim xItem As String=Trim(sx.Split("(")(0).Split("-")(0))
Line 168: 'Dim xItem As String=Trim(sx.Split("(")(0).Split("-")(0))
Line 169: For each sItemx As string in sx.Split("-")
Line 170: sItem.Add(Trim(sItemx.Split("(")(0)))
Line 171: Next
Line 172:
Line 173: Next
Line 174: End If
Line 175: Next
Line 176:
Line 177: Dim sResult As String=sText
Line 178: For each ss As String in sItem
Line 179: If len(ss)>3 or passTest then
Line 180: Dim sLink As String=String.Format("<a href='{2}&searchText={1}'>{0}</a>", ss,server.UrlEncode(ss),url)
Line 181: sResult=Replace(sResult,ss, sLink)
Line 182:
Line 183: End if
Line 184: 'Make link
Line 185: 'sResult=sResult & ss
Line 186: Next
Line 187: return sResult
Line 188: End Function
Line 189:
Line 190:
Line 191: #End ExternalSource
Line 192:
Line 193:
Line 194: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 195: Public Sub New()
Line 196: MyBase.New
Line 197: Dim dependencies() As String
Line 198: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/store/index.aspx"
Line 199: If (Global.ASP.store_index_aspx.__initialized = false) Then
Line 200: Global.ASP.store_index_aspx.__stringResource = Me.ReadStringResource
Line 201: dependencies = New String(16) {}
Line 202: dependencies(0) = "~/store/HelpFreight.aspx"
Line 203: dependencies(1) = "~/store/HelpShipment.aspx"
Line 204: dependencies(2) = "~/store/FindDemand.aspx"
Line 205: dependencies(3) = "~/store/HomeContent.aspx"
Line 206: dependencies(4) = "~/store/HelpRule.aspx"
Line 207: dependencies(5) = "~/store/index.aspx"
Line 208: dependencies(6) = "~/store/Cart.aspx"
Line 209: dependencies(7) = "~/store/About.aspx"
Line 210: dependencies(8) = "~/store/View.aspx"
Line 211: dependencies(9) = "~/store/HelpPayment.aspx"
Line 212: dependencies(10) = "~/store/ConfirmOrder.aspx"
Line 213: dependencies(11) = "~/store/Payment.aspx"
Line 214: dependencies(12) = "~/store/Search.aspx"
Line 215: dependencies(13) = "~/store/HelpTime.aspx"
Line 216: dependencies(14) = "~/store/Download.aspx"
Line 217: dependencies(15) = "~/store/Contact.aspx"
Line 218: dependencies(16) = "~/store/CheckOut.aspx"
Line 219: Global.ASP.store_index_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 220: Global.ASP.store_index_aspx.__initialized = true
Line 221: End If
Line 222: Me.Server.ScriptTimeout = 30000000
Line 223: End Sub
Line 224:
Line 225: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 226: Get
Line 227: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 228: End Get
Line 229: End Property
Line 230:
Line 231: Protected Overrides ReadOnly Property SupportAutoEvents() As Boolean
Line 232: Get
Line 233: Return false
Line 234: End Get
Line 235: End Property
Line 236:
Line 237: Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Line 238: Get
Line 239: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 240: End Get
Line 241: End Property
Line 242:
Line 243: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 244: Private Sub __BuildControlTree(ByVal __ctrl As store_index_aspx)
Line 245:
Line 246: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",1)
Line 247: Me.InitializeCulture
Line 248:
Line 249: #End ExternalSource
Line 250: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 251: End Sub
Line 252:
Line 253: Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 254:
Line 255: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",9)
Line 256:
Line 257: Response.Redirect("/store2/index.aspx")
Line 258: Response.End
Line 259:
Line 260: Response.Buffer=true
Line 261:
Line 262: Dim slideFiles As Object=My.Computer.FileSystem.GetFiles(MapPath("slides"))
Line 263: Dim shopID As String=Request("ShopID")
Line 264: If shopID="" then shopID=1
Line 265: Dim listShopID As Integer=shopID
Line 266: if listShopID<=0 then listShopID=1
Line 267:
Line 268:
Line 269: #End ExternalSource
Line 270: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3"& _
Line 271: ".org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<html xmlns=""http://www.w3.org/199"& _
Line 272: "9/xhtml"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<head>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<meta http-equiv=""Content-Type"" content=""text/html; charse"& _
Line 273: "t=utf-8"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 274:
Line 275: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",27)
Line 276:
Line 277: Dim pageTitle as String="Cua hang Sach truc tuyen, Bang Dia, CD Nhac, Van Phong Pham"
Line 278: if trim(Request("ISBN"))<>"" then
Line 279: Try
Line 280: pageTitle=Query.From("SELECT Title FROM Products WHERE Code=@p1", Request("ISBN")).Rows(0)(0)
Line 281:
Line 282: Catch ex As Exception
Line 283:
Line 284: End Try
Line 285: End if
Line 286:
Line 287:
Line 288:
Line 289:
Line 290: #End ExternalSource
Line 291: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<title>Minh Khai Book Store - ")
Line 292:
Line 293: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",40)
Line 294: __w.Write(pageTitle)
Line 295:
Line 296:
Line 297: #End ExternalSource
Line 298: Me.WriteUTF8ResourceString(__w, 119674, 4615, false)
Line 299:
Line 300: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",200)
Line 301: __w.Write(menuCss(""))
Line 302:
Line 303:
Line 304: #End ExternalSource
Line 305: __w.Write("""><a href=""index.aspx"">Trang chủ</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li class=""")
Line 306:
Line 307: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",201)
Line 308: __w.Write(menuCss("help,helpshipment,helprule,helpTime,helpFreight"))
Line 309:
Line 310:
Line 311: #End ExternalSource
Line 312: __w.Write("""><a href=""index.aspx?q=help"">Hướng dẫn mua hàng</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li class=""")
Line 313:
Line 314: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",202)
Line 315: __w.Write(menuCss("download"))
Line 316:
Line 317:
Line 318: #End ExternalSource
Line 319: __w.Write("""><a href=""index.aspx?q=download"">Download</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li class=""tabNorm"& _
Line 320: "al""><a href=""ymsgr:sendim?minhkhais.g_2306"">Hỗ trợ trực tuyến</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 321: " <li class=""")
Line 322:
Line 323: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",204)
Line 324: __w.Write(menuCss("contact"))
Line 325:
Line 326:
Line 327: #End ExternalSource
Line 328: __w.Write("""><a href=""index.aspx?q=contact"">Liên hệ</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li class=""")
Line 329:
Line 330: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",205)
Line 331: __w.Write(menuCss("about"))
Line 332:
Line 333:
Line 334: #End ExternalSource
Line 335: __w.Write("""><a href=""index.aspx?q=about"">Giới thiệu</a></li>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <li class=""")
Line 336:
Line 337: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",206)
Line 338: __w.Write(menuCss("ds"))
Line 339:
Line 340:
Line 341: #End ExternalSource
Line 342: Me.WriteUTF8ResourceString(__w, 124289, 303, false)
Line 343:
Line 344: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",214)
Line 345: 'Query Shop name
Line 346: Dim t as DataTable
Line 347: Dim ShopName As String =Query.From("SELECT * FROM Shops WHERE ID=@p1",listshopID).Rows(0)("Name")
Line 348:
Line 349:
Line 350: #End ExternalSource
Line 351:
Line 352: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",219)
Line 353: if menuCss("")="tabSelected" then
Line 354:
Line 355: #End ExternalSource
Line 356: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!-- submenu 1 -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div style=""width:100%; text-align:left;padding-left:20px"& _
Line 357: ";padding-top:2px; padding-bottom:2px""> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 358:
Line 359: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",223)
Line 360: t=Query.From("SELECT * FROM Shops WHERE Active=1")
Line 361: For each r as DataRow in t.Rows
Line 362:
Line 363: #End ExternalSource
Line 364: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""linkitem""> <a style=""font-size:12px"" href=""index.aspx?sh"& _
Line 365: "opID=")
Line 366:
Line 367: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",225)
Line 368: __w.Write(r("ID"))
Line 369:
Line 370:
Line 371: #End ExternalSource
Line 372: __w.Write(""">")
Line 373:
Line 374: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",225)
Line 375: __w.Write(r("Name"))
Line 376:
Line 377:
Line 378: #End ExternalSource
Line 379: __w.Write("</a></span> |"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 380:
Line 381: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",226)
Line 382: Next
Line 383:
Line 384: #End ExternalSource
Line 385: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br><br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 386:
Line 387: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",229)
Line 388: end if
Line 389:
Line 390: #End ExternalSource
Line 391: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!-- submenu 2 -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 392:
Line 393: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",233)
Line 394: if menuCss("help,helpshipment,helprule,helpTime,helpFreight")="tabSelected" then
Line 395:
Line 396: #End ExternalSource
Line 397: Me.WriteUTF8ResourceString(__w, 124592, 425, false)
Line 398:
Line 399: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",239)
Line 400: end if
Line 401:
Line 402: #End ExternalSource
Line 403: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!-- Left Column -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div style=""float:left;padding-top:10px;width:20%; "& _
Line 404: "min-width:210px"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""shopHeader"" style=""padding-bottom:5px;cursor:poin"& _
Line 405: "ter; width:300px"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<img src=""images/arrow.png"" style=""float:left"" /><h3>")
Line 406:
Line 407: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",246)
Line 408: __w.Write(ShopName)
Line 409:
Line 410:
Line 411: #End ExternalSource
Line 412: Me.WriteUTF8ResourceString(__w, 125017, 476, false)
Line 413:
Line 414: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",258)
Line 415:
Line 416: t =Query.From("SELECT * FROM Categories WHERE ShopID=@p1 ORDER BY Name",listshopID)
Line 417: For each r as DataRow in t.Rows
Line 418:
Line 419:
Line 420: #End ExternalSource
Line 421: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<a href=""index.aspx?CategoryID=")
Line 422:
Line 423: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",263)
Line 424: __w.Write(r("ID"))
Line 425:
Line 426:
Line 427: #End ExternalSource
Line 428: __w.Write("&ShopID=")
Line 429:
Line 430: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",263)
Line 431: __w.Write(r("ShopID"))
Line 432:
Line 433:
Line 434: #End ExternalSource
Line 435: __w.Write(""">")
Line 436:
Line 437: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",263)
Line 438: __w.Write(r("Name"))
Line 439:
Line 440:
Line 441: #End ExternalSource
Line 442: __w.Write("</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 443:
Line 444: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",264)
Line 445: Next
Line 446:
Line 447: #End ExternalSource
Line 448: Me.WriteUTF8ResourceString(__w, 125493, 1090, false)
Line 449:
Line 450: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",283)
Line 451:
Line 452: t=Query.From("SELECT TOP 1 Value FROM Config WHERE Name='News' ")
Line 453: If t.Rows.Count>0 then Response.Write(Helper.ClearDataFont(t.Rows(0)(0)) )
Line 454:
Line 455:
Line 456: #End ExternalSource
Line 457: Me.WriteUTF8ResourceString(__w, 126583, 864, false)
Line 458:
Line 459: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",309)
Line 460: if request("SearchText")="" then response.Write("Từ khóa ...") else response.Write(request("SearchText"))
Line 461:
Line 462: #End ExternalSource
Line 463: Me.WriteUTF8ResourceString(__w, 127447, 442, false)
Line 464:
Line 465: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",312)
Line 466:
Line 467: t=Query.From("SELECT * FROM (SELECT ID,Name FROM Shops WHERE Active=1 UNION SELECT 0 AS ID, N'Tác giả' AS Name UNION SELECT -1 AS ID, N'ISBN' AS Name UNION SELECT -2 AS ID, N'Nhà Xuất Bản' AS Name UNION SELECT -3 AS ID, N'Tên/Tựa' AS Name ) items")
Line 468: For each r as DataRow in t.Rows
Line 469:
Line 470:
Line 471: #End ExternalSource
Line 472: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <option value=""")
Line 473:
Line 474: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",316)
Line 475: __w.Write(r("ID"))
Line 476:
Line 477:
Line 478: #End ExternalSource
Line 479: __w.Write(""" ")
Line 480:
Line 481: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",316)
Line 482: if r("ID")=ShopID then Response.Write("selected")
Line 483:
Line 484: #End ExternalSource
Line 485: __w.Write("> ")
Line 486:
Line 487: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",316)
Line 488: __w.Write(r("Name"))
Line 489:
Line 490:
Line 491: #End ExternalSource
Line 492: __w.Write(" </option>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 493:
Line 494: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",317)
Line 495: Next
Line 496:
Line 497: #End ExternalSource
Line 498: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&" </select>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div style=""padding-top:10px; padding"& _
Line 499: "-left:10px; clear:both; height:auto""> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 500:
Line 501: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",327)
Line 502: Select case request("q")
Line 503: case "download"
Line 504:
Line 505: #End ExternalSource
Line 506:
Line 507: #ExternalSource("D:\WebsiteMK\mk.net\store\Download.aspx",1)
Line 508: If true then ' make all declare variable is local
Line 509:
Line 510: #End ExternalSource
Line 511: Me.WriteUTF8ResourceString(__w, 127889, 417, false)
Line 512:
Line 513: #ExternalSource("D:\WebsiteMK\mk.net\store\Download.aspx",11)
Line 514:
Line 515: Dim rootPath As String = Server.MapPath("..") & "\download"
Line 516: Dim sContent AS String=""
Line 517: For Each s As String In My.Computer.FileSystem.GetFiles(rootPath)
Line 518: sContent = sContent & String.Format("<span class='linkitem'><a href='../download/{0}'>{1}</a></span><br/>", IO.Path.GetFileName(s), IO.Path.GetFileNameWithoutExtension(s))
Line 519: Next
Line 520: Response.Write(sContent )
Line 521:
Line 522:
Line 523: #End ExternalSource
Line 524: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<div style=""background-color:#f4efef;width:auto; padding-bottom:3px; p"& _
Line 525: "adding-top:2px; height:16px"" >"&Global.Microsoft.VisualBasic.ChrW(9)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<b>2. Đính chính sách </b>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 526: " "&Global.Microsoft.VisualBasic.ChrW(9)&"</div> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 527:
Line 528: #ExternalSource("D:\WebsiteMK\mk.net\store\Download.aspx",24)
Line 529:
Line 530: rootPath = Server.MapPath("..") & "\dinhchinh"
Line 531: sContent =""
Line 532: For Each s As String In My.Computer.FileSystem.GetFiles(rootPath)
Line 533: sContent = sContent & String.Format("<span class='linkitem'><a href='../dinhchinh/{0}'>{1}</a></span><br/>", IO.Path.GetFileName(s), IO.Path.GetFileNameWithoutExtension(s))
Line 534: Next
Line 535: Response.Write(sContent )
Line 536:
Line 537:
Line 538: #End ExternalSource
Line 539: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 540:
Line 541: #ExternalSource("D:\WebsiteMK\mk.net\store\Download.aspx",35)
Line 542: end if
Line 543:
Line 544: #End ExternalSource
Line 545:
Line 546: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",330)
Line 547: case "helppayment","help"
Line 548:
Line 549: #End ExternalSource
Line 550: Me.WriteUTF8ResourceString(__w, 128306, 6349, false)
Line 551:
Line 552: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",332)
Line 553: case "helpshipment"
Line 554:
Line 555: #End ExternalSource
Line 556: Me.WriteUTF8ResourceString(__w, 134655, 2152, false)
Line 557:
Line 558: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",334)
Line 559: case "view"
Line 560:
Line 561: #End ExternalSource
Line 562:
Line 563: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",1)
Line 564: If true then ' make all declare variable is local
Line 565:
Line 566: #End ExternalSource
Line 567:
Line 568: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",3)
Line 569:
Line 570: Dim isbn as String=Request("ISBN")
Line 571: Dim tItem as DataTable=Query.From("SELECT * FROM Products WHERE Code=CAST(@p1 AS NVARCHAR)", isbn)
Line 572: Helper.ValidateImagePath(Server.MapPath(".."),tItem)
Line 573: Dim r As DataRow
Line 574: if tItem.Rows.Count>0 then r =tItem.Rows(0)
Line 575: if r is nothing then response.redirect("index.aspx")
Line 576:
Line 577: Dim rHeader As DataRow=Query.From("SELECT Categories.Name AS CatName,Shops.Name As ShopName, Categories.ID As CatID, Categories.ShopID FROM Categories,Shops WHERE Shops.ID= Categories.ShopID AND Categories.ID=@p1",r("CategoryID")).Rows(0)
Line 578:
Line 579:
Line 580:
Line 581: #End ExternalSource
Line 582: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div style=""padding-top:10px; padding-left:10px; clear:both; height:auto"""& _
Line 583: "> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<div style=""cursor:pointer;width:auto;border-bottom:#d6d6d6 1px dotted;"" >"&Global.Microsoft.VisualBasic.ChrW(9)& _
Line 584: ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" <h3>")
Line 585:
Line 586: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",17)
Line 587: __w.Write(rHeader("ShopName"))
Line 588:
Line 589:
Line 590: #End ExternalSource
Line 591: __w.Write(" > <span class=linkitem><a href=""index.aspx?CategoryID=")
Line 592:
Line 593: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",17)
Line 594: __w.Write(rHeader("CatID"))
Line 595:
Line 596:
Line 597: #End ExternalSource
Line 598: __w.Write("&ShopID=")
Line 599:
Line 600: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",17)
Line 601: __w.Write(r("ShopID"))
Line 602:
Line 603:
Line 604: #End ExternalSource
Line 605: __w.Write("""> ")
Line 606:
Line 607: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",17)
Line 608: __w.Write(rHeader("CatName"))
Line 609:
Line 610:
Line 611: #End ExternalSource
Line 612: __w.Write(" </span></a></h3>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table style=""padding-top:10px; padding-botto"& _
Line 613: "m:5px""> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<tr><td valign=""top"" width=""120px"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<img src=""http://minhkhai.vn/"& _
Line 614: "")
Line 615:
Line 616: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",25)
Line 617: __w.Write(r("ImageLarge"))
Line 618:
Line 619:
Line 620: #End ExternalSource
Line 621: __w.Write(""" class=""frameLarge"" ")
Line 622:
Line 623: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",25)
Line 624: if r("IsStock") IsNot System.DbNull.Value AndAlso not r("IsStock") then Response.Write("style='opacity:0.2'")
Line 625:
Line 626: #End ExternalSource
Line 627: __w.Write("/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 628:
Line 629: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",28)
Line 630: if r("IsSole") isNot System.DbNull.Value AndAlso r("IsSole") AndAlso My.Computer.FileSystem.DirectoryExists(Server.MapPath("papers/" & r("Code"))) then
Line 631:
Line 632: #End ExternalSource
Line 633: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<a href=""")
Line 634:
Line 635: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",29)
Line 636: __w.Write("papers/" & r("Code") & "/" & r("Code") & ".swf")
Line 637:
Line 638:
Line 639: #End ExternalSource
Line 640: __w.Write("""><img src=""images/eye.png"" style=""position:relative; left:0px; top:-130px""/></a>"& _
Line 641: ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 642:
Line 643: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",30)
Line 644: End if
Line 645:
Line 646: #End ExternalSource
Line 647:
Line 648: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",32)
Line 649: if r("IsNew") isNot System.DbNull.Value AndAlso r("IsNew") then
Line 650:
Line 651: #End ExternalSource
Line 652: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<img src=""images/new.png"" style=""position:relative; left:0px; top:-32px""/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 653:
Line 654: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",34)
Line 655: End if
Line 656:
Line 657: #End ExternalSource
Line 658:
Line 659: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",36)
Line 660: if (r("IsPublished") is System.DbNull.Value OrElse r("IsPublished")=1) and False then
Line 661:
Line 662: #End ExternalSource
Line 663: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<img src=""images/sachsph.gif"" width=""72"" height=""72"" style=""position:relative; "& _
Line 664: "left:0px; top:0px""/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 665:
Line 666: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",38)
Line 667: End if
Line 668:
Line 669: #End ExternalSource
Line 670: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</td><td valign=""top"" width=""80%""><span style=""color:black""><B>")
Line 671:
Line 672: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",44)
Line 673: __w.Write(r("Title"))
Line 674:
Line 675:
Line 676: #End ExternalSource
Line 677: __w.Write("</B>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 678:
Line 679: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",45)
Line 680: if r("IsStock") IsNot System.DbNull.Value AndAlso not r("IsStock") then
Line 681:
Line 682: #End ExternalSource
Line 683: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <span style=""color:#F00; font-weight:bold""> (Hết hàng) </span>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 684:
Line 685: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",47)
Line 686: end if
Line 687:
Line 688: #End ExternalSource
Line 689: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 690:
Line 691: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",49)
Line 692: __w.Write(parseAuthorLink(r("Author")))
Line 693:
Line 694:
Line 695: #End ExternalSource
Line 696: __w.Write("</span> <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<b>ISBN: ")
Line 697:
Line 698: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",50)
Line 699: __w.Write(r("Code"))
Line 700:
Line 701:
Line 702: #End ExternalSource
Line 703: __w.Write("</b><br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 704:
Line 705: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",51)
Line 706: if r("IssueDate") isnot System.DbNull.Value then
Line 707:
Line 708: #End ExternalSource
Line 709:
Line 710: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",52)
Line 711: if r("ShopID")=1 then
Line 712:
Line 713: #End ExternalSource
Line 714: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<b>Xuất bản: </b>")
Line 715:
Line 716: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",53)
Line 717: __w.Write(Month(r("IssueDate")) & "/" & Year(r("IssueDate")) )
Line 718:
Line 719:
Line 720: #End ExternalSource
Line 721: __w.Write(" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<b>Trọng lượng: </b>")
Line 722:
Line 723: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",54)
Line 724: __w.Write(r("Weight"))
Line 725:
Line 726:
Line 727: #End ExternalSource
Line 728: __w.Write(" gr<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<b>NXB: </b> ")
Line 729:
Line 730: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",55)
Line 731: __w.Write(parseAuthorLink(Helper.emptyNull(r("Producer")),"index.aspx?ss&ShopID=-2", true))
Line 732:
Line 733:
Line 734: #End ExternalSource
Line 735: __w.Write("<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<b>Số Trang: </b>")
Line 736:
Line 737: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",56)
Line 738: __w.Write(r("Spec"))
Line 739:
Line 740:
Line 741: #End ExternalSource
Line 742: __w.Write("<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 743:
Line 744: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",58)
Line 745: else
Line 746:
Line 747: #End ExternalSource
Line 748: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<b>Phát hành: </b>")
Line 749:
Line 750: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",59)
Line 751: __w.Write(Month(r("IssueDate")) & "/" & Year(r("IssueDate")) )
Line 752:
Line 753:
Line 754: #End ExternalSource
Line 755: __w.Write(" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<b>Trọng lượng: </b>")
Line 756:
Line 757: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",60)
Line 758: __w.Write(r("Weight"))
Line 759:
Line 760:
Line 761: #End ExternalSource
Line 762: __w.Write(" gr<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 763:
Line 764: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",61)
Line 765: __w.Write(r("Producer"))
Line 766:
Line 767:
Line 768: #End ExternalSource
Line 769: __w.Write("<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 770:
Line 771: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",62)
Line 772: __w.Write(r("Spec"))
Line 773:
Line 774:
Line 775: #End ExternalSource
Line 776: __w.Write("<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 777:
Line 778: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",64)
Line 779: end if
Line 780:
Line 781: #End ExternalSource
Line 782:
Line 783: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",67)
Line 784: end if
Line 785:
Line 786: #End ExternalSource
Line 787:
Line 788: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",68)
Line 789: if r("Discount")>0 then
Line 790:
Line 791: #End ExternalSource
Line 792: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<b>Giá bìa</b>: <STRIKE> <span style=""font-weight:bold"">")
Line 793:
Line 794: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",69)
Line 795: __w.Write(Format(r("SalePrice"),"###,###,###,###"))
Line 796:
Line 797:
Line 798: #End ExternalSource
Line 799: __w.Write(" đ</span></STRIKE><b> (-")
Line 800:
Line 801: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",69)
Line 802: __w.Write(r("Discount"))
Line 803:
Line 804:
Line 805: #End ExternalSource
Line 806: __w.Write("%)</b><br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 807:
Line 808: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",70)
Line 809: End if
Line 810:
Line 811: #End ExternalSource
Line 812: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<b>Giá bán: </b><span style=""color:#8a3c3d; font-size:medium; font-weight:bol"& _
Line 813: "d"">")
Line 814:
Line 815: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",72)
Line 816: __w.Write(Format(r("Price"),"###,###,###,###"))
Line 817:
Line 818:
Line 819: #End ExternalSource
Line 820: __w.Write(" đ</span><br /><br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 821:
Line 822: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",75)
Line 823: if r("IsStock") then
Line 824:
Line 825: #End ExternalSource
Line 826: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<a href=""index.aspx?q=cart&act=take&isbn=")
Line 827:
Line 828: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",76)
Line 829: __w.Write(r("Code"))
Line 830:
Line 831:
Line 832: #End ExternalSource
Line 833: __w.Write("""><img src=""images/buynow.jpg"" style=""cursor:pointer""/> </a> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 834:
Line 835: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",78)
Line 836: if r("Discount")>0 then
Line 837:
Line 838: #End ExternalSource
Line 839: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <img src=""images/p")
Line 840:
Line 841: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",79)
Line 842: __w.Write(r("Discount"))
Line 843:
Line 844:
Line 845: #End ExternalSource
Line 846: __w.Write(".png"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 847:
Line 848: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",80)
Line 849: end if
Line 850:
Line 851: #End ExternalSource
Line 852:
Line 853: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",81)
Line 854: end if
Line 855:
Line 856: #End ExternalSource
Line 857: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 858:
Line 859: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",88)
Line 860: 'Youtube video
Line 861: if r("Youtube") IsNot System.DbNull.Value AndAlso r("Youtube")<>"" then
Line 862:
Line 863:
Line 864: #End ExternalSource
Line 865: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<td colspan=""2"" align=""center"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 866:
Line 867: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",93)
Line 868: __w.Write(r("Youtube"))
Line 869:
Line 870:
Line 871: #End ExternalSource
Line 872: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 873:
Line 874: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",96)
Line 875: end if
Line 876:
Line 877: #End ExternalSource
Line 878: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<td colspan=""2"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 879:
Line 880: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",101)
Line 881: __w.Write(Helper.ClearDataFont(r("Description")))
Line 882:
Line 883:
Line 884: #End ExternalSource
Line 885: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 886:
Line 887: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",106)
Line 888:
Line 889: Dim tReview As DataTable=Query.From("SELECT * FROM ProductReview WHERE Code=@p1",isbn)
Line 890: if tReview.Rows.Count>0 then
Line 891:
Line 892:
Line 893: #End ExternalSource
Line 894: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div style=""cursor:pointer;width:auto;border-bottom:#d6d6d6 1px dotted"& _
Line 895: ";"" >"&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" <h3><span class=""linkitem""><a name=""review"" href=""index.aspx?rev"& _
Line 896: "iew=1"">BÁO CHÍ GIỚI THIỆU</a></span></h3>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 897:
Line 898: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",114)
Line 899:
Line 900: For each rReview in tReview.Rows
Line 901: if rReview("SourceBy")<>"" then
Line 902:
Line 903: #End ExternalSource
Line 904: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (Nguồn: <b>")
Line 905:
Line 906: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",117)
Line 907: __w.Write(rReview("SourceBy"))
Line 908:
Line 909:
Line 910: #End ExternalSource
Line 911: __w.Write("</b>)<br /> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 912:
Line 913: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",118)
Line 914: End If
Line 915:
Line 916: #End ExternalSource
Line 917:
Line 918: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",119)
Line 919: __w.Write(rReview("InputDate"))
Line 920:
Line 921:
Line 922: #End ExternalSource
Line 923: __w.Write(" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 924:
Line 925: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",120)
Line 926: __w.Write(Helper.ClearDataFont(rReview("Review")))
Line 927:
Line 928:
Line 929: #End ExternalSource
Line 930: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 931:
Line 932: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",122)
Line 933: Next
Line 934: End if
Line 935:
Line 936:
Line 937: #End ExternalSource
Line 938:
Line 939: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",126)
Line 940:
Line 941: Dim tRefs As DataTable =Query.From("SELECT Code, CodeRelated, (SELECT TOP 1 Title FROM Products WHERE Code=ProductRefs.CodeRelated) AS Title,(SELECT TOP 1 ImageSmall FROM Products WHERE Code=ProductRefs.CodeRelated) AS ImageSmall,(SELECT TOP 1 ImageLarge FROM Products WHERE Code=ProductRefs.CodeRelated) AS ImageLarge,(SELECT TOP 1 Description FROM Products WHERE Code=ProductRefs.CodeRelated) AS Description,(SELECT TOP 1 Author FROM Products WHERE Code=ProductRefs.CodeRelated) AS Author FROM ProductRefs WHERE Code=@p1", ISBN)
Line 942:
Line 943:
Line 944: #End ExternalSource
Line 945:
Line 946: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",130)
Line 947: if tRefs.Rows.Count>0 then
Line 948: Helper.ValidateImagePath(Server.MapPath(".."),tRefs)
Line 949:
Line 950:
Line 951: #End ExternalSource
Line 952: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div style=""cursor:pointer;width:auto;border-bottom:#d6d6d6 1px dott"& _
Line 953: "ed;"" >"&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" <h3>SÁCH NÊN MUA CHUNG </h3>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 954:
Line 955: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",138)
Line 956: for each r in tRefs.Rows
Line 957: if trim(Helper.EmptyNull(r("Title")))<>"" then
Line 958:
Line 959:
Line 960: #End ExternalSource
Line 961: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<table style=""padding-top:10px; padding-bottom:5px""> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<tr><td val"& _
Line 962: "ign=""top"" width=""80px""><img src=""http://minhkhai.vn/")
Line 963:
Line 964: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",143)
Line 965: __w.Write(r("ImageLarge"))
Line 966:
Line 967:
Line 968: #End ExternalSource
Line 969: __w.Write(""" class=""frameSmall""/></td><td valign=""top""><span style=""color:black"" class=""link"& _
Line 970: "item""><B><a href=""index.aspx?q=view&isbn=")
Line 971:
Line 972: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",143)
Line 973: __w.Write(r("CodeRelated"))
Line 974:
Line 975:
Line 976: #End ExternalSource
Line 977: __w.Write(""">")
Line 978:
Line 979: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",143)
Line 980: __w.Write(r("Title"))
Line 981:
Line 982:
Line 983: #End ExternalSource
Line 984: __w.Write("</a></B><br /></span>")
Line 985:
Line 986: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",143)
Line 987: __w.Write(parseAuthorLink(r("Author")))
Line 988:
Line 989:
Line 990: #End ExternalSource
Line 991: __w.Write(" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 992:
Line 993: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",145)
Line 994: __w.Write(Helper.GetShortContent(r("Description"),400))
Line 995:
Line 996:
Line 997: #End ExternalSource
Line 998: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 999:
Line 1000: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",151)
Line 1001: end if
Line 1002: Next
Line 1003:
Line 1004: #End ExternalSource
Line 1005:
Line 1006: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",153)
Line 1007: End if
Line 1008:
Line 1009: #End ExternalSource
Line 1010: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1011:
Line 1012: #ExternalSource("D:\WebsiteMK\mk.net\store\View.aspx",157)
Line 1013: end if
Line 1014:
Line 1015: #End ExternalSource
Line 1016:
Line 1017: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",336)
Line 1018: case "helprule"
Line 1019:
Line 1020: #End ExternalSource
Line 1021: Me.WriteUTF8ResourceString(__w, 136807, 8829, false)
Line 1022:
Line 1023: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",338)
Line 1024: case "helpTime"
Line 1025:
Line 1026: #End ExternalSource
Line 1027: Me.WriteUTF8ResourceString(__w, 145636, 5469, false)
Line 1028:
Line 1029: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",340)
Line 1030: case "helpFreight"
Line 1031:
Line 1032: #End ExternalSource
Line 1033: Me.WriteUTF8ResourceString(__w, 151105, 35321, false)
Line 1034:
Line 1035: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",342)
Line 1036: case "cart"
Line 1037:
Line 1038: #End ExternalSource
Line 1039:
Line 1040: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",1)
Line 1041: If true then ' make all declare variable is local
Line 1042:
Line 1043: #End ExternalSource
Line 1044: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div style=""padding-top:10px; padding-left:10px; clear:both; height:500px""> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<div style=""cursor:pointer;width:auto;border-bottom:#d6d6d6 1px dotted;"" >"&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1045:
Line 1046: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",6)
Line 1047: If request("payment")<>"" then
Line 1048:
Line 1049: #End ExternalSource
Line 1050: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br>Xin cảm ơn Quý khách đã đặt và mua hàng tại Website <u>www.minhkhai.v"& _
Line 1051: "n</u>. "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Đơn hàng ")
Line 1052:
Line 1053: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",9)
Line 1054: __w.Write(request("payment"))
Line 1055:
Line 1056:
Line 1057: #End ExternalSource
Line 1058: __w.Write(" của quý khách đã hoàn tất quá trình thanh toán tại cổng thanh toán điện tử. Chún"& _
Line 1059: "g tôi sẽ gửi hàng đến quý khách trong thời gian sớm nhất. <br><br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1060:
Line 1061: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",11)
Line 1062: End if
Line 1063:
Line 1064: #End ExternalSource
Line 1065: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<h3>GIỎ HÀNG CỦA BẠN</h3>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div style=""padding-top:2px"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br/>"& _
Line 1066: ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1067:
Line 1068: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",18)
Line 1069:
Line 1070:
Line 1071: Dim isbn as String=Request("ISBN")
Line 1072:
Line 1073:
Line 1074: #End ExternalSource
Line 1075:
Line 1076: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",24)
Line 1077:
Line 1078: try
Line 1079: Dim ID As String = Request("ISBN")
Line 1080: Dim act As String = Request("act")
Line 1081: If Session("Cart") Is Nothing Then
Line 1082: Dim tCart As New DataTable
Line 1083: tCart.Columns.Add(New DataColumn("ID"))
Line 1084: tCart.Columns.Add(New DataColumn("Name"))
Line 1085: tCart.Columns.Add(New DataColumn("Price"))
Line 1086: tCart.Columns.Add(New DataColumn("Quantity"))
Line 1087: tCart.Columns.Add(New DataColumn("Weight"))
Line 1088: tCart.Columns.Add(New DataColumn("Author"))
Line 1089: tCart.Columns.Add(New DataColumn("ImageSmall"))
Line 1090: Session("Cart") = tCart
Line 1091: End If
Line 1092: Dim cart As DataTable = Session("Cart")
Line 1093:
Line 1094:
Line 1095: Select Case Act
Line 1096: Case "take"
Line 1097:
Line 1098: Dim tItem As DataTable=Query.From("SELECT TOP 1 * FROM Products WHERE Code=@p1", Request("ISBN"))
Line 1099: Dim rItem As DataRow = tItem.Rows(0)
Line 1100: Helper.ValidateImagePath(Server.MapPath(".."),tItem)
Line 1101:
Line 1102: 'Test item already in cart or not
Line 1103: Dim found As Boolean = False
Line 1104: Dim r As DataRow = Nothing
Line 1105: For i As Integer = 0 To cart.Rows.Count - 1
Line 1106: r = cart.Rows(i)
Line 1107: found = cart.Rows(i)("ID") = Request("ISBN")
Line 1108: If found Then Exit For
Line 1109: Next
Line 1110: If Not found Then
Line 1111: r = cart.NewRow()
Line 1112: r("ID") = rItem("Code")
Line 1113: r("Name") = rItem("Title")
Line 1114: r("ImageSmall") = rItem("ImageLarge")
Line 1115: r("Price") = rItem("Price")
Line 1116: r("Author") = rItem("Author")
Line 1117: r("Weight") = rItem("Weight")
Line 1118: r("Quantity") = 1
Line 1119: cart.Rows.Add(r)
Line 1120: Else
Line 1121: r("Quantity") = r("Quantity") + 1
Line 1122: End If
Line 1123: Response.Clear :Response.Redirect("index.aspx?q=cart")
Line 1124: Case "remove"
Line 1125: 'Find row match
Line 1126: Dim rowTmp As DataRow = Nothing
Line 1127: For Each r As DataRow In cart.Rows
Line 1128: If r("ID") = ISBN Then rowTmp = r : Exit For
Line 1129: Next
Line 1130: If rowTmp IsNot Nothing Then cart.Rows.Remove(rowTmp)
Line 1131: Case "update"
Line 1132: 'Find row match
Line 1133: Dim rowTmp As DataRow = Nothing
Line 1134: For Each r As DataRow In cart.Rows
Line 1135: If r("ID") = ISBN Then rowTmp = r : Exit For
Line 1136: Next
Line 1137: If rowTmp IsNot Nothing Then
Line 1138: If Request("quantity") = 0 Then cart.Rows.Remove(rowTmp) Else rowTmp("Quantity") = Request("quantity")
Line 1139: End If
Line 1140: Response.Clear :Response.Redirect("index.aspx?q=cart")
Line 1141:
Line 1142:
Line 1143: Case "clear"
Line 1144: cart.Rows.Clear()
Line 1145: Session("CartInfo")=nothing
Line 1146: Session("Cart") =nothing
Line 1147: Session("CartOrderSql")=nothing
Line 1148: Session("CartOrderID")=nothing
Line 1149: Session("CartOrderInfo")=Nothing
Line 1150: Session("CartOrderItemInfo")=nothing
Line 1151: End Select
Line 1152:
Line 1153: If cart.Rows.Count=0 then
Line 1154:
Line 1155:
Line 1156: #End ExternalSource
Line 1157: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Giỏ hàng đang trống. <span class=""linkitem""><a href=""index.aspx""> Mời bạ"& _
Line 1158: "n chọn mua hàng </a></span>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1159:
Line 1160: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",104)
Line 1161: End if
Line 1162:
Line 1163: #End ExternalSource
Line 1164:
Line 1165: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",106)
Line 1166:
Line 1167: Dim totalW AS Decimal=0
Line 1168: Dim Amount AS Decimal=0
Line 1169: Dim cartInfo As New HashTable
Line 1170: For i As Integer = 0 To cart.Rows.Count - 1
Line 1171: Dim r As DataRow = cart.Rows(i)
Line 1172: Dim price As Decimal=r("price")
Line 1173: Dim w As String= Helper.EmptyNull(r("weight"))
Line 1174: if w<>"" then
Line 1175: try
Line 1176: totalW =totalW + r("Quantity")*Convert.ToDecimal(w)
Line 1177: Catch ex As Exception
Line 1178: End Try
Line 1179: end if
Line 1180: Amount=Amount+r("Quantity")*r("Price")
Line 1181:
Line 1182:
Line 1183:
Line 1184:
Line 1185: #End ExternalSource
Line 1186: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<table style=""padding-top:1px; ""> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<tr><td valign=""top"" width=""50px"" height="& _
Line 1187: """60px""><img src=""http://minhkhai.vn/")
Line 1188:
Line 1189: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",126)
Line 1190: __w.Write(r("ImageSmall"))
Line 1191:
Line 1192:
Line 1193: #End ExternalSource
Line 1194: __w.Write(""" class=""frameSmall""/></td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<td valign=""top""><span style=""color:black""><B>")
Line 1195:
Line 1196: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",127)
Line 1197: __w.Write(r("Name"))
Line 1198:
Line 1199:
Line 1200: #End ExternalSource
Line 1201: __w.Write("</B> (")
Line 1202:
Line 1203: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",127)
Line 1204: __w.Write(r("Author"))
Line 1205:
Line 1206:
Line 1207: #End ExternalSource
Line 1208: __w.Write(")</span><br /><br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<b>Giá: <span style=""color:#8a3c3d"">")
Line 1209:
Line 1210: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",128)
Line 1211: __w.Write(Format(price,"###,###,###,###"))
Line 1212:
Line 1213:
Line 1214: #End ExternalSource
Line 1215: __w.Write(" đ</span></b> x <input type=""text"" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"style=""width:25px"" value=""")
Line 1216:
Line 1217: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",129)
Line 1218: __w.Write(r("Quantity"))
Line 1219:
Line 1220:
Line 1221: #End ExternalSource
Line 1222: __w.Write(""" id='v")
Line 1223:
Line 1224: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",129)
Line 1225: __w.Write(r("ID"))
Line 1226:
Line 1227:
Line 1228: #End ExternalSource
Line 1229: __w.Write("' maxlength=""3""/> <span class=""linkitem""><a href=""#"" onclick=""location.hr"& _
Line 1230: "ef='index.aspx?q=cart&act=update&quantity='+document.getElementById('v")
Line 1231:
Line 1232: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",129)
Line 1233: __w.Write(r("ID"))
Line 1234:
Line 1235:
Line 1236: #End ExternalSource
Line 1237: __w.Write("').value+'&isbn=")
Line 1238:
Line 1239: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",129)
Line 1240: __w.Write(r("ID"))
Line 1241:
Line 1242:
Line 1243: #End ExternalSource
Line 1244: __w.Write("'"">Cập nhật</a> | <a href=""index.aspx?q=cart&act=remove&isbn=")
Line 1245:
Line 1246: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",129)
Line 1247: __w.Write(r("ID"))
Line 1248:
Line 1249:
Line 1250: #End ExternalSource
Line 1251: __w.Write(""">Trả lại</a></span>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</td></tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<tr><td colspan=""2""></td></tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1252:
Line 1253: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",134)
Line 1254: Next
Line 1255:
Line 1256: cartInfo("Count")=cart.Rows.Count
Line 1257: cartInfo("Amount")=Format(Amount,"###,###,###,###")
Line 1258: cartInfo("Weight")=Format(totalW,"###,###,###,###")
Line 1259: Session("CartInfo")=cartInfo
Line 1260:
Line 1261: If cart.Rows.Count>0 then
Line 1262:
Line 1263:
Line 1264: #End ExternalSource
Line 1265: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div style=""width:auto;border-bottom:#d6d6d6 1px solid;"" > </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<t"& _
Line 1266: "able width=""100%"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<tr><td valign=""top""><span style=""font-size:medium; font-wei"& _
Line 1267: "ght:bold; color:black"">Tổng cộng:")
Line 1268:
Line 1269: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",147)
Line 1270: __w.Write(Format(Amount,"###,###,###,###") )
Line 1271:
Line 1272:
Line 1273: #End ExternalSource
Line 1274: __w.Write(" VNĐ</span></td><td align=""right"" valign=""top""><span style=""font-size:medium; fon"& _
Line 1275: "t-weight:bold; color:black"">Trọng lượng: ")
Line 1276:
Line 1277: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",147)
Line 1278: __w.Write(Format(totalW,"###,###,###,###") )
Line 1279:
Line 1280:
Line 1281: #End ExternalSource
Line 1282: Me.WriteUTF8ResourceString(__w, 186426, 562, false)
Line 1283:
Line 1284: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",157)
Line 1285:
Line 1286: End If
Line 1287: Catch ex As Exception
Line 1288: 'Response.Write(ex.ToString())
Line 1289: End Try
Line 1290:
Line 1291:
Line 1292: #End ExternalSource
Line 1293: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1294:
Line 1295: #ExternalSource("D:\WebsiteMK\mk.net\store\Cart.aspx",166)
Line 1296: end if
Line 1297:
Line 1298: #End ExternalSource
Line 1299:
Line 1300: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",344)
Line 1301: case "payment"
Line 1302:
Line 1303: #End ExternalSource
Line 1304:
Line 1305: #ExternalSource("D:\WebsiteMK\mk.net\store\Payment.aspx",1)
Line 1306: If true then ' make all declare variable is local
Line 1307:
Line 1308: #End ExternalSource
Line 1309: Me.WriteUTF8ResourceString(__w, 186988, 1326, false)
Line 1310:
Line 1311: #ExternalSource("D:\WebsiteMK\mk.net\store\Payment.aspx",24)
Line 1312:
Line 1313: Dim tPayment as DataTable= Query.From("SELECT * FROM Config WHERE [Group]=N'PAYMENT'")
Line 1314: For each rPayment as DataRow in tPayment.Rows
Line 1315:
Line 1316:
Line 1317: #End ExternalSource
Line 1318: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <option value=""")
Line 1319:
Line 1320: #ExternalSource("D:\WebsiteMK\mk.net\store\Payment.aspx",29)
Line 1321: __w.Write(rPayment("Name"))
Line 1322:
Line 1323:
Line 1324: #End ExternalSource
Line 1325: __w.Write("""> ")
Line 1326:
Line 1327: #ExternalSource("D:\WebsiteMK\mk.net\store\Payment.aspx",29)
Line 1328: __w.Write(rPayment("Description"))
Line 1329:
Line 1330:
Line 1331: #End ExternalSource
Line 1332: __w.Write(" </option>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1333:
Line 1334: #ExternalSource("D:\WebsiteMK\mk.net\store\Payment.aspx",30)
Line 1335: Next
Line 1336:
Line 1337: #End ExternalSource
Line 1338: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </select>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </td></tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 1339: "</table> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div style=""visibility:hidden; position:absolute; top:-300px"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1340:
Line 1341: #ExternalSource("D:\WebsiteMK\mk.net\store\Payment.aspx",35)
Line 1342: For each rPayment as DataRow in tPayment.Rows
Line 1343:
Line 1344: #End ExternalSource
Line 1345: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id='payment")
Line 1346:
Line 1347: #ExternalSource("D:\WebsiteMK\mk.net\store\Payment.aspx",36)
Line 1348: __w.Write(rPayment("Name"))
Line 1349:
Line 1350:
Line 1351: #End ExternalSource
Line 1352: __w.Write("'>")
Line 1353:
Line 1354: #ExternalSource("D:\WebsiteMK\mk.net\store\Payment.aspx",36)
Line 1355: __w.Write(Replace(Helper.ClearDataFont(rPayment("Value")),"</P>","<br>"))
Line 1356:
Line 1357:
Line 1358: #End ExternalSource
Line 1359: __w.Write(" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1360:
Line 1361: #ExternalSource("D:\WebsiteMK\mk.net\store\Payment.aspx",37)
Line 1362: Next
Line 1363:
Line 1364: #End ExternalSource
Line 1365: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div id=""paymentDesc"" style="& _
Line 1366: """ font-weight:bold; color:black"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1367:
Line 1368: #ExternalSource("D:\WebsiteMK\mk.net\store\Payment.aspx",42)
Line 1369: __w.Write(Replace(Helper.ClearDataFont(tPayment.Rows(0)("Value")),"</P>","<br>"))
Line 1370:
Line 1371:
Line 1372: #End ExternalSource
Line 1373: Me.WriteUTF8ResourceString(__w, 188314, 6556, false)
Line 1374:
Line 1375: #ExternalSource("D:\WebsiteMK\mk.net\store\Payment.aspx",120)
Line 1376: end if
Line 1377:
Line 1378: #End ExternalSource
Line 1379:
Line 1380: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",346)
Line 1381: case "confirmOrder"
Line 1382:
Line 1383: #End ExternalSource
Line 1384:
Line 1385: #ExternalSource("D:\WebsiteMK\mk.net\store\ConfirmOrder.aspx",1)
Line 1386: If true then ' make all declare variable is local
Line 1387:
Line 1388: #End ExternalSource
Line 1389:
Line 1390: #ExternalSource("D:\WebsiteMK\mk.net\store\ConfirmOrder.aspx",3)
Line 1391:
Line 1392: Dim rItemPayment as DataRow=Query.From("SELECT * FROM Config WHERE [Group]=N'PAYMENT' AND Name=@p1", request("paymentCode")).Rows(0)
Line 1393: Dim sOrderID As String="MK" & Session.SessionID.Substring(2, 1).ToUpper & Now.Ticks.ToString.Substring(8)
Line 1394:
Line 1395: 'Get Order information
Line 1396: Dim s As String=""
Line 1397: s=s+String.Format("<b>Thanh toán: </b>{0}<br>",Replace(Helper.ClearDataFont(rItemPayment ("Value")),"</P>","<br>"))
Line 1398: s=s+String.Format("<b>Email liên hệ: </b>{0}<br>",request("email"))
Line 1399: s=s+String.Format("<b>Tên: </b>{0}<br>",request("Name"))
Line 1400: s=s+String.Format("<b>Địa chỉ liên hệ: </b>{0}<br>",request("Address"))
Line 1401: s=s+String.Format("<b>Địa chỉ giao hàng: </b>{0}<br>",request("ShipToAddress"))
Line 1402: s=s+String.Format("<b>Quốc gia: </b>{0}<br>",request("Country"))
Line 1403: s=s+String.Format("<b>Thành phố: </b>{0}<br>",request("City"))
Line 1404: s=s+String.Format("<b>Quận/huyện: </b>{0}<br>",request("District"))
Line 1405: s=s+String.Format("<b>Điện thoại: </b>{0}<br>",request("Phone"))
Line 1406: s=s+String.Format("<b>Mã vùng: </b>{0}<br>",request("areaCode"))
Line 1407: s=s+String.Format("<b>Châu lục: </b>{0}<br>",request("Region"))
Line 1408: s=s+String.Format("<b>Tiền thanh toán: </b>{0}<br>",request("Currency"))
Line 1409: if request("gifCheck")="on" then s=s+"<b>Gói quà [x]</b>"
Line 1410: if request("gifNote")<>"" then s=s+":" + request("gifNote") + "<br>"
Line 1411: if request("note")<>"" then s=s+String.Format("<b><br>Ghi chú: </b>{0}<br>",request("note"))
Line 1412:
Line 1413: if request("invoiceCheck")="on" then
Line 1414: s=s+"<b>Yêu cầu ghi hóa đơn [x]</b> <br>"
Line 1415: s=s+" - Tên công ty : " & Request("CompanyName") &"<br>"
Line 1416: s=s+" - Mã số thuế : " & Request("TaxCode") &"<br>"
Line 1417: s=s+" - Địa chỉ c/ty : " & Request("CompanyAddr") &"<br>"
Line 1418: End If
Line 1419:
Line 1420: Dim sOrderInfo As String=s
Line 1421: Dim cart As DataTable=Session("Cart")
Line 1422: if cart is nothing OrElse Cart.Rows.Count=0 then
Line 1423: Response.Clear(): response.Redirect("Index.aspx?q=cart")
Line 1424: end if
Line 1425: s=""
Line 1426: Dim s1 as String="<tr><td>STT</td><td>Tên</td><td>Mã Hàng</td><td>Số lượng</td></tr>"
Line 1427: Dim iK As Integer
Line 1428: For Each R As DataRow In cart.Rows
Line 1429: iK=iK+1
Line 1430: s=s+String.Format("{0})<b>Tên:</b>{1}<br>",iK,r("Name"))
Line 1431: s=s+String.Format("<b>ISBN:{0}</b>. Trọng lượng:{1}. Số lượng:{2} . Giá {3}<br><br>",r("ID"),r("Weight"),r("Quantity"),r("Price"))
Line 1432:
Line 1433: s1=s1+String.Format("<tr><td>{0}</td><td>{1}</td><td>{2}</td><td>{3}</td></tr>",iK,r("Name"),r("ID"),r("Quantity"))
Line 1434:
Line 1435: Next
Line 1436: s1="<table>"+s1+"</table><br>"
Line 1437: Dim sItemInfo As String=s
Line 1438:
Line 1439:
Line 1440: 'Post Order
Line 1441: Dim sSql As String="INSERT INTO Orders(Email,OrderNo,Name,Address,ShipToAddress,Country,City,Region,AreaCode,Currency,District,Phone,Payment,OrderText,ItemText,Note,GifCheck,GifNote,CompanyName,TaxCode,CompanyAddr) VALUES(N'{0}',N'{1}',N'{2}',N'{3}',N'{4}',N'{5}',N'{6}',N'{7}',N'{8}',N'{9}',N'{10}',N'{11}',N'{12}',N'{13}',N'{14}',N'{15}',N'{16}',N'{17}',N'{18}',N'{19}',N'{20}')"
Line 1442:
Line 1443: sSql=String.Format(sSql,valid(Request("Email")),sOrderID,valid(Request("Name")),valid(Request("Address")),valid(Request("ShipToAddress")),valid(Request("Country")),valid(Request("City")),valid(Request("Region")),valid(Request("AreaCode")),valid(Request("Currency")),valid(Request("District")),valid(Request("Phone")),request("paymentCode"),valid(sOrderInfo),valid(sItemInfo ),valid(Request("Note")),valid(Request("gifCheck")),valid(Request("GifNote")),valid(Request("CompanyName")),valid(Request("TaxCode")),valid(Request("CompanyAddr")))
Line 1444: Session("CartOrderSql")=sSql
Line 1445: Session("CartOrderID")=sOrderID
Line 1446: Session("CartOrderInfo")=sOrderInfo
Line 1447: Session("CartOrderItemInfo")=sItemInfo
Line 1448: Session("CartOrderItemInfo1")=s1
Line 1449: Session("CartOrderEmail")=request("email")
Line 1450: Session("CartOrderPaymentCode")=request("paymentCode")
Line 1451:
Line 1452:
Line 1453:
Line 1454:
Line 1455: #End ExternalSource
Line 1456: Me.WriteUTF8ResourceString(__w, 194870, 490, false)
Line 1457:
Line 1458: #ExternalSource("D:\WebsiteMK\mk.net\store\ConfirmOrder.aspx",74)
Line 1459: __w.Write(sOrderID)
Line 1460:
Line 1461:
Line 1462: #End ExternalSource
Line 1463: __w.Write("</b></span><br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div style=""width:auto;border-bottom:#d6d6d6 1px s"& _
Line 1464: "olid;"" > </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1465:
Line 1466: #ExternalSource("D:\WebsiteMK\mk.net\store\ConfirmOrder.aspx",77)
Line 1467: __w.Write(sOrderInfo)
Line 1468:
Line 1469:
Line 1470: #End ExternalSource
Line 1471: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&" <div style=""width:auto;border-bottom:#d6d6d6 1px solid;"" > </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Line 1472: "<br /> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1473:
Line 1474: #ExternalSource("D:\WebsiteMK\mk.net\store\ConfirmOrder.aspx",80)
Line 1475:
Line 1476:
Line 1477: For i As Integer = 0 To cart.Rows.Count - 1
Line 1478: Dim r As DataRow = cart.Rows(i)
Line 1479: Dim price As Decimal=r("price")
Line 1480:
Line 1481:
Line 1482: #End ExternalSource
Line 1483: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<table style=""padding-top:1px; ""> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<tr><td valign=""top"" width=""50px"" height="& _
Line 1484: """60px""><img src=""http://minhkhai.vn/")
Line 1485:
Line 1486: #ExternalSource("D:\WebsiteMK\mk.net\store\ConfirmOrder.aspx",88)
Line 1487: __w.Write(r("ImageSmall"))
Line 1488:
Line 1489:
Line 1490: #End ExternalSource
Line 1491: __w.Write(""" class=""frameSmall""/></td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<td valign=""top""><span style=""color:black""><B>")
Line 1492:
Line 1493: #ExternalSource("D:\WebsiteMK\mk.net\store\ConfirmOrder.aspx",89)
Line 1494: __w.Write(r("Name"))
Line 1495:
Line 1496:
Line 1497: #End ExternalSource
Line 1498: __w.Write("</B> (")
Line 1499:
Line 1500: #ExternalSource("D:\WebsiteMK\mk.net\store\ConfirmOrder.aspx",89)
Line 1501: __w.Write(r("Author"))
Line 1502:
Line 1503:
Line 1504: #End ExternalSource
Line 1505: __w.Write(")</span><br /><br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<b>Giá: <span style=""color:#8a3c3d"">")
Line 1506:
Line 1507: #ExternalSource("D:\WebsiteMK\mk.net\store\ConfirmOrder.aspx",90)
Line 1508: __w.Write(Format(price,"###,###,###,###"))
Line 1509:
Line 1510:
Line 1511: #End ExternalSource
Line 1512: __w.Write(" đ</span></b> x ")
Line 1513:
Line 1514: #ExternalSource("D:\WebsiteMK\mk.net\store\ConfirmOrder.aspx",90)
Line 1515: __w.Write(r("Quantity"))
Line 1516:
Line 1517:
Line 1518: #End ExternalSource
Line 1519: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</td></tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<tr><td colspan=""2""></td></tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1520:
Line 1521: #ExternalSource("D:\WebsiteMK\mk.net\store\ConfirmOrder.aspx",95)
Line 1522: Next
Line 1523: Dim cartInfo as HashTable=Session("CartInfo")
Line 1524:
Line 1525:
Line 1526:
Line 1527: #End ExternalSource
Line 1528: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<table width=""100%"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<tr><td valign=""top""><span style=""font-size:mediu"& _
Line 1529: "m; font-weight:bold; color:black"">Tổng cộng: ")
Line 1530:
Line 1531: #ExternalSource("D:\WebsiteMK\mk.net\store\ConfirmOrder.aspx",101)
Line 1532: __w.Write(cartInfo("Amount"))
Line 1533:
Line 1534:
Line 1535: #End ExternalSource
Line 1536: __w.Write(" VNĐ</span></td><td align=""right"" valign=""top""><span style=""font-size:medium; fon"& _
Line 1537: "t-weight:bold; color:black"">Trọng lượng: ")
Line 1538:
Line 1539: #ExternalSource("D:\WebsiteMK\mk.net\store\ConfirmOrder.aspx",101)
Line 1540: __w.Write(cartInfo("Weight"))
Line 1541:
Line 1542:
Line 1543: #End ExternalSource
Line 1544: Me.WriteUTF8ResourceString(__w, 195360, 316, false)
Line 1545:
Line 1546: #ExternalSource("D:\WebsiteMK\mk.net\store\ConfirmOrder.aspx",110)
Line 1547: End if
Line 1548:
Line 1549: #End ExternalSource
Line 1550:
Line 1551: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",348)
Line 1552: case "findDemand"
Line 1553:
Line 1554: #End ExternalSource
Line 1555:
Line 1556: #ExternalSource("D:\WebsiteMK\mk.net\store\FindDemand.aspx",1)
Line 1557: If true then ' make all declare variable is local
Line 1558:
Line 1559: #End ExternalSource
Line 1560: Me.WriteUTF8ResourceString(__w, 195676, 628, false)
Line 1561:
Line 1562: #ExternalSource("D:\WebsiteMK\mk.net\store\FindDemand.aspx",19)
Line 1563:
Line 1564: 'Submit information
Line 1565: If request("email")<>"" and request("book")<>"" then
Line 1566: try
Line 1567:
Line 1568: Dim MailClient As New SmtpClient
Line 1569: MailClient.Host = "minhkhai.vn"
Line 1570: MailClient.Port =25
Line 1571: Dim sContent AS String="Tua sach: " & request("book") & vbcrlf & "Email:" & request("email") & vbcrlf & "Lien he:" & request("comment")
Line 1572:
Line 1573: MailClient.Send(request("email"),"[email protected]","Khach hang dat theo yeu cau",sContent)
Line 1574: Catch ex As Exception
Line 1575: End Try
Line 1576:
Line 1577:
Line 1578:
Line 1579: #End ExternalSource
Line 1580: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Yêu cầu đặt sách của bạn đã được chuyển. Chúng tôi sẽ gửi thông tin đến bạn tr"& _
Line 1581: "ong thời gian sớm nhất. "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div style=""width:auto;border-bottom:#d6"& _
Line 1582: "d6d6 1px solid;"" > </div> <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1583:
Line 1584: #ExternalSource("D:\WebsiteMK\mk.net\store\FindDemand.aspx",36)
Line 1585: End if
Line 1586:
Line 1587: #End ExternalSource
Line 1588: Me.WriteUTF8ResourceString(__w, 196304, 1305, false)
Line 1589:
Line 1590: #ExternalSource("D:\WebsiteMK\mk.net\store\FindDemand.aspx",54)
Line 1591: end if
Line 1592:
Line 1593: #End ExternalSource
Line 1594:
Line 1595: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",350)
Line 1596: case "contact"
Line 1597:
Line 1598: #End ExternalSource
Line 1599:
Line 1600: #ExternalSource("D:\WebsiteMK\mk.net\store\Contact.aspx",1)
Line 1601: If true then ' make all declare variable is local
Line 1602:
Line 1603: #End ExternalSource
Line 1604: Me.WriteUTF8ResourceString(__w, 197609, 624, false)
Line 1605:
Line 1606: #ExternalSource("D:\WebsiteMK\mk.net\store\Contact.aspx",19)
Line 1607:
Line 1608: 'Submit information
Line 1609: If request("email")<>"" and request("name")<>"" and request("Comment")<>"" then
Line 1610: try
Line 1611:
Line 1612: Dim MailClient As New SmtpClient
Line 1613: MailClient.Host = "minhkhai.vn"
Line 1614: MailClient.Port =25
Line 1615: Dim sContent AS String="Khach hang: " & request("email") & vbcrlf & "Name: " & request("name") & vbcrlf & "Phone:" & request("phone") & vbcrlf & "Dia chi:" & request("address") & vbcrlf & request("Comment")
Line 1616:
Line 1617: MailClient.Send(request("email"),"[email protected]","Khach hang lien he/gop y website",sContent)
Line 1618: Catch ex As Exception
Line 1619: End Try
Line 1620:
Line 1621:
Line 1622:
Line 1623: #End ExternalSource
Line 1624: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Cảm ơn bạn đã gửi thông tin cho công ty Minh Khai S.G. Chúng tôi sẽ phản hồi t"& _
Line 1625: "rong thời gian sớm nhất. "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div style=""width:auto;border-bottom:#d"& _
Line 1626: "6d6d6 1px solid;"" > </div> <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1627:
Line 1628: #ExternalSource("D:\WebsiteMK\mk.net\store\Contact.aspx",36)
Line 1629: End if
Line 1630:
Line 1631: #End ExternalSource
Line 1632: Me.WriteUTF8ResourceString(__w, 198233, 1737, false)
Line 1633:
Line 1634: #ExternalSource("D:\WebsiteMK\mk.net\store\Contact.aspx",55)
Line 1635: end if
Line 1636:
Line 1637: #End ExternalSource
Line 1638:
Line 1639: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",352)
Line 1640: case "about"
Line 1641:
Line 1642: #End ExternalSource
Line 1643: Me.WriteUTF8ResourceString(__w, 199970, 4833, false)
Line 1644:
Line 1645: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",355)
Line 1646: case "checkout"
Line 1647:
Line 1648: #End ExternalSource
Line 1649:
Line 1650: #ExternalSource("D:\WebsiteMK\mk.net\store\CheckOut.aspx",1)
Line 1651: If true then ' make all declare variable is local
Line 1652:
Line 1653: #End ExternalSource
Line 1654: Me.WriteUTF8ResourceString(__w, 204803, 288, false)
Line 1655:
Line 1656: #ExternalSource("D:\WebsiteMK\mk.net\store\CheckOut.aspx",12)
Line 1657:
Line 1658: Dim ErrorMsg As String=""
Line 1659: if Session("Cart") is nothing then
Line 1660: Response.Clear()
Line 1661: Response.Redirect("index.aspx?q=cart")
Line 1662: end if
Line 1663: Dim sOrderID As string=Session("CartOrderID")
Line 1664: Dim sOrderInfo As string=Session("CartOrderInfo")
Line 1665: Dim sItemInfo as String=Session("CartOrderItemInfo")
Line 1666: Dim sEmail As String=Session("CartOrderEmail")
Line 1667: Try
Line 1668: Dim sSql As String= Session("CartOrderSql")
Line 1669: Dim conn As SqlConnection = Helper.Connection()
Line 1670: Dim cmd As New SqlCommand
Line 1671: cmd.Connection=conn
Line 1672: cmd.CommandText=sSql
Line 1673:
Line 1674: cmd.ExecuteNonQuery()
Line 1675: 'Insert item to details
Line 1676: Dim cart As DataTable=Session("Cart")
Line 1677: For Each R As DataRow In cart.Rows
Line 1678: sSql="INSERT INTO OrderDetails(OrderNo,ProductCode,Name, Price,Quantity) VALUES('{0}','{1}',N'{2}','{3}','{4}')"
Line 1679: sSql=String.Format(sSql,valid(sOrderID),valid(r("ID")),valid(r("Name")),r("Price"),valid(r("Quantity")))
Line 1680: cmd.CommandText=sSql
Line 1681: cmd.ExecuteNonQuery()
Line 1682:
Line 1683: Next
Line 1684: conn.close()
Line 1685: Session("Cart") =nothing
Line 1686: Session("CartOrderSql")=nothing
Line 1687: Session("CartOrderID")=nothing
Line 1688: Session("CartInfo")=nothing
Line 1689: Session("CartOrderInfo")=Nothing
Line 1690: Session("CartOrderItemInfo")=nothing
Line 1691: Session("CartOrderEmail")=nothing
Line 1692:
Line 1693: 'Try to send email
Line 1694: Try
Line 1695:
Line 1696: sOrderInfo=String.Format("<b>Mã số đơn hàng: </b>{0}<br>", sOrderID) & sOrderInfo
Line 1697:
Line 1698: 'sOrderInfo= sOrderInfo & "<br>Các sản phẩm đặt mua:<br><br>" & sItemInfo
Line 1699: sOrderInfo= sOrderInfo & "<br>Các sản phẩm đặt mua:<br><br>" & Session("CartOrderItemInfo1")
Line 1700:
Line 1701: Dim sTemplate As String =Helper.GetSqlValue("Value","SELECT TOP 1 * FROM Config WHERE [Group]=N'EMAILCONFIRM' ")
Line 1702: if sTemplate<>"" then
Line 1703: sTemplate=sTemplate.Replace("{ORDER}", sOrderID )
Line 1704: sTemplate=sTemplate.Replace("{INFORMATION}", Session("CartOrderItemInfo1"))
Line 1705:
Line 1706: Dim MailClient As New SmtpClient
Line 1707: MailClient.Host = "minhkhai.vn"
Line 1708: MailClient.Port =25
Line 1709:
Line 1710: MailClient.UseDefaultCredentials = False
Line 1711: MailClient.Credentials = New System.Net.NetworkCredential("[email protected]", "minhkhai")
Line 1712: Dim mMailMessage As new MailMessage ()
Line 1713: mMailMessage.From = new MailAddress ("[email protected]")
Line 1714: mMailMessage.To.Add (new MailAddress (sEmail))
Line 1715: mMailMessage.Subject = "Thong tin Don hang " & sOrderID & " (Website minhkhai.vn) "
Line 1716:
Line 1717: Dim sBody As String= sTemplate
Line 1718: sBody =sBody.Replace("SIZE=""12""","")
Line 1719: mMailMessage.Body =sBody
Line 1720: mMailMessage.IsBodyHtml = true
Line 1721: MailClient.Send (mMailMessage)
Line 1722: End If
Line 1723: Catch ex As Exception
Line 1724: ErrorMsg=ex.ToString()
Line 1725: End Try
Line 1726: Catch ex As Exception
Line 1727: ErrorMsg="Xử lý đơn hàng bị lỗi. Xin bạn vui lòng thử lại"
Line 1728: End Try
Line 1729:
Line 1730:
Line 1731: #End ExternalSource
Line 1732:
Line 1733: #ExternalSource("D:\WebsiteMK\mk.net\store\CheckOut.aspx",89)
Line 1734: If ErrorMsg="" then
Line 1735:
Line 1736: #End ExternalSource
Line 1737: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Xin cảm ơn Quý khách đã đặt và mua hàng tại Website <u>www.minhkhai.vn</u>."& _
Line 1738: " Mã số đơn hàng Quý khách vừa đặt là <span style=""color:black""><b>")
Line 1739:
Line 1740: #ExternalSource("D:\WebsiteMK\mk.net\store\CheckOut.aspx",90)
Line 1741: __w.Write(sOrderID)
Line 1742:
Line 1743:
Line 1744: #End ExternalSource
Line 1745: __w.Write("</b></span>. Chúng tôi sẽ kiểm tra và gửi mail báo giá đến Quý khách trong thời g"& _
Line 1746: "ian sớm nhất <br><br>Trân trọng <br> <b>Nhà sách Minh Khai</b>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1747:
Line 1748: #ExternalSource("D:\WebsiteMK\mk.net\store\CheckOut.aspx",92)
Line 1749: Else
Line 1750: Response.Write(ErrorMsg)
Line 1751: End if
Line 1752:
Line 1753: #End ExternalSource
Line 1754: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div style=""width:auto;border-bottom:#d6d6d6 1px solid;"" > </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Line 1755: "<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <center> <input type=""button"" value=""Trở lại mua hàng"" onclick=""l"& _
Line 1756: "ocation.href='index.aspx'""> </center>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<form>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1757:
Line 1758: #ExternalSource("D:\WebsiteMK\mk.net\store\CheckOut.aspx",103)
Line 1759: End if
Line 1760:
Line 1761: #End ExternalSource
Line 1762:
Line 1763: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",358)
Line 1764:
Line 1765:
Line 1766: case else
Line 1767: If request.QueryString().Count=0 then
Line 1768:
Line 1769:
Line 1770: #End ExternalSource
Line 1771: Me.WriteUTF8ResourceString(__w, 205091, 962, false)
Line 1772:
Line 1773: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",9)
Line 1774: For i as Integer=0 to slideFiles.Count-1
Line 1775: Dim sLink as String="index.aspx?q=view&isbn=" & IO.Path.GetFileNameWithoutExtension(slideFiles(i))
Line 1776: if slideFiles(i).IndexOf("0-")>=0 then sLink="#"
Line 1777:
Line 1778:
Line 1779: #End ExternalSource
Line 1780: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""")
Line 1781:
Line 1782: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",13)
Line 1783: __w.Write(sLink)
Line 1784:
Line 1785:
Line 1786: #End ExternalSource
Line 1787: __w.Write(""">")
Line 1788:
Line 1789: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",13)
Line 1790: __w.Write(i+1)
Line 1791:
Line 1792:
Line 1793: #End ExternalSource
Line 1794: __w.Write(" </a> | "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1795:
Line 1796: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",14)
Line 1797: Next
Line 1798:
Line 1799: #End ExternalSource
Line 1800: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </span></td></tr></table> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<script>maxSlides=")
Line 1801:
Line 1802: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",17)
Line 1803: __w.Write(slideFiles.Count)
Line 1804:
Line 1805:
Line 1806: #End ExternalSource
Line 1807: __w.Write("</script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""slideshow"" style=""padding-left:20px; paddin"& _
Line 1808: "g-top:10px; cursor:pointer"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1809:
Line 1810: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",20)
Line 1811: For each s as String In slideFiles
Line 1812: Dim sLink as String="index.aspx?q=view&isbn=" & IO.Path.GetFileNameWithoutExtension(s)
Line 1813: if s.IndexOf("0-")>=0 then sLink="#"
Line 1814:
Line 1815:
Line 1816: #End ExternalSource
Line 1817: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" "&Global.Microsoft.VisualBasic.ChrW(9)&"<a href=""")
Line 1818:
Line 1819: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",25)
Line 1820: __w.Write(sLink)
Line 1821:
Line 1822:
Line 1823: #End ExternalSource
Line 1824: __w.Write("""><img src=""slides/")
Line 1825:
Line 1826: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",25)
Line 1827: __w.Write(IO.Path.GetFileName(s))
Line 1828:
Line 1829:
Line 1830: #End ExternalSource
Line 1831: __w.Write(""" /> </a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1832:
Line 1833: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",26)
Line 1834:
Line 1835: Next
Line 1836:
Line 1837: #End ExternalSource
Line 1838: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <!-- Special Event Books -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div style=""padding"& _
Line 1839: "-top:10px; padding-left:10px; clear:both; height:145px""> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""introduc"& _
Line 1840: "eHeader"" style=""width:auto;border-bottom:#d6d6d6 1px dotted;"" >"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&" <h3>")
Line 1841:
Line 1842: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",35)
Line 1843: __w.Write(Helper.GetSqlValue( "Name","SELECT TOP 1 * FROM Holiday WHERE Active=1"))
Line 1844:
Line 1845:
Line 1846: #End ExternalSource
Line 1847: __w.Write("</h3>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&"<p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1848:
Line 1849: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",40)
Line 1850:
Line 1851: 'Event book
Line 1852: Dim eventID As String=Helper.GetSqlValue("ID","SELECT TOP 1 * FROM Holiday WHERE Active=1")
Line 1853: Dim sWhere As String=" AND ShopCategory.ShopID=1 "
Line 1854:
Line 1855: Dim sSql As String=String.Format("SELECT TOP 5 * FROM (SELECT TOP 100 ID,Code,ImageSmall,ImageLarge FROM Products, ShopCategory WHERE IsStock=1 AND ShopCategory.CategoryID=Products.CategoryID AND ImageSmall<>'' AND SaleOnEvent={0} {1} ORDER BY NEWID()) X",eventID,sWhere)
Line 1856: t=Query.From(sSql)
Line 1857:
Line 1858:
Line 1859: #End ExternalSource
Line 1860: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div style=""background-color:#f4efef;width:auto; padding-bottom:3px; pa"& _
Line 1861: "dding-top:2px; height:16px"" >"&Global.Microsoft.VisualBasic.ChrW(9)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table width=""100%"" class=""linkitem""><tr"& _
Line 1862: "> <td><a href=""index.aspx?eventID=")
Line 1863:
Line 1864: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",50)
Line 1865: __w.Write(eventID)
Line 1866:
Line 1867:
Line 1868: #End ExternalSource
Line 1869: __w.Write("&source=book""><span id=""eventBook""><b>[Sách]</b></span></a> | <a href=""index.asp"& _
Line 1870: "x?eventID=")
Line 1871:
Line 1872: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",50)
Line 1873: __w.Write(eventID)
Line 1874:
Line 1875:
Line 1876: #End ExternalSource
Line 1877: __w.Write("&source=gif""><span id=""eventGif"">Quà tặng</span> </a> </td><td align=""right""><a h"& _
Line 1878: "ref=""index.aspx?eventID=")
Line 1879:
Line 1880: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",50)
Line 1881: __w.Write(eventID)
Line 1882:
Line 1883:
Line 1884: #End ExternalSource
Line 1885: __w.Write("""> Xem tiếp <b>»</b></a></td></tr></table> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div style=""po"& _
Line 1886: "sition:relative; width:100%;"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""listEventBook"" style=""position: ab"& _
Line 1887: "solute;left: 0px; top: 0px; width:100%;""> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1888:
Line 1889: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",54)
Line 1890:
Line 1891: Helper.ValidateImagePath(Server.MapPath(".."),t)
Line 1892: For each r as dataRow in t.Rows
Line 1893:
Line 1894: #End ExternalSource
Line 1895: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(9)&"<a href=""index.aspx?q=view&isbn=")
Line 1896:
Line 1897: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",58)
Line 1898: __w.Write(r("Code"))
Line 1899:
Line 1900:
Line 1901: #End ExternalSource
Line 1902: __w.Write("""><div class=""bookFrame"" style=""float:left""> <img src=""http://www.minhkhai.vn/")
Line 1903:
Line 1904: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",58)
Line 1905: __w.Write(r("ImageLarge"))
Line 1906:
Line 1907:
Line 1908: #End ExternalSource
Line 1909: __w.Write(""" class=""imageFrame""/></div></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1910:
Line 1911: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",59)
Line 1912: Next
Line 1913:
Line 1914: #End ExternalSource
Line 1915: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""listEventGif"" style=""position: absolute;le"& _
Line 1916: "ft: 0px; top: 0px; width:100%;""> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1917:
Line 1918: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",63)
Line 1919:
Line 1920: sWhere=" AND ShopCategory.ShopID>1 "
Line 1921: sSql =String.Format("SELECT TOP 5 * FROM (SELECT TOP 100 ID,Code,ImageSmall,ImageLarge FROM Products, ShopCategory WHERE IsStock=1 AND ShopCategory.CategoryID=Products.CategoryID AND ImageSmall<>'' AND SaleOnEvent={0} {1} ORDER BY NEWID()) X",eventID,sWhere)
Line 1922: t=Query.From(sSql)
Line 1923: Helper.ValidateImagePath(Server.MapPath(".."),t)
Line 1924: For each r as dataRow in t.Rows
Line 1925:
Line 1926:
Line 1927: #End ExternalSource
Line 1928: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""index.aspx?q=view&isbn=")
Line 1929:
Line 1930: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",70)
Line 1931: __w.Write(r("Code"))
Line 1932:
Line 1933:
Line 1934: #End ExternalSource
Line 1935: __w.Write(""">"&Global.Microsoft.VisualBasic.ChrW(9)&"<div class=""bookFrame"" style=""float:left""> <img src=""http://www.minhkhai.vn/")
Line 1936:
Line 1937: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",70)
Line 1938: __w.Write(r("ImageLarge"))
Line 1939:
Line 1940:
Line 1941: #End ExternalSource
Line 1942: __w.Write(""" class=""imageFrame""/> </div></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1943:
Line 1944: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",72)
Line 1945: Next
Line 1946:
Line 1947: #End ExternalSource
Line 1948: Me.WriteUTF8ResourceString(__w, 206053, 488, false)
Line 1949:
Line 1950: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",85)
Line 1951: __w.Write(Query.From("SELECT COUNT(*) FROM Products").Rows(0)(0))
Line 1952:
Line 1953:
Line 1954: #End ExternalSource
Line 1955: __w.Write("</span> mục tìm thấy.</td><td align=""right""><a href=""index.aspx?s""> Xem tiếp <b>&"& _
Line 1956: "#187;</b></a></td></tr></table> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table width=""100%"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1957:
Line 1958: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",91)
Line 1959:
Line 1960: t=Query.From("SELECT TOP 9 ID,IsNew,IsStock,Code,Title,Author AS AuthorName,ImageSmall,ImageLarge, Price , IssueDate,Discount,SalePrice,ShopID FROM Products WHERE ImageLarge<>'' AND IsStock=1 ORDER BY ID DESC")
Line 1961:
Line 1962: Helper.ValidateImagePath(Server.MapPath(".."),t)
Line 1963:
Line 1964: Dim k As Integer=0
Line 1965: While k<t.Rows.Count
Line 1966:
Line 1967:
Line 1968:
Line 1969: #End ExternalSource
Line 1970: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<tr >"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1971:
Line 1972: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",103)
Line 1973: For i As Integer=1 to 3
Line 1974:
Line 1975: #End ExternalSource
Line 1976: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td style=""padding-top:10px; cursor:pointer"" align=""center"" valign=""top"""& _
Line 1977: ">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1978:
Line 1979: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",105)
Line 1980: if k<t.Rows.Count then
Line 1981: Dim r As DataRow=t.Rows(k)
Line 1982:
Line 1983:
Line 1984: #End ExternalSource
Line 1985: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<img src=""http://www.minhkhai.vn/")
Line 1986:
Line 1987: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",110)
Line 1988: __w.Write(r("ImageLarge"))
Line 1989:
Line 1990:
Line 1991: #End ExternalSource
Line 1992: __w.Write(""" class=""frameLarge""/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1993:
Line 1994: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",111)
Line 1995: if r("IsNew") isnot System.DBnull.Value AndAlso r("IsNew") then
Line 1996:
Line 1997: #End ExternalSource
Line 1998: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<img src=""images/new.png"" style=""position:relative; left:-16px; top:-16px""/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1999:
Line 2000: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",113)
Line 2001: End if
Line 2002:
Line 2003: #End ExternalSource
Line 2004:
Line 2005: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",115)
Line 2006: 'Find read inside content
Line 2007: If My.Computer.FileSystem.FileExists(String.Format("{0}\papers\{1}\{1}.swf",Server.mapPath("."), r("Code") ) ) then
Line 2008:
Line 2009:
Line 2010: #End ExternalSource
Line 2011: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href='")
Line 2012:
Line 2013: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",118)
Line 2014: __w.Write(String.Format("papers/{0}/{0}.swf", r("Code") ))
Line 2015:
Line 2016:
Line 2017: #End ExternalSource
Line 2018: __w.Write("' > <img src=""images/eye.png"" border=""0"" style=""position:relative;display:block; "& _
Line 2019: "left:-32px; top:-128px""/> </a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2020:
Line 2021: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",119)
Line 2022: End if
Line 2023:
Line 2024: #End ExternalSource
Line 2025: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br /><br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2026:
Line 2027: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",128)
Line 2028: if r("IsStock") then
Line 2029:
Line 2030: #End ExternalSource
Line 2031: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<a href=""index.aspx?q=cart&act=take&isbn=")
Line 2032:
Line 2033: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",130)
Line 2034: __w.Write(r("Code"))
Line 2035:
Line 2036:
Line 2037: #End ExternalSource
Line 2038: __w.Write("""><img src=""images/buynow.jpg"" style=""cursor:pointer""/> </a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2039:
Line 2040: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",131)
Line 2041: if r("Discount")>0 then
Line 2042:
Line 2043: #End ExternalSource
Line 2044: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <img src=""images/p")
Line 2045:
Line 2046: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",132)
Line 2047: __w.Write(r("Discount"))
Line 2048:
Line 2049:
Line 2050: #End ExternalSource
Line 2051: __w.Write(".png"" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2052:
Line 2053: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",133)
Line 2054: end if
Line 2055:
Line 2056: #End ExternalSource
Line 2057:
Line 2058: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",135)
Line 2059: end if
Line 2060:
Line 2061: #End ExternalSource
Line 2062: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <span class=""linkitem"" ><a href=""index.aspx?"& _
Line 2063: "q=view&isbn=")
Line 2064:
Line 2065: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",142)
Line 2066: __w.Write(r("Code"))
Line 2067:
Line 2068:
Line 2069: #End ExternalSource
Line 2070: __w.Write(""" ><b>")
Line 2071:
Line 2072: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",142)
Line 2073: __w.Write(r("Title"))
Line 2074:
Line 2075:
Line 2076: #End ExternalSource
Line 2077: __w.Write("</b></a><br /></span>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<b>ISBN</b>:")
Line 2078:
Line 2079: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",143)
Line 2080: __w.Write(r("Code"))
Line 2081:
Line 2082:
Line 2083: #End ExternalSource
Line 2084: __w.Write(" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2085:
Line 2086: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",144)
Line 2087: __w.Write(parseAuthorLink(r("AuthorName")))
Line 2088:
Line 2089:
Line 2090: #End ExternalSource
Line 2091: __w.Write(" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2092:
Line 2093: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",145)
Line 2094: if r("IssueDate") isNot System.Dbnull.Value then
Line 2095:
Line 2096: #End ExternalSource
Line 2097: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Xuất bản:")
Line 2098:
Line 2099: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",146)
Line 2100: __w.Write(Month(r("IssueDate")) & "/" & Year(r("IssueDate")) )
Line 2101:
Line 2102:
Line 2103: #End ExternalSource
Line 2104: __w.Write(" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2105:
Line 2106: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",147)
Line 2107: end if
Line 2108:
Line 2109: #End ExternalSource
Line 2110:
Line 2111: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",151)
Line 2112: if r("Discount")>0 then
Line 2113:
Line 2114: #End ExternalSource
Line 2115: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<b>Giá bìa</b>:<STRIKE> <span style=""font-weight:bold"">")
Line 2116:
Line 2117: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",152)
Line 2118: __w.Write(Format(r("SalePrice"),"###,###,###,###"))
Line 2119:
Line 2120:
Line 2121: #End ExternalSource
Line 2122: __w.Write(" đ</span></STRIKE><b> (-")
Line 2123:
Line 2124: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",152)
Line 2125: __w.Write(r("Discount"))
Line 2126:
Line 2127:
Line 2128: #End ExternalSource
Line 2129: __w.Write("%)</b><br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2130:
Line 2131: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",153)
Line 2132: End if
Line 2133:
Line 2134: #End ExternalSource
Line 2135: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<b>Giá bán</b>:<span style=""color:#8a3c3d; font-size:medium; font-weight:bold"">"& _
Line 2136: "")
Line 2137:
Line 2138: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",154)
Line 2139: __w.Write(Format(r("Price"),"###,###,###,###"))
Line 2140:
Line 2141:
Line 2142: #End ExternalSource
Line 2143: __w.Write(" đ</span>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 2144:
Line 2145: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",157)
Line 2146: end if
Line 2147:
Line 2148: #End ExternalSource
Line 2149: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2150:
Line 2151: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",160)
Line 2152: k=k+1
Line 2153: Next
Line 2154:
Line 2155:
Line 2156: #End ExternalSource
Line 2157: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</tr >"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2158:
Line 2159: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",166)
Line 2160: End While
Line 2161:
Line 2162: #End ExternalSource
Line 2163: Me.WriteUTF8ResourceString(__w, 206541, 801, false)
Line 2164:
Line 2165: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",184)
Line 2166:
Line 2167: t=Query.From("SELECT TOP 3 A.ID, A.Code,A.SourceBy, B.Title, A.Review, A.InputDate, B.Author, B.ImageSmall, B.ImageLarge FROM ProductReview A, Products B WHERE A.Code=B.Code ORDER BY A.ID DESC")
Line 2168: Helper.ValidateImagePath(Server.MapPath(".."),t)
Line 2169: For each r as DataRow in t.Rows
Line 2170:
Line 2171:
Line 2172: #End ExternalSource
Line 2173: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr><td valign=""top"" ><img src=""http://www.minhkhai.vn/")
Line 2174:
Line 2175: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",191)
Line 2176: __w.Write(r("ImageLarge"))
Line 2177:
Line 2178:
Line 2179: #End ExternalSource
Line 2180: __w.Write(""" class=""frameSmall""/></td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td valign=""top"" style=""padding-left:3px""><sp"& _
Line 2181: "an class=""linkitem"" ><a href=""index.aspx?q=view&isbn=")
Line 2182:
Line 2183: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",193)
Line 2184: __w.Write(r("Code"))
Line 2185:
Line 2186:
Line 2187: #End ExternalSource
Line 2188: __w.Write("#review""><b>")
Line 2189:
Line 2190: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",193)
Line 2191: __w.Write(r("Title"))
Line 2192:
Line 2193:
Line 2194: #End ExternalSource
Line 2195: __w.Write("</b> </a> ")
Line 2196:
Line 2197: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",193)
Line 2198: if r("SourceBy")<>"" then Response.Write(" - Nguồn: " & r("SourceBy"))
Line 2199:
Line 2200: #End ExternalSource
Line 2201: __w.Write("<br /></span><span style=""color:#000;""> ")
Line 2202:
Line 2203: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",193)
Line 2204: __w.Write(parseAuthorLink(r("Author")))
Line 2205:
Line 2206:
Line 2207: #End ExternalSource
Line 2208: __w.Write("</span>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (<b>ISBN</b>: ")
Line 2209:
Line 2210: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",194)
Line 2211: __w.Write(r("Code"))
Line 2212:
Line 2213:
Line 2214: #End ExternalSource
Line 2215: __w.Write(")<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2216:
Line 2217: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",195)
Line 2218: __w.Write(Helper.GetShortContent(r("ReView"),500))
Line 2219:
Line 2220:
Line 2221: #End ExternalSource
Line 2222: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2223:
Line 2224: #ExternalSource("D:\WebsiteMK\mk.net\store\HomeContent.aspx",201)
Line 2225: Next
Line 2226:
Line 2227: #End ExternalSource
Line 2228: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2229:
Line 2230: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",364)
Line 2231: Else
Line 2232:
Line 2233: #End ExternalSource
Line 2234:
Line 2235: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",6)
Line 2236:
Line 2237:
Line 2238: If Request("pageIndex")<>"" then pageIndex=Request("pageIndex") else pageIndex=0
Line 2239:
Line 2240: Dim sTable As DataTable=GetBookList()
Line 2241: Dim pageCount as Integer=Math.Ceiling(rowsCount/15)
Line 2242:
Line 2243:
Line 2244: #End ExternalSource
Line 2245: Me.WriteUTF8ResourceString(__w, 207342, 371, false)
Line 2246:
Line 2247: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",20)
Line 2248: __w.Write(rowsCount)
Line 2249:
Line 2250:
Line 2251: #End ExternalSource
Line 2252: __w.Write("</span> mục. ")
Line 2253:
Line 2254: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",20)
Line 2255: if pageCount>0 then Response.Write(" Trang " & (pageIndex+1) & "/" & pageCount )
Line 2256:
Line 2257: #End ExternalSource
Line 2258: __w.Write("."&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2259:
Line 2260: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",23)
Line 2261: if Request("discount")<>"" then
Line 2262:
Line 2263: #End ExternalSource
Line 2264: Me.WriteUTF8ResourceString(__w, 207713, 439, false)
Line 2265:
Line 2266: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",36)
Line 2267: end if
Line 2268:
Line 2269: #End ExternalSource
Line 2270: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2271:
Line 2272: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",40)
Line 2273: For each r as DataRow in sTable.Rows
Line 2274:
Line 2275: #End ExternalSource
Line 2276: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr><td valign=""top"" >"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<img src=""http://www.minhkhai.vn/")
Line 2277:
Line 2278: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",45)
Line 2279: __w.Write(r("ImageLarge"))
Line 2280:
Line 2281:
Line 2282: #End ExternalSource
Line 2283: __w.Write(""" class=""frameLarge"" ")
Line 2284:
Line 2285: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",45)
Line 2286: if not r("IsStock") then Response.Write("style='opacity:0.2'")
Line 2287:
Line 2288: #End ExternalSource
Line 2289: __w.Write("/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2290:
Line 2291: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",49)
Line 2292: if r("Discount")>0 then
Line 2293:
Line 2294: #End ExternalSource
Line 2295: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <img src=""images/p")
Line 2296:
Line 2297: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",50)
Line 2298: __w.Write(r("Discount"))
Line 2299:
Line 2300:
Line 2301: #End ExternalSource
Line 2302: __w.Write(".png"" border=""0"" style=""position:relative;display:block; left:60px; top:-40px"" />"& _
Line 2303: ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2304:
Line 2305: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",51)
Line 2306: end if
Line 2307:
Line 2308: #End ExternalSource
Line 2309:
Line 2310: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",53)
Line 2311: 'Find read inside content
Line 2312: If My.Computer.FileSystem.FileExists(String.Format("{0}\papers\{1}\{1}.swf",Server.mapPath("."), r("Code") ) ) then
Line 2313:
Line 2314:
Line 2315: #End ExternalSource
Line 2316: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href='")
Line 2317:
Line 2318: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",56)
Line 2319: __w.Write(String.Format("papers/{0}/{0}.swf", r("Code") ))
Line 2320:
Line 2321:
Line 2322: #End ExternalSource
Line 2323: __w.Write("' > <img src=""images/eye.png"" border=""0"" style=""position:relative;display:block; "& _
Line 2324: "left:0px; top:-128px""/> </a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2325:
Line 2326: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",57)
Line 2327: End if
Line 2328:
Line 2329: #End ExternalSource
Line 2330: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td valign=""top"" style=""padding-left:3px""><span class=""l"& _
Line 2331: "inkitem"" ><a href=""index.aspx?q=view&isbn=")
Line 2332:
Line 2333: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",64)
Line 2334: __w.Write(r("Code"))
Line 2335:
Line 2336:
Line 2337: #End ExternalSource
Line 2338:
Line 2339: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",64)
Line 2340: if request("review")="1" then response.Write("#review")
Line 2341:
Line 2342: #End ExternalSource
Line 2343: __w.Write("""><b>")
Line 2344:
Line 2345: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",64)
Line 2346: __w.Write(r("Title"))
Line 2347:
Line 2348:
Line 2349: #End ExternalSource
Line 2350: __w.Write("</b> </a> ")
Line 2351:
Line 2352: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",64)
Line 2353: if r("SourceBy")<>"" then Response.Write(" - Nguồn: " & r("SourceBy"))
Line 2354:
Line 2355: #End ExternalSource
Line 2356:
Line 2357: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",65)
Line 2358: if not r("IsStock") then
Line 2359:
Line 2360: #End ExternalSource
Line 2361: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <span style=""color:#F00; font-weight:bold""> (Hết hàng) </span>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 2362:
Line 2363: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",67)
Line 2364: end if
Line 2365:
Line 2366: #End ExternalSource
Line 2367: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br /></span><span style=""color:#000;""> ")
Line 2368:
Line 2369: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",68)
Line 2370: __w.Write(parseAuthorLink(r("AuthorName")))
Line 2371:
Line 2372:
Line 2373: #End ExternalSource
Line 2374: __w.Write("</span>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (<b>ISBN</b>: ")
Line 2375:
Line 2376: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",69)
Line 2377: __w.Write(r("Code"))
Line 2378:
Line 2379:
Line 2380: #End ExternalSource
Line 2381: __w.Write(" | <b>Giá: </b><span style=""color:#8a3c3d;"">")
Line 2382:
Line 2383: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",69)
Line 2384: __w.Write(Format(r("Price"),"###,###,###,###"))
Line 2385:
Line 2386:
Line 2387: #End ExternalSource
Line 2388: __w.Write(" đ</span>)<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2389:
Line 2390: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",70)
Line 2391:
Line 2392: Dim sExtUrl As String="<span class='linkitem'> <a href= 'index.aspx?q=view&isbn=" & r("Code") & IIF(request("review")="1","#review","") & "'> ... </a></span>"
Line 2393:
Line 2394:
Line 2395: #End ExternalSource
Line 2396:
Line 2397: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",73)
Line 2398: __w.Write(Helper.GetShortContent(r("Description"),500,sExtUrl))
Line 2399:
Line 2400:
Line 2401: #End ExternalSource
Line 2402: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2403:
Line 2404: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",79)
Line 2405: Next
Line 2406:
Line 2407: #End ExternalSource
Line 2408: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div style=""width:auto; padding-bottom:3px; padding-top:2px"& _
Line 2409: "; height:16px"" >"&Global.Microsoft.VisualBasic.ChrW(9)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<center> <span class=""linkitem"" style=""cursor:pointer;"& _
Line 2410: "padding-right:10px"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2411:
Line 2412: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",87)
Line 2413:
Line 2414:
Line 2415: Dim startIndex As Integer=Math.max(pageIndex-4,0)
Line 2416: Dim prevIndex As Integer=startIndex
Line 2417: Dim nextIndex as Integer=startIndex+10
Line 2418: Dim sUrlFormat As String="pageIndex={0}&categoryID={1}&bookKind={2}&SearchText={3}&shopID={4}&eventID={5}&discount={6}&more={7}"
Line 2419: if request("review")="1" then sUrlFormat=sUrlFormat & "&review=1"
Line 2420: Dim queryParam As String
Line 2421:
Line 2422: If prevIndex >0 then
Line 2423: queryParam =String.Format(sUrlFormat,prevIndex,Request("categoryID"),Request("bookKind"),Request("SearchText"),Request("ShopID"),Request("EventID"),Request("Discount"),Request("more"))
Line 2424:
Line 2425:
Line 2426:
Line 2427: #End ExternalSource
Line 2428: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<span><a href=""index.aspx?")
Line 2429:
Line 2430: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",100)
Line 2431: __w.Write(queryParam)
Line 2432:
Line 2433:
Line 2434: #End ExternalSource
Line 2435: __w.Write("""><b>« </b></a></span> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2436:
Line 2437: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",101)
Line 2438:
Line 2439: End if
Line 2440: For i As Integer=startIndex to startIndex+9
Line 2441: if i >=pageCount then exit for
Line 2442: queryParam =String.Format(sUrlFormat,i,Request("categoryID"),Request("bookKind"),Request("SearchText"),Request("ShopID"),Request("EventID"),Request("Discount"),Request("more"))
Line 2443:
Line 2444: If i=pageIndex then
Line 2445:
Line 2446:
Line 2447: #End ExternalSource
Line 2448: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""index.aspx?")
Line 2449:
Line 2450: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",109)
Line 2451: __w.Write(queryParam)
Line 2452:
Line 2453:
Line 2454: #End ExternalSource
Line 2455: __w.Write("""><b>[")
Line 2456:
Line 2457: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",109)
Line 2458: __w.Write(i+1)
Line 2459:
Line 2460:
Line 2461: #End ExternalSource
Line 2462: __w.Write("]</b></a> |"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2463:
Line 2464: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",110)
Line 2465: Else
Line 2466:
Line 2467: #End ExternalSource
Line 2468: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""index.aspx?")
Line 2469:
Line 2470: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",111)
Line 2471: __w.Write(queryParam)
Line 2472:
Line 2473:
Line 2474: #End ExternalSource
Line 2475: __w.Write(""">")
Line 2476:
Line 2477: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",111)
Line 2478: __w.Write(i+1)
Line 2479:
Line 2480:
Line 2481: #End ExternalSource
Line 2482: __w.Write(" </a> |"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2483:
Line 2484: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",113)
Line 2485: End If
Line 2486: Next
Line 2487: if nextIndex<pageCount then
Line 2488: queryParam =String.Format(sUrlFormat,nextIndex,Request("categoryID"),Request("bookKind"),Request("SearchText"),Request("ShopID"),Request("EventID"),Request("Discount"),Request("more"))
Line 2489:
Line 2490:
Line 2491:
Line 2492: #End ExternalSource
Line 2493: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""index.aspx?")
Line 2494:
Line 2495: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",119)
Line 2496: __w.Write(queryParam)
Line 2497:
Line 2498:
Line 2499: #End ExternalSource
Line 2500: __w.Write("""><b>»</b></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2501:
Line 2502: #ExternalSource("D:\WebsiteMK\mk.net\store\Search.aspx",120)
Line 2503: End if
Line 2504:
Line 2505: #End ExternalSource
Line 2506: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </span>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </center>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2507:
Line 2508: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",366)
Line 2509: End If
Line 2510:
Line 2511: #End ExternalSource
Line 2512:
Line 2513: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",367)
Line 2514: End Select
Line 2515:
Line 2516: #End ExternalSource
Line 2517: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!--Right Column -->"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2518:
Line 2519: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",373)
Line 2520: Dim shopCartInfo As HashTable=Session("CartInfo")
Line 2521: if shopCartInfo is nothing then
Line 2522: shopCartInfo=new HashTable
Line 2523: shopCartInfo("Count")=0:shopCartInfo("Amount")=0
Line 2524: end if
Line 2525:
Line 2526:
Line 2527: #End ExternalSource
Line 2528: Me.WriteUTF8ResourceString(__w, 208152, 697, false)
Line 2529:
Line 2530: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",386)
Line 2531: __w.Write(shopCartInfo("Count"))
Line 2532:
Line 2533:
Line 2534: #End ExternalSource
Line 2535: __w.Write(" mục hàng trong giỏ. Tổng số tiền hàng là <b>")
Line 2536:
Line 2537: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",386)
Line 2538: __w.Write(shopCartInfo("Amount"))
Line 2539:
Line 2540:
Line 2541: #End ExternalSource
Line 2542: Me.WriteUTF8ResourceString(__w, 208849, 1763, false)
Line 2543:
Line 2544: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",417)
Line 2545:
Line 2546: t=Query.From("SELECT TOP 4 ID,Code, Title, ImageSmall,ImageLarge,Producer,Author AS AuthorName FROM Products WHERE IsSole=1 AND ImageSmall<>'' ORDER BY IssueDate DESC")
Line 2547: Helper.ValidateImagePath(Server.MapPath(".."),t)
Line 2548: For each r as DataRow in t.Rows
Line 2549:
Line 2550:
Line 2551: #End ExternalSource
Line 2552: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr><td><img src=""http://www.minhkhai.vn/hinhlon/")
Line 2553:
Line 2554: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",424)
Line 2555: __w.Write(r("ImageSmall"))
Line 2556:
Line 2557:
Line 2558: #End ExternalSource
Line 2559: __w.Write(""" class=""frameSmall""/></td><td valign=""top""> <span class=""linkitem""> <a href=""in"& _
Line 2560: "dex.aspx?q=view&isbn=")
Line 2561:
Line 2562: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",424)
Line 2563: __w.Write(r("Code"))
Line 2564:
Line 2565:
Line 2566: #End ExternalSource
Line 2567: __w.Write(""">")
Line 2568:
Line 2569: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",424)
Line 2570: __w.Write(r("Title"))
Line 2571:
Line 2572:
Line 2573: #End ExternalSource
Line 2574: __w.Write(" </a></span></td></tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2575:
Line 2576: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",427)
Line 2577: Next
Line 2578:
Line 2579: #End ExternalSource
Line 2580: Me.WriteUTF8ResourceString(__w, 210612, 440, false)
Line 2581:
Line 2582: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",440)
Line 2583:
Line 2584: t=Query.From("SELECT TOP 4 ID,Code, Title, ImageSmall,ImageLarge,Producer,Author AS AuthorName FROM Products WHERE Code IN (SELECT TOP 30 Code FROM Products WHERE IsBestSell=1 AND ImageSmall<>'' ORDER BY IssueDate DESC)")
Line 2585: Helper.ValidateImagePath(Server.MapPath(".."),t)
Line 2586: For each r as DataRow in t.Rows
Line 2587:
Line 2588:
Line 2589: #End ExternalSource
Line 2590: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr><td><img src=""http://www.minhkhai.vn/hinhlon/")
Line 2591:
Line 2592: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",447)
Line 2593: __w.Write(r("ImageSmall"))
Line 2594:
Line 2595:
Line 2596: #End ExternalSource
Line 2597: __w.Write(""" class=""frameSmall"" /></td><td valign=""top""> <span class=""linkitem""> <a href=""i"& _
Line 2598: "ndex.aspx?q=view&isbn=")
Line 2599:
Line 2600: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",447)
Line 2601: __w.Write(r("Code"))
Line 2602:
Line 2603:
Line 2604: #End ExternalSource
Line 2605: __w.Write(""">")
Line 2606:
Line 2607: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",447)
Line 2608: __w.Write(r("Title"))
Line 2609:
Line 2610:
Line 2611: #End ExternalSource
Line 2612: __w.Write(" </a></span></td></tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2613:
Line 2614: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",450)
Line 2615: Next
Line 2616:
Line 2617: #End ExternalSource
Line 2618: Me.WriteUTF8ResourceString(__w, 211052, 447, false)
Line 2619:
Line 2620: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",464)
Line 2621:
Line 2622: t=Query.From("SELECT TOP 4 ID,Code, Title, ImageSmall,ImageLarge, Producer,Author AS AuthorName FROM Products WHERE Code IN (SELECT TOP 30 Code FROM Products WHERE IsNew=1 AND ImageSmall<>'' ORDER BY NEWID() )")
Line 2623: Helper.ValidateImagePath(Server.MapPath(".."),t)
Line 2624: For each r as DataRow in t.Rows
Line 2625:
Line 2626:
Line 2627: #End ExternalSource
Line 2628: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr><td><img src=""http://www.minhkhai.vn/hinhlon/")
Line 2629:
Line 2630: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",471)
Line 2631: __w.Write(r("ImageSmall"))
Line 2632:
Line 2633:
Line 2634: #End ExternalSource
Line 2635: __w.Write(""" class=""frameSmall""/></td><td valign=""top""> <span class=""linkitem""> <a href=""in"& _
Line 2636: "dex.aspx?q=view&isbn=")
Line 2637:
Line 2638: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",471)
Line 2639: __w.Write(r("Code"))
Line 2640:
Line 2641:
Line 2642: #End ExternalSource
Line 2643: __w.Write(""">")
Line 2644:
Line 2645: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",471)
Line 2646: __w.Write(r("Title"))
Line 2647:
Line 2648:
Line 2649: #End ExternalSource
Line 2650: __w.Write(" </a></span></td></tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2651:
Line 2652: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",474)
Line 2653: Next
Line 2654:
Line 2655: #End ExternalSource
Line 2656: Me.WriteUTF8ResourceString(__w, 211499, 470, false)
Line 2657:
Line 2658: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",488)
Line 2659:
Line 2660: t=Query.From("SELECT TOP 4 ID,Code, Title, ImageSmall,ImageLarge, Producer,Author AS AuthorName FROM Products WHERE Code IN (SELECT TOP 30 Code FROM Products WHERE IsPublished=1 AND ImageSmall<>'' ORDER BY IssueDate DESC) ORDER BY NEWID()")
Line 2661: Helper.ValidateImagePath(Server.MapPath(".."),t)
Line 2662: For each r as DataRow in t.Rows
Line 2663:
Line 2664:
Line 2665: #End ExternalSource
Line 2666: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr><td><img src=""http://www.minhkhai.vn/hinhlon/")
Line 2667:
Line 2668: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",495)
Line 2669: __w.Write(r("ImageSmall"))
Line 2670:
Line 2671:
Line 2672: #End ExternalSource
Line 2673: __w.Write(""" class=""frameSmall""/></td><td valign=""top""> <span class=""linkitem""> <a href=""in"& _
Line 2674: "dex.aspx?q=view&isbn=")
Line 2675:
Line 2676: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",495)
Line 2677: __w.Write(r("Code"))
Line 2678:
Line 2679:
Line 2680: #End ExternalSource
Line 2681: __w.Write(""">")
Line 2682:
Line 2683: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",495)
Line 2684: __w.Write(r("Title"))
Line 2685:
Line 2686:
Line 2687: #End ExternalSource
Line 2688: __w.Write(" </a></span></td></tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2689:
Line 2690: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",498)
Line 2691: Next
Line 2692:
Line 2693: #End ExternalSource
Line 2694:
Line 2695: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",500)
Line 2696: if t.Rows.Count>0
Line 2697:
Line 2698: #End ExternalSource
Line 2699: __w.Write(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br/>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<span class=""linkitem""><b><a href=""index.aspx?bookKind=3""> Xem tiếp &"& _
Line 2700: "#187;</b></a> </span>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2701:
Line 2702: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",503)
Line 2703: Else
Line 2704:
Line 2705: #End ExternalSource
Line 2706: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<span class=""linkitem"">(Chua có) </span>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2707:
Line 2708: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",505)
Line 2709: End If
Line 2710:
Line 2711: #End ExternalSource
Line 2712: Me.WriteUTF8ResourceString(__w, 211969, 1101, false)
Line 2713:
Line 2714: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",526)
Line 2715:
Line 2716: t=Query.From("SELECT * FROM Shops WHERE Active=1")
Line 2717: For each r as DataRow in t.Rows
Line 2718:
Line 2719:
Line 2720:
Line 2721: #End ExternalSource
Line 2722: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""index.aspx?shopID=")
Line 2723:
Line 2724: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",531)
Line 2725: __w.Write(r("ID"))
Line 2726:
Line 2727:
Line 2728: #End ExternalSource
Line 2729: __w.Write(""">")
Line 2730:
Line 2731: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",531)
Line 2732: __w.Write(r("Name"))
Line 2733:
Line 2734:
Line 2735: #End ExternalSource
Line 2736: __w.Write("</a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 2737:
Line 2738: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",532)
Line 2739: Next
Line 2740:
Line 2741: #End ExternalSource
Line 2742: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<form id=""dataForm"" action=""index.aspx?ss"" method=""post"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <i"& _
Line 2743: "nput type=""hidden"" name=""EventID"" id=""EventID""value=""")
Line 2744:
Line 2745: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",538)
Line 2746: __w.Write(Request("EventID"))
Line 2747:
Line 2748:
Line 2749: #End ExternalSource
Line 2750: __w.Write(""" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <input type=""hidden"" name=""CategoryID"" id=""CategoryID"" value=""")
Line 2751:
Line 2752: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",539)
Line 2753: __w.Write(Request("CategoryID"))
Line 2754:
Line 2755:
Line 2756: #End ExternalSource
Line 2757: __w.Write(""" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <input type=""hidden"" name=""ShopID"" id=""ShopID"" value=""")
Line 2758:
Line 2759: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",540)
Line 2760: __w.Write(Request("ShopID"))
Line 2761:
Line 2762:
Line 2763: #End ExternalSource
Line 2764: __w.Write(""" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <input type=""hidden"" name=""PageIndex"" id=""PageIndex"" value=""")
Line 2765:
Line 2766: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",541)
Line 2767: __w.Write(Request("PageIndex"))
Line 2768:
Line 2769:
Line 2770: #End ExternalSource
Line 2771: __w.Write(""" />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <input type=""hidden"" name=""SearchText"" id=""SearchText"" value=""")
Line 2772:
Line 2773: #ExternalSource("D:\WebsiteMK\mk.net\store\index.aspx",542)
Line 2774: __w.Write(Request("SearchText"))
Line 2775:
Line 2776:
Line 2777: #End ExternalSource
Line 2778: Me.WriteUTF8ResourceString(__w, 213070, 2338, true)
Line 2779: End Sub
Line 2780:
Line 2781: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2782: Protected Overrides Sub FrameworkInitialize()
Line 2783: MyBase.FrameworkInitialize
Line 2784: Me.SetStringResourcePointer(Global.ASP.store_index_aspx.__stringResource, 0)
Line 2785: Me.__BuildControlTree(Me)
Line 2786: Me.AddWrappedFileDependencies(Global.ASP.store_index_aspx.__fileDependencies)
Line 2787: Me.Request.ValidateInput
Line 2788: End Sub
Line 2789:
Line 2790: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2791: Public Overrides Function GetTypeHashCode() As Integer
Line 2792: Return 472056022
Line 2793: End Function
Line 2794:
Line 2795: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 2796: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 2797: MyBase.ProcessRequest(context)
Line 2798: End Sub
Line 2799: End Class
Line 2800: End Namespace
Line 2801:
|