<% on error goto 0 Function show(typeid,n) Set rs = Server.CreateObject("Adodb.RecordSet") Set rs = conn.execute("select top "&n&" FileUrl,Content,title,N_Fname,publishtime from article where typeid='"&typeid&"'") data = "" if rs.eof then data = data&" "&vbcrlf data = data&" 目前没有任何新闻！"&vbcrlf data = data&" "&vbcrlf else while not rs.eof FileUrl = trim(rs("FileUrl"))&"" Content = trim(rs("Content"))&"" if FileUrl="" and Content="" then title = rs("title") elseif trim(rs("FileUrl"))<>"" then title = ""&rs("title")&"" else title = ""&rs("title")&"" end if data = data & " " & vbcrlf data = data & " " & title & " (" & FormatDateTime(rs("publishtime"),2) & ")" & vbcrlf data = data & " " & vbcrlf rs.movenext wend data = data & " " & vbcrlf data = data & " " & vbcrlf data = data & " " & vbcrlf end if response.write data Set data = nothing rs.close set rs = nothing End Function %>

我要报名 我的报名信息 录取查询

<%call show(3,4)%> 重庆大学网络教育学院网络教育学院 重庆大学网络教育学院网络教育学院网络教育学院 重庆大学网络教育学院网络教育学院网络教育学院网络教育学院 网上语音答疑在线课件点播学习资料下载课程教学安排 学员信息查询同 学 录　　同学联谊会　兴趣小组 课表信息　　相关下载　　课程查询　　班级查询 光盘查询　　教材查询　　成绩查询　　补考重修 推荐教材　　教师信息　　教学大纲　　教学计划 [学习资料]　招生资料　教务资料　课 件　文 件 [常用软件]　网 络 类　应用软件　驱动程序　工具与软件 [电子书籍]　计 算 机　英 语　文 学　旅 游　美 食

2003年招生简章 专业计划与课程设置 毕业证书 常见问题FAQ 新生用户申请指南 新生交费指南 新生注册指南 新生选课指南 学生手册 网上学习指南 推荐教材 如何申办学习中心 学习中心管理办法 学习中心通讯录 西南师大远教中心 西南财大远教中心 中华学习网 考试资源网 教育部电子证书查询

<% conn.close set conn = nothing %>