singleuc.ascx

利用简单框架结构vb+asp+sql,实现小型考试系统

<%@ Control Language="vb" AutoEventWireup="false" Codebehind="SingleUC.ascx.vb" Inherits="Exam.SingleUC" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TABLE borderColor="#111111" cellSpacing="0" width="100%" align="center" border="0">
	<TR>
		<TD width="100%" height="25"><SPAN class="STYLE1"><FONT color="#000080">一、单项选择题(每题<%=vSingle%>
					分,共<%=vSingleNumber%>题)</FONT></SPAN></TD>
	</TR>
</TABLE>
<%for k=1 to vSingleNumber%>
<%DataBingToRep()%>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor="#c0c0c0" cellSpacing="1" cellPadding="0"
	width="100%" border="0">
	<TR>
		<TD width="100%" bgColor="#efefef" height="20">&nbsp;&nbsp;<B><%=i+1%>
				、
				<asp:Label id="lblQesName" runat="server"></asp:Label><%=qname%></B></TD>
	</TR>
	<TR>
		<TD width="100%">&nbsp;&nbsp;&nbsp;&nbsp; <INPUT type="radio" value="A" name="no<%=qid%>">
			A、<%=qa%></TD>
	</TR>
	<TR>
		<TD width="100%">&nbsp;&nbsp;&nbsp;&nbsp; <INPUT type="radio" value="B" name="no<%=qid%>">
			B、<%=qb%></TD>
	</TR>
	<TR>
		<TD width="100%">&nbsp;&nbsp;&nbsp;&nbsp; <INPUT type="radio" value="C" name="no<%=qid%>">
			C、<%=qc%></TD>
	</TR>
	<TR>
		<TD width="100%">&nbsp;&nbsp;&nbsp;&nbsp; <INPUT type="radio" value="D" name="no<%=qid%>">
			D、<%=qd%></TD>
	</TR>
</TABLE><%i=i+1%>
<%next k%>
<TABLE id="Table1" align="center">
	<TR>
		<TD>
			<asp:hyperlink id="lblFirst" runat="server" ForeColor="IndianRed" Font-Size="12px">第一页</asp:hyperlink>
			<asp:hyperlink id="lblPrev" runat="server" ForeColor="IndianRed" Font-Size="12px">上一页</asp:hyperlink>
			<asp:label id="lblCurrentPage" ForeColor="IndianRed" Font-Size="12px" Runat="Server"></asp:label>
			<asp:hyperlink id="lblNext" runat="server" ForeColor="IndianRed" Font-Size="12px"> 下一页</asp:hyperlink>
			<asp:hyperlink id="lblLast" runat="server" ForeColor="IndianRed" Font-Size="12px">最后一页</asp:hyperlink></TD>
	</TR>
</TABLE>