28,391
社区成员
发帖
与我相关
我的任务
分享
<%
Response.Buffer=False
excelurl = request.form("excelurl")
set rs=server.createobject("adodb.recordset")
rs.open "select a.*,IIF(b.sfzhm <> NULL, 1, 0) AS IsExist from [excel 8.0;database="&server.mappath(""&excelurl&"")&"].[sheet1$] as a LEFT JOIN cn_peixun AS b ON a.身份证 = b.sfzhm order by a.序号 ",conn,1,1
Response.Write "<table border=1><tr>"&vbcrlf
'最后一列不显示
For x=0 To rs.Fields.Count-2
Response.Write "<td align=""center"">" & rs.Fields(x).Name & "</td>"&vbcrlf
Next
Response.Write "</tr>"&vbcrlf
Dim strTable
strTable = rs.GetString(,,"</td><td>","</td></tr><tr><td>","空")
Response.Write("<tr><td>"&strTable&"</td></tr></table>")
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>