<%@ codepage=65001%> <% response.write "" response.write " " response.write " " response.write " 会议注册" response.write "" Db = "../phyhep.mdb" ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db) On Error Resume Next Set Conn = Server.CreateObject("ADODB.Connection") Conn.open ConnStr If Err Then err.Clear Set Conn = Nothing Response.Write "数据库链接错误,请检查连接字符串" Response.End End If sql = "select * from phyhepmd order by ID" set rs=server.createObject("ADODB.RecordSet") rs.open sql,conn,1,1 response.write "" response.write " " response.write " " response.write " 会议注册" response.write "" response.write "" response.write "
" response.write "
" response.write "" response.write "
" response.write "

注册列表(" & rs.recordcount & ")

" response.write "

返回注册页面

" response.write "" response.write "" response.write "" response.write "" dim regisOrder regisOrder=1 do while not rs.eof response.write "" response.write "" response.write "" regisOrder=regisOrder+1 rs.movenext loop response.write "
序号姓名单位
" & regisOrder & "" & rs("regisname") & "" & rs("regisorganization") & "
" rs.Close Set rs = Nothing conn.Close Set conn = Nothing response.write "点击此处返回会议注册" response.write "
" response.write "" %>