<!--#include file="conn.asp"-->
<% 
if session("uname")="" then
response.redirect "../login.asp"
else
 if session("uname")<>"admin" then
call endinfo("你没有资格操作")
else %>
<%
gname=Request.Form ("gname")
gtot=Request.Form ("gtot")
yp=Request.Form ("yp")
np=Request.Form ("np")
sql="insert into 股票 (企业,流通股票,开盘价格,当前价格,日期) values ('"&gname&"',"&gtot&","&yp&","&np&",'"&date()&"')"
conn.execute sql
response.redirect "gupiao.asp"
%>

<%
end if 
end if
sub endinfo(message) 
'-------------------------------信息提示-------------------------------
%>
<table width="<%=TableWidth%>" border=0 cellspacing=1 cellpadding=3 align=center bgcolor="<%=Tablebackcolor%>"><tr bgcolor="<%=Tabletitlecolor%>" ><td align=center height=26 bgcolor="<%=Tabletitlecolor%>"><b>信息提示</b></td></tr><tr><td align=center height=70 bgcolor="<%=aTabletitlecolor%>"><%=message%><br></td></tr><tr><td align=center height=26 bgcolor="<%=Tabletitlecolor%>"><a href="gupiao.asp">返回</a></td></tr></table>
<%end sub
%>