<% Function SysMsgDisplay(MsgType,MsgStr,LocStr,Url)
Select Case MsgType
Case 0
MsgTypeString = "系统提示"
Case 1
MsgTypeString = "系统警告"
Case 2
MsgTypeString = "系统错误"
End Select
Response.Clear()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="/admin/image/style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="150px">
<table border="0" cellpadding="2" cellspacing="1" width=600 class=a2 align=center>
<tr class=a1>
<td height="25" colspan="3"><b> <%= MsgTypeString %></b></td>
</tr>
<tr>
<td width="75" rowspan="3" align="center" bgcolor="#FFFFFF"><img src="/images/error<%= CStr(MsgType) %>.gif" width="48" height="48"></td>
<td width="75" height="25" align="right" class="a3"><b>当前操作：</b></td>
<td width="450" height="25" class="a3">请选择</td>
</tr>
<tr>
<td width="75" height="80" align="right" class="a3"><b>详细信息：</b></td>
<td width="450" height="80" class="a3">请选择你要申报的项目属性</td>
</tr>
<tr>
<td width="75" height="25" align="right" class="a3"><b>您可选择：</b></td>
<td width="450" height="25" align="center" class="a3"><a href="kjsb.asp">申报的科技成果是科技项目</a> | <a href="zkjs_gl.asp" >申报的科技成果不是科技项目</a></td>
</tr>
</table>
</body>
</html>
<%
Response.End()
End Function
%>
<%Call SysMsgDisplay(1,"当前页面需要您登录以后才能正常查看，系统检测到您没有登录或者20分钟内没有进行任何操作，请重新登录！","登录检查","")%>
