%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% reno = Request.QueryString("reno") If reno = "" Or IsNull(reno) Then Response.Write "您查询的资料不存在或已被删除" Response.End() End If %> <% Set Rs=Server.CreateObject("ADODB.RecordSet") Rs.Open "select * from resume where reno='" & reno & "' order by id",conn_webtemp,1,1 If Not Rs.Eof Then xinlang = Rs("name") gao1 = Rs("sg") xueli1 = Rs("xl") Rs.MoveNext xinniang = Rs("name") photo = Rs("photo") gao2 = Rs("sg") xueli2 = Rs("xl") xuanyan = Rs("content") End if Rs.Close Set Rs = Nothing Set conn_webtemp = Nothing %>
|