<% dim scorenum,name scorenum = trim(request.form("scorenum")) scroenum = Replace(Replace(Replace(Replace(scorenum,"",""),"'",""),"&",""),";","") name = trim(request.form("name")) name = Replace(Replace(Replace(Replace(name,"or",""),"'",""),"&",""),";","") If instr(name,"or")>0 then response.write "输入包含非法字符，请重新输入！" %> <% Set newconn=Server.CreateObject("ADODB.Connection") Set RS=Server.CreateObject("adodb.recordset") DBPath = Server.MapPath("./score.mdb") newconn.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & DBPath SQLcmd="select * from score where ksh='"&scorenum&"' and xm='"&name&"' " Set RS=newconn.Execute(SQLcmd) %>
 


◇ 学校保留对成绩数据的最终解释权利

 

◇ 继续查询

 

<%if RS.eof or RS.bof then %> 很遗憾，在目前公布的成绩中没有您的成绩。  <% else %> 感谢您的报考！ <% end if %>

<%DO While Not RS.EOF%> <% dim xbdm,lqzy xbdm = RS("xb") IF RS("xb")="1 男" THEN xbdm = "男" END IF IF RS("xb")="2 女" THEN xbdm = "女" END IF %>
身份证号
<%=RS("ksh")%>
准考证号
<%=RS("sf")%>
姓名
<%=RS("xm")%>
性别
<%=RS("xb")%>
专业综合课
<%=RS("cc")%>
技能考核
<%=RS("zy")%>
总成绩
<%=RS("ems")%>
<% RS.MoveNext Loop RS.Close newconn.Close %>