📄 rego.asp

📁 一个超级漂亮的班级主页asp代码

💻 ASP

字号:

<!--#include file="in_conn.asp"-->


<%
'获取传值
dim rtype,rcmd,rp_ico,rp_str,url,urlcn
rtype=Request.Querystring("type")
rcmd=Request.Querystring("cmd")
url="index.asp"
urlcn="班级首页"

SELECT CASE rtype
	Case "tip"
		rp_ico="jjtip.gif"
	Case Else
		rp_ico="jjgo.gif"
END SELECT

SELECT CASE rcmd
	Case "log_ok"
		rp_str="<font class='ft1'>"&Session("sname")&"</font>，登录成功!３秒后自动转向班级首页。。。"
		url="index.asp"
		urlcn="班级首页"
	Case "log_msg"
		rp_str="<font class='ft1'>"&Session("sname")&"</font>，登录成功，您有<b><font color=red>系统消息</font></b>，３秒后自动转向成员中心。。。"
		url="uinfo.asp"
		urlcn="成员中心"
	Case "reg_ok"
		rp_str="<font class='ft1'>"&Session("sname")&"</font>，恭喜你，申请注册成功!３秒后自动转向成员中心。。。"
		url="uinfo.asp"
		urlcn="成员中心"
	Case "mod_ok"
		rp_str="<font class='ft1'>"&Session("sname")&"</font>，恭喜你，修改资料成功!３秒后自动转向成员中心。。。"
		url="uinfo.asp"
		urlcn="成员中心"
	Case "skin_ok"
		rp_str="正在刷新页面!３秒后自动转向班级首页。。。"
		url="index.asp"
		urlcn="班级首页"
	Case Else
		rp_str="太晕哦，未知错误!"
END SELECT
%>

<body>
<br><br><br>

<table align="center" width="700" height="50" border="0" cellspacing="0" cellpadding="11" class="rdkuang"><tr>
	<td width="100%" height="100%" align="center">
		&nbsp;<img src="img/<% =rp_ico %>" border="0">
		<% =rp_str %><br>
		如果自动转向失败，请［<a href="<% =url %>">点击这里转向<% =urlcn %></a>］
	</td>
</tr></table>

<script defer language="javascript" charset='gb2312'>
	setTimeout('location.href="<% =url %>"',3000);
</script>
</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -