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

📄 baoxiu_edit.asp

📁 ASP+Accesss数据库设备WEB报修
💻 ASP
字号:
<!--#include file ="conn.asp"-->
<!--#include file="admin/ChkURL.asp"-->
<%
if session("baoxiuuser_id")="" then
   	response.write "<script language=jscript>alert('对不起,您不是本站的注册用户或没有登陆系统!');window.location.href='index.asp';</script>"
	response.end
end if
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,rs
baoxiu_id=cint(request("baoxiu_id"))
if baoxiu_id<>"" and baoxiu_id="0" then
   Response.Write "<script>alert('未指定参数');window.location.href='index.asp';</script>"
   response.end
else
 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('指定的报修不存在!');window.location.href='index.asp';</script>"
		response.end
	end if 
end if
%>
<%if session("baoxiuuser_name")<>rs("baoxiu_master") then
    response.write "<script language=jscript>alert('对不起!您不能修改这条信息!非作者本人不能修改!');window.location.href='index.asp';</script>"
	response.end
end if%>
<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 == "")
	{
		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;
	}						 
}

function getVal(){
	var TelTypeValue;
	for (i=0;i<baoxiu.TelType.length;i++){
		if (baoxiu.TelType[i].checked){
			TelTypeValue=baoxiu.TelType[i].value;
			break;  //使用该语句可以减少不必要的循环次数
		}
	}
	if(TelTypeValue=="校内"){
		if(baoxiu.contact.value.length!=4 && baoxiu.contact.value.length!=8){
			alert("您输入的校内电话号码有误!应该为4位或8位数字!");baoxiu.contact.focus();return;
		}
	}else{
		if(TelTypeValue=="个人"){
			if(baoxiu.contact.value.length!=11 && baoxiu.contact.value.length!=8){
				alert("您输入的给人电话号码有误!应该为8位或11位数字!");baoxiu.contact.focus();return;
			}		
		}
	}
}
//-->
</script>


<SCRIPT language=JavaScript>
<!--
var LastCount =0;
function CountStrByte(Message,Total,Used,Remain){ //字节统计
 var ByteCount = 0;
 var StrValue  = Message.value;
 var StrLength = Message.value.length;
 var MaxValue  = Total.value;

 if(LastCount != StrLength) { // 在此判断,减少循环次数
	for (i=0;i<StrLength;i++){
		ByteCount  = (StrValue.charCodeAt(i)<=256) ? ByteCount + 1 : ByteCount + 2;
      if (ByteCount>MaxValue) {
      	Message.value = StrValue.substring(0,i);
			alert("留言内容最多不能超过 " +MaxValue+ " 个字节!\n注意:一个汉字为两字节。");
         ByteCount = MaxValue;
         break;
      }
	}
   Used.value = ByteCount;
   Remain.value = MaxValue - ByteCount;
   LastCount = StrLength;
 }
}

//-->
</SCRIPT>

<script language="javascript" src="js/time1.js">   //调用JS代码
</script>
<!--#include file =head.asp-->
<link rel="stylesheet" href="admin/style.css" type="text/css">
<%if rs("weixiu_main")<>"" then%>
<script language="javascript">
	alert("此报修信息已回复,不能再修改!");
	window.location.href="index.asp"
</script>
<%else%>
<form action="baoxiu_edit_save.asp?baoxiu_id=<%=baoxiu_id%>" method="post" name="baoxiu" OnSubmit="return checkdata()">
<table width="760" border=0 align="center" cellpadding=0 cellspacing=1  class="tableBorder5">
<tr> 
                    <td height="30" colspan="2" align="center"><b>修 改 报 修 单</b></td>
    </tr>
                  <tr>
                    <td height="30" colspan="2" align="center"><span class="style1"><font 
            color=red>说明:请您认真填写每一项! </font></span></td>
                  </tr>
                  <tr>
                    <td height="30" colspan="2" align="center" class="style2"><b>报修编号:<%=rs("bx_id")%></b></td>
                  </tr>
                  <tr>
                    <td height="30" align="right">用户帐号: </td>
                    <td height="30">&nbsp; <font color="#FF0000"><%=session("baoxiuuser_name")%></font> </td>
                  </tr>
                  <tr>
                    <td height="30" align="right">报修人姓名:</td>
                    <td height="30">&nbsp;
                        <input name="baoxiu_user" class="wu" value="<%=rs("baoxiu_user")%>" size="10" maxlength="10" readonly="readonly">
* (此为你注册的真实姓名,不可更改!)</td>
                  </tr>
                  <tr> 
                    <td width="164" height="30" align="right"> 报修部门:</td>
                  <td height="30">  
<%
  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>
&nbsp;
           <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>
           * 班级物品报修请选择班次</td>
                  </tr>
                  <tr> 
                    <td width="164" height="30" align="right">报修品名:</td>
                    <td class=content9 height="30">

                      <%
  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>
&nbsp;
<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="30" align="right"> 预约维修日期: </td>
              <td height="30"> 
                      &nbsp;
                      <input type="text" name="baoxiu_date" readonly="readOnly" value="<%=rs("baoxiu_date")%>" onclick="setDayHM(this);" />
                        * (点击输入框选择预约维修时间)</td>
                  </tr>
                  <tr>
                    <td width="164" height="30" align=right>联系电话:</td>
          <td height="30">&nbsp;
          <input name="contact" type="text" class="wu" value="<%=rs("contact")%>" size="18" maxlength="15" onBlur="getVal()" onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">
*
<input name="TelType" type="radio"  value="校内" checked="checked" />
校内电话
&nbsp;
<input name="TelType" type="radio"  value="个人" />
个人电话</td>
                  </tr>
                  <tr>
                    <td width="164" height="30" align="right"> 报修原因: </td>
                  <td height="30">
                      &nbsp;
                      <input name="baoxiu_yuanyin" class="wu" value="<%=rs("baoxiu_yuanyin")%>" size="50" maxlength="50">
                      *(故障简单描述,不能超过50个字)</td>
                  </tr>
                  <tr> 
                    <td width="164" align="right"> 故障详细描述:</td>
                <td>  
                      &nbsp;
                      <textarea name="guzhang" cols="65" rows="10" class="wu" onKeyDown="CountStrByte(this.form.guzhang,this.form.total,this.form.used,this.form.remain);"
					    onkeyup="CountStrByte(this.form.guzhang,this.form.total,this.form.used,this.form.remain);"><%=rs("guzhang")%></textarea>
                      *<BR><BR>
                      &nbsp;&nbsp;最多允许 
                        <input name="total" type="text" disabled  id="total"  value="1600" size="4"> 
                        个字节 已用字节:&nbsp;
                        <input name="used" type="text" disabled  id="used"  value="0" size="4">                        
                        剩余字节:
                        <input name="remain" type="text" disabled  id="remain" value="1600" size="4"></td>
                  </tr>
                  <tr align="center"> 
                    <td height="30" colspan=2> 
                      <input class="button2" name="apply" type="submit" value="报修申请" >
                      <input type="hidden" name="baoxiu_user2"  value="<%=rs_user("zs_name")%>" />
                      <input type="hidden" name=ip  value="<%=request.servervariables("remote_addr")%>">
                      <input name="Submit" type="reset" class="button2" value="重新填写">
                      <span class="TableRow2">
                      &nbsp;<input type="button" value="返   回" name="back" onclick="javascript:history.back()" />
                      </span></td>
                  </tr>
              </table> 
</form>

<%end if%>
<!--#include file =bottom.asp-->

⌨️ 快捷键说明

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