📄 mansysautomansays.asp

📁 此程序为网上下载

💻 ASP

字号:

<%@ codepage ="936" %>
<%Response.Expires=0
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
if nickname="" then Response.Redirect "manerr.asp?id=100"
if grade<>12 or Session("ipbt")<>1 then Response.Redirect "manerr.asp?id=230"
connstr=Application("wsaxhg_connstr")
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open connstr
sql="SELECT act FROM actlib WHERE acttype='1'"
rs.open sql,conn,1,1
totalact=rs.RecordCount
Randomize
mr=Int((totalact-250)*Rnd)
if mr<0 then mr=0
if mr>totalact-250 then mr=totalact-250
rs.Move mr
Dim autoact()
i=0
Do while Not(rs.Eof) and i<250
 i=i+1
 Redim Preserve autoact(i)
 autoact(i)=rs("act")
rs.MoveNext
Loop
rs.close
conn.close
set rs=nothing
set conn=nothing
Application.Lock
 Application("wsaxhxf_c_autoact")=autoact
Application.UnLock%><html>
<head>
<title>系统参数</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
</head>
<body bgcolor="#FFFFFF" class=p150>
<div align="center">
<h1><font color="0099FF">【系统参数】</font></h1>
</div>
<div align="center"><font color="#FF0000">【给机器人换脑】</font></div>
<hr noshade size="1" color=009900>
<b>［注意事项］</b><br>
　　机器人说的话是从酷库中学习到的。如果有人恶意向酷库中添加不雅动作，可能会教坏机器人，此时用换脑功能为机器人重新选定趣语。
<div align=right><a href="javascript:history.go(0)">〖再次换脑〗</a> <a href="javascript:history.go(-1)">〖返回〗</a></div>
<hr noshade size="1" color=009900>
下面是当前机器人会说的话：<p>
<%for i=1 to 250
 Response.Write "<p>(" & i & ") " & autoact(i) & "</p>"
next%>
<hr noshade size="1" color=009900>
<div align=center class=cp><%Response.Write "序列号：<font color=blue>" & Application("wsaxhxf_c_sn") & "</font>，授权给：<font color=blue>" & Application("wsaxhxf_c_user") & "</font><br><font color=999999>" & Application("wsaxhxf_c_copyright") & "</font>"%></div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -