login.asp

可转债数据库

<%Response.Buffer=False%>
<%response.Expires=0%>
<%
function getsource(weburl)
  dim source
  source=""
  Set obj = Server.CreateObject("MASPHttp.http")
  on error resume next
  source=obj.httpGet(weburl&"")
  getsource=source
end function
%>
<%function gettime(source)
'－－－－◎◎◎◎◎◎◎◎◎◎◎◎
dim time11,time1
  i=InStr(source,"更新时间：<font class=e02>")
  time11=mid(source,i+21,100)
  j=InStr(time11,"</font>")
  time11=Trim(left(time11,j-1))
  time1=DateValue(time11)+timevalue(time11)
  gettime=time1
'◎◎◎◎◎◎◎◎◎◎◎◎－－－－
end function
%>
<%'得到股市数据最后更新时间
'－－－－◎◎◎◎◎◎◎◎◎◎◎◎
sourceweb11="http://www.stockstar.com/scripts/quoteISAPI.dll?MFCISAPICommand=dghq&code=shzs000001"
source11=getsource(sourceweb11)
sys_time=gettime(source11)
'◎◎◎◎◎◎◎◎◎◎◎◎－－－－
%>
<%
Dim WeekDayNames(8)
WeekDayNames(2)="星期一"
WeekDayNames(3)="星期二"
WeekDayNames(4)="星期三"
WeekDayNames(5)="星期四"
WeekDayNames(6)="星期五"
WeekDayNames(7)="星期六"
WeekDayNames(1)="星期天"
W=Weekday(date)
WeekD=WeekDayNames(W)
%>
<%if datevalue(sys_time)=date then%>
<% response.write "<p> 今天是 "& DateValue(sys_time) &"("&WeekD&"),下面开始今天收盘。"
%>

<%
 set connection= Server.CreateObject("ADODB.Connection")
 set rs=server.createobject("adodb.recordset")
 connection.open "sim_stock"
%>


<%'※※更新每只股票的行情※※%>
<%
sql="select * from account"
rs.open sql,connection,1,3
%>

<%dim code,sourceweb,source%>
<%do while not rs.eof%>

<%
'－－－－◎◎◎◎◎◎◎◎◎◎◎◎
code=rs("stock_code")
sourceweb="http://211.157.0.135/jmc/ModuleData/TextHq_0/"&code&".htm" 
source=getsource(sourceweb)
%>

<%
dim codeerr
codeerr=instr(source,"The page cannot be found")
'◎◎◎◎◎◎◎◎◎◎◎◎－－－－
if codeerr<>0 then
  response.write "<p> 对不起，市场上好像没有" & code & "这只股票，因此数据库不做更改。"
%>
<% else
  Data=SPLIT(source,",")

 '=========向information中写入信息=========
	 set rss=server.createobject("adodb.recordset")
     sql1="Select * From 数据"
     rss.open sql1,connection,1,3
     rss.addnew
     rss("代码")=code
     rss("开盘价")=Data(13)
     rss("收盘价")=Data(3)
     rss("日期")=DateValue(sys_time)
     rss("涨跌幅")=Data(6)/100
     rss("成交量")=Data(8)
     rss.update
     rss.close
response.write "<p> 股票"&code&"今天的开盘价为"&Data(13)&",收盘价为"&Data(3)&",涨跌为"&Data(6)&"%。"
 %> 
 <%end if%>
 <%rs.movenext%>
 <%loop%>
<%rs.close%>
<%
set rs=nothing
set rss=nothing
set connection=nothing
%>
<% response.write " <p> 收盘结束。"
%>
<%else
  response.write "上次收盘时间为"&sys_time&"<p>今天是"&Date&"("&WeekD&")股市不开盘，收盘程序不对数据库进行更改。"
%>
<%end if%>