📄 g_planinfo.asp

📁 一个很好的在线购物系统

💻 ASP

字号:




<!--#include file="../include/Pubconn.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>计划保存</title><link href="cread.css" rel="stylesheet"  type="text/css">
</head>
<body bgcolor="#FFFFFF" >

<%
'*************************
'Author:Ruphi  Update Time:2001-08-28
'功能：保存计划信息
'***************************
'取得表单的值
kfkhlx=request("kfkhlx")  '开发客户新老客户
khxh=request("khxh")
khjb=request("khjb")
Tyear=request("Tyear")
Tmonth=request("Tmonth")
Tdate=request("Tdate")
'找出周次与星期
Total=Tyear+"-"+Tmonth+"-"+Tdate
Tweek=datepart("w",Total,vbmonday)  '星期
Yweek=datepart("ww",Total)  '周次
txttime=request("txttime")
txtobject=request("txtobject")
dxzw=request("dxzw")
txtway=request("txtway")
txtmd=request("txtmd")
bz=request("bz")


    set rspt=server.createobject("adodb.recordset")
    mysql="select * from G_TblClosePlan "
    rspt.open mysql,pubconn,2,3
    rspt.AddNew
    rspt("StuffNum")=Session("UserID")
    rspt("CloseWeek")=Yweek   '周次
    rspt("CloseDate")=Total   '日期
    rspt("PlanWeek")=Tweek    '星期
    rspt("CloseTime")=txttime
    if kfkhlx="新客户" then
       rspt("Clientnum")=kfkhlx
    else
      rspt("Clientnum")=khxh
    end if 
    rspt("Clientjb")=khjb
    rspt("LinkMan")=txtobject
    rspt("ObjectDuty")=dxzw
    rspt("CloseMode")=txtway
    rspt("ClosePurpose")=txtmd
    rspt("CloseBz")=bz
    rspt("AuditingYN")="N"
    rspt("Authors")=Session("UserName")
    rspt("DepartID")=Session("DepartID")
    rspt.Update
   
   %>
 <font size=2>   <center>数据保存成功！<a  href="G_plan.asp?Tyear=<%=Tyear%>&Tmonth=<%=Tmonth%>&Tdate=<%=Tdate%>">返回    
</font>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -