📄 admin.asp

📁 作业提交评分管理系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="check.asp" -->
<!--#include file="tcconn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Management System</title>
</head>
<%
select case Request.Form("action")
case "update"
	call admin_update()
case "updatepassword"
	call admin_updatepassword()
case "updatework"
	call work_update()

end Select

sub admin_update()

     Dim var_sname
    var_sname = trim(Request.Form("name"))

    Dim var_snumber
    var_snumber = trim(Request.Form("snumber"))

   dim var_college
   var_college=trim(Request.Form("college"))
   
    Dim var_sclass
    var_sclass = trim(Request.Form("sclass"))
	
   Dim var_email
    var_email = trim(Request.Form("email"))

    Dim var_question
    var_question = trim(Request.Form("question"))
	
   dim var_id
   var_id=trim(Request.Form("id"))
  
  sql = "select top 1 * from [dbo_student] where [id] = " & var_id & ""
  Set Rs = Server.CreateObject("ADODB.Recordset")
  Rs.Open sql,conn,3,2
  
  If var_sname  <>  "" Then Rs("sname") = var_sname
  If var_snumber  <>  "" Then Rs("snumber") = var_snumber
  If var_college  <>  "" Then Rs("college") = var_college
  If var_sclass  <>  "" Then Rs("sclass") = var_sclass
  If var_email  <>  "" Then Rs("email") = var_email

  If var_question  <>  "" Then Rs("question") = var_question

   Rs.Update
   Rs.Close()
   Set Rs = Nothing
response.write "<script language=JavaScript>{window.alert('修改成功!');window.location.href='dbo_student_edit.asp';}</script>"
response.end
end sub

sub admin_updatepassword()
id=trim(Request.Form("id"))
password=trim(Request.Form("password"))
conn.execute("update  [dbo_student] set [password]='"&password&"'where ([id]="&id&")")
response.write "<script language=JavaScript>{window.alert('修改成功!');window.location.href='admin_edit.asp';}</script>"
response.end
end sub

sub work_update()
  
 dim var_id,var_Ip
 var_id=trim(Request.Form("id"))
  var_Ip = getIP() 

  sql = "select top 1 * from [dbo_student] where [id] = " & var_id & ""
  Set Rs = Server.CreateObject("ADODB.Recordset")
  Rs.Open sql,conn,3,2
  
  if session("img1")<>""then
    tc_zp=session("img1")
   else
    tc_zp=session("img11")
   end if
   session("img1")=""
   session("img11")=""
   Rs("file1")=tc_zp
   
  if session("img2")<>""then
    tc_zp=session("img2")
   else
    tc_zp=session("img22")
   end if
    session("img2")=""
    session("img22")=""
    Rs("file2")=tc_zp
    Rs("upload_ip")=var_Ip

   Rs.Update
   Rs.Close()
   Set Rs = Nothing
  response.write "<script language=JavaScript>{window.alert('"& var_Ip&"');window.location.href='dbo_work_edit.asp';}</script>"
  'response.write "<script language=JavaScript>{window.alert('修改成功!');window.location.href='dbo_work_edit.asp';}</script>"
  response.end
end sub

Private Function getIP() 
Dim strIPAddr 
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then 
strIPAddr = Request.ServerVariables("REMOTE_ADDR") 
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then 
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) 
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then 
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) 
Else 
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
End If 
getIP = Trim(Mid(strIPAddr, 1, 30)) 
End Function 
%>
⌨️ 快捷键说明

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