|
信息分类
|
|
|
|
<%
set rst=server.CreateObject("adodb.recordset")
sqlt="Select * from newscata order by rootid"
rst.Open sqlt,conn,1,3
do while not rst.EOF
trootid = rst("rootid")
t_child_cataid=split(trootid,",")
t_num = ubound(t_child_cataid)
if t_num=0 then
tempcataStr=""
tempcataStr=tempcataStr&"| "
tempcataStr=tempcataStr&" | "
tempcataStr=tempcataStr&" "
tempcataStr=tempcataStr&""
tempcataStr=tempcataStr&""
tempcataStr=tempcataStr&" | "
tempcataStr=tempcataStr&" "
tempcataStr=tempcataStr&" | "
tempcataStr=tempcataStr&" "
Response.Write tempcataStr
end if
rst.MoveNext
loop
rst.Close()
set rst=nothing
%>
|
|
|
| 今天是：<%= year(date)%>年<%= month(date)%>月<%= day(date)%>日 星期
<% dim week
week=weekday(date)
dim w
select case week
case 1: w="日"
case 2: w="一"
case 3: w="二"
case 4: w="三"
case 5: w="四"
case 6: w="五"
case 7: w="六"
end select
response.write(w)
%>
|
 信息列表 - 阅读信息 |
| |
|
<%= rsnews("title") %>
来源：<%= rsnews("from") %> 发布时间：<%= rsnews("addtime") %> 阅读：<%= rsnews("hits") %> 次 |
| <%=rsnews("content") %> |
联系地址：<%=rsnews("address") %>
发布单位：<%=rsnews("from") %>
联系人：<%=rsnews("lianxiren") %> 联系电话：<%=rsnews("tel") %> |
<%
end if
rsnews.close
set rsnews=nothing
%>
|
|
