newsupdate.asp

来自「学校勤工助学管理网站 功能可管理 考勤计算工资并进行等级评估。」· ASP 代码 · 共 145 行

<!--#INCLUDE FILE="../database/conn.asp"-->
<% 
Response.Write "<form name=form1>"	
	Dim Method,oRs
Method = Request.QueryString("method")
 
sub useroper()    '防止非法用户
	 select case   session("admin_name")
		case "sa"
		exit sub
		case "admin" 
		exit sub
		case else
 				 %>
			  <script language="javascript">
				alert("你无权访问案例查询模块！")
				history.back();
		   </script>
	 <%
	 end select
end sub

Select case method
		case "add"  
		Add(conn)    
		case "edit" 
		Edit(conn)   
		case "Del"
		Del(conn)
		case "Query"
		call	Query(conn,Method)
		case "check"
		check(conn)
		case "uncheck"
		uncheck(conn)
		case "xiugaiPwd"
		xiugaiPwd(conn)
		End Select

Sub Add(conn)	
		  dim title, zuozhe , xibie, content, id, titletype ,riqi,errmsg
		    
		     title=Trim(request.form("title"))
		     zuozhe=Trim(request.form("zuozhe")) 
		     xibie=Trim(request.form("xibie"))
		     titletype=Trim(request.form("titletype"))
 		     content=Trim(request.form("content"))	
			 errmsg="" 
		 
	    if title=" " then errmsg= "标题能为空 "
		if zuozhe=" " then errmsg=errmsg & "姓名不能为空 "
	    if xibie=" " then errmsg=errmsg & "请选择系别类型! "
	    if titletype=" " then errmsg=errmsg & "新闻类别 "  
		if content=" " then errmsg=errmsg & "内容不能为空 "   
  		
		  if  errmsg<>""  then		
			Response.Write ("errmsg")  %>
 			<script language="javascript">
			  alert("<%=errmsg%>")
			  history.back();
		    </script>	
              
	<% else	 
  		Set rs = Server.CreateObject("ADODB.RECORDSET")
		   sql="select * from news where title='"&title&"'"           
	      rs.open sql,conn,3,3   
		if not Rs.eof then
		%>		
		<table width=620  height="171" align=left>          
		<tr> 
		<td colspan="2" height="38"><%="news重复,请返回！！"%> </td>
		  </tr>
		  <tr> 
			<td colspan="2" height="52">&nbsp; </td>
		  </tr>
		  <tr>  
			<td width="193" align=right> 
			  <input type=button value="返回" name=cmdback onclick="history.back()">
			</td>
		  </tr>
		</table>
		<%
		  exit sub	
		  CleanUp(oRs)
		  else 
			rs.AddNew 	 
			rs("title")=Trim(title)
			rs("zuozhe")=Trim(zuozhe) 
			rs("xibie")=Trim(xibie)
			rs("titletype")=Trim(titletype)
 			rs("riqi")=date()
			rs("content")=Trim(content) 
			rs.Update             
			rs.Close             
			conn.Close   
			set conn=nothing            
			set rs=nothing %>
			
	<table>
	<tr>
	<td>Successfully<A  href=news.asp>Go  back</A></td>
	</table>
			<%
			'Response.Redirect "useradd.asp"
		  end if
	   end if
End Sub
 '////////////////////////////////////////////////////////////////////////////////////
 Sub check(conn) 
Dim plusDevicplat,i,checksql
	for each student_no in Request.Form("mid")
		if Session("admin.name")="sa" and Session("Ifadmission")="1"   then 
			checksql="update student set ifadmission='1'  where student_no='" &student_no&"'"
			conn.execute(checksql)	
		end if
	next%>
	<table>
	<tr>
	<td>数据审批完毕，请点击<A  href=../student/student_info.asp>返回</A></td>
	</table>
	<%
	conn.close 
 End Sub
'////////////////////////////////////////////////////////////////////////////////////

Sub uncheck(conn) 
Dim plusDevicplat,i,unchecksql
	for each stduent_no in Request.Form("mid")
		if Session("admin.name")="sa" and Session("Ifadmission")="1"     then 
			unchecksql="update student set ifadmission='0'  where student_no='" &student_no&"'"	
			conn.execute(unchecksql)	
	    end if
	next%>
	<table>
	<tr>
	<td>数据未批准完毕，请点击<A  href=../student/student_info.asp>返回</A></td>
	</table>
	<%
		conn.close 
	
	End Sub
 '////////////////////////////////////////////////////////////////////////////////////
	%>
	  </form>