⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_baoxiu_edit.asp

📁 ASP+Accesss数据库设备WEB报修
💻 ASP
字号:
<!--#include file =conn.asp-->
<!--#include file="ChkURL.asp"-->
<%if session("pass")<>"ok" then 
    Response.Redirect "index.asp"
    Response.End 
  end if

 baoxiu_id=cint(request("baoxiu_id"))
  
 if baoxiu_id<>"" and baoxiu_id="0" then
	Response.Write "<script>alert('未指定参数');history.back()</script>"
	response.end
 else
 
 Dim baoxiu_master,baoxiu_user,baoxiu_wp,baoxiu_yuanyin,baoxiu_time,star_time
 Dim baoxiu_banji,baoxiu_jieci,baoxiu_class,baoxiu_date,contact,guzhang,ip
 dim rs
 weixiu_main=request("weixiu_main")
 bx_id=session("bx_id")
 baoxiu_master=session("baoxiuuser_name")  '会员帐号
 baoxiu_user=request("baoxiu_user")  '报修人姓名
 baoxiu_wp=request("baoxiu_wp")  '报修品名
 baoxiu_yuanyin=request("baoxiu_yuanyin")  '报修主题
 baoxiu_banji=request("baoxiu_banji")  
 baoxiu_jieci=request("baoxiu_jieci")  
 baoxiu_class=request("baoxiu_class")   '报修部门
 baoxiu_date=request("baoxiu_date")  '希望维修日期
 baoxiu_time=request("baoxiu_time")  '具体时间
 contact=request("contact")     '联系电话
 guzhang=request("guzhang")        '报修故障显现及要求
 ip=request.servervariables("remote_addr")
 star_time=now()

 set rs=server.createobject("adodb.recordset")
 sql="select *  from baoxiu where baoxiu_id=" & baoxiu_id
 rs.open sql,conn,3,2
 	if rs.eof and rs.bof then
		rs.close
		set rs=nothing
		Response.Write "<script>alert('指定的ID不存在!');history.back()</script>"
		response.end
	end if 
end if 
%>

<html>
<head>
<title>后台管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<script LANGUAGE="javascript">
<!--
function checkdata()
{
if(document.baoxiu.baoxiu_class.value == "")
	{
		alert("对不起,请选择年级或部门!");
		document.baoxiu.baoxiu_class.focus();
		return false;
	}
if(document.baoxiu.baoxiu_banji.value == "")
	{
		alert("对不起,请选择班级!");
		document.baoxiu.baoxiu_banji.focus();
		return false;
	}
if (document.baoxiu.baoxiu_user.value=="")
	{
	  alert("对不起,请输入您的真实姓名!")
	  document.baoxiu.baoxiu_user.focus()
	  return false
	 }
if(document.baoxiu.baoxiu_date.value == "")
	{
		alert("对不起,请选择希望维修日期!");
		document.baoxiu.baoxiu_date.focus();
		return false;
	}	
if(document.baoxiu.contact.value == "")
	{
		alert("对不起,请输入联系电话!");
		document.baoxiu.contact.focus();
		return false;
	}	
if(document.baoxiu.contact.value.length < 4)
	{
		alert("对不起,请输入电话号码太短了吧!");
		document.baoxiu.contact.focus();
		return false;
	}
if(document.baoxiu.contact.value.length > 11)
	{
		alert("对不起,请输入联系电话号码太长了吧!");
		document.baoxiu.contact.focus();
		return false;
	}	
if(document.baoxiu.baoxiu_wp.value == "")
	{
		alert("对不起,请输入报修物品名!");
		document.baoxiu.baoxiu_wp.focus();
		return false;
	}	
if(document.baoxiu.baoxiu_yuanyin.value == "")
	{
		alert("对不起,请输入报修原因!");
		document.baoxiu.baoxiu_yuanyin.focus();
		return false;
	}	
if(document.baoxiu.guzhang.value == "")
	{
		alert("对不起,请输入报修故障显现及要求!");
		document.baoxiu.guzhang.focus();
		return false;
	}						 
}
//-->
</script>

<script language="javascript" src="../js/time1.js">   //调用JS代码
</script>
</head>
<body>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" class="TableBorder">
  <tr>
    <td height="30" colspan="2" align="center" class="TableTitle1"><b>修 改 报 修 单</b></td>
  </tr>
  <tr>
    <td width="100" class="TableRow2" height="25"><strong>管理快捷方式:</strong></td>
    <td class="TableRow2"><a href="Admin_system.asp">网站信息设置</a> | <a href="admin_baoxiu_list.asp" target="main">报修管理</a> | <a href="admin_fankui_list.asp" target="main">反馈管理</a></td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1">
      <tr>
        <td height="20" align="center"></td>
  </tr>
</table>
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="TableBorder">
          <tr>
            <td>
            <form action="admin_baoxiu_edit_save.asp?baoxiu_id=<%=baoxiu_id%>" method="post" name="baoxiu" OnSubmit="return checkdata()">
                <table border=0  cellpadding=0 cellspacing=1 width="100%">
                  <tr > 
                    <td height="25" colspan="2" align="center"  class="TableTitle1">修改报修单</td>
                  </tr>
                  <tr >
                    <td height="25" align="right"  class="TableRow2">报修编号:</td>
                    <td height="25" class="TableRow2"><span class="style2">  <%=rs("bx_id")%></span></td>
                  </tr>
                  <tr >
                    <td height="25" align="right"  class="TableRow2">用户帐号: </td>
                    <td height="25" class="TableRow2"><input name="baoxiu_master" class="wu" value="<%=rs("baoxiu_master")%>" size="10" maxlength="10" readonly></td>
                  </tr>
                  <tr > 
                    <td width="164" height="25" align="right" class="TableRow2">用户登陆IP:</td>
                  <td height="25" class="TableRow2">
                    <input name="ip" class="wu" value="<%=rs("ip")%>" size="20" maxlength="20" readonly></td>
                  </tr>
                  <tr >
                    <td height="25" align="right" class="TableRow2">报修人姓名:</td>
                    <td height="25" class="TableRow2">  <input name="baoxiu_user" class="wu" value="<%=rs("baoxiu_user")%>" size="10" maxlength="10" readonly></td>
                  </tr>
                  <tr > 
                    <td width="164" height="25" align="right" class="TableRow2">报修部门:</td>
                  <td height="25" class="TableRow2"><%
  set rs_s=server.CreateObject("adodb.recordset")
  sql="select * from b_smallclass order by top "
  rs_s.open sql,conn,1,1
%>
                    <script language="JavaScript" type="text/javascript">
var num;
var calArray=new Array();
<%
dim h
h=0
do while not rs_s.eof
%>
calArray[<%=h%>]=new Array("<%=rs_s("id")%>","<%=rs_s("nsmallarea")%>","<%=rs_s("nbigarea")%>");
<%
h=h+1
rs_s.movenext
loop
rs_s.close
set rs_s=nothing
%>
num=<%=h%>
function givevalue(myvalue){
document.baoxiu.baoxiu_banji.length = 0;
document.baoxiu.baoxiu_banji.options[0] = new Option('请选择','');
    for (i=0;i < num; i++)
        {
            if (calArray[i][2] == myvalue)
            {
             document.baoxiu.baoxiu_banji.options[document.baoxiu.baoxiu_banji.length] = new Option(calArray[i][1], calArray[i][0],"","");
                 }        
         }
}
                    </script>
                    <select name="baoxiu_class" id="baoxiu_class" onChange="givevalue(document.baoxiu.baoxiu_class.options[document.baoxiu.baoxiu_class.selectedIndex].value)">
                      <%
           set rs_b=server.CreateObject("adodb.recordset")
           sql="select * from b_bigclass order by top"
           rs_b.open sql,conn,1,1
           %>
                      <%
           do while not rs_b.eof
           %>
                      <option value="<%=rs_b("id")%>" <%if rs("baoxiu_class")=""&rs_b("id")&"" then response.write("selected")%>><%=rs_b("nbigarea")%></option>
                      <%
           rs_b.movenext
           loop
		   rs_b.close
           set rs_b=nothing
           %>
                    </select>
                    <select name="baoxiu_banji" id="baoxiu_banji">
                      <%
           set rs_s=server.CreateObject("adodb.recordset")
           sql="select * from b_smallclass where  nbigarea="&rs("baoxiu_class")&""
           rs_s.open sql,conn,1,1
           do while not rs_s.eof
           %>
                      <option value="<%=rs_s("id")%>" <%if rs("baoxiu_banji")=""&rs_s("id")&""  then response.write("selected")%>><%=rs_s("nsmallarea")%></option>
                      <%
           rs_s.movenext
           loop
           rs_s.close
           set rs_s=nothing
           %>
                    </select> 
                    * <span class="style1">班级物品报修请选择班次</span></td>
                  </tr>
                  <tr > 
                    <td width="164" height="25" align="right" class="TableRow2">报修品名: </td>
                    <td class=TableRow2 height="25">
					<%
  set rs_s=server.CreateObject("adodb.recordset")
  sql="select * from w_sclass  order by top "
  rs_s.open sql,conn,1,1
%>
                      <script language="JavaScript" type="text/javascript">
var num1;
var calArray1=new Array();
<%
dim j
j=0
do while not rs_s.eof
%>
calArray1[<%=j%>]=new Array("<%=rs_s("id")%>","<%=rs_s("sclassname")%>","<%=rs_s("bclassid")%>");
<%
j=j+1
rs_s.movenext
loop
rs_s.close
set rs_s=nothing
%>
num1=<%=j%>
function givevalue1(myvalue){
document.baoxiu.baoxiu_wp.length = 0;
document.baoxiu.baoxiu_wp.options[0] = new Option('请选择','');
    for (i=0;i < num1; i++)
        {
            if (calArray1[i][2] == myvalue)
            {
             document.baoxiu.baoxiu_wp.options[document.baoxiu.baoxiu_wp.length] = new Option(calArray1[i][1], calArray1[i][0],"","");
                 }        
         }
}
                      </script>

<select name="baoxiu_lb" id="baoxiu_lb" onchange="givevalue1(document.baoxiu.baoxiu_lb.options[document.baoxiu.baoxiu_lb.selectedIndex].value)">
  <%
           dim firstid1
           set rs_b=server.CreateObject("adodb.recordset")
           sql="Select * from w_bclass order by top"
           rs_b.open sql,conn,1,1
           if rs_b.eof or rs_b.bof then
           noclass1=1
           %>
  <option selected="selected">还没有添加大类</option>
  <%else %>
  <option value="" selected="selected">请选择</option>
  <%
   do while not rs_b.eof
  %>
  </option>
  <option value="<%=rs_b("id")%>" <%if rs("baoxiu_lb")=""&rs_b("id")&"" then response.write("selected")%>><%=rs_b("bclassname")%></option>
  <%
           rs_b.movenext
           loop
           end if
           rs_b.close
           set rs_b=nothing
           %>
</select>
<select name="baoxiu_wp" id="baoxiu_wp">
  <%if noclass1=1 then%>
  <option value="" selected="selected">还没有添加小类</option>
  <%
           else
           '在没有选择大类(页面刚载入)时要载入的小类,要跟默认的大类对应。
           set rs_s=server.CreateObject("adodb.recordset")
           sql="select * from w_sclass where  bclassid="&rs("baoxiu_lb")&"" 
           rs_s.open sql,conn,1,1
           if rs_s.eof or rs_s.bof then
           %>
  <option value="" selected="selected">请选择</option>
  <%
           else
           do while not rs_s.eof
           %>
  <option value="<%=rs_s("id")%>" <%if rs("baoxiu_wp")=""&rs_s("id")&""  then response.write("selected")%>><%=rs_s("sclassname")%></option>
  <%
           rs_s.movenext
           loop
           end if
           rs_s.close
           set rs_s=nothing
           end if
           %>
</select>
*</td>
                  </tr>
                  <tr > 
                    <td width="164" height="25" align="right" class="TableRow2">预约维修日期:</td>
                  <td height="25" class="TableRow2"> 
                    <span class="content9">
                    <input type="text" name="baoxiu_date" readonly="readOnly" value="<%=rs("baoxiu_date")%>" onClick="setDayHM(this);" />
                    </span> * <span class="style1">点击输入框选择预约维修时间</span></td>
                  </tr>
                  <tr >
                    <td width="164" height="25" align=right  class="TableRow2">联系电话:</td>
<td height="25" align=middle  class="TableRow2"><p align="left">
  <input name="contact" type="text" class="wu" value="<%=rs("contact")%>" size="18" maxlength="15" onKeyUp="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">
*(填写<span class="style1">校内电话</span>)</td>
                  </tr>
                  <tr >
                    <td width="164" height="25" align="right" class="TableRow2"> 报修原因: </td>
                  <td height="25" class="TableRow2">
                    <input name="baoxiu_yuanyin" class="wu" value="<%=rs("baoxiu_yuanyin")%>" size="50" maxlength="50"> 
                    *(故障简单描述,<span class="style1">不能超过50个字</span>)</td>
                  </tr>
                  <tr > 
                    <td width="164" align="right" class="TableRow2">报修故障显现及要求: </td>
                  <td class="TableRow2">  
                      <textarea name="guzhang" cols="65" rows="10" class="wu"><%=rs("guzhang")%></textarea> 
                      *(故障详细描述)</td>
                  </tr>
              </table> 
                  <tr align="center" > 
                    <td height="30" colspan=2 class="TableRow2"> 
                      <input class="button2" name="apply" type="submit" value="报修申请" >
                      <input type="hidden" name=ip  value="<%=request.servervariables("remote_addr")%>">
                      <input name="Submit" type="reset" class="button2" value="重新填写">
                     &nbsp;<INPUT type="button" value="返   回" name="back" onClick="javascript:history.back()">                     </td>
                  </tr> 
            </form>
            </td>
          </tr>
</table>
<!--#include file =config.asp-->
</body>
</html>

⌨️ 快捷键说明

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