📄 setaveragecost.asp

📁 1 除掉了时间限制 2 除掉了人数限制改为 500人原为5人 3 发现一点小缺陷增加人员的时候没有判断登陆名是否重复！自己写吧~~~：） 4 又是一点缺陷

💻 ASP

字号:

<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "payment","edit"
set objcheck=nothing

	set conn=server.CreateObject("adodb.connection")
	conn.open connstring

if  Request("Mod") = "save" then

		sql="update product_location set Averagecost='"&request.form("AverageCost")&"' where id="&request("id")
		set rs=conn.execute(sql)
	%>
	<script language=javascript>
		window.opener.location.reload();
		window.close();
	</script>		
<%
else

	sql="select Averagecost from product_location where id="&request("id")
	set rs=conn.execute(sql)
	if rs.eof then
		response.write "记录没有找到"
		response.end
	end if
	straveragecost=rs("averagecost")
end if
%>
<title>修正平均成本</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<Link href="../global.css" rel=stylesheet type=text/css>
<Script Language="javascript" >
function dosub()
{
	form1.Mod.value = "save";
	if(isNaN(form1.averagecost.value)){
		alert('请输入数字');
		form1.averagecost.focus();
		return;
	}
	form1.submit();
}    
</Script>
</head>
<body bgcolor="#FFFFFF" text="#000000" >
<form method="post"  id=form1 name=form1>
  <input type=hidden name="Mod" >
  <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="FFFFFF">
    <tr height=50>
    <td class=title><%=title%><div align="center"><textarea name=averagecost cols="35" rows="4"><%=strdescription%><%=straveragecost%></textarea></div></td>
    </tr>
    <tr>
        <td align="center" hight=45><br>
		<a onclick="return dosub()"><img src="../images/button_confirm.gif" style="cursor:hand"></a>&nbsp;	
        <img src="../images/button_cancel.gif" style="cursor:hand" border=0 language=javascript onclick="window.close();"> 
        </td>
    </tr>
    </table>  
  </form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -