?? savegoods.asp
字號:
<!--#include virtual="/manage/include/conn.asp"-->
<%
if not isnumeric(trim(request("Price1"))) then%>
<script language="javascript">
alert("單價必須是數字!");
window.history.back();
</script>
<%
response.End()
else
Price=trim(request("Price1"))
end if
function repstr(str)
repstr=replace(str,""," ")
repstr=replace(repstr,chr(13),"<br>")
end function
TypeName1=request("TypeName")
set rs1=conn.execute("select * from tb_MedicineType where TypeName='"&TypeName1&"'")
yName=trim(request("yName"))
Mode1=trim(request("Mode"))
Mode2=trim(request("Mode1"))
if Mode2="" then
Mode2="無"
end if
elements=repstr(request("elements"))
fortill=repstr(request("fortill"))
usesize=repstr(request("usesize"))
medbook=repstr(request("medbook"))
set rs0=conn.execute("select * from tb_MedicineName where yName='"&yName&"'")
if not rs0.eof then
%>
<script language="javascript">
alert("已存在此藥品!");
window.location.href="/manage/goods/addgoodsname.asp";
</script>
<%
response.End()
end if
set rs=server.CreateObject("adodb.recordset")
strsql="insert into tb_MedicineName (TypeId,yName,Mode,Mode1,Price,intime,elements,usesize,fortill,medbook) values ("&rs1("TypeId")&",'"&yName&"','"&Mode1&"','"&Mode2&"',"&Price&",'"&cstr(now())&"','"&elements&"','"&usesize&"','"&fortill&"','"&medbook&"')"
rs.open strsql,conn,3,3
%>
<script language="javascript">
alert("藥品信息添加成功!");
window.location.href="/manage/goods/goodslist.asp";
</script>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -