我苦呀﹗﹗

顺子 2004-08-20 04:26:04
<!--#include file="GetConnStr.asp"-->
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title>樣品需求單</title>
<style type="text/css">
<!--
.style3 {font-size: 120%}
.style5 {font-size: 12}
.style6 {
font-size: 150%;
font-weight: bold;
}
-->
</style>
<script language="Javascript" SRC="../../flow/calendar.js" type="text/javascript"></script>
<link href="../emx_nav_left.css" rel="stylesheet" type="text/css">
</head>
<body>

<% If IsFlowRun=Ture and session("wf_Steps")="" Then %>
<form method="post" name="form1" id="form" onSubmit="return fromsubmit();" >
<% Else %>
<form>
<% End If %>
<p align="center" class="style6">香港艾華電子有限公司</p>
<p align="center" class="style3"> 樣品需求申請單</p>
<%
eformid=Request("e")
eformsn=Request("s")
versionfrm=Request("wf_fwv")
formname=Request("fn")
reply_date=request.Form("reply_date")%>
<table width="82%" border="1">
<tr>
<td width="10%"><span class="style5">樣品單號</span></td>
<td width="22%"><input name="num_spl" type="text" readonly size="18" style='background-color:#CCCCCC;' ></td>
<td width="13%"><div align="left"><span class="style5">開模單號</span></div></td>
<td width="25%"><input name="num_om" type="text" size="16"></td>
<td width="12%"><span class="style5">申請日期</span></td>
<td width="18%"><input name="dat_keyin" type="text" size="15" readonly style='background-color:#CCCCCC;' value="<%= date() %>"></td>
</tr>
<tr>
<td><span class="style5">制樣地點</span></td>
<td width="22%">
<select name="manufacture" size="1" id="manufacture">
<option value="TK" selected>TK</option>
<option value="TWN">TWN</option>
<option value="HK">HK</option>
</select> </td>
<td width="13%"><div align="left"><span class="style5">交貨地點</span></div></td>
<td width="25%"><select name="rcv_place" id="rcv_place">
<option value="TK" selected>TK</option>
<option value="TWN">TWN</option>
<option value="HK">HK</option>
</select></td>
<td width="12%"><span class="style5">申請人員</span></td>
<td width="18%"><input name="emp_keyin" type="text" readonly id="emp_keyin" size="15" style='background-color:#CCCCCC;' value="<%= session("wf_UserName") %>"></td>
</tr>
<tr>
<td><span class="style5">需求日期</span></td>
<td width="22%" ><span class="style5">
<input name="req_date" type="text" id="req_date" size="18" ONCLICK="calendar(req_date);">
</span></td>
<td><div align="left"><span class="style5">訂單號碼</span></div></td>
<td><input name="num_po" type="text" id="num_po" size="20"></td>
<td><span class="style5">申請單位</span></td>
<td><input name="dept" type="text" id="dept" size="15" readonly style="background-color:#cccccc " value="<%= session(wf_Org) %>"></td>
</tr>
<tr>
<td><p class="style5">業務人員</p>
</td>
<td><input name="sales" type="text" id="sales" size="18"></td>
<td><div align="left"><span class="style5">客戶料號</span></div></td>
<td><span class="style5">
<input name="cod_itemo" type="text" id="cod_itemo" size="20"><input name="idx" type="hidden" value="<%= idx %>">
</span> </td>
<td><span class="style5">客戶名稱
</span></td>
<td><span class="style5">
<input name="nam_cust" type="text" id="nam_cust" size="15">
</span></td>
<!-- <td><p class="style5">狀況別</p>
</td>
<td><input name="sys_spl" type="text" id="sys_spl" size="15"></td> -->
</tr>
<tr>
<td height="32"><span class="style5">業務ID號</span></td>
<td width="22%"><span class="style5">
<input name="sales_id" type="text" id="sales_id" size="18">
</span></td>
<td><div align="left"><span class="style5">是否計價</span></div></td>
<td><span class="style5">
<select name="valuation" >
<option value="是" selected>是</option>
<option value="否">否</option>
</select>
</span> </td>
<!-- <td><span class="style5">客戶名稱
</span></td>
<td><span class="style5">
<input name="nam_cust" type="text" id="nam_cust" size="15">
</span></td> -->
</tr>
<% If session("wf_Steps")<>"" Then
Set conn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
conn.open connstr
num_spl=request.Form("NUM_SPL")
SQL="select REPLY_DATE from SPLDETAIL where num_spl='"&num_spl&"'"
rs.open SQL,conn,1,1,1
if rs.eof then
%>
<tr>
<td height="25"><span class="style5">回覆交期</span></td>
<td >
<div id="text_div" > <!-- <input name="reply_date" type="text" size="18" ONCLICK="calendar(reply_date);">--></div>
</td>
<td><div align="right"><span class="style5">
<input name="check_a" type="button" value=".." size="10" ONCLICK="calendar(reply_date)">
<input name="check_new" type="button" value="新增" size="2" onClick="document.all.text_div.innerHTML='<input name=reply_date type=text size=18 ONCLICK=calendar(reply_date)>'">
</span></div></td>
<td><div align="left"><span class="style5">
<input name="check_update" type="button" value="更新" size="5" onClick="updata();">
</span></div></td>
</tr>
<%else%>
<tr>
<td height="25"><span class="style5">回覆交期</span></td>
<td >
<div id="text_div" > <input name="reply_date" type="text" size="18" value="<%= rs("REPLY_DATE") %>" ONCLICK="calendar(reply_date);"></div>
</td>
<td><div align="right"><span class="style5">
<input name="check_a" type="button" value=".." size="10" ONCLICK="calendar(reply_date)">
</span></div></td>
<td><div align="left"><span class="style5">
<input name="check_update" type="button" value="修改" size="5" onClick="updata();">
</span></div></td>
</tr>
<% End If
end if
%>
</table>
<table border="1" width="82%">
<tr>
<td height="25" colspan="5">樣品明細: </td>
</tr>
<tr>
<td height="15"><div align="center">品名規格</div></td>
<% 'If session("wf_Steps")<>"" Then %>
<td><div align="center">正確品名規格</div></td>
<%' End If %>
<td><div align="center">數量</div></td>
<td><div align="center">承認書/規格書</div></td>
<td><div align="center">檢驗紀錄表</div></td>
</tr>
<tr>
<td height="15"><div align="center">
<input name="itemnam" type="text" id="itemnam" size="20" >
</div></td>
<td><div align="center">
<input name="crt_itemnam" type="text" id="crt_itemnam" size="30">
</div></td>
<td><div align="center">
<input name="spl_amt" type="text" id="spl_amt" size="6">
</div></td>
<td><div align="center">
<input name="spec_amt" type="text" id="spec_amt" size="16">
...全文
97 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
waiber 2004-08-20
  • 打赏
  • 举报
 回复
？不知所云
prefereye 2004-08-20
  • 打赏
  • 举报
 回复
这个代码。。。。
自己先测试下看看
xxrl 2004-08-20
  • 打赏
  • 举报
 回复
一句一句的测试啊，拍出来结果，看看那些地方和预想的不一样
xxrl 2004-08-20
  • 打赏
  • 举报
 回复
又是一堆不知所云的乱代码
顺子 2004-08-20
  • 打赏
  • 举报
 回复
<!-- #include file="GetConnStr.asp" -->
<%
Application.Lock
connstr = Get6204ConnStr()
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr

num_spl = TRIM(Request.QueryString("num_spl"))
serial_no=TRIM(request.QueryString("serial_no"))
notesdate=trim(request.QueryString("notesdate"))
condition=TRIM(request.QueryString("condition") )
msgsource=TRIM(request.QueryString("msgsource"))
splstate=TRIM(request.QueryString("splstate"))
meno=TRIM(request.QueryString("meno"))
sss=TRIM(request.QueryString("handleway"))
sql="insert into SPLDETAIL(NUM_SPL,SERIAL_NO,NOTESDATE,CONDITION,MSGSOURCE,SPLSTATE,MEMO,HANDLEWAY) values ('"&num_spl&"','"&serial_no&"','"¬esdate&"','"&condition&"','"&msgsource&"','"&splstate&"','"&meno&"','"&sss&"')"
'next
conn.execute (sql)
conn.close
Set conn = Nothing
Application.UnLock
%>
<SCRIPT LANGUAGE=javascript event='onload' for='window'>
alert('DATA ADD SUCCEED');
window.close();
</SCRIPT>
這個是 insertdata.asp
顺子 2004-08-20
  • 打赏
  • 举报
 回复
</div></td>
<td><div align="center">
<input name="test_amt" type="text" id="test_amt" size="12">
</div></td>
</tr>
<tr>
<td height="15" colspan="5">申請者備註 :<br>
<textarea name="remark" cols="60" rows="4"></textarea>
</td>
</tr>
</table>

<table width="82%" border="1">
<% 'If session("wf_Steps")<>"" Then %>
<tr>
<td colspan="6">樣品制樣過程紀錄
<%'if session("wf_Steps")<>"" then %>
<input name="new_meno" type="button" id="new_meno" value="新增紀錄" onClick="showtable();">
<%'end if%>
</td>
</tr>
<tr>
<td width="8%"><div align="center">項次</div></td>
<td width="15%"><div align="center">紀錄日期</div></td>
<td width="26%"><div align="center">狀況</div></td>
<td width="15%"><div align="center">訊息來源</div></td>
<td width="11%"><div align="center">狀況別</div></td>
<td width="25%"><div align="center">處理對策</div></td>
</tr>
<% 'End If %>
<% if session("wf_Steps")<>"" then
'連接資料庫進行取值
connstr=Get6204ConnStr()
Set conn1=server.CreateObject("ADODB.Connection")
set rs1=server.CreateObject("ADODB.Recordset")
conn.open connstr
'取出樣品單號-->利用 get_sk_id_buyeform 取出出貨單號
num_spl=request.Form("num_spl")
ssql="select SERIAL_NO,NOTESDATE,CONDITION,MSGSOURCE,SPLSTATE,HANDLEWAY from SPLDETAIL where num_spl='"&num_spl&"'"
rs1.open ssql,conn,1,1,1
'進行迴圈抓出值
idx=1
do while not rs1.eof
%>
<tr>
<td width="8%"><div align="center"><%=rs1("serial_no")%></div></td>
<td width="15%"><div align="center"><%=rs1("notesdate")%></div></td>
<td width="26%"><div align="center"><%=rs1("condition")%></div></td>
<td width="15%"><div align="center"><%=rs1("msgsource")%></div></td>
<td width="11%"><div align="center"><%=rs1("splstate")%></div></td>
<td width="25%"><div align="center"><%=rs1("handleway")%></div></td>
</tr>
<% rs1.MoveNext
idx=idx+1
loop
rs1.close()
set rs1=nothing
conn1.close()
set conn1=nothing
end if
%>
</table>
<% 'End If %>
<table id="table01" width="82%" border="1"></table>
<% If session("wf_Steps")<>"" Then %>
<table width="82%" border="1">
<tr>
<td colspan="6">樣品室備註:<br>
<textarea name="meno" cols="60" rows="4"></textarea>
</td>
</tr>
</table>
<% End If %>
<div align="center">
<input name="Submit_ok" type="submit" value="送出">
</div>
</form>
</body>
</html>
<script language="javascript" type="text/javascript">
<!--
//添加表格的函數
function showtable(idx){

var tb=table01;
idx=Number(tb.rows.length)+1;
var tr=tb.insertRow(tb.rows.length);
var c0=tr.insertCell(0);
if(idx<10){
c0.innerHTML="<input type=\"text\" size=\"7\" name='serial_no_"+idx+"' value='0"+idx+"'>";
}else{
c0.innerHTML="<input type=\"text\" size=\"7\" name='serial_no_"+idx+"' value='"+idx+"'>";
}
var c1=tr.insertCell(1);
c1.innerHTML="<input type=\"text\" size=\"9\" name='notesdate_"+idx+"' ONCLICK=calendar(notesdate_"+idx+") >";
var c2=tr.insertCell(2);
c2.innerHTML="<input type=\"text\" size=\"25\" name='condition_"+idx+"'>";
var c3=tr.insertCell(3);
c3.innerHTML="<input type=\"text\" size=\"15\" name='msgsource_"+idx+"'>";
var c4=tr.insertCell(4);
c4.innerHTML="<input type=\"text\" size=\"10\" name='splstate_"+idx+"'>";
var c5=tr.insertCell(5);
sslt="";
sslt="<input type=\"text\" size=\"13\" name='handleway_"+idx+"'>";
sslt+="<input type=\"button\" value=\"存檔\" name='save_"+idx+"' onclick=\"insertdata()\">";
c5.innerHTML=sslt;
}

//取的單號的頁面函數
var num_spl
function GetNUM(){

var frm = document.forms[0];
strFeatures ="dialogWidth=0px;dialogHeight=0px;scrollbars=no;"
+ "center=no;border=thin;help=no;status=no"
strTitle = window.showModalDialog("GETSKID.asp", strFeatures);
frm.num_spl.value = strTitle[0];
num_spl = strTitle[0];
}

//存儲樣品單的資料函數
function savedata(){

var num_spl=document.form1.num_spl.value;
var num_om=document.form1.num_om.value;
var sales=document.form1.sales.value;
var sales_id=document.form1.sales_id.value;
var dat_keyin=document.form1.dat_keyin.value;
var nam_cust=document.form1.nam_cust.value;
var emp_keyin=document.form1.emp_keyin.value;
var cod_itemo=document.form1.cod_itemo.value;
var dept=document.form1.dept.value;
var req_date=document.form1.req_date.value;
var rcv_place=document.form1.rcv_place.value;
var valuation=document.form1.valuation.value;
var manufacture=document.form1.manufacture.value;
var itemnam=document.form1.itemnam.value;
var crt_itemnam=document.form1.crt_itemnam.value;
var spl_amt=document.form1.spl_amt.value;
var spec_amt=document.form1.spec_amt.value;
var test_amt=document.form1.test_amt.value;
var remark=document.form1.remark.value;
var num_po=document.form1.num_po.value;
strFeatures ="dialogWidth=0px;dialogHeight=0px;scrollbars=no;"
+ "center=no;border=thin;help=no;status=no"
window.showModalDialog('save.asp?num_spl='+num_spl+'&num_om='+num_om+'&sales='+sales+'&sales_id='+sales_id+'&dat_keyin='+dat_keyin+'&nam_cust='+nam_cust+'&emp_keyin='+emp_keyin+'&cod_itemo='+cod_itemo+'&dept='+dept+'&req_date='+req_date+'&rcv_place='+rcv_place+'&valuation='+valuation+'&manufacture='+manufacture+'&itemnam='+itemnam+'&crt_itemnam='+crt_itemnam+'&spl_amt='+spl_amt+'&spec_amt='+spec_amt+'&test_amt='+test_amt+'&remark='+remark+'&num_po='+num_po,strFeatures)
}

//存儲版本號函數
function InsertEfrmsn(){

window.showModalDialog("InsertEfrmsn.asp?e=<%=eformid%>&s=<%=eformsn%>&fn=<%=formname%>&wf_fwv=<%=versionfrm%>&num_spl="+num_spl);
}

//修改回覆時間函數
function updata(){

var num_spl = document.form1.num_spl.value;
var reply_date=document.form1.reply_date.value;
strFeatures ="dialogWidth=0px;dialogHeight=0px;scrollbars=no;"
+ "center=no;border=thin;help=no;status=no";
window.showModalDialog('updata.asp?reply_date='+reply_date+'&num_spl='+num_spl,strFeatures);
}

//新增的的數据存儲的function
function insertdata(){

var num_spl = document.form1.num_spl.value;
var serial_no=document.form1.serial_no_+idx.value;
var notesdate=document.form1.notesdate_+idx.value;
var condition=document.form1.condition_+idx.value;
var msgsource=document.form1.msgsource_+idx.value;
var splstate=document.form1.splstate_+idx.value;
var handleway=document.form1.handleway_+idx.value;
var meno=document.form1.meno.value;
strFeatures ="dialogWidth=0px;dialogHeight=0px;scrollbars=no;"
+ "center=no;border=thin;help=no;status=no";
window.showModalDialog('insertdata.asp?serial_no=' +serial_no+'¬esdate='+notesdate+'&condition='+condition+'&msgsource='+msgsource+'&splstate='+splstate+'&meno='+meno+'&handleway='+handleway+'&num_spl='+num_spl ,strFeatures);
}

function fromsubmit(frm){

//預防重覆登錄表單
var btn = document.form1.Submit_ok; //[登錄]按鈕
btn.disabled = true ;
GetNUM(); //取得新的單號 SKYYMM0000
InsertEfrmsn(); //取得Eformsn,Eformid,version
savedata();//當第一次申請的人才會執行此function
}
-->
</script>


晚甘园里说饮茶
在晚甘园里蹓跶了几天﹐颇感惊异——如今这万丈红尘中﹐居然有这么一个热闹而不浮躁、实用而不巿侩的园子﹗受园主和茶友们的熏陶﹐也来凑个热闹﹐班门弄斧﹐聊聊饮茶、灌灌水…… 本文转自：晚甘园 ，作者：草田雨 ...
新東方總裁俞敏洪在北京大學2008年開學典禮上的發言
新東方總裁俞敏洪在北京大學2008年開學典禮上的發言 　北大原來從未邀請過校友在開學典禮上講話，2008年開學典禮，北大邀請了新東方教育科技集團董事長兼總裁 俞敏洪 老師講話，...非常高興許校長給我這么崇高的榮...
计算机知识竞赛主持人开场词,护理竞赛主持人台词:主持人开场白台词
让我们首先向辛勤奋战在护理工作一线的全县广大护士姐妹们道一声：(男)让我们再一次以热烈的掌声欢迎他们﹗预祝各参赛代表队在护理知识竞赛中赛出风格，赛出水平，取得满意的成绩。(女)下面，我...
专注是通向成功的直通车
“彼以剑锋创其始者，我将与笔锋竟其业”。如果成功是花，那么专注则是肥料。我们只有专注，才能更好的调动我们的思维，忘记劳动的苦累，从而达到成功。 纵观历史的长河，自古以来就有“锲而不舍，金石可镂；锲而舍...
有时候需要用到一些特殊字符，做个记录
▓ 回 □ 〓≡ ╝╚╔ ╗╬ ═ ╓ ╩ ┠ ┨┯ ┷┏♡.3　┓┗ ┛┳⊥﹃﹄┌ ┐└ ┘∟「」↑↓→←↘↙♀♂┇┅ ﹉﹊﹍﹎╭♡.4　╮╰ ╯ ^_^ ^*^ ^-^ ^_^ ^︵^ ∵∴‖︱ ︳︴﹏﹋﹌︵︶︹︺♡.5　【】〖〗＠﹕﹗/ ...
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章