修改后的代码如下:
<%
sql="select top 15 * from job_T_course,JOB_T_train where train_flag=1 and JOB_T_train.train_tmember=job_T_course.course_tmember order by course_announcedate desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
for i=1 to rs.recordcount
response.write "<tr align='center'>"
response.write "<td><a href='course_info.asp?id="&rs("course_id")&"' target='_blank'>"
if len(rs("course_name"))>16 then response.write left(rs("course_name"),16)& ".." else response.write rs("course_name") end if
response.write "</a></td>"
response.write "<td nowrap>"
set rsw=conn.execute("select province_city from JOB_provinceandcity where id="&rs("course_provinceid"))
course_province=rsw("province_city")
rsw.close
set rsw=nothing
set rsw=conn.execute("select province_city from JOB_provinceandcity where id="&rs("course_capitalid"))
course_capital=rsw("province_city")
rsw.close
set rsw=nothing
set rsw=conn.execute("select province_city from JOB_provinceandcity where id="&rs("course_cityid"))
if not(rsw.eof) then
course_city=rsw("province_city")
end if
rsw.close
set rsw=nothing
response.Write course_province&" "&course_capital&" "&course_city
response.Write "</td>"
response.write "<td nowrap>"&rs("course_begin")&"</td>"
response.write "<td><a href='train_info.asp?id="&rs("JOB_T_train.train_id")&"' target='_blank'>"
if len(rs("train_name"))>14 then response.write left(rs("train_name"),14)& ".." else response.write rs("train_name") end if
response.write "</a></td>"
response.write "</tr>"
rs.movenext
next
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
