?? addtype.asp
字號:
<!--#include file="../../../inc/config.asp" -->
<!--#include file="../../../inc/conn.asp" -->
<link href="../../../Styles/lanx.css" rel="stylesheet" type="text/css">
<link href="../../../Styles/Navigator.css" rel="stylesheet" type="text/css">
<script languang="javascipt">
function doSubmit()
{
if (document.myform.L_sequence.value=="")
{
alert("請?zhí)顚懘祟}序號!");
document.myform.L_sequence.focus();
return false;
}
if (document.myform.L_description.value=="")
{
alert("請?zhí)顚懘祟}描述!");
document.myform.L_description.focus();
return false;
}
if (document.myform.L_parvalue.value=="")
{
alert("請?zhí)顚懘祟}分值!");
document.myform.L_parvalue.focus();
return false;
}
document.myform.submit();
}
</Script>
<%
dim conn
set conn=Server.CreateObject("ADODB.CONNECTION")
set conn=openExamData()
dim sql,rs
sql="select * from L_baseTypes order by L_position"
set rs=Server.createObject("adodb.recordset")
rs.open sql,conn,1,3
%>
<table width="301" border="0" align="center">
<form action="action/addtype.asp" method="post" name="myform">
<tr>
<td width="295" height="20" align="center" bgcolor="#CCCCCC"> <strong>添加試卷題型</strong></td>
</tr>
<tr>
<td height="20" bgcolor="eeeeee">此題序號:
<input name="L_sequence" type="text" id="L_sequence" value="一" /></td>
</tr>
<tr>
<td width="295" height="20" bgcolor="eeeeee">此題描述:
<input name="L_description" type="text" id="L_description" size="30" value="每題1分,共20分。"></td></tr>
<tr>
<td bgcolor="eeeeee">基本題型:
<select name="L_baseTypeID" id="L_baseTypeID">
<option value="1">請選擇基本題型</option>
<%
do while not rs.eof
%>
<option value="<%= rs("L_baseTypeID") %>"><%= rs("L_name") %></option>
<%
rs.movenext
loop
%>
</select> </td>
</tr
><tr>
<td bgcolor="eeeeee">每題分值:
<input name="L_parvalue" type="text" id="L_parvalue" value="1" /></td>
</tr>
<tr><td bgcolor="eeeeee">
排序權(quán)數(shù):
<select name="L_position" id="L_position">
<option value="10000">1000</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
</select>
(由小到大)</td>
</tr>
<tr>
<td width="295" height="20" align="center" bgcolor="eeeeee">
<input name="L_testID" type="hidden" value="<%= Request.QueryString("testID") %>" />
<input name="L_updateTime" type="hidden" value="<%= now() %>" />
<input name="action" type="hidden" value="add" />
<input type="button" name="btnSubmit" value=" 添 加 " onclick="doSubmit()">
<input type="reset" name="Submit" value=" 重 置 "></td>
</tr>
</form>
</table>
<br />
<table width="500" border="0" align="center" cellpadding="0" cellspacing="2">
<tr bgcolor="#CCCCCC">
<td colspan="3" bgcolor="eeeeee"><strong>基本題型介紹:</strong></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="39"><div align="center"><strong>編號</strong></div></td>
<td width="89"><div align="center"><strong>題型名稱</strong></div></td>
<td width="364"><div align="center"><strong>詳細(xì)描述</strong></div></td>
</tr>
<%
rs.movefirst
do while not rs.eof
%>
<tr bgcolor="eeeeee">
<td> <%= rs("L_baseTypeID") %></td>
<td> <%= rs("L_name") %></td>
<td> <%= rs("L_description") %></td>
</tr>
<%
rs.movenext
loop
%>
</table>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -