📄 system.asp

📁 本系统为ASP版 1
💻 ASP
字号:
<%Admin="UserSee"%>
<!--#include file="check.asp"-->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>系统设置</title>
<style>
td{font-size:9pt;line-height:120%} 
body{font-size:9pt;line-height:120%} 
a:link       { color: #0033CC; text-decoration: none }
a:visited    { color: #0033CC; text-decoration: none }
a:active     { color: #FF0000; text-decoration: none }
a:hover      { color: #000000; text-decoration: underline}
</style>
</head>
<body topmargin="4"><center>
<%
if request("type")="save" then
zj=Request.ServerVariables("SERVER_NAME")
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","a")
zj=replace(zj,"1","b")
zj=replace(zj,"2","c")
zj=replace(zj,"3","d")
zj=replace(zj,"4","e")
zj=replace(zj,"5","f")
zj=replace(zj,"6","g")
zj=replace(zj,"7","h")
zj=replace(zj,"8","i")
zj=replace(zj,"9","j")
zj=replace(zj,"a","40")
zj=replace(zj,"b","41")
zj=replace(zj,"c","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"g","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"j","89")
zj=replace(zj,"k","20")
zj=replace(zj,"l","21")
zj=replace(zj,"m","22")
zj=replace(zj,"n","23")
zj=replace(zj,"o","24")
zj=replace(zj,"p","25")
zj=replace(zj,"q","26")
zj=replace(zj,"r","27")
zj=replace(zj,"s","28")
zj=replace(zj,"t","29")
zj=replace(zj,"u","30")
zj=replace(zj,"v","31")
zj=replace(zj,"w","32")
zj=replace(zj,"x","33")
zj=replace(zj,"y","34")
zj=replace(zj,"z","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
yzcv=zj*(len(zj)+len(zcn&"JyDownH"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
if yzcv=zcv then
response.write("<b><font color=""#FF0000"">错误：程序尚未注册,此功能不能使用!</font></b>")
response.end
end if
if request("webtime")<>"" then
webtime=request("webtime")
else
webtime=0
end if
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = fs.CreateTextFile(Server.MapPath("co.asp"), True) 
TS1.writeline "<"&chr(37)
TS1.writeline "webname="&chr(34)&""&request("webname")&""&chr(34)&""
TS1.writeline "webname1="&chr(34)&""&request("webname1")&""&chr(34)&""
TS1.writeline "webname2="&chr(34)&""&request("webname2")&""&chr(34)&""
TS1.writeline "webname3="&chr(34)&""&request("webname3")&""&chr(34)&""
TS1.writeline "webname4="&chr(34)&""&request("webname4")&""&chr(34)&""
TS1.writeline "webname5="&chr(34)&""&request("webname5")&""&chr(34)&""
TS1.writeline "webname6="&chr(34)&""&request("webname6")&""&chr(34)&""
TS1.writeline "name="&chr(34)&""&request("name")&""&chr(34)&""
TS1.writeline "name1="&chr(34)&""&request("name1")&""&chr(34)&""
TS1.writeline "name2="&chr(34)&""&request("name2")&""&chr(34)&""
TS1.writeline "name3="&chr(34)&""&request("name3")&""&chr(34)&""
TS1.writeline "name4="&chr(34)&""&request("name4")&""&chr(34)&""
TS1.writeline "name5="&chr(34)&""&request("name5")&""&chr(34)&""
TS1.writeline "name6="&chr(34)&""&request("name6")&""&chr(34)&""
TS1.writeline "me1="&chr(34)&""&request("me1")&""&chr(34)&""
TS1.writeline "me2="&chr(34)&""&request("me2")&""&chr(34)&""
TS1.writeline "me3="&chr(34)&""&request("me3")&""&chr(34)&""
TS1.writeline "me4="&chr(34)&""&request("me4")&""&chr(34)&""
TS1.writeline "me5="&chr(34)&""&request("me5")&""&chr(34)&""
TS1.writeline "color="&chr(34)&""&request("color")&""&chr(34)&""
TS1.writeline "color1="&chr(34)&""&request("color1")&""&chr(34)&""
TS1.writeline "color2="&chr(34)&""&request("color2")&""&chr(34)&""
TS1.writeline "color3="&chr(34)&""&request("color3")&""&chr(34)&""
TS1.writeline "color4="&chr(34)&""&request("color4")&""&chr(34)&""
TS1.writeline "color5="&chr(34)&""&request("color5")&""&chr(34)&""
TS1.writeline "color6="&chr(34)&""&request("color6")&""&chr(34)&""
TS1.writeline chr(37)&">"
Set TS1 = Nothing
Set fs=nothing
response.redirect "system.asp?ok=成功:修改系统设置完成!"
response.end
end if
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function%>
<!--#include file="co.asp"-->
<form action="system.asp?type=save" method="post">
<%if request("ok")<>"" then%>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="620" cellpadding="0">
  <tr>
    <td width="100%">      
      <font color="#FF0000"><%=request("ok")%></font>时间:<%=Now()%></td>
  </tr>
</table>
<%end if%>
  <table border="0" cellspacing="1" width="620" bgcolor="#e6e6e6">
    <tr>
      <td width="100%" bgcolor="#bbaadd">&nbsp;<font color="#FFFFFF"><b>综合指数</b></font></td>
    </tr>
    <tr><td> ------------------------------------<b><font color="#FF0000"> +</font> &nbsp;&nbsp;<font color="#009900">- </b></font></td></tr>
    <tr><td> 上证综指：<input name="webname" value="<%=webname%>">
<input type="radio" value="ff0000" name="color"<%if color="ff0000" then%> checked<%end if%>>
<input type="radio" value="009900" name="color"<%if color="009900" then%> checked<%end if%>>
<input name="name" value="<%=name%>"></td></tr>
    <tr><td> 深圳成指：<input name="webname1" value="<%=webname1%>">
<input type="radio" value="ff0000" name="color1"<%if color1="ff0000" then%> checked<%end if%>>
<input type="radio" value="009900" name="color1"<%if color1="009900" then%> checked<%end if%>>
<input name="name1" value="<%=name1%>"></td></tr>
    <tr><td> 纳斯达克：<input name="webname2" value="<%=webname2%>">
<input type="radio" value="ff0000" name="color2"<%if color2="ff0000" then%> checked<%end if%>>
<input type="radio" value="009900" name="color2"<%if color2="009900" then%> checked<%end if%>>
<input name="name2" value="<%=name2%>"></td></tr>
    <tr><td> 东京日经：<input name="webname3" value="<%=webname3%>">
<input type="radio" value="ff0000" name="color3"<%if color3="ff0000" then%> checked<%end if%>>
<input type="radio" value="009900" name="color3"<%if color3="009900" then%> checked<%end if%>>
<input name="name3" value="<%=name3%>"></td></tr>
    <tr><td> 伦敦金融：<input name="webname4" value="<%=webname4%>">
<input type="radio" value="ff0000" name="color4"<%if color4="ff0000" then%> checked<%end if%>>
<input type="radio" value="009900" name="color4"<%if color4="009900" then%> checked<%end if%>>
<input name="name4" value="<%=name4%>"></td></tr>
    <tr><td> 道 琼 斯：<input name="webname5" value="<%=webname5%>">
<input type="radio" value="ff0000" name="color5"<%if color5="ff0000" then%> checked<%end if%>>
<input type="radio" value="009900" name="color5"<%if color5="009900" then%> checked<%end if%>>
<input name="name5" value="<%=name5%>"></td></tr>
    <tr><td> 香港恒生：<input name="webname6" value="<%=webname6%>">
<input type="radio" value="ff0000" name="color6"<%if color6="ff0000" then%> checked<%end if%>>
<input type="radio" value="009900" name="color6"<%if color6="009900" then%> checked<%end if%>>
<input name="name6" value="<%=name6%>"></td></tr>
  <tr>
      <td width="100%" bgcolor="#bbaadd">&nbsp;<font color="#FFFFFF"><b>人民币汇率中间价</b></font></td>
    </tr>
    <tr><td> 1美元：<input name="me1" value="<%=me1%>"></td></tr>
    <tr><td> 1港元：<input name="me2" value="<%=me2%>"></td></tr>
    <tr><td> 100日元：<input name="me3" value="<%=me3%>"></td></tr>
    <tr><td> 1欧元：<input name="me4" value="<%=me4%>"></td></tr>
    <tr><td> 1英镑：<input name="me5" value="<%=me5%>"></td></tr>
    <tr>
      <td width="100%" bgcolor="#f7f7f7">      
      <p align="center">      
      <input name="b1" type="submit" value="确认修改">&nbsp;&nbsp;      
      <input name="b2" type="reset" value="全部还原"></p>
     </td>
    </tr>
    </table>
</form>
  </center>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -