<%id=request.querystring("id")%> <% Dim ThisClass,ThisHtml,NewsNumber ThisHtml = "news-default.asp" '新闻频道主页 NewsNumber = 10 '每栏目新闻发布条数 NewsDisplay = "NewsDisplay.asp" '新闻显示页 Set TechCN = Server.CreateObject ("Adodb.Connection") ConnStr = "Driver={SQL Server};Server=(local);UID=NewsUser;PWD=chang123;database=Series" TechCN.Open ConnStr%> <% '取出一级专题的名字 search="select * from Topicclass where classid="&id set rs=TechCN.execute(search) %>

　
 
   
   
   
　
│ 公司简介 │ 本站大事 │ 本站招聘 │ 投稿信箱 │ 联系方法 │ 多提建议 │
主办单位：水利部海河水利委员会 版权所有：龙网科技发展有限公司