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

📄 addsourcefinish.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>
-->
<%
	Object = Request.Form("Object")
	SourceName = Request.Form ("sourceName")
	SourceDescriple = Request.Form ("sourceDescriple")
	SourceSoce = Request.Form ("sourceSore")
	SmallSore = Request.Form ("SmallSore")
	source =cint(SourceSoce)
	Samll = cint(SmallSore)
	
    m_strObject = Object + sourceName +"表"
	Object = Object +"题目表"
%>
<table align=center border="1" cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse" bordercolor="lightskyblue" width="80%">
	<tr>
		<td  bgcolor=LightSkyBlue height=20></td>
	</tr>
	
	<tr>
		<td  align=center>
			<table  width=90%  border=0>
				<tr>
					<td  align=center  height=20  colspan=2><font size=7 color=LightSkyBlue>管理员增加题目页</font></td>
				</tr>
				
				
				<tr>
					<td  align=left  colspan=2><b><font  size=5  color=LightSkyBlue>增加流程</font></b></td>
				</tr>
								
				<tr>
					<td  align=center></td>
					<td  align=center></td>
				</tr>
				
				<tr>
					<td  align=center><b><font  size=5  color=LightSkyBlue>填写内容</font></b></td>
					<td  align=center>
					<%	
						set conn = Server.CreateObject ("adodb.connection")
						conn.Open "NetExamine","sa",""
						set userconn = Server.CreateObject ("adodb.recordset")
						sqlstr = "select * from "&Object&" where 题目名 = '"&sourceName&"'"
						userconn.Open sqlstr,conn
						if not userconn.EOF then
							Response.Write "<center><font size = 6 color=LightSkyBlue>您所增加的题目已经存在<br>请返回重新输入</font></center>"
							Response.Write"<br><br><center><a href =Add_source.asp>返回</a></center>"
						else
							userconn.Close ()
							sqlstr = "insert into "&Object&" values('"&SourceName&"','"&SourceDescriple&"',"&source&","&Samll&")"
							'Response.Write (sqlstr)
							'Response.End ()
							userconn.Open sqlstr,conn
							if SourceName = "单选题" then
								sqlstr ="create table "&m_strObject&" (索引号 int IDENTITY(1,1) NOT FOR REPLICATION,题目内容 text,选择项一 text,选择项二 text,选择项三 text,选择项四 text,正确选项 int)"
							end if
							if SourceName = "填空题" then
								sqlstr = "create table "&m_strObject&" (索引号 int IDENTITY(1,1) NOT FOR REPLICATION,题目内容 text,题目答案 text)"
							end if
							if SourceName ="问答题" then
								sqlstr = "create table "&m_strObject&" (索引号 int IDENTITY(1,1) NOT FOR REPLICATION,题目内容 text,题目答案 text)"
							end if 
							if SourceName ="论述题" then
								sqlstr = "create table "&m_strObject&" (索引号 int IDENTITY(1,1) NOT FOR REPLICATION,题目内容 text,题目答案 text)"
							end if
							if SourceName = "计算题" then
								sqlstr = "create table "&m_strObject&" (索引号 int IDENTITY(1,1) NOT FOR REPLICATION,题目内容 text,题目答案 text)"
							end if
							'Response.Write (sqlstr)
							'Response.End ()
							userconn.Open sqlstr,conn
							
							Response.Write "<center><font size = 3 color=LightSkyBlue>您所输入的题目名已经完成。请返回功能主页</font></center>"
							Response.Write"<br><br><center><a href =AdminFunction.asp>返回</a></center>"
						end if	
						conn.Close ()
					%>					
					</td>
				</tr>
				
				<tr>
					<td  align=center><b><font  size=5  color=LightSkyBlue>确认增加</font></b></td>
					<td  align=center></td>
				</tr>
				
				<tr>
					<td></td>
					<td align=center></td>
				</tr>
				
				<tr>
					<td  colspan=2></td>
				</tr>
			</table>
		</td>
	</tr>
	
	<tr>
		<td  bgcolor=LightSkyBlue height=20></td>
	</tr>
</table>
<!--
<br>
<hr>
<center>
<font  size=2>
欢迎来到本网站，最佳分辨率：800×600
<br>如果有困难请与我联系：FD_FYY@hotmail.com
</font>
</center>
</BODY>
</HTML>
-->
<% 
	EndPage
%>

⌨️ 快捷键说明

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