Home > <%=GameName%>
<% set rs=myconn.execute("select SortID,GoldInfo,GoldDisplay,ItemInfo,ItemDisplay,PowerInfo,PowerDisplay,SelltousInfo,SelltousDisplay,IntroductionInfo,IntroductionDisplay,PromotionsInfo,PromotionsDisplay,KeyWordLinkInfo,KeyWordLinkDisplay,AutoID from SellInfoTb where SortID="&GameID&"") if not rs.eof then ItemDisplay = rs("ItemDisplay") PowerDisplay = rs("PowerDisplay") SelltousDisplay = rs("SelltousDisplay") SelltousInfo = rs("SelltousInfo") IntroductionInfo = rs("IntroductionInfo") IntroductionDisplay = rs("IntroductionDisplay") PromotionsInfo = rs("PromotionsInfo") PromotionsDisplay = rs("PromotionsDisplay") KeyWordLinkInfo = rs("KeyWordLinkInfo") KeyWordLinkDisplay = rs("KeyWordLinkDisplay") end if rs.close() set rs=nothing Response.Write "" if ItemDisplay = 1 then Response.Write "" end if 'if PowerDisplay = 1 then ' Response.Write "" 'end if %> |
"&PromotionsInfo&"
"
end if
%>
<%
FstFlag = 0
set server_rs=myconn.execute("select SortID,SortName from GameInfoTb where ParentID="&GameID&" order by ServerOrderID")
do while not server_rs.eof
if FstFlag = 0 then
Response.Write ""
FstFlag = server_rs("SortID")
else
Response.Write ""
end if
server_rs.movenext
loop
server_rs.close()
set server_rs =nothing
if GorI = "i" then
Response.Write ""
end if
myconn.close()
set myconn = nothing
%>
|
|
Introduction
<%
if IntroductionDisplay = 1 then
response.Write IntroductionInfo
end if
%>
<%
if KeyWordLinkDisplay = 1 then
response.Write ""&KeyWordLinkInfo&""
end if
%>