⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 bgsub.asp

📁 一套简单的OA系统
💻 ASP
字号:
🔍 
<%
imgpath="./"
sub bghead()
%>

<head>
</head>

<body bgcolor="#EBEBEB" leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" height="5">
  <tr> 
    <td bgcolor="#ffffff" width="100%" height="100%"></td>
  </tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tr>
      <td height=67>
        <table border="0" cellpadding="0" cellspacing="0" width="610" height="67">
          <tr>
            <td width=63><img border="0" src="<%=imgpath%>images/j1.gif"></td>
            <td background="<%=imgpath%>images/j2.gif" align=center>
<%
end sub
%>

<%
sub bgmid()
%>
</td>
            <td width="60"><img border="0" src="<%=imgpath%>images/j3.gif"></td>
          </tr>
        </table>
      </td>
    </tr>
    <tr>
      <td valign=top>
        <table border="0" cellpadding="0" cellspacing="0" width="610">
          <tr>
            <td background="<%=imgpath%>images/j4.gif" width=17 height=280></td>
            
          <td valign=top height=100%> 
            <%
end sub
%>
            <%
sub bgback()
%>
  <!--        </td>
            
 
          </tr>
        </table>
    </tr>
    <tr>
      <td height=19>
        <table border="0" cellpadding="0" cellspacing="0" width="610" height="19">
          <tr>
            
           
            
           
            
           
          </tr>
		  <tr>
          <td width="100%" height=20 colspan="3"><center>-----<font color="#808080">JZUND-OA &copy; <a href="http://www.ie37.com" target="_blank">COMPANY.JZUD.COM</a></font></a>-----</center></td>
		  </tr>
        </table>
      </td>
    </tr>
  </table>-->

<%
end sub
'返回字符串的实际长度
function strlength(inputstr)
	dim length,i
	length=0
	for i=1 to len(inputstr)
		if asc(mid(inputstr,i,1))<0 then
			length=length+2
		else
			length=length+1
		end if
	next
	strlength=length
end function
'以网页方式显示错误信息，确定后执行后退操作
Sub DispErrorInfo1(ErrorInfoStr)
	Response.Write("<div align=""center"">")
	Response.Write("<br><br>")
	Response.Write("<table border=""0"" cellpadding=""0"" cellspacing=""0"">")
    Response.Write("<tr>")
	Response.Write("<td><img border=""0"" src=""/Electron_Doc/Images/errorico.gif"" align=""absmiddle"" width=""32"" height=""32"">　<font size=""3"" color=""#FF0000"">"&ErrorInfoStr&"</font></td>")
	Response.Write("</tr>")
	Response.Write("</table>")
	Response.Write("<br><br>")
	Response.Write("<input type=""button"" Value="" 返 回 "" onclick=""javascript:history.go(-1);"">")
	Response.Write("<br><br>")
	Response.Write("</div>")
End Sub
%>

⌨️ 快捷键说明

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