📄 newlunchpack.asp

📁 管理server的檔案....及訂購產品的檔案

💻 ASP

字号:

<html>
<head>
<title>穝糤ㄑ莱獽讽贺摸</title>
<META http-equiv=Content-Type content="text/html; charset=big5">
</head>
<body leftMargin=160 topMargin=30 marginheight="0" marginwidth="0" background="img/Flowers.gif" bgproperties="fixed">
<%
Action=request("Action")
User=request("User")
Pwd=request("Pwd")
Power=Request("Power")
SupplyName=request("SupplyName")
TelNumber=request("TelNumber")
Address=request("Address")

'-------------------------------------
PackName=request("PackName")
UnitPrice=request("UnitPrice")
SupplyID=request("SupplyID")
%>
<%
set conService=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conService.Open param & ";dbq=" & Server.MapPath("Service.mdb")
set rsSupply=Server.CreateObject("ADODB.Recordset")
set rsLunchPack=Server.CreateObject("ADODB.Recordset")
If Action = "NewSupply" Then 
   sqlstr="select * from [と繺ㄑ莱坝]"
   rsSupply.open sqlstr,conService,1,2
   rsSupply.addNew
   rsSupply("ㄑ莱坝

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -