<% dim cmdMp dim rsreply Dim ids,categoryId,categoryName,tCategoryName,iPageId categoryId = request("id") categoryId = "928" iPageId = request("pid") If iPageId = Null Or iPageId ="" Then iPageId = "1" End If set rsreply = Server.CreateObject("ADODB.Recordset") set cmdMp = Server.CreateObject("ADODB.CoMMand") cmdMp.ActiveConnection = Session("uugxConn") cmdMp.CoMMandText = "mp_getABbsCategoryInfo" cmdMp.Parameters.Append cmdMp.CreateParameter("nodeid", adVarChar, adParaminput,20,categoryId ) cmdMp.CoMMandType = adCmdStoredProc set rsreply = cmdMp.Execute If Not rsreply.eof Then categoryName = rsreply.fields("NAME") tCategoryName = rsreply.fields("TNAME") treeNodeId = rsreply.fields("TID") End If '获取论题总数 set cmdMp = Server.CreateObject("ADODB.CoMMand") cmdMp.ActiveConnection = Session("uugxConn") cmdMp.CoMMandText = "mp_getBbsCategoryGeneralTitlesCount" cmdMp.CoMMandType = adCmdStoredProc cmdMp.Parameters.Append cmdMp.CreateParameter("CATEGORYID", adVarChar, adParaminput,20, categoryId) '执行存储过程 set rs = cmdMp.Execute dim iTitlesCount iTitlesCount = rs.fields("COUNT") if iTitlesCount > Public_BBS_TITLESCOUNTFORONEPAGE +17 then iPageCount = iTitlesCount/(Public_BBS_TITLESCOUNTFORONEPAGE +17) if cint(iPageCount) < iPageCount then iPageCount = cint(iPageCount) + 1 else iPageCount = cint(iPageCount) end if else iPageCount = 1 end if %> 丁一生活导航,生活服务类网站分类目录

  • 卡券购物 是单位送礼、发福利的首选, 也是办公、生活的实际需求
  • 丁一网杭州卡券部 电话:88071191 ,千元以上免费跑腿
票卡,就是为了方便
  • 现金卡
  • 生活类
  • 美食类
  • 购物类
  • 身体类
  • 影艺类
  • 休闲类
  • 交通信
  • 提货券
  • 其它
<%If iPageId = 1 Then %> <% '获取论题信息 set cmdMp = Server.CreateObject("ADODB.CoMMand") cmdMp.ActiveConnection = Session("uugxConn") cmdMp.CoMMandText = "mp_getBbsCategoryGgTitlesInfo" cmdMp.CoMMandType = adCmdStoredProc cmdMp.Parameters.Append cmdMp.CreateParameter("CATEGORYID", adVarChar, adParaminput,20, categoryId) '执行存储过程 set rs = cmdMp.Execute iLoop = 0 while not rs.Eof iLoop = iLoop + 1 %> <% rs.movenext wend %> <% set cmdMp = Server.CreateObject("ADODB.CoMMand") cmdMp.ActiveConnection = Session("uugxConn") cmdMp.CoMMandText = Public_MP_GETBBSCATEGORYTOPTITLESINFO cmdMp.CoMMandType = adCmdStoredProc cmdMp.Parameters.Append cmdMp.CreateParameter("CATEGORYID", adVarChar, adParaminput,20, categoryId) '执行存储过程 set rs = cmdMp.Execute while not rs.Eof %> <% rs.movenext wend %> <% End If %> <% '获取论题信息 set cmdMp = Server.CreateObject("ADODB.CoMMand") cmdMp.ActiveConnection = Session("uugxConn") cmdMp.CoMMandText = "mp_getBbsCategoryGeneralTitlesInfo" cmdMp.CoMMandType = adCmdStoredProc cmdMp.Parameters.Append cmdMp.CreateParameter("CATEGORYID", adVarChar, adParaminput,20, categoryId) cmdMp.Parameters.Append cmdMp.CreateParameter("PAGESIZE", adInteger, adParaminput, 4,Public_BBS_TITLESCOUNTFORONEPAGE+17) cmdMp.Parameters.Append cmdMp.CreateParameter("PAGEID", adInteger, adParaminput, 4,clng(iPageId-1)) '执行存储过程 set rs = cmdMp.Execute iLoop = 0 while not rs.Eof %> <% rs.movenext wend %>
目前位置:《网站论坛》 - 《卡券交易》 - 《送礼发福利》 发表/信息源 阅读/回复 最后回复
<% if rs.Fields("GOOD") <> "0" then response.write "【" & rs.Fields("GOOD") & "】" end if %> -0.html" title = "<%=rs.Fields("TITLE")%>" target="_blank"><%=rs.fields("TITLE")%> <%=rs.fields("CREATETIME")%>
<% if rs.Fields("CORID") <> "0" then response.write "" end if pUserName = rs.Fields("USERNMAE") if pUserName = "游客" then pUserName = " - " end If if rs.Fields("CORID") <> "0" then pUserName = rs.Fields("CORNAME") end if response.write pUserName if rs.Fields("CORID") <> "0" then response.write "" end if %>
<%=rs.fields("VIEWCOUNT")%>/<%=rs.fields("REVERTCOUNT")%> <% if rs.Fields("REVERTUSERNAME") = "默认用户" then publishTime = rs.Fields("CREATETIME") response.write "" & rs.fields("CREATETIME") & "
" & rs.fields("USERNMAE") else pUserName = rs.Fields("REVERTUSERNAME") if pUserName = "游客" then pUserName = " - " end if response.write "" & rs.fields("LASTREVERTTIME") & "
" & pUserName end if %>
<% if rs.Fields("GOOD") <> "0" then response.write "【" & rs.Fields("GOOD") & "】" end if %>-0.html" title = "<%=rs.Fields("TITLE")%>" target="_blank"><%=rs.fields("TITLE")%> <%=rs.fields("CREATETIME")%>
<% if rs.Fields("CORID") <> "0" then response.write "" end if pUserName = rs.Fields("USERNMAE") if pUserName = "游客" then pUserName = " - " end If if rs.Fields("CORID") <> "0" then pUserName = rs.Fields("CORNAME") end if response.write pUserName if rs.Fields("CORID") <> "0" then response.write "" end if %>
<%=rs.fields("VIEWCOUNT")%>/<%=rs.fields("REVERTCOUNT")%> <% if rs.Fields("REVERTUSERNAME") = "默认用户" then publishTime = rs.Fields("CREATETIME") response.write "" & rs.fields("CREATETIME") & "
" & rs.fields("USERNMAE") else pUserName = rs.Fields("REVERTUSERNAME") if pUserName = "游客" then pUserName = " - " end if response.write "" & rs.fields("LASTREVERTTIME") & "
" & pUserName end if %>
"0" Then response.write "src='../bbs/image/club_060420_icon_10.gif' title = '精华'" Else response.write "src='../bbs/image/club_060420_icon_01.gif' title = '普通'" End if %> width=14 align=absMiddle> <% if rs.Fields("GOOD") <> "0" then response.write "【" & rs.Fields("GOOD") & "】" end if %> -0.html" title = "<%=rs.Fields("TITLE")%>" target="_blank"><%=rs.fields("TITLE")%> <%=rs.fields("CREATETIME")%>
<% if rs.Fields("CORID") <> "0" then response.write "" end if pUserName = rs.Fields("USERNMAE") if pUserName = "游客" then pUserName = " - " end If if rs.Fields("CORID") <> "0" then pUserName = rs.Fields("CORNAME") end if response.write pUserName if rs.Fields("CORID") <> "0" then response.write "" end if %>
<%=rs.fields("VIEWCOUNT")%>/<%=rs.fields("REVERTCOUNT")%> <% if rs.Fields("REVERTUSERNAME") = "默认用户" then publishTime = rs.Fields("CREATETIME") response.write "" & rs.fields("CREATETIME") & "
" & rs.fields("USERNMAE") else pUserName = rs.Fields("REVERTUSERNAME") if pUserName = "游客" then pUserName = " - " end if response.write "" & rs.fields("LASTREVERTTIME") & "
" & pUserName end if %>
网站名称:丁一网 版权所有 | 浙ICP备05073365