baoxiu.asp
来自「ASP+Accesss数据库设备WEB报修」· ASP 代码 · 共 397 行
ASP
397 行
<!--#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
%>
<!--#include file =head.asp-->
<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_wp.value == "")
{
alert("对不起，请输入报修物品名！");
document.baoxiu.baoxiu_wp.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_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>
<form action="baoxiu_save.asp" method="post" name="baoxiu" OnSubmit="return checkdata()" >
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tableBorder5">
<tr>
<td><table width="760" height="30" border="0" align="center" cellpadding="5" cellspacing="1">
<tr>
<td align="center"><b>报 修 登 记</b></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="30" align="center" class="style1">说明：请您认真填写每一项！带*必须填写！</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="1" >
<tr >
<td width="164" height="30" align="right"> 用户帐号： </td>
<td height="30"> <font color="#FF0000"><%=session("baoxiuuser_name")%></font></td>
</tr>
<tr >
<td height="30" align="right">报修人姓名：</td>
<td height="30">
<%
Dim rs_user,zs_name,user_name
user_name=session("baoxiuuser_name")
zs_name=request("zs_name")
Set rs_user = Server.CreateObject("ADODB.Recordset")
sql="select * from user_reg where user_name = '" & user_name & "'"
rs_user.open sql,conn,3,2
%>
<input name="baoxiu_user" class="wu" value="<%=rs_user("zs_name")%>" size="10" maxlength="10" disabled>
* （此为你注册的真实姓名,不可更改!）</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">
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)">
<%
dim firstid
set rs_b=server.CreateObject("adodb.recordset")
sql="Select * from b_bigclass order by top"
rs_b.open sql,conn,1,1
if rs_b.eof or rs_b.bof then
noclass=1
%>
<option selected>还没有添加大类</option>
<%
else
rs_b.movefirst
firstid=rs_b("id")
'在没有选择大类（页面刚载入）时要载入的大类。
%>
<option value="" selected>请选择</option>
<%
do while not rs_b.eof
%>
<option value="<%=rs_b("id")%>"><%=rs_b("nbigarea")%></option>
<%
rs_b.movenext
loop
end if
rs_b.close
set rs_b=nothing
%>
</select>
<select name="baoxiu_banji" id="baoxiu_banji">
<%if noclass=1 then%>
<option value="" selected>还没有添加小类</option>
<%
else
'在没有选择大类（页面刚载入）时要载入的小类，要跟默认的大类对应。
set rs_s=server.CreateObject("adodb.recordset")
sql="select * from b_smallclass where id="&firstid
rs_s.open sql,conn,1,1
if rs_s.eof or rs_s.bof then
%>
<option value="" selected>请选择</option>
<%
else
do while not rs_s.eof
%>
<option value="<%=rs_s("id")%>"><%=rs_s("nsmallarea")%></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">
<%
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
rs_b.movefirst
firstid1=rs_b("id")
'在没有选择大类（页面刚载入）时要载入的大类。
%>
<option value="" selected="selected">请选择</option>
<%
do while not rs_b.eof
%>
<option value="<%=rs_b("id")%>"><%=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 id="&firstid1
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")%>"><%=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">
<input type="text" name="baoxiu_date" readonly onclick="setDayHM(this);" />
* （点击输入框选择预约维修时间）</td>
</tr>
<tr >
<td width="164" height="26" align="right">联系电话：</td>
<td height="26">
<input name="contact" type="text" class="wu" value="" 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" />
校内电话
<input name="TelType" type="radio" value="个人" />
个人电话</td>
</tr>
<tr >
<td width="164" height="30" align="right"> 报修原因： </td>
<td height="30">
<input class="wu" maxlength="40" name="baoxiu_yuanyin" size="30">
*（故障简单描述，不能超过50个字）</td>
</tr>
<tr >
<td width="164" align="right">
故障详细描述：</td>
<td>
<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);"></textarea>
*<BR><BR>
最多允许
<input name="total" type="text" disabled id="total" value="1600" size="4">
个字节 已用字节：
<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="ip" value="<%=request.servervariables("remote_addr")%>">
<input type="hidden" name="baoxiu_user" value="<%=rs_user("zs_name")%>" />
<input name="Submit" type="reset" class="button2" value="重新填写">
<span class="TableRow2">
<input type="button" value="返 回" name="back" onclick="javascript:history.back()" />
</span></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<!--#include file =bottom.asp-->
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?