📄 login.asp
字号:
<% @language=vbscript%>
<% Response.buffer=false%>
<%Server.ScriptTimeOut=400%>
<!--#include file ="function.asp" -->
<%
function getsource(weburl)
dim source
source=""
Set obj = Server.CreateObject("MASPHttp.http")
on error resume next
source=obj.httpGet(weburl&"")
getsource=source
end function
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>可转债计算器</TITLE>
</HEAD>
<BODY bgColor=ivory >
<CENTER> </CENTER>
<CENTER> </CENTER>
<CENTER>
<P align=center><FONT color=lightcoral size=4>今天是<%=Date%> ,现在时间是<%=time()%> .</FONT></P></CENTER>
<CENTER> </CENTER>
<CENTER>
<TABLE cellSpacing=1 cellPadding=1 width="80%" border=2 bgcolor=navajowhite borderColor=tomato id=TABLE1>
<TR>
<TD align=middle colSpan=6 borderColorDark=ivory>
<FONT color=mediumblue size=4>可转债计算器</FONT>
</TD>
</TR>
<TR>
<TD colSpan=4>
<P align=center><FONT color=darkblue>可转债</FONT></P></TD>
<TD colSpan=2>
<P align=center><FONT color=darkblue>股票</FONT></P></TD></TR>
<TR>
<TD>
<P align=center><FONT color=black>名称</FONT></P></TD>
<TD>
<P align=center><FONT color=black>代码</FONT></P></TD>
<TD>
<P align=center><FONT color=black>实际价格</FONT></P></TD>
<TD>
<P align=center><FONT color=black>理论价格</FONT></P></TD>
<TD>
<P align=center><FONT color=black>代码</FONT></P></TD>
<TD>
<P align=center><FONT color=black>股价</FONT></P></TD>
</TR>
<%dim ii , sourceweb1, sourceweb2 ,source1, source2
dim v1,v2,RR,adr,str
' 可转债代码
code1=split("100016,100087,100096,100117,100177,100220,100236,100567,100726,100795,125002,125630,125729,125930,125936,126301",",")
' 正股代码
code2=split("600016,600087,600096,600117,600177,600220,600236,600567,600726,600795,000002,000630,000729,000930,000936,000301",",")
name=split("民生,水运,云化,西钢,雅戈,阳光,桂冠,山鹰,龙电,国电,万科,铜都,燕京,丰原,华西,丝绸",",")
RR=chr(13)&chr(10)
%>
<% for ii= 0 to 15 step 1%>
<% ' 先获取正股价格 v1
sourceweb1="http://quote.jrj.com.cn//htmdata/html/"&code2(ii)&".htm"
source1=getsource(sourceweb1)
Data1=SPLIT(source1,",")
v1=Data1(3)
' 再获得可转债价格 v2
sourceweb2="http://quote.jrj.com.cn//htmdata/html/"&code1(ii)&".htm"
source2=getsource(sourceweb2)
Data2=SPLIT(source2,",")
v2=Data2(3)
'将数据导入获得可转债理论价格
adr="C:\inetpub\wwwroot\input\" &code1(ii)& ".txt"
set MYFSO=Server.CreateObject("Scripting.FileSystemObject")
Set MyTextStream=MYFSO.OpenTextFile(adr,1)
str=MyTextStream.readall()
data=split(str,RR)
MyTextStream.close
set MYFSO=nothing
set MyTextstream=nothing
%>
<%'获得可转债理论价格 v3
v3=price(v1*1,data(2)*1,data(3)*1,data(4)*1,data(5)*1,data(6)*1,data(7)*1,data(8)*1,data(9)*1,data(10)*1,data(11),data(12)*1,data(13)*1,data(14)*1,data(15)*1-data(16)*1,data(17)*1,data(18)*1)
%>
<TR>
<TD>
<P align=center><%=name(ii)%><FONT color=black>转债</FONT></P></TD>
<TD>
<P align=center><FONT color=black><%=code1(ii)%></FONT></P></TD>
<TD>
<P align=center><%=v2%><FONT color=black>元</FONT></P></TD>
<TD>
<P align=center><%=v3%><FONT color=black>元</FONT></P></TD>
<TD>
<P align=center><FONT color=black><%=code2(ii)%></FONT></P></TD>
<TD>
<P align=center><%=v1%><FONT color=black>元</FONT></P></TD>
</TR>
<% Next %>
</TABLE></CENTER>
<CENTER>
<form id=form1 name=form1><input type=button value="刷新" name=button1 onclick="javascript:location.reload()" align=absMiddle style="BORDER-TOP: 10px; WIDTH: 71px; HEIGHT: 27px; BACKGROUND-COLOR: skyblue" maxLength=10 size=35></form></CENTER>
<CENTER> </CENTER>
<CENTER> </CENTER>
<CENTER> </CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -