ok.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 71 行

ASP
71 行
字号 
<%
errstr = trim(request("errstr"))
gourl = trim(request("gourl"))

if gourl <> "" and InStr(1, gourl, "GRSN=") = 0 then
	if InStr(1, gourl, "?") = 0 Then
		gourl = gourl & "?" & getGRSN()
	else
		gourl = gourl & "&" & getGRSN()
	end if
end if
%>

<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>

<BODY>
<br><br>
<table width="100%"><tr><td width="30"></td><td>
<table border=0 cellspacing=0 cellpadding=0 width="90%">
  <tr bgcolor="#93BEE2">
<%
if errstr = "" then
%>
	<td height="30" style='border-top:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;' colspan="2"><font class="Wf" color="#104A7B">&nbsp;&nbsp;<b>Operation Successful</b>.</font></td>
<%
else
%>
	<td height="30" style='border-top:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;' colspan="2"><font class="Wf" color="#104A7B">&nbsp;&nbsp;<%=errstr %></b>.</font></td>
<%
end if
%>
  </tr>
<br>
<tr><td><br><hr size="1" color="#8CA5B5"></td></tr>
<tr><td align="right" colspan="2"><br>
<%
if gourl = "" then
%>
<input type="button" value="Return" onclick="javascript:history.back();" class="Bsbttn">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<%
else
	if Left(gourl, 11) <> "welcome.asp" then
%>
<input type="button" value="Return" onclick="javascript:location.href='<%=gourl%>';" class="Bsbttn">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<%
	else
%>
<input type="button" value="Return" onclick="javascript:parent.location.href='<%=gourl%>';" class="Bsbttn">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<%
	end if
end if
%>
</td></tr></table>
</td></tr></table>

</BODY>
</HTML>

<%
function getGRSN()
	dim theGRSN
	Randomize
	theGRSN = Int((9999999 * Rnd) + 1)

	getGRSN = "GRSN=" & CStr(theGRSN)
end function
%>

ok.asp - 源码说明

本页面展示了「蓝芒3.0A最新所有功能完整破解版」中的 ok.asp 源码文件，采用 ASP 编程语言编写，共 71 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与3.0相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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