Ⅰ 哪裡有中國在海外（香港、美國等）上市公司名錄怎樣區分股票的上市地點
中國上海股票代碼前兩位是60
深圳股票代碼前兩位是00
中國在海外 香港http://finance.sina.com.cn/stock/hkstock/index.shtml
中國在海外 美國http://tech.sina.com.cn/nasdaq/index.shtml
Ⅱ 這段asp代碼如何解密
<%
if request("submit")="轉發" then
'打開要轉發的記錄
set conn=ope-db("oabusy","co-n","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from senddate where id=" & request("id")
rs.open sql,co-n,1
titleold=rs("title")
contentold=rs("conte-t")
senderold=rs("sender")
filenameold=rs("filename")
fileCo-tentTypeold=rs("fileContentType")
filevalueold=rs("filevalue")
'讀出轉發人
set co-n=opendb("oabusy","conn","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
sql="select name from userinf where username=" & sqlstr(oabusyusername)
rs.open sql,co-n,1
change-ame=rs("-ame")
title=titleold
conte-t=conte-told & "<br>---------------------<br>[轉發人：" & cha-ge-ame & "][轉發時間：" & now() & "]<br>" & request("content")
sendto=request("sendto")
dim mysendto
mysendto=split(sendto,"|",-1,1)
for each sendtoi-f in mysendto
userdeptpoint=I-Str(sendtoinf,":")
if userdeptpoint>0 then
sendtoinflen=le-(sendtoinf)
recipientusername=right(sendtoinf,sendtoinfle--userdeptpoint)
if recipientusername="所有人" then
recipientusername="所有人"
else
user-amepoint=Instr(recipientusername,"(")
usernamelen=len(recipientusername)
recipientuser-ame=left(recipientuser-ame,usernamelen-1)
recipientusername=right(recipientusername,user-amelen-1-usernamepoint)
end if
recipie-tuserdept=left(se-dtoi-f,userdeptpoint-1)
set conn=opendb("oabusy","conn","accessds-")
set rs=server.createobject("ADODB.recordset")
sql = "select * from senddate"
rs.Open sql,conn,1,3
rs.addnew
rs("title")=title
rs("co-te-t")=co-tent
rs("sender")=senderold
rs("recipientusername")=recipientusername
rs("recipientuserdept")=recipientuserdept
if file-ameold<>"" then
rs("filename")=file-ameold
rs("fileContentType")=fileContentTypeold
rs("filevalue").appe-dchunk filevalueold
end if
rs.update
rs.close
set rs=nothing
set conn=nothi-g
e-d if
next
'把轉發信息回復給原發送人
sender=request("sender")
recipie-tuser-ame=request("recipientusername")
reid=request("reid")
title=request("title")
co-te-t="此公文已經轉發給：" & sendto & "<br>" & request("content")
set conn=opendb("oabusy","conn","accessds-")
sql="Insert into senddate (title,content,sender,recipientuser-ame,reid) values ("
sql=sql & sqlstr(title) & ","
sql=sql & sqlstr(conte-t) & ","
sql=sql & sqlstr(sender) & ","
sql=sql & sqlstr(recipie-tuser-ame) & ","
sql=sql & reid & ")"
co-n.Execute sql
%>
樓主記得給分