⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 ordermodify.asp

📁 实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下:管理员通过登录该系统
💻 ASP
字号:
<!--#include file="../head.asp"-->
  <!--#include file="../checkrole.asp"-->
 <%
      call checkuser("ds")
	  %>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD  style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(i../mages/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff" 
    vAlign=top align=middle>
      <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
        <TBODY>
        <TR>
              <TD width="7%"><IMG height=32 src="../images/myemail.gif" 
            border=0></TD>
              <TD width="93%" background="../images/info_bg.gif">&nbsp;</TD>
        </TR></TBODY></TABLE>


<TABLE width=100% 
border=0 align="center" cellPadding=0 cellSpacing=0 class=content_border>
        <TBODY>
        <TR>
          <TD align=middle><BR>
            <TABLE cellSpacing=0 cellPadding=5 width="100%" border=0 bgColor=#d8ebff>
              <TBODY>
<%
sql="select * from Yixiang_emailorder where gsid="&session("id")&""
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
email=rs("email")
orderbuy=rs("buyorder")
ordersale=rs("saleorder")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
              <TR>
                <TD class=C><IMG height=9 
                  src="../../images/indexpoint.gif" width=5> <strong><font color="#CC3300">您已订阅的信息如下,如需要调整请进行修改!</font></strong></TD>
                  <td align="right" valign="bottom" class="M"><a href="orderno.asp"><img src="../images/button_key2.gif" width="41" height="20" border="0"></a></td>
			      </TR>
</TBODY></TABLE>
<TABLE class=LM cellSpacing=0 cellPadding=2 width="100%" border=0>
        <TBODY>
        <TR>
          <TD class=S align=left height=25><FONT 
            color=#666666>为了您能及时收到匹配的订阅内容,请按顺序准确输入产品名称(<FONT 
            color=#cc0000>建议不超过5个汉字</FONT>),如:发电机,模具架,注塑机等。</FONT></TD></TR></TBODY></TABLE>

<script Language="JavaScript"> 
function FormCheck() 
{ 
if(trim(document.Form1.keyword_buy.value) == "") 
{
if(trim(document.Form1.keyword_sell.value) == "") 
{
alert("注意:请按顺序填写\n\n订阅的求购/供应的产品名称最少要填一个");
document.Form1.keyword_buy.focus();
return (false);
}
}
if (trim(document.Form1.email.value) =="")
{
alert("请输入您的电子邮件地址!");
document.Form1.email.focus();
document.Form1.email.select();
return false;
}
var str1 = document.Form1.email.value
if(str1.indexOf("@") == -1 || str1.indexOf(".") == -1){ 
alert("E-mail格式不正确,请重新填写!"); 
document.Form1.email.focus();
document.Form1.email.select();
return false; 
} 

   var keyword_buy = Form1.keyword_buy.value;
   for(i=0;i<keyword_buy.length;i++){keyword_buy=keyword_buy.replace(',',',');}
    if(Form1.keyword_buy2.value){
        for(i=0;i<Form1.keyword_buy2.value.length;i++){Form1.keyword_buy2.value=Form1.keyword_buy2.value.replace(',',',');}
        keyword_buy+=','+Form1.keyword_buy2.value;
    }
    if(Form1.keyword_buy3.value){
        for(i=0;i<Form1.keyword_buy3.value.length;i++){Form1.keyword_buy3.value=Form1.keyword_buy3.value.replace(',',',');}
        keyword_buy+=','+Form1.keyword_buy3.value;
    }    
    Form1.p_z_Z_keyword_buy.value = keyword_buy
	
   var keyword_sell = Form1.keyword_sell.value;
   for(i=0;i<keyword_sell.length;i++){keyword_sell=keyword_sell.replace(',',',');}
    if(Form1.keyword_sell2.value){
        for(i=0;i<Form1.keyword_sell2.value.length;i++){Form1.keyword_sell2.value=Form1.keyword_sell2.value.replace(',',',');}
        keyword_sell+=','+Form1.keyword_sell2.value;
    }
    if(Form1.keyword_sell3.value){
        for(i=0;i<Form1.keyword_sell3.value.length;i++){Form1.keyword_sell3.value=Form1.keyword_sell3.value.replace(',',',');}
        keyword_sell+=','+Form1.keyword_sell3.value;
    }    
    Form1.p_z_Z_keyword_sell.value = keyword_sell
 
document.Form1.submit()
}
//-->
//-->
function trim(inputString) {
	   
              if (typeof inputString != "string") { return inputString; }
              var retValue = inputString;
              var ch = retValue.substring(0, 1);
              while (ch == " ") { 
	          //检查字符串开始部分的空格
                  retValue = retValue.substring(1, retValue.length);
                  ch = retValue.substring(0, 1);
              }
              ch = retValue.substring(retValue.length-1, retValue.length);
              while (ch == " ") {
                 //检查字符串结束部分的空格
                 retValue = retValue.substring(0, retValue.length-1);
                 ch = retValue.substring(retValue.length-1, retValue.length);
              }
              while (retValue.indexOf("  ") != -1) { 
	         //将文字中间多个相连的空格变为一个空格
                 retValue = retValue.substring(0, retValue.indexOf("  ")) + retValue.substring(retValue.indexOf("  ")+1, retValue.length); 
              }
              return retValue;
           } 

//--> 
</script>
<FORM name=Form1 action="ordermodify_ok.asp" method=post>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD>
            <TABLE cellSpacing=1 cellPadding=4 width="98%" bgColor=#d3d3d3 
            border=0>
              <TBODY>
              <TR bgColor=#d9d9d9>
                <TD class=S colSpan=2><STRONG>订阅求购信息:</STRONG></TD></TR>
<%
if orderbuy<>"" then
  if instr(orderbuy,",")>0 then
  Arrob=split(orderbuy,",")
    on error resume next

'  for i=0 to ubound(Arrob)
%>
			  <TR bgColor=#ffffff>
                <TD class=S align=middle width="34%">产品名称1:</TD>
                <TD class=M align=middle width="66%"><INPUT size=17 maxlength=50 value="<%=Arrob(0)%>" name=keyword_buy> </TD></TR>
              <TR bgColor=#ffffff>
                <TD class=S align=middle width="34%">产品名称2:</TD>
                <TD class=M align=middle width="66%"><INPUT size=17 maxlength=50 value="<%=Arrob(1)%>" name=keyword_buy2> </TD></TR>
              <TR bgColor=#ffffff>
                <TD class=S align=middle width="34%">产品名称3:</TD>
                <TD class=M align=middle width="66%"><INPUT size=17 value="<%=Arrob(2)%>" maxlength=50 name=keyword_buy3> <INPUT type=hidden name=p_z_Z_keyword_buy></TD></TR>
<%
'next
  else
%>		
			  <TR bgColor=#ffffff>
                <TD class=S align=middle width="34%">产品名称1:</TD>
                <TD class=M align=middle width="66%"><INPUT size=17 value="<%=orderbuy%>" maxlength=50 name=keyword_buy> </TD></TR>
              <TR bgColor=#ffffff>
                <TD class=S align=middle width="34%">产品名称2:</TD>
                <TD class=M align=middle width="66%"><INPUT size=17 maxlength=50 name=keyword_buy2> </TD></TR>
              <TR bgColor=#ffffff>
                <TD class=S align=middle width="34%">产品名称3:</TD>
                <TD class=M align=middle width="66%"><INPUT size=17 maxlength=50 name=keyword_buy3> <INPUT type=hidden name=p_z_Z_keyword_buy></TD></TR>
<%
  end if
else
%>	
			  <TR bgColor=#ffffff>
                <TD class=S align=middle width="34%">产品名称1:</TD>
                <TD class=M align=middle width="66%"><INPUT size=17 maxlength=50 name=keyword_buy> </TD></TR>
              <TR bgColor=#ffffff>
                <TD class=S align=middle width="34%">产品名称2:</TD>
                <TD class=M align=middle width="66%"><INPUT size=17 maxlength=50 name=keyword_buy2> </TD></TR>
              <TR bgColor=#ffffff>
                <TD class=S align=middle width="34%">产品名称3:</TD>
                <TD class=M align=middle width="66%"><INPUT size=17 maxlength=50 name=keyword_buy3> <INPUT type=hidden name=p_z_Z_keyword_buy></TD></TR>
<%
end if
%>				  
				  	  
				  </TBODY></TABLE></TD>
          <TD>
            <TABLE cellSpacing=1 cellPadding=4 width="100%" bgColor=#d3d3d3 
            border=0>
              <TBODY>
              <TR>
                <TD class=S bgColor=#d9d9d9 
                colSpan=2><STRONG>订阅供应信息:</STRONG></TD></TR>
<%
if ordersale<>"" then
  if instr(ordersale,",")>0 then
  Arros=split(ordersale,",")
  on error resume next
%>
              <TR bgColor=#ffffff>
                <TD class=S align=middle width="36%">产品名称1:</TD>
                <TD class=M align=middle width="64%"><INPUT size=17 maxlength=50 value="<%=Arros(0)%>" name=keyword_sell> </TD></TR>
              <TR>
                <TD class=S align=middle width="36%" bgcolor=#ffffff>产品名称2:</TD>
                <TD class=M align=middle width="64%" bgcolor=#ffffff><INPUT value="<%=Arros(1)%>" maxlength=50 size=17 name=keyword_sell2> </TD></TR>
              <TR bgColor=#ffffff>
                <TD class=S align=middle width="36%">产品名称3:</TD>
                <TD class=M align=middle width="64%"><INPUT size=17 maxlength=50 value="<%=Arros(2)%>" name=keyword_sell3> <INPUT type=hidden name=p_z_Z_keyword_sell>
</TD></TR>
<%
  else
%>
              <TR bgColor=#ffffff>
                <TD class=S align=middle width="36%">产品名称1:</TD>
                <TD class=M align=middle width="64%"><INPUT size=17 maxlength=50 value="<%=ordersale%>" name=keyword_sell> </TD></TR>
              <TR>
                <TD class=S align=middle width="36%" bgcolor=#ffffff>产品名称2:</TD>
                <TD class=M align=middle width="64%" bgcolor=#ffffff><INPUT size=17 maxlength=50 name=keyword_sell2> </TD></TR>
              <TR bgColor=#ffffff>
                <TD class=S align=middle width="36%">产品名称3:</TD>
                <TD class=M align=middle width="64%"><INPUT size=17 maxlength=50 name=keyword_sell3> <INPUT type=hidden name=p_z_Z_keyword_sell>
</TD></TR>
<%
  end if
else
%>
              <TR bgColor=#ffffff>
                <TD class=S align=middle width="36%">产品名称1:</TD>
                <TD class=M align=middle width="64%"><INPUT size=17 maxlength=50 name=keyword_sell> </TD></TR>
              <TR>
                <TD class=S align=middle width="36%" bgcolor=#ffffff>产品名称2:</TD>
                <TD class=M align=middle width="64%" bgcolor=#ffffff><INPUT maxlength=50 size=17 name=keyword_sell2> </TD></TR>
              <TR bgColor=#ffffff>
                <TD class=S align=middle width="36%">产品名称3:</TD>
                <TD class=M align=middle width="64%"><INPUT size=17 maxlength=50 name=keyword_sell3> <INPUT type=hidden name=p_z_Z_keyword_sell>
</TD></TR>
<%end if%>
</TBODY></TABLE></TD></TR></TBODY></TABLE><BR>      
      <TABLE height=3 cellSpacing=0 cellPadding=2 width="100%" border=0>
        <TBODY>
        <TR>
          <TD class=S 
height=25><STRONG>请输入您的电子邮箱:</STRONG></TD></TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
        <TBODY>
        <TR>
          <TD class=S><FONT 
        color=#666666>请您填写有效的邮箱地址,以保证您能及时收到信息:</FONT></TD></TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD width="100%">
            <TABLE cellSpacing=1 cellPadding=4 width="100%" bgColor=#d3d3d3 
            border=0>
              <TBODY>
              <TR bgColor=#eeeeee>
                <TD class=s bgColor=#ffffff><B>您的邮箱地址:</B> <INPUT size=28  maxlength=50 value="<%=email%>" name=email></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
      <TABLE cellSpacing=2 cellPadding=2 width="100%" border=0>
        <TBODY>
        <TR>
          <TD class=S height=25 align=center><INPUT onClick="FormCheck()" type=button value=重新订阅 name=Submit322> 
          </TD></tr>
        </TBODY></TABLE></form>
<BR><BR>
<TABLE width="95%" 
              border=0 align="center" cellPadding=0 cellSpacing=0 class=bdr1>
  <TBODY>
              <TR>
                <TD>
                  <TABLE class=bdr2 cellSpacing=0 cellPadding=0 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD class=lh15>
<FONT color=#666666>操作指南:我们每天将新增加的供求信息,按照会员订阅的类别或者关键字,分买/卖,直接通过电子邮件发送给会员。如果您业务繁忙,外出频繁,不能每日登录<%=webname%>,此项服务最有帮助!</font>
                </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<BR><BR><BR></TD></TR></TBODY></TABLE>
<BR>
<BR>
</TABLE>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -