📄 aboutresult.asp
字号:
<!--#include file=Conn.asp !-->
<!--#include file="Check.asp"-->
<html>
<head>
<meta http-equiv = "Content-Language" content = "zh-cn">
<meta http-equiv = "Content-Type" content = "text/html; charset=gb2312">
<title><%=application("TestVerSion")%></title>
<link rel = "stylesheet" type = "text/css" href = "css.css">
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
background-color: #B1DB99;
}
-->
</style></head>
<body>
<table width="100%" height="18" border="0" cellspacing="1" bordercolor="#C0C0C0" bgcolor="#D9ECFF" style="border-collapse: collapse">
<tr>
<td height="18" background="../images/Down_bg.gif"> ★ <strong>当前位置： <font color="#FF0000">分数说明管理</font></strong></td>
</tr>
</table>
<%
Dim TeachingSujectID
TeachingSujectID = Session("TestTeachingSujectID")
Session("TestTeachingSujectID") = TeachingSujectID
If Session("TestTeachingSujectID") = "" Then
Response.Write("参数错误！")
Response.End
End If
%>
<%
TestID=Request("TestID")
Show=Request("Show")
if(Request.form("Add"))<>"" and TestID<>"" then'上传数据
Result1=request("Result1")
Result2=request.form("Result2")
Intro=request.form("Intro")
x1=Split(Result1,",")
x2=Split(Result2,",")
x3=Split(Intro ,",")
j=ubound(x1)
For i=0 to j
Sqlx=""
Sqlx="Insert Into AboutResult (TestID,Result1,Result2,Intro,teachingsujectID) Values "
Sqlx=Sqlx&"("& TestID &","& Trim(x1(i)) &","& Trim(x2(i)) &",'"& Trim(x3(i)) &"',"&TeachingSujectID&")"
'Response.Write Sqlx&"<br>"
Conn.Execute(Sqlx)
Next
end if
if(Request.form("Edit"))<>"" and TestID<>"" then'更新数据
ID=request.form("ID")
Result1=request.form("Result1")
Result2=request.form("Result2")
Intro=request.form("Intro")
x1=Split(Result1,",")
x2=Split(Result2,",")
x3=Split(Intro ,",")
x4=Split(ID,",")
j=ubound(x1)
For i=0 to j
Sqlx=""
Sqlx="Update AboutResult Set Result1='"& Trim(x1(i)) &"',Result2='"& Trim(x2(i)) &"',Intro='"& Trim(x3(i)) &"' where ID="&Int(x4(i))
'Response.Write Sqlx&"<br>"
Conn.Execute(Sqlx)
Next
Show=1
end if
if(Request.form("Del"))<>"" and TestID<>"" then'删除数据
ID=request.form("DelMe")
x4=Split(ID,",")
j=ubound(x4)
For i=0 to j
Sqlx=""
Sqlx="delete from AboutResult where ID="&Int(x4(i))
Response.Write Sqlx&"<br>"
Conn.Execute(Sqlx)
Next
Show=1
end if
%>
<SCRIPT language=javascript>
function checkform(){
for (i=0;i<=(vote.opt.length-1);i++){
if (vote.opt(i).value==""){
alert('请填空！');
vote.opt(i).focus();
return false;
}
}
}
function SetIt()
{
str='<br>';
if(!window.form1.upcount.value)
window.form1.upcount.value=1;
for(i=1;i<=window.form1.upcount.value;i++)
str+='说明'+i+':<br>从<input type="text" name="Result1" size=2 maxlength=3 class=inputnormal onblur=this.className="inputnormal" onfocus="this.className=\'inputedit\'">分->到:<input type="text" name="Result2" size=2 maxlength=3 class=inputnormal onblur=this.className="inputnormal" onfocus="this.className=\'inputedit\'">分<br><textarea name=Intro rows=6 cols=30 class=inputnormal onblur=this.className="inputnormal" onfocus="this.className=\'inputedit\'"></textarea><br><br>';
window.TextID.innerHTML=str+'<br>';
}
function Check(){//Writed by lengcool@hotmail.com at 2003-4-25
if(document.form1.TestID.value==""){alert('请选择类别！');document.form1.TestID.focus();return false;}
return true;
}
</script>
<form action=AboutResult.asp method=post name=form1 onSubmit="return Check()">
<select name="TestID">
<option value="">--选择自测--</option>
<% sql="select TestID,TestName from TestName where teachingsujectId= "&TeachingSujectID&" order by TestID desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
if Trim(TestID)=Trim(rs("TestID")) then
a="Selected"
else
a=""
end if
%>
<option value="<%=rs("TestID")%>" <%=a%>><%=rs("TestName")%></option>
<% rs.movenext
loop
rs.close %>
</select> <input type=submit value="· 显示现有分数说明 ·" name=Show class="b2"><br><br>
<%
if Show<>"" and TestID<>"" then'更改数据
i=0
Sqls="Select * from AboutResult where TestID="&TestID
Set oRs=Server.createobject("Adodb.RecordSet")
oRs.Open Sqls,Conn,1,1
Count=oRs.RecordCount
For j=1 to Count
i=i+1
%>
<input type=hidden name="ID" value="<%=oRs("ID")%>">
<input type=checkbox Name=DelMe value="<%=oRs("ID")%>"><font color=#FF33FF>说明<%=i%>:</font><br>从<input type="text" name="Result1" size=2 maxlength=3 value="<%=oRs("Result1")%>">分->到:<input type="text" name="Result2" size=2 maxlength=3 value="<%=oRs("Result2")%>">分<br><textarea name=Intro rows=6 cols=20><%=oRs("Intro")%></textarea><br><br>
<%
oRs.MoveNext
Next
If Count>0 Then
%>
<input type=submit name="Edit" value=" 修改 " class="b2">
<Input type=Submit name="Del" value=" 删除 " class="b2" onClick="Javascript:return confirm('您确认要删除它吗？')">
<input type=button name="AddMe" class="b2" value=" 添加 " onClick="JavaScript:location.href=document.form1.action+'?TestID='+document.form1.TestID.value;">
<% Else
Response.Write "<font color=red>无任何分数说明!</font>"
%>
<li> 现在就添加说明：
<input type="text" name="upcount" size=2 value="1" class='inputnormal' onblur='this.className="inputnormal"' onfocus='this.className="inputedit";'>
<input type="button" name="Button" onclick="SetIt();" value="· 设定说明个数！ ·">
</li>
<div id=TextID></div>
<input type=submit name=Add value=" 提交 " class="b2">
<script language="javascript">
SetIt();
</script>
<%
End If
Else
%>
<li> 需要说明的个数
<input type="text" name="upcount" size=2 value="1" class='inputnormal' onblur='this.className="inputnormal"' onfocus='this.className="inputedit";'>
<input type="button" name="Button" onclick="SetIt();" value="· 设定说明个数！ ·" class="b2">
</li>
<div id=TextID></div>
<script language="javascript">
SetIt();
</script>
<input type=submit name=Add value=" 提交 " class="b2">
<%End if%>
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -