⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 updatasource_three.asp

📁 一个网上的考试系统
💻 ASP
字号:
🔍 
<!--#include file ="../include.asp"-->
<% 
	StartPage "修改题目确写信息首页",2
%>
<!--
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<link rel="stylesheet" type="text/css" href="../default.css">
<BODY  leftmargin=150 rightmargin=150 topmargin=30>
<IMG src="../images/title.JPG" border=0>
<hr>
<br>
-->
<%
	Source = Request.Form("Source")
	TableName = Request.Form ("TableName")
	
	set conn = Server.CreateObject ("adodb.connection")
	conn.Open "NetExamine","sa",""
	set userconn = Server.CreateObject ("adodb.recordset")	
	sqlstr = "select * from "&TableName&" where 题目名= '"&Source&"'"
	
	userconn.Open sqlstr,conn
	dim Resolute(5)
	Resolute(0) = userconn.Fields ("索引号")
	Resolute(1) = userconn.Fields ("题目名")
	Resolute(2) = userconn.Fields ("题目描述")
	Resolute(3) = userconn.Fields ("题目总分")
	Resolute(4) = userconn.Fields ("小题得分")
	'Response.Write (Resolute(0))
	'Response.Write (Resolute(1))
	'Response.Write (Resolute(2))
	'Response.Write (Resolute(3))
	'Response.Write (Resolute(4))
	'Response.End ()
%>
<form name ="Next" method ="post" action ="">
<table border="1" cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse" bordercolor="lightskyblue" width="90%" align=center>
	<tr>
		<td  height=20  bgcolor=LightSkyBlue></td>
	</tr>
		
	<tr>
		<td  align=center>
			<table  border=0 width="90%">
				<tr>
					<td  colspan=2></td>
				</tr>
				
				<tr>
					<td  align=center  colspan=2>
						<font  size=7  color=LightSkyBlue>管理员修改题目页</font>
					</td>
				</tr>
				
				<tr>
					<td  align=left width="30%"><b><font  size=4  color=LightSkyBlue>修改流程</font></b></td>
					<td></td>
				</tr>
				
				<tr>
					<td align=center><b><font size=4 color=LightSkyBlue>选择科目名</font></b></td>
					<td align=center >题　　目　　名：
						<%
							m_strName ="<input type =text name = SourceName value =" + Resolute(1)+">"
							Response.Write (m_strName)
							
							m_strNo ="<input type =hidden name = No value =" + cstr(Resolute(0))+">"
							Response.Write (m_strNo)
							
							m_strTable ="<input type =hidden name = TableName value =" + TableName +">"
							Response.Write (m_strTable)
						%>
					</td>
				</tr>
				
				<tr>
					<td align=center><b><font size=4 color=LightSkyBlue>选择题目名</font></b></td>
					<td align=center>题　目　描　述：
					<%
							m_strDescrip ="<input type =text name = Descrip value =" + Resolute(2)+">"
							Response.Write (m_strDescrip)
					%>
					</td>
				</tr>
				
				<tr>
					<td  align=center><b><font size=4 color=LightSkyBlue>填写修改项</font></b></td>
					<td align=center>题　目　总　分：
					<%
							m_strSource ="<input type =text name = AllSource value =" + cstr(Resolute(3))+">"
							Response.Write (m_strSource)
					%>
					</td>
				</tr>
				
				<tr>
					<td align=center><b><font size=4 color=LightSkyBlue>修改确定</font></b></td>
					<td align=center>每　题　得　分：
					<%
							m_strSmall ="<input type =text name = SmallSource value =" + cstr(Resolute(4))+">"
							Response.Write (m_strSmall)
					%>
					</td>
				</tr>
				
				<tr>
					<td ></td>
					<td align=center><input type ="button" value ="提交" onclick ="Check()"><input type="reset" value ="重填"></td>
				</tr>
			</table>
		</td>
	</tr>	
		
	<tr>
		<td  height=20  bgcolor=LightSkyBlue></td>
	</tr>
</table>
</form>
<!--
<br>
<hr>
<center>
<font  size=2>
欢迎来到本网站，最佳分辨率：800×600
<br>如果有困难请与我联系：FD_FYY@hotmail.com
</font>
</center>
</BODY>
</HTML>
-->
<% 
	EndPage
%>
<script language="javascript">
	function Check()
	{
		if (document.Next.Descrip.value == "")
		{
			alert("题目描述不能为空");
			return;
		}
		if (document.Next.AllSource.value == "")
		{
			alert("题目总分不能为空");
			return;
		}
		if (document.Next.SmallSource.value == "")
		{
			alert("每题不能为空");
			return;
		}
		else
		{
			document.Next.action = "UpdataSource_Four.asp";
			document.Next.submit ();
		}
	}
</script>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -