📄 odd_edit_elinkid.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<%const title="易联单号修改"%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<title><%=title%></title>
<link rel="stylesheet" type="text/css" href="../data/forum.css">
</head>
<body topmargin="0" onload="javascript:self.moveTo(0,0)">
<%
if isempty(session("username")) then
call closedatabase
Response.Write "请重新登入!"
Response.End
end if
newcompanyid = request("companyid")
if newcompanyid = "" then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""请先选择公司再做此步操作！"");"
Response.write "history.go(-1);"
Response.Write "</script>"
Response.End
elseif not isnumeric(newcompanyid) then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""companyid必须为整数！"");history.go(-1);"
Response.Write "</script>"
Response.End
else
newcompanyid = cint(newcompanyid)
end if
arra = split(session("username"),";")
UserCompanyid = arra(0)
flag = arra(1)
User = arra(2)
userno = arra(4)
if flag > 4 then
call closedatabase
Response.end
end if
elink_id = request("elink_id")
if not isnumeric(elink_id) then
Response.Write "<script language=javascript>"
Response.Write "alert(""ID必须为数字！"");"
Response.write "history.go(-1);"
Response.Write "</script>"
Response.End
end if
if Request.ServerVariables("REQUEST_METHOD")="POST" then
elink_odd = trim(request("elink_odd"))
elink_odd = replace(elink_odd,"'","’")
sql = "select elink_id from outward_elink where elink_odd = '"&elink_odd&"' and elink_id <> "&elink_id&""
set rst = conn.execute(sql)
if rst.eof then
rst.close
set rst = nothing
sql = "update outward_elink set elink_odd = '"&elink_odd&"' where elink_id = "&elink_id&" "
conn.execute(sql)
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "{opener.location.reload();window.close();}"
Response.Write "</script>"
Response.End
else
rst.close
set rst = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "{alert(""该易联单号已经存在，请用其它的易联单号！！！"");history.go(-1);}"
Response.Write "</script>"
Response.End
end if
else
sql = "select elink_odd,elink_dc_id,elink_companyid from outward_elink where elink_id = "&elink_id&""
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
elink_odd = rs("elink_odd")
elink_dc_id = rs("elink_dc_id")
%>
<form action="odd_edit_elinkid.asp" method="POST" name="output1">
<table align=center width=100% cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC' border="1">
<tr>
<td colspan=4 align=center bgcolor=red><b><font color=yellow>出库记录详细信息一览</font></b></td>
</tr>
<tr>
<td width="15%">易联单号：</td>
<td colspan="3" width="85%">
<%response.write elink_odd%></td>
</tr>
<tr>
<td width="15%">修改为：</td>
<td colspan="3" width="85%">
<%
response.write "<input style=""font-size:9pt;width=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='elink_odd' value='"&elink_odd&"' maxlength=""15"" onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
%></td>
</tr>
<input type=hidden name=elink_id value=<%=elink_id%>>
<input type=hidden name=companyid value=<%=newcompanyid%>>
<tr bgcolor=white>
<td colspan="5"><br><br>
<center>
<input class=buttonface type=button onclick="datacheck()" name=ok value=修改>
</center>
<br><br>
</tr>
</table>
</form>
<br><br>
<script language=vbscript>
<!--
Sub datacheck()
if trim(output1.elink_odd.value)=empty then
msgbox "「易联单号」不得为空白！", 64, "请输入易联单号!"
document.output1.elink_odd.focus()
Exit Sub
End if
output1.Submit
End Sub
-->
</script>
<%
else
Response.Write "可能该数据已经被他人删除,请刷新主页面!"
end if
rs.Close
set rs = nothing
call closedatabase
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -