cashsave.asp

以前企业建网站

<!--#include file="top.asp"-->
<SCRIPT language="javascript">
<!--
function del_space(s)
{
	for(i=0;i<s.length;++i)
	{
	 if(s.charAt(i)!=" ")
		break;
	}

	for(j=s.length-1;j>=0;--j)
	{
	 if(s.charAt(j)!=" ")
		break;
	}

	return s.substring(i,++j);
}

function VerifySubmit()
{
	sub_to = del_space(document.all("sub_to").value);
     if (sub_to.length == 0)
     {
        alert("您忘了填写姓名!");
	return false;
     }
	 
	 sub_to = del_space(document.all("sub_to").value);
     if (sub_to.length < 2)
     {
        alert("用户名不能小于1个汉字！");
	return false;
     }

	sub_adds = del_space(document.all("sub_adds").value);
     if (sub_adds.length == 0)
     {
        alert("您忘了填写地址!");
        return false;
     }
	 
	 sub_postcode = del_space(document.all("sub_postcode").value);
     if (sub_postcode.length == 0)
     {
        alert("您忘了填写邮编!");
        return false;
     }

	sub_tel = del_space(document.all("sub_tel").value);
     if (sub_tel.length == 0)
     {
        alert("您忘了填写电话!");
        return false;
     }
	
	sub_mail = del_space(document.all("sub_mail").value);
     if (sub_mail.length == 0)
     {
        alert("您忘了填 Email!");
	return false;
     }
	 
	sub_mail = del_space(document.all("sub_mail").value);
     if (sub_mail.indexOf("@")==-1)
     {
        alert("Email 输入有误！");
	return false;
     }
	 
	sub_mail = del_space(document.all("sub_mail").value);
     if (sub_mail.indexOf(".")==-1)
     {
        alert("Email 输入有误！");
	return false;
     }
	 
	 sub_tel = del_space(document.all("sub_tel").value);
     if (sub_tel.length < 7)
     {
        alert("联系电话输入错误！");
	return false;
     }

	sub_tel = del_space(document.all("sub_tel").value);
     if (sub_tel.length == 0)
     {
        alert("您忘了填写联系电话!");
        return false;
     }

	return true;
}
//-->
</SCRIPT>
<center>
<table bgcolor=
<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color")%>
<%rs.close%>
 border="0" width="780" cellspacing="0" cellpadding="0">
<tr>
<td width="150" valign="top" align="center" bgcolor="#F7F7F7">
<table border="0" width="150" cellspacing="0" cellpadding="0">
<tr>
<td width="150" valign="top" align="center"><!--#include file="left.asp"--></td>
</tr>
</table>
</td>
</center>
<td width="470" valign="top" align="left">
<table border="0" width="470" cellspacing="0" cellpadding="0">
    <%if session("user_name")="" then
        response.redirect "index.asp"
    else
        user_name=session("user_name")
    end if
    sql="select * from basket where user_name='"&user_name&"' and basket_check=false"
    rs.open sql,conn,3,3
    if rs.eof then
        response.write "您没有订购任何商品"
        response.end
    else
    on error resume next
        sub_number=user_name&now()
        sub_number=replace(sub_number,"-","")
        sub_number=replace(sub_number," ","")
        sub_number=replace(sub_number,":","")
        do while not rs.eof
        rs("basket_check")=true
        rs("sub_number")=sub_number
            hw_id=rs("hw_id")
            sql1="select * from hw where hw_id="&int(hw_id)
            set rs1=server.createobject("adodb.recordset")
            rs1.open sql1,conn,3,3
            rs1("hw_buys")=rs1("hw_buys")+rs("basket_count")
            rs1.update
            rs1.close
            set rs1=nothing
        rs.movenext
        loop
        rs.update
    end if
    rs.close

    sql="select * from sub"
    rs.open sql,conn,3,3
    rs.addnew
    rs("user_name")=user_name
    rs("sub_number")=sub_number
    rs.update
    rs.close

    %>
<tr>
<td width="470">
<p align="center">
<b><br>
<font size="4" color="#808080">您的信息已经提交</font></b></td>
</tr>
<tr>
<td width="100%" bgcolor="<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color")%>
<%rs.close%>">
<table border="0" width="100%" cellspacing="1">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p align="center"><font color="#808080">订单号为</font>:<b><font color="red" size=+1><%=sub_number%></font><br>
<br>
</b><font color="#808080">请记牢本订单号，稍后您可以使用本订单号对成交情况进行查询</font><b><br>
　</b></td>
</tr>
<tr>
<td width="100%">
<form method="POST" action="saveto.asp?sub_number=<%=sub_number%>"  name="Form1" onSubmit="return VerifySubmit()">
<table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolorlight="#C5C5C5" bordercolordark="#FFFFFF" height="245">
<tr>
<td width="100%" colspan="2">
<p align="center"><font color="#FF0000" size="4"><b>收货人信息<br>
　</b></font></td>
</tr>
<%    sql="select * from user where user_name='"&user_name&"'"
    rs.open sql,conn,3,3%>

<tr>
<td width="21%" style="padding:5px; " align="right">姓名:</td>
<td width="79%" style="padding: 5px"><input type="text" name="sub_to" size="20" class="ipt" value=<%=rs("user_namec")%>>&nbsp;
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="21%" style="padding:5px; " align="right">地址:</td>
<td width="79%" style="padding: 5px"><input type="text" name="sub_adds" size="40" class="ipt" value=<%=rs("user_adds")%>>&nbsp;
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="21%" style="padding:5px; " align="right">邮编:</td>
<td width="79%" style="padding: 5px"><input type="text" name="sub_postcode" size="20" class="ipt" value=<%=rs("user_postcode")%>>&nbsp;
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="21%" style="padding:5px; " align="right">电话:</td>
<td width="79%" style="padding: 5px"><input type="text" name="sub_tel" size="20" class="ipt" value=<%=rs("user_tel")%>>&nbsp;
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="21%" style="padding:5px; " align="right">E-mail:</td>
<td width="79%" style="padding: 5px"><input type="text" name="sub_mail" size="30" class="ipt" value=<%=rs("user_mail")%>>&nbsp;
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="21%" style="padding:5px; " align="right">备注:</td>
<td width="79%" style="padding: 5px"><input type="text" name="sub_other" size="40" class="ipt"></td>
</tr>
</table>
<p align="center">&nbsp;
<INPUT class="cont" type="submit" value="确 认" name="submit">
<br>
<br>　</p>
</td>
</tr></form>
</table>
</td>
</tr>
</table>
</td>
</tr>
<center>
</table>
</center></td>
<td width="160" valign="top" align="center" bgcolor=f7f7f7>
<table border="0" width="160" cellspacing="0" cellpadding="0">
<tr>
<td width="160" align="center"><!--#include file="right.asp"--></td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="copy.asp"-->