<% Dim ID,ParentPath,i Dim Intro,Title,Pic,PicList,PicLists ID=WRMPS.CheckStr(Request("ID"),1) If ID = "" Then Call WRMPS.ErrView("返回"&ChannelName&"首頁","index.asp","
  • 操作錯誤",0) Call DBConnBegin() Set Rs=server.createobject("adodb.recordset") Rs.Open"Select A.WM_ID,A.WM_Time,A.WM_ClassDir,A.WM_ClassID,A.WM_AreaID,A.WM_Title,A.WM_Model,A.WM_Price,A.WM_CurrencyType,A.WM_Intro,A.WM_Pic,A.WM_User,A.WM_ComID,A.WM_Re,A.WM_Hit,A.WM_Collection,A.WM_Commend,A.WM_DB1,A.WM_DB2,A.WM_DB3,A.WM_DB4,A.WM_DB5,A.WM_DB6,A.WM_DB7,A.WM_DB8,A.WM_DB9,A.WM_DB10,A.WM_DB11,A.WM_DB12,A.WM_DB13,A.WM_DB14,A.WM_DB15,A.WM_DB16,A.WM_DB17,A.WM_DB18,A.WM_DB19,A.WM_DB20,A.WM_DB1T,A.WM_DB2T,A.WM_DB3T,A.WM_DB4T,A.WM_DB5T,A.WM_DB6T,A.WM_DB7T,A.WM_DB8T,A.WM_DB9T,A.WM_DB10T,A.WM_DB11T,A.WM_DB12T,A.WM_DB13T,A.WM_DB14T,A.WM_DB15T,A.WM_DB16T,A.WM_DB17T,A.WM_DB18T,A.WM_DB19T,A.WM_DB20T,A.WM_ChannelID,A.WM_ChannelDir,B.WM_Name,A.WM_Company,A.WM_TempID,B.WM_ConTempID,B.WM_ParentPath,A.WM_PicList From WM_Product A Inner Join WM_ProductSort B on A.WM_ClassID = B.WM_ID where A.WM_ID="&ID&"",Conn,1,1 If Rs.eof Then Call WRMPS.ErrView("返回"&ChannelName&"首頁","index.asp","
  • 內容不存在",0) ClassID = Rs(3) Call WRMPS.FsoBegin() If Rs(61) > 0 Then TempStr = WRTemp.SiteTemplates(1,Rs(61),36,ChannelID) Else TempStr = WRTemp.SiteTemplates(1,Rs(62),36,ChannelID) Call WRMPS.FsoEnd() AreaID = Rs(4) ClassName = Rs(59) ParentPath = Rs(63) SitePath = ","&ChannelName&"" If Instr(ParentPath,",") Then ParentPath = Right(ParentPath,Len(ParentPath)-2) For i = 0 To UBound(Split(ParentPath,",")) If Split(ParentPath,",")(i) <> "" Then Set Rso = Conn.Execute("Select WM_Name,WM_ID,WM_ParentDir,WM_Dir From WM_ProductSort where WM_ID="&Int(Split(ParentPath,",")(i))) If Not Rso.Eof Then SitePath = SitePath & ","&Rso(0)&"" End If Rso.Close End If Next End If Set Rso = Nothing SitePath = SitePath & ","&ClassName&"" TempStr = WRMPS.GetReplace(TempStr,"{$ID}",Rs(0)) TempStr = WRMPS.GetReplace(TempStr,"{$Url}",WRMPS.GetShowUrl(1,1,0,Rs(0),Rs(1),Rs(58)&"/"&Rs(2)&"/",Rs(57))) TempStr = WRMPS.GetReplace(TempStr,"{$AreaName}",WRMPS.GetAreaUrl(Rs(4),"Name")) TempStr = WRMPS.GetReplace(TempStr,"{$AreaUrl}",WRMPS.GetAreaUrl(Rs(4),"Url")) TempStr = WRMPS.GetReplace(TempStr,"{$ClassName}",Rs(59)) TempStr = WRMPS.GetReplace(TempStr,"{$ClassUrl}",WRMPS.GetClassUrl(1,1,Rs(58)&"/"&Rs(2)&"/",Rs(3))) Title = Rs(5) Intro = Rs(9) TempStr = WRMPS.GetReplace(TempStr,"{$Title}",Title) TempStr = WRMPS.GetReplace(TempStr,"{$Intro}",Intro) TempStr = WRMPS.GetReplace(TempStr,"{$Model}",Rs(6)) If Rs(7) > 0 Then TempStr = WRMPS.GetReplace(TempStr,"{$Price}",Rs(7)) Else TempStr = WRMPS.GetReplace(TempStr,"{$Price}","") TempStr = WRMPS.GetReplace(TempStr,"{$CurrencyType}",Rs(8)) Pic = WRMPS.CheckStr(Rs(10),5) If Pic = "" Or IsNull(Pic) Then Pic = UrlPath&"Skins/"&WR_Setting(5)&"/nopic.gif" TempStr = WRMPS.GetReplace(TempStr,"{$Pic}",Pic) TempStr = WRMPS.GetReplace(TempStr,"{$PostName}",WRUser.DispUser(0,Rs(11))) TempStr = WRMPS.GetReplace(TempStr,"{$ComID}",Rs(12)) TempStr = WRMPS.GetReplace(TempStr,"{$ComUrl}",WRMPS.GetCompanyUrl(Rs(12))) TempStr = WRMPS.GetReplace(TempStr,"{$Company}",Rs(60)) TempStr = WRMPS.GetReplace(TempStr,"{$Hit}","") TempStr = WRMPS.GetReplace(TempStr,"{$Re}","") TempStr = WRMPS.GetReplace(TempStr,"{$NewRe}","") TempStr = WRMPS.GetReplace(TempStr,"{$Collection}","") PicList = Rs(64) PicList = Split(PicList,"|") For i=0 To UBound(PicList) If PicLists <> "" Then PicLists = PicLists & "

    " Else PicLists = "" End If Next TempStr = WRMPS.GetReplace(TempStr,"{$PicList}",PicLists) If Rs(12) > 0 Then TempStr = WRMPS.GetReplace(TempStr,"{$CompanyData}","") TempStr = WRMPS.GetReplace(TempStr,"{$CompanyData}","") TempStr = WRMPS.GetReplace(TempStr,"{$Time}",Rs(1)) TempStr = WRMPS.GetReplace(TempStr,"{$Year}",Year(Rs(1))) TempStr = WRMPS.GetReplace(TempStr,"{$Month}",Month(Rs(1))) TempStr = WRMPS.GetReplace(TempStr,"{$Day}",Day(Rs(1))) TempStr = WRMPS.GetReplace(TempStr,"{$Hour}",Hour(Rs(1))) TempStr = WRMPS.GetReplace(TempStr,"{$Minute}",Minute(Rs(1))) TempStr = WRMPS.GetReplace(TempStr,"{$Second}",Second(Rs(1))) If Rs(37) <> "" and IsNull(Rs(37)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB1}",Rs(37)&Rs(17)&"
    ") If Rs(38) <> "" and IsNull(Rs(38)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB2}",Rs(38)&Rs(18)&"
    ") If Rs(39) <> "" and IsNull(Rs(39)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB3}",Rs(39)&Rs(19)&"
    ") If Rs(40) <> "" and IsNull(Rs(40)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB4}",Rs(40)&Rs(20)&"
    ") If Rs(41) <> "" and IsNull(Rs(41)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB5}",Rs(41)&Rs(21)&"
    ") If Rs(42) <> "" and IsNull(Rs(42)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB6}",Rs(42)&Rs(22)&"
    ") If Rs(43) <> "" and IsNull(Rs(43)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB7}",Rs(43)&Rs(23)&"
    ") If Rs(44) <> "" and IsNull(Rs(44)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB8}",Rs(44)&Rs(24)&"
    ") If Rs(45) <> "" and IsNull(Rs(45)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB9}",Rs(45)&Rs(25)&"
    ") If Rs(46) <> "" and IsNull(Rs(46)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB10}",Rs(46)&Rs(26)&"
    ") If Rs(47) <> "" and IsNull(Rs(47)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB11}",Rs(47)&Rs(27)&"
    ") If Rs(48) <> "" and IsNull(Rs(48)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB12}",Rs(48)&Rs(28)&"
    ") If Rs(49) <> "" and IsNull(Rs(49)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB13}",Rs(49)&Rs(29)&"
    ") If Rs(50) <> "" and IsNull(Rs(50)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB14}",Rs(50)&Rs(30)&"
    ") If Rs(51) <> "" and IsNull(Rs(51)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB15}",Rs(51)&Rs(31)&"
    ") If Rs(52) <> "" and IsNull(Rs(52)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB16}",Rs(52)&Rs(32)&"
    ") If Rs(53) <> "" and IsNull(Rs(53)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB17}",Rs(53)&Rs(33)&"
    ") If Rs(54) <> "" and IsNull(Rs(54)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB18}",Rs(54)&Rs(34)&"
    ") If Rs(55) <> "" and IsNull(Rs(55)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB19}",Rs(55)&Rs(35)&"
    ") If Rs(56) <> "" and IsNull(Rs(56)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB20}",Rs(56)&Rs(36)&"
    ") TempStr = WRMPS.Temp_Del_Label(TempStr) Rs.Close Set Rs = Nothing If Instr(TempStr,"{$IDCode}") > 0 Then If WRMPS.CheckCode("Re",1) Then TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}","") Else TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}"," style=""display:none""") End If End If TempStr = WRMPS.GetReplace(TempStr,"{$IsIDCode}",WRMPS.CheckCode("Re",1)) SitePath = WRMPS.GetSitePath(AreaID,SitePath) TempStr = WRTemp.SiteClass(TempStr) TempStr = WRTemp.SiteChannel(TempStr) TempStr = WRTemp.SiteLabel(TempStr) Call ClassEnd() Call DBConnEnd() Response.Write TempStr %> 我爱玩山西麻将app 国际股票指数 极速快3的规律 百家乐必胜方法 北京快3投注软件 安徽十一选五盈利 陕西11选五胆拖玩法 上海时时乐开奖最近100期走势 黑龙江22选5中奖规则 股票融资开户 大乐透怎样才是二等奖