📄 editrereg.asp
字号:
<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
session("id")=request.cookies("oabusyname")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../../default.asp';")
response.write("</script>")
response.end
end if
%>
<head>
<title>预定登记</title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<!-- #Include File=../inc/css.asp -->
<% '定义变量
dim title,namelist,stylelist,placelist,levellist,unitlist,image
'过滤错误
on error resume next
'创建记录访问对象
SET rs=Server.CreateObject("ADODB.RecordSet")
'读取物品名称列表信息
rs.open "select DISTINCT vnumber,vname from goods",Session("conn"),1,1
namelist=""
while not rs.eof
namelist=namelist & "<option value='" & rs("vname") & "^" & rs("vnumber") & "'>" & rs("vname") & "</option>"
rs.movenext
wend
rs.close
'读取物品类别列表信息
rs.open "select DISTINCT vstyle from goods",Session("conn"),1,1
stylelist=""
while not rs.eof
stylelist=stylelist & "<option value='" & rs("vstyle") & "'>" & rs("vstyle") & "</option>"
rs.movenext
wend
rs.close
'读取物品单位列表信息
rs.open "select DISTINCT vunit from goods",Session("conn"),1,1
unitlist=""
while not rs.eof
unitlist=unitlist & "<option value='" & rs("vunit") & "'>" & rs("vunit") & "</option>"
rs.movenext
wend
rs.close
'读取物品产地列表信息
rs.open "select DISTINCT vplace from goods",Session("conn"),1,1
placelist=""
while not rs.eof
placelist=placelist & "<option value='" & rs("vplace") & "'>" & rs("vplace") & "</option>"
rs.movenext
wend
rs.close
'读取物品等级列表信息
rs.open "select DISTINCT vlevel from goods",Session("conn"),1,1
levellist=""
while not rs.eof
levellist=levellist & "<option value='" & rs("vlevel") & "'>" & rs("vlevel") & "</option>"
rs.movenext
wend
rs.close
title="预定"
image="../images/goods.gif"
%>
<style>
.css0{<%=vinputtext%>;border:none;}
</style>
<script language=JavaScript>
<!--
//读取表内字符串信息
function ds(sstr)
{
var dstr="";
for (i=0;i<sstr.length;i++)
{ if (sstr.charAt(i)!=' ') dstr+=sstr.charAt(i);
}
return dstr;
}
//判断用户输入信息的正确性
function getit()
{
if (ds(document.submitinput.vname.value)=="")
{
alert("对不起，物品名称不允许为空！");
document.submitinput.vname.focus();
return false;
}
if (document.submitinput.vname.value.length>255)
{
alert("对不起，您输入的物品名称超出最大限制，请重新输入！");
document.submitinput.vname.focus();
return false;
}
if (ds(document.submitinput.vcount.value)=="")
{
alert("对不起，物品数量不允许为空！");
document.submitinput.vcount.focus();
return false;
}
if (document.submitinput.vcount.value.length>6)
{
alert("对不起，您输入的物品数量超出最大限制，请重新输入");
document.submitinput.vcount.focus();
return false;
}
if (document.submitinput.vplace.value.length>255)
{
alert("对不起，您输入的物品产地超过最大限制，请重新输入！");
document.submitinput.vplace.focus();
return false;
}
if (document.submitinput.vstyle.value.length>50)
{
alert("对不起，您输入的物品类别不符合定义格式，请重新输入！");
document.submitinput.vstyler.focus();
return false;
}
if (document.submitinput.vlevel.value.length>10)
{
alert("对不起，您输入的物品等级字符数超过最大限制，请重新输入！");
document.submitinput.vlevel.focus();
return false;
}
MM_validateForm('vcount','','RisNum');
if(document.MM_returnValue)
{
document.submitinput.submit();
};
return false;
document.submitinput.submit();
}
//数据参数传递
//数据参数传递
function setname(ifrom,ito1,ito2)
{ if(document.all(ifrom).value!='')
{
temp=document.all(ifrom).value.split('^')
document.all(ito1).value=temp[0]
document.all(ito2).value=temp[1]
document.submitinput.vcount.focus();
}}
//设置表格只读属性并聚焦vname
function showdetail()
{
var flag=document.all.isnew.checked
disable(document.all.detail,flag);
readonly(document.all.vnumber,flag);
readonly(document.all.vname,flag);
if(flag)
document.submitinput.vname.focus();
}
//-->
</script>
</head>
<body eoncontextmenu="self.event.returnValue=false" id=all class=vtext onLoad="document.submitinput.vname.focus();">
<form name=submitinput action="save.asp?opFlag=cmdReReg" method=post >
<!-- #include file="../inc/title.asp" -->
<table cellspacing=1 cellpadding=2 width=95% bgcolor=<%=Session("vtablebordercolor")%> border=0 class=vtext align="center">
<tr>
<td align=right width="80" nowrap height="25" bgcolor="<%=Session("vtabletitlebackcolor")%>">名称(N):</td>
<td nowrap bgcolor="<%=Session("vtabletitlebackcolor")%>" colspan="3" >
<input name=vname class=css0 style="width=60%;filter:chroma(color=#ffffff);" value="<%if opFlag="cmdAddNew" then response.write("") else response.write(rs("vname"))%>" accesskey="n" tabindex="0" onKeyDown=gonext("vcount")>
<select name="namelist" accesskey="l" style="width=39%" onChange="setvalue(this.name,'vname');document.submitinput.vcount.focus();">
<option >----请选择-----</option><%=namelist%>
</select>
</td>
</tr>
<tr>
<td align=right width="80" nowrap height="25" bgcolor="<%=Session("vtabletitlebackcolor")%>">数量(C):</td>
<td nowrap bgcolor="<%=Session("vcolcolor")%>" >
<input name=vcount class=css0 style="width=100%" value="<%if opFlag="cmdAddNew" then response.write("1") else response.write(rs("vcount"))%>" accesskey="c" onKeyPress="checkkey()" onKeyDown=gonext("vnumber") oncontextmenu="self.event.returnValue=false">
<input readonly name=vtime class=css0 style="width=100%" value="<%=nowdate%>">
</td>
</tr>
</table>
<br>
<table name="detail" id="detail" cellspacing=1 cellpadding=2 width=95% bgcolor=<%=Session("vtablebordercolor")%> border=0 class=vtext align="center" >
<tr>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> width="80" align="right" height="0" >类别(T):</td>
<td bgcolor=<%=Session("vcolcolor")%> width="228" >
<input name=vstyle class=css0 style="width=120" value="<%=rs("vstyle")%>" accesskey="t" tabindex="0" onKeyDown=gonext("vunit")>
<select name="stylelist" accesskey="l" style="width:100" onChange=setvalue(this.name,'vstyle')>
<option >----请选择-----</option>
<%=stylelist%>
</select>
</td>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> nowrap rowspan="4" valign="top" width="80" align="right" >规格(P):</td>
<td bgcolor=<%=Session("vcolcolor")%> nowrap rowspan="4" valign="top" >
<input name="vguige" class="css0" style="width=100%;height=100%" accesskey="p" onKeyDown=gonext("vtext") value=<%response.write(rs("vguige"))%>>
</td>
</tr>
<tr>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> width="80" align="right" height="0" >单位(U):</td>
<td bgcolor=<%=Session("vcolcolor")%> width="228" >
<input name=vunit class=css0 style="width=120" value="<%if opFlag="cmdAddNew" then response.write("") else response.write(rs("vunit"))%>" accesskey="u" tabindex="0" onKeyDown=gonext("vplace")>
<select name="unitlist" accesskey="l" style="width:100" onChange="setvalue(this.name,'vunit');document.submitinput.vplace.focus();">
<option >----请选择-----</option>
<%=unitlist%>
</select>
</td>
</tr>
<tr>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> width="80" align="right" height="0" >产地(A):</td>
<td bgcolor=<%=Session("vcolcolor")%> width="228" >
<input name=vplace class=css0 style="width=120" value="<%if opFlag="cmdAddNew" then response.write("") else response.write(rs("vplace"))%>" accesskey="a" tabindex="0" onKeyDown=gonext("vlevel")>
<select name="placelist" accesskey="l" style="width:100" onChange="setvalue(this.name,'vplace');document.submitinput.vlevel.focus();">
<option >----请选择-----</option>
<%=placelist%>
</select>
</td>
</tr>
<tr>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> width="80" align="right" height="0" >等级(G):</td>
<td bgcolor=<%=Session("vcolcolor")%> width="228" >
<input name=vlevel class=css0 style="width=120" value="<%if opFlag="cmdAddNew" then response.write("") else response.write(rs("vlevel"))%>" accesskey="g" tabindex="0" onKeyDown=gonext("vguige")>
<select name="levellist" accesskey="l" style="width:100" onChange="setvalue(this.name,'vlevel');document.submitinput.vtext.focus();">
<option >----请选择-----</option>
<%=levellist%>
</select>
</td>
</tr>
<tr>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> width="80" align="right" nowrap height="25" valign="top">备注(M):</td>
<td bgcolor=<%=Session("vcolcolor")%> colspan="3" >
<textarea name="vtext" class="css0" style="width=100%" rows="5" cols="50" accesskey="m" ><%=rs("vtext")%></textarea>
</td>
</tr>
</table>
<p align=center>
<button class=vinputbutton style="height=24" onClick="getit();"><img src="../images/save.gif" align="absmiddle"> 保存</button>
<button class=vinputbutton style="height=24" name=chongxi onClick=javascript:history.go(-2);><img src="../images/back.gif" align="absmiddle"> 返回</button>
</p>
</form>
<% '关闭记录源
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -