11.asp

来自「东北农业大学学生信息管理系统。用asp和网页制作。内附源码」· ASP 代码 · 共 122 行

<%
response.buffer = true
dim conn,connstr,dbpath
Dim rs,sql

Set Conn=Server.CreateObject("ADODB.Connection")
dbpath = "Database/data.mdb"
connstr ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath(dbpath)
Conn.Open connstr



Function CloseDatabase

	Conn.Close()
	Set Conn = Nothing

End Function


	 dim sql1
						
						sql1= "Select * from resume"

	total = 0
	j = 0
	i = 0
	Set rs1 = Server.CreateObject("ADODB.RecordSet")
	rs1.Open sql1,conn,1,1
	%>
		<table width="95%" border="0" cellpadding="3" cellspacing="1" bgcolor="#000000" align="center" ID="Table8">
			<tr style="BACKGROUND-IMAGE: url('../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../../Images/title1.gif');">
				<td bgcolor="#BEC7D6" style="background-image: url('')">
					<b>教师名称</b></td>
				<td bgcolor="#BEC7D6" style="background-image: url('')">
					<b>起止时间</b></td>
				<td bgcolor="#BEC7D6" style="background-image: url('')">
					<b>获得学位</b></td>
				<td bgcolor="#BEC7D6" style="background-image: url('')">
					<b>工作地</b></td>
				<td bgcolor="#BEC7D6" style="background-image: url('')">
					<b>职务</b></td>
		
			</tr>
			<%
				if rs1.BOF or rs1.EOF then
				total=0
				page=0
				pagecount=0

				for j = 1 to 10
				%>
			<tr bgcolor="<%=TableBodyColor%>">
				<td>　</td>
				<td>　</td>
				<td>　</td>
				<td>　</td>
				
				<td>　</td>
			</tr>
			<%
				next

				else
				total = rs1.RecordCount
				
				do while not(rs1.EOF or rs1.BOF)
				%>
			<tr bgcolor="<%=TableBodyColor%>" onMouseOver="this.style.backgroundColor='#ffffff'; " onMouseOut="this.style.backgroundColor='';">
				<td>
					<%=rs1("adder")%>
				</td>
				<td>
					<%=rs1("startendTime")%>
				</td>
				<td>
					<%=rs1("degree")%>
				</td>
				<td>
					<%=rs1("workPlace")%>
				</td>

				<td>
					<a href="MyProfile.asp?id=<%=rs1("id")%>" target="_blank" title="查看该教师的档案资料"><%=rs1("adder")%></a>
				</td>
			</tr>
			<%
				i = i + 1
				rs1.MoveNext
				loop
				if i < 10 then
				for j = 1 to (10 - i)
				%>
			<tr bgcolor="<%=TableBodyColor%>">
				<td>　</td>
				<td>　</td>
				<td>　</td>
				<td>　</td>
				<td>　</td>
			</tr>
			<%
				next
				end if
				%>
				<tr bgcolor="<%=TableLeftColor%>">
					<td colspan="11">
						<table cellSpacing="0" cellPadding="0" border="0" height="80%" width="100%" ID="Table10">
							<tr>
								<td align="right">
									共有 <font color="red"><b>
											<%=total%>
										</b></font>条符合条件的资料
								</td>
							</tr>
						</table>
					</td>
				</tr>
				<%
				end if
				%>
		</table>