|
|
| 我的报修 |
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.open connstr
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select top 15 * from 维修 where 会员='"&Session("WRuser")&"' 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
User=rs("联系人")
RDate=rs("登记日期")
%>
|
<%=Des%>
<%=User%>
<%=RDate%> |
<%
i=i+1
rs.movenext
wend
end if
rs.close
%>
|
|
|