分类 |
<%
sql = "select * from WR_Class order by Id Asc"
set rs = conn.execute(sql)
i=1
if not rs.eof then
while not rs.eof
Id=rs("Id")
AType=rs("Type")
LType=AType
if len(AType)>8 then
AType=left(AType,8)&".."
end if
%>
- <%=AType%>
<%
i=i+1
rs.movenext
wend
end if
rs.close
%>
|
|
|
最新报修 |
|
|
<%
sql = "select top 15 [编号],[故障现象],[联系人],[登记日期],[会员] from 维修 order by 编号 Desc"
set rs = conn.execute(sql)
i=1
if not rs.eof then
while not rs.eof
Id=rs("编号")
Des=rs("故障现象")
LDes=Des
if len(Des)>35 then
Des=left(Des,35)&".."
end if
Des=replace(Des," "," ")
User=rs("会员")
RDate=rs("登记日期")
%>
<%=Des%>
<%=User%>
<%=RDate%> |
<%
i=i+1
rs.movenext
wend
end if
rs.close
%>
|
|
标题 |
|
|
<%
sql = "select top 15 Id,Title,Type,(select Type from WR_Class where WR_Class.Id=WR_Art.Type) as TypeName,Time from WR_Art order by Id Desc"
set rs = conn.execute(sql)
if not rs.eof then
while not rs.eof
Id=rs("Id")
ATitle=rs("Title")
LTitle=ATitle
AType=rs("Type")
ATypeName=rs("TypeName")
if len(ATitle)>29 then
ATitle=left(ATitle,29)&".."
end if
ATime=rs("Time")
%>
<%=ATitle%>
<%=ATypeName%>
<%=ATime%> |
<%
rs.movenext
wend
end if
rs.close
if Session("WRuser")="" then
strManage="style=display:none"
else
strLogin="style=display:none"
end if
%>
|
|
|
最新公告 |
<%
sql = "select top 8 * from WR_Notice order by Id Desc"
set rs = conn.execute(sql)
if not rs.eof then
while not rs.eof
Id=rs("Id")
Title=rs("Title")
LTitle=Title
if len(Title)>11 then
Title=left(Title,11)&".."
end if
%>
<%=Title%>
|
<%
rs.movenext
wend
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
|
|
|
- 电话:<%=Tel%>
- 传真:<%=Fax%>
- Email:<%=Email%>
|
|
|