📄 stu_cjmanager.asp
字号:
<!--#include file="Admin_IsLogin.asp" -->
<!--#include file="dataconn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<LINK href="../inc/admin_style.css" type=text/css rel=stylesheet>
<title>在线管理学生成绩库记录</title>
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
.STYLE2 {color: #FF0000}
.STYLE3 {color: #3399FF}
.STYLE4 {color: #0099FF}
-->
</style>
</head>
<body>
<p>
<%
if request("act")="Dosql" then
call DoExeCuteSql()
Else
%>
</p>
<p> </p>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td height="22" valign="top" style="FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=1,startColorStr=#3b839f,endColorStr=#eff4ff)"><span class="style1"> </span><span class="topbg STYLE1"><strong>SQL在线成绩库记录管理</strong></span> （<span class="STYLE1">如果您对SQL命令不熟悉，请慎用此功能！</span>）</td>
</tr>
</table>
<p align="center"> </p>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><form action="?act=Dosql" method="post" name="form" id="form">
<textarea name="Content" rows="5" wrap="OFF" id="Content" style="width:100%"></textarea>
<br />
<input name="Submit" type="submit" value="执行SQL语句">
<input name="Rest" type="reset" value="重写">
</form> </td>
</tr>
</table>
<% End If %>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><p>注：</p>
<p>1、输入框中要输入标准的SQL语句，成绩库的表名为：studentpmb，表中相关字段为 ksname,nj,bj,stuidh,stuname 字段意思依次为考试名称，
一级分类，二级分类，号码，姓名等。 <br />
2、SQL命令格式<br />
例：删除考试名称为“2007-2008学年度第一学期初一月考1”的初一年级的记录，SQL命令为：<span class="STYLE3">delete from studentpmb where ksname="2007-2008学年度第一学期初一月考1" and nj="初一"</span>。<br />
例：修改考试名称为“2007-2008学年度第一学期初一月考1”的考试名称为：“2007-2008学年度第一学期初二月考1”，SQL命令为：<span class="STYLE4">update studentpmb set ksname="2007-2008学年度第一学期初二月考1" where ksname="2007-2008学年度第一学期初一月考1"</span><br />
<span class="STYLE2">3、切记：如果您对SQL命令不熟悉，请慎用此功能！请在执行前备份数据库。 </span></p>
</td>
</tr>
</table>
</body>
</html>
<%
'//执行Sql语句操作
Sub DoExeCuteSql()
Dim Content
Content=trim(Request.form("Content"))
Err.Clear
On Error Resume Next
Conn.BeginTrans
Conn.ExeCute(Content)
If Err.Number<>0 Then
Conn.Rollback
Response.Write("<script>alert(""<执行失败>\nSQL语句有误,请检查你的SQL语句."");window.history.back();</script>")
Else
Conn.CommitTrans
Response.Write("<script>alert(""<执行成功>\nSQL语句执行完毕！"");window.history.back();</script>")
End If
Response.End
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -