📄 exchange.asp
字号:
<%@ language=vbscript%>
<%
if Session.Contents("UserName")="" then
%>
<script language="vbscript">
MsgBox "不能进入，你还没有登录"
location.href = "../index.asp"
</script>
<%
else
sid=Request.QueryString ("sid")
dim username,typename
username=Session.Contents("UserName")
typename="股票交易"
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("stock.asp")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set uconn=server.createobject("adodb.connection")
DBPath = Server.MapPath("../../data/members.asp")
uconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rss=conn.execute("select * from stock where sid="&sid)
set rs=conn.execute("select ushare from ustock where sid="&sid&" and username='"&username&"'")
if rs.eof then
sushare=0
else
sushare=rs("ushare")
end if
%>
<script ID="clientEventHandlersJS"
LANGUAGE="javascript">
<!--
function isnumber(c){
if ((c>='0') && (c<='9'))
return true;
else
return false;
}
function B1_onclick(){
if (Number(form1.ushare.value)==""){
window.alert ("请填写购买数量!");
return false;}
for (i=0;i<form1.ushare.value.length;i++){
n=form1.ushare.value.substr(i,1);
if (!isnumber(n)){
window.alert ("请输入一个大于0的整数");
return false;}
}
return true;}
function B3_onclick(){
if (Number(form2.ushare.value)==""){
window.alert ("请填写卖出数量!");
return false;}
for (i=0;i<form2.ushare.value.length;i++){
n=form2.ushare.value.substr(i,1);
if (!isnumber(n)){
window.alert ("请输入一个大于0的整数");
return false;}
}
return true;}
//-->
</script>
<%
sql="select cash from users where name='"&username&"'"
set rs=server.createobject("adodb.recordset")
rs.cursorlocation=3
rs.open sql,uconn
nowmoney=rs("cash")
rs.close
set rs=nothing
%>
<html>
<head>
<title></title>
<link rel="stylesheet" href="../../CSS/STYLE.CSS">
</head>
<body>
<form name="form1" method="post" action="buy.asp">
<input type="hidden" name="sid" value="<%=sid%>">
<div align="center">
<center>
<p><font color="#006633">股票代号：<%=sid%> 股票数量：<%=rss("sshare")%> 今日价格：<%=formatnumber(rss("sprice_t"),3)%></font></p>
</center>
</div>
<div align="center">
<center>
<p><font color="#006633">您的资金：<%=formatnumber(nowmoney,3)%>元,拥有这种股票数：<%=sushare%>
</font></p>
</center>
</div>
<div align="center">
<center>
<p><font color="#006633">购买数量：
<input name="ushare"
size="20" class="smallinput">
<input type="submit" value="购买" name="B1"
LANGUAGE="javascript" onclick="return B1_onclick()" class="buttonface">
<input
type="reset" value="取消" name="B2" class="buttonface">
</font></p>
</center>
</div>
</form>
<form name="form2" method="post" action="sale.asp">
<font color="#006633">
<input type="hidden" name="sid" value="<%=sid%>">
</font>
<div align="center">
<center>
<p><font color="#006633">卖出数量：
<input
name="ushare" size="20" class="smallinput">
<input type="submit" value="卖出" name="B3"
LANGUAGE="javascript" onclick="return B3_onclick()" class="buttonface">
<input
type="reset" value="取消" name="B2" class="buttonface">
</font></p>
</center>
</div>
</form>
<font color="#006633"><%end if%> </font>
</body>
</html>
<%'conn.close
'set conn=nothing
'uconn.close
'set uconn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -