📄 init.asp

📁 大学的综合测评
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="const.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="img/Style.css" rel="stylesheet" type="text/css" />
<title>无标题文档</title>
</head>
<body>
<%
action=Request("action")
if action="update" then
    dim c ,c1,c2
	sql="update pc_user set "
	for i=1 to 12
	m_apmark="m"&i&"_apmark"
	m_reason="m"&i&"_reason"
	m_finmark="m"&i&"_finmark"
	m_deptmark="m"&i&"_deptmark"
	m_deptreason="m"&i&"_deptreason"
	sql=sql&m_apmark&"=0,"&m_finmark&"=0,"&m_reason&"=null, "&m_deptmark&"=0, "&m_deptreason&"=null, "
	next
	sql=sql&"fir_spe_mark=0, fir_spe_reason=null, sed_spe_mark=0, sed_spe_reason=null, firterm_mark=0, sedterm_mark=0"
	 Response.Write("============用户表==============<br /><br />") 
		on error resume next
		set c = Server.CreateObject("ADODB.Command")
		c.ActiveConnection =dbconn
		c.CommandText = sql
		c.CommandType = 1
		c.CommandTimeout = 0
		c.Prepared = true
        c.execute
		if err.number="0" then 
		response.Write("<li>用户表处理完成</li>")
		else
		response.Write("<li><span class='red'>用户表处理出现异常错误</span></li>")
		end if
		err.clear
		
		Response.Write("<br /><br />============部门评分情况表==============<br /><br />") 
		on error resume next
		set c1 = Server.CreateObject("ADODB.Command")
		c1.ActiveConnection =dbconn
		for i=1 to 12
		c1.CommandText = "delete  from dept_score"&i&""
		c1.CommandType = 1
		c1.CommandTimeout = 0
		c1.Prepared = true
        c1.execute
		if err.number="0" then 
		response.Write("<li>第<span class='red'> "&i&" </span>月份部门评分情况表数据清理完毕</li>")
		else
		response.Write("<li><span class='red'>第 "&i&" 月份部门评分情况表数据清理出现异常错误</span></li>")
		end if
		err.clear
		next
		
		Response.Write("<br /><br />============= 留言本==============<br /><br />") 
		on error resume next
		set c2 = Server.CreateObject("ADODB.Command")
		c2.ActiveConnection =dbconn
		c2.CommandText = "delete  from guestbook "
		c2.CommandType = 1
		c2.CommandTimeout = 0
		c2.Prepared = true
        c2.execute
		if err.number="0" then 
		response.Write("<li>留言本数据清理完毕</li>")
		else
		response.Write("<li><span class='red'>留言本数据清理出现异常错误</span></li>")
		end if
		err.clear
%>
<%else %>
<br />
<br />
<br />
<form name="form" action="" method="post">
<table width="68%" border="0" align="center" cellpadding="8" class="atable1">
  <tr>
    <td><div align="center"><span class="red">初始化数据库</span><br />
    </div>
      初始化的内容为：<br />     
      <ol>   用户表中的数据：
       <ul>
	   <li>将用户的各个月份的个人申请分、部门加减分总得分、月份总评设置为0分</li>
	   <li>将用户的各个月份的个人申请理由、部门加分分理由、设置为空</li>
	   <li>将用户学期总评分、学期特加分设置为0，特加分加分理由设置为空</li>
	  </ul>
       <br />
       部门对用户评分的表中的数据：
       <ul>
	   <li>删除所有部门对用户评分的记录</li>
	   </ul>
       <br />
       留言本中的数据：
       <ul>
	   <li>删除所有留言<br />
	     <br />
	   </li>
	   </ul>
    </ol>   
   <div align="center">除上述列出的数据外其他数据一律不改变，如：用户信息、班级信息、部门信息、系统配置参数<br />
     <br />
     <input name="提交" type="submit" class="atable1" id="tj" value="确认初始化数据库" />
      &nbsp;&nbsp;
      <input name="重填" type="button" class="atable1" id="重填" value="放弃操作并返回上一页" onclick="javascript:history.go(-1)" />
      <input type="hidden" name="action" value="update" />
   </div></td>
  </tr>
</table>
</form>
<%end if%>
</body>
</html>
<%dbconn.close%>
⌨️ 快捷键说明

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