📄 复件 inlistrefuse.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家

💻 ASP

字号:

<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
Dim InListID,Refuse,Action
InListID = Request("InListID")
if InListID="" then
	Call Msg("非法参数",4,"")
	Response.end
end if
if not Isnumeric(InListID) then
	Call Msg("页码应为数字",4,"")
	Response.end
end if
Action = Request("Action")


if Action="Add" then
	call SaveRefuse()
else
	call InRefuse()
end if



Call CONN_End(Conn)
Sub InRefuse()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>拒绝原因</title>
<link href="../css/mobile_sale.css" rel="stylesheet" type="text/css">
</head>

<body>
<%
sql="select * from T_InList where InListID=" & InListID
Call sql_open(Rs,Sql,Conn,1,1)
If Rs.eof And Rs.bof Then
	Call Msg("Nothing",4,"")
Else
%>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
  <form name="form1" method="post" action="InListRefuse.asp">
    <tr class="topbg">
      <td height="25"><div align="center">拒绝原因</div></td>
    </tr>
    <tr class="tdbg">
      <td><textarea name="Refuse" cols="50" rows="8" id="Refuse"><%=Rs("Refuse")%></textarea>
      <input name="Action" type="hidden" id="Action" value="Add">
      <input name="InListID" type="hidden" id="InListID" value="<%=Rs("InListID")%>"></td>
    </tr>
    <tr class="tdbg">
      <td><div align="center">
        <input type="submit" name="Submit" value="提交">
      </div></td>
    </tr>
	</form>
  </table>
<%
end if

Call Rs_End(Rs)
%>
<br><div align="center"><a href="javascript:window.close()">关闭窗口</a></div>
</body>
</html>
<%
End Sub

Sub SaveRefuse()
	Refuse=Request("Refuse")
	sql="select * from T_InList where InListID=" & InListID
	Call sql_open(Rs,Sql,Conn,1,3)
	If Rs.eof And Rs.bof Then
		Call Msg("Nothing",4,"")
	Else
		Rs("Refuse")=Refuse
		Rs.update
	End If
	Call InRefuse()
end Sub
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -