【有道源码】【台阶密码指标源码】【mux切片源码】buy源码
1.ProductBuySave.asp?有道源码MemberID=6
2.同花顺LEVEL-2 BBD是什么意思
ProductBuySave.asp?MemberID=6
ä¸ãä¸ä¸ªå¨çº¿è®¢è´è¡¨åã两个æ件ï¼1ãProductBuy.aspã2ãProductBuySave.aspãäºãé®é¢ï¼å¨ProductBuy.asp页é¢å¡«å¥½è®¢è´ä¿¡æ¯ï¼ç¹æ交ï¼è°ç¨ProductBuySave.aspé误ãæ æ³æ¾ç¤ºãä¸ã两个æ件çæºç ï¼1ãProductBuy.asp<%
dim ProductName,ProductNo
ProductName=request.QueryString("ProductName")
ProductNo=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
dim MemID,mRealName,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail
if session("MemName")<>"" and session("MemLogin")="Succeed" then
call MemInfo()
else
mSex="Male"
MemID=0
end if
%>
<div align="center">
<table width="" border="0" cellspacing="0" cellpadding="0" class="Outside">
<tr>
<td width="" valign="top" class="leftCenter" > </td>
<td width="5"></td>
<td valign="top" class="AllCenter"><table width="%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="" height="1" background="../Images/TitBG.gif"></td>
</tr>
</table>
<table width="%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="" height=""> </td>
<td> </td>
<td width=""> </td>
</tr>
<tr>
<td> </td>
<td>
<table width="" border="0" cellspacing="0" cellpadding="1">
<form name="formBuy" method="post" action="ProductBuySave.asp?MemberID=<%=MemID%>">
<tr>
<td width="" align="right">Product Name:</td>
<td width=""><input name="ProductName" type="text" class="TextBox" id="ProductName" value="<%=ProductName%>" size="" maxlength=""> <font color="#CC">*</font></td>
</tr>
<tr>
<td align="right">Date:</td>
<td>
<%if da1="" then %>
<script language=javascript>
var myDate=new dateSelector0();
myDate.year;
myDate.date;
myDate.inputName='start_date'; //注æè¿é设置è¾å ¥æ¡çnameï¼åä¸é¡µä¸æ¥æè¾å ¥æ¡ï¼ä¸è½åºç°éå¤çname�8�7
myDate.display();
</script>
<%else%>
<input name="start_date" type="text" class="TextBox" value="<%=da1%>" size="" maxlength="">
<%end if%>
<font color="#CC">*</font></td>
</tr>
<tr>
<td align="right">PRoductNO.:</td>
<td><input name="ProductNo" type="text" class="TextBox" id="ProductNo" value="<%=ProductNo%>" size="" maxlength=""> <font color="#CC">*</font></td>
</tr>
<tr>
<td align="right">Amount:</td>
<td><input name="Amount" type="text" class="TextBox" id="Amount" value="1" size="" maxlength="">
<font color="#CC">*</font> Please add on the unit, like "1piece"</td>
</tr>
<tr>
<td align="right">Remark:</td>
<td><textarea name="Remark" cols="" rows="8" class="TextBox" id="Remark"></textarea></td>
</tr>
<tr>
<td align="right">Name:</td>
<td><input name="RealName" type="text" class="TextBox" id="RealName" value="<%=mRealName%>" size="" maxlength=""> <font color="#CC">*</font></td>
</tr>
<tr>
<td align="right">Sex:</td>
<td><input name="Sex" type="radio" value="Male" <%if mSex="Male" then response.write ("checked")%>>Male
<input type="radio" name="Sex" value="FeMale" <%if mSex="FeMale" then response.write ("checked")%>>FeMale</td> </tr>
<tr>
<td align="right">Company:</td>
<td><input name="Company" type="text" class="TextBox" id="Company" value="<%=mCompany%>" size="" maxlength="">
<span style="color: #FF"> * Personal please fill in "Personal"</span></td>
</tr>
<tr>
<td align="right">Address:</td>
<td><input name="Address" type="text" class="TextBox" id="Address" value="<%=mAddress%>" size="" maxlength="">
<span style="color: #FF"> * The address please fill in detail</span></td>
</tr>
<tr>
<td align="right">ZipCode:</td>
<td><input name="ZipCode" type="text" class="TextBox" id="ZipCode" value="<%=mZipCode%>" size="" maxlength="">
<span style="color: #FF"> * Like:</span></td>
</tr>
<tr>
<td align="right">Phone:</td>
<td><input name="Telephone" type="text" class="TextBox" id="Telephone" value="<%=mTelephone%>" size="" maxlength="">
<span style="color: #FF">* At least numbers</span></td>
</tr>
<tr>
<td align="right">FAX:</td>
<td><input name="Fax" type="text" class="TextBox" id="Fax" value="<%=mFax%>" size="" maxlength=""></td>
</tr>
<tr>
<td align="right">Mobile:</td>
<td><input name="Mobile" type="text" class="TextBox" id="Mobile" value="<%=mMobile%>" size="" maxlength=""></td>
</tr>
<tr>
<td align="right">Email:</td>
<td><input name="Email" type="text" class="TextBox" id="Email" value="<%=mEmail%>" size="" maxlength=""> <font color="#CC">*</font></td>
</tr>
<tr>
<td height="" align="right"> </td>
<td valign="bottom">
<input name="Submit" type="submit" class="button" value=" Submit ">
<input name="Reset" type="reset" class="button" value=" Reset "></td>
</tr>
</form>
</table> </td>
<td> </td>
</tr>
<tr>
<td height=""></td>
<td></td>
<td></td>
</tr>
</table></td>
</tr>
</table>
</div>
<%
function WebMenu(DataFrom,ID)
Dim rs,sql
Set rs=server.CreateObject("adodb.recordset")
sql="Select * From "&DataFrom&" where ParentID="&id&" and ViewFlag order by id"
rs.open sql,conn,1,1
response.write("<table width='' border='0' cellspacing='0' cellpadding='0'>")
if id=0 and rs.bof and rs.eof then
response.write "<tr><td align='center'>No Data</td></tr>"
else
while not rs.eof
response.write "<tr class='WebMenu'><td width=''><img src='../Images/Arrow_.gif' width='' height=''></td>"
response.write "<td><a href='ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName")&"</a></td></tr>"
rs.movenext
wend
end if
response.write("</table>")
rs.close
set rs=nothing
end functionsub MemInfo()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from Ameav_Members where MemName='"&session("MemName")&"'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "No Data"
else
MemID=rs("ID")
if not rs("RealName")="" then
mRealName=rs("RealName")
else
mRealName=rs("MemName")
end if
mSex=rs("Sex")
mCompany=rs("Company")
mAddress=rs("Address")
mZipCode=rs("ZipCode")
mTelephone=rs("Telephone")
mFax=rs("Fax")
mMobile=rs("Mobile")
mEmail=rs("Email")
end if
rs.close
set rs=nothing
end sub
%>åãå¦æ解å³äºé®é¢ï¼å¯å åãäºãæè QQèç³»ï¼é®é¢è¡¥å -- :ãProductBuySave.asp<% Option Explicit %>
<%Response.Charset="utf-8"%>
<!--#include file="../Include/Const.asp"-->
<!--#include file="../Include/ConnSiteData.asp"-->
<!--#include file="../Include/Function.asp"-->
<!--#include file="../Include/NoSqlHack.Asp" --><%
dim Productname,ProductNo,Amount,Remark,StartDate
dim MemID,RealName,Sex,Company,Address,ZipCode,Telephone,Fax,Mobile,Email,VerifyCode
dim rs,sql
StartDate=request.form("Start_Date")
ProductName=trim(request.form("ProductName"))
ProductNo=trim(request.form("ProductNo"))
Amount=trim(request.form("Amount"))
Remark=request.form("Remark")
MemID=request.QueryString("MemberID")
RealName=trim(request.form("RealName"))
Sex=trim(request.form("Sex"))
Company=trim(request.form("Company"))
Address=trim(request.form("Address"))
ZipCode=trim(request.form("ZipCode"))
Telephone=trim(request.form("Telephone"))
Fax=trim(request.form("Fax"))
Mobile=trim(request.form("Mobile"))
Email=trim(request.form("Email"))
dim ErrMessage,ErrMsg(9),FindErr(9),i
ErrMsg(0)="·The product range must fill, the length cannot surpass characters"
ErrMsg(1)="·The product nomber must fill, the length cannot surpass characters"
ErrMsg(2)="·The order number must fills, the length cannot surpass characters."
ErrMsg(3)="·The name must fill, the length cannot surpass characters"
ErrMsg(4)="·The company name,address must fill,the length must be 8- characters"
ErrMsg(5)="·The zipcode length must be 6- characters"
ErrMsg(6)="·The phone number length must be 7- characters"
ErrMsg(7)="·The fax,mobile number length cannot surpass characters"
ErrMsg(8)="·The email address form is not correct"
if len(ProductName)> or len(ProductName)=0 then
FindErr(0)=true
end if
if len(ProductNo)> or len(ProductNo)=0 then
FindErr(1)=true
end if
if len(Amount)> or len(Amount)=0 then
FindErr(2)=true
end if
if len(RealName)> or len(RealName)=0 then
FindErr(3)=true
end if
if len(Company)> or len(Address)> or len(Company)<4 or len(Address)<4 then
FindErr(4)=true
end if
if len(ZipCode)> or len(ZipCode)<6 then
FindErr(5)=true
end if
if len(Telephone)> or len(Telephone)<7 then
FindErr(6)=true
end if
if len(Fax)> or len(Mobile)> then
FindErr(7)=true
end if
if not IsValidEmail(Email) then
FindErr(8)=true
end if
for i = 0 to UBound(FindErr)
if FindErr(i)=true then
ErrMessage=ErrMessage+ErrMsg(i)+"<br>"
end if
next
if not (ErrMessage="" or isnull(ErrMessage)) then
WriteMsg(ErrMessage)
response.end
end if
set rs = server.createobject("adodb.recordset")
sql="select * from Ameav_Order"
rs.open sql,conn,1,3
rs.addnew
rs("Start_Date")=StartDate
rs("ProductName")=StrReplace(ProductName)
rs("ProductNo")=StrReplace(ProductNo)
rs("Amount")=StrReplace(Amount)
rs("Remark")=StrReplace(Remark)
rs("MemID")=MemID
rs("Linkman")=StrReplace(RealName)
rs("Sex")=Sex
rs("Company")=StrReplace(Company)
rs("Address")=StrReplace(Address)
rs("ZipCode")=StrReplace(ZipCode)
rs("Telephone")=StrReplace(Telephone)
rs("Fax")=StrReplace(Fax)
rs("Mobile")=StrReplace(Mobile)
rs("Email")=Email
rs("AddTime")=now()
rs.update
rs.close
set rs=nothing
WriteMsg("·Successfulï¼View <a href='MemberOrder.asp'><font color='red'>[My Order]</font></a>ã")
%>
同花顺LEVEL-2 BBD是什么意思
是个公式,BBD源码如下,演示下面网址里有
p2:=SUBSAMEDAY(&BIGBUYCOUNT2);
b2:=SUBSAMEDAY(&WAITBUYCOUNT2);
p3:=SUBSAMEDAY(&BIGBUYCOUNT1);
b3:=SUBSAMEDAY(&WAITBUYCOUNT1);
n2:=SUBSAMEDAY(&BIGSELLCOUNT2);
m2:=SUBSAMEDAY(&WAITSELLCOUNT2);
n3:=SUBSAMEDAY(&BIGSELLCOUNT1);
m3:=SUBSAMEDAY(&WAITSELLCOUNT1);
主力量比:SUM(p2+b2+p3+b3-n2-m2-n3-m3,0)/V*;
特单量比:SUM(p3+b3-n3-m3,0)/V*;
大单量比:SUM(p2+b2-n2-m2,0)/V*;
主被量比:(SUM(p2+p3-n2-n3,0)-SUM(b2+b3-m2-m3,0))/V*;
/zhibiaogongshi/.html