分类
    <% 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("登记日期") %> <% i=i+1 rs.movenext wend end if rs.close %>
<%=Des%> <%=User%> <%=RDate%>
标题
<% 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") %> <% rs.movenext wend end if rs.close if Session("WRuser")="" then strManage="style=display:none" else strLogin="style=display:none" end if %>
<%=ATitle%> <%=ATypeName%> <%=ATime%>
会员登陆
>
会员名:
密 码:
>
欢迎您!<%=Session("WRuser")%>
控制面版  我的报修
最新公告
<% 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 %> <% rs.movenext wend end if rs.close set rs=nothing conn.close set conn=nothing %>
<%=Title%>
  • 电话:<%=Tel%>
  • 传真:<%=Fax%>
  • Email:<%=Email%>
girl
<%=FootInfo%>