end.asp

一个不错的企业网站源代码！

<map name="Map">
  <area shape="rect" coords="200,9,231,24" href="../home.asp">
  <area shape="rect" coords="248,10,302,24" href="./home.asp">
</map>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#005500" height="22">
  <tr>
    <td bgcolor="#66cc00" width="1"></td>
    <td width="776" align=center>
      <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr>
          <td class="fontse">COPYRIGHT 2003 ALL RIGHTS RESERVED</td>
          <td class="font3"><font color="#FFFFFF">版权所有:大连海昌集团有限公司</font></td>
          <td class="font3"><font color="#FFFFFF">Design by:</font><a href="http://www.ibw.com.cn" target="_blank" class="anews2"><font color="#FFFFFF">IBW</font></a></td>
        </tr>
      </table>
    </td>
    <td bgcolor="#66cc00" width="1"></td>
  </tr>
</table>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td bgcolor="#66cc00" height="1"></td>
  </tr>
</table>
</body>
</html>
<%
function checkstr(str)
    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True

    re.Pattern="(script)"
    str=re.Replace(str,"sc ript")
    re.Pattern="(>"+chr(13)+")"
    str=re.Replace(str,">")
    re.Pattern="(> "+chr(13)+")"
    str=re.Replace(str,">")
    re.Pattern="(>  "+chr(13)+")"
    str=re.Replace(str,">")

    re.Pattern="("+chr(13)+")"
    str=re.Replace(str,"<br>&nbsp;&nbsp;")

	str="&nbsp;&nbsp;&nbsp;"+str
	checkstr=str
end function	
%>
<%
function checktitle(str,cd)
		a=len(str)
		if a>cd then
				checktitle=left(str,cd)+"...."
			else
				checktitle=str
		end if
end function
%>
<%
function checkstr1(str)
    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True

    re.Pattern="(script)"
    str=re.Replace(str,"sc ript")
    re.Pattern="(>"+chr(13)+")"
    str=re.Replace(str,">")
    re.Pattern="(> "+chr(13)+")"
    str=re.Replace(str,">")
    re.Pattern="(>  "+chr(13)+")"
    str=re.Replace(str,">")

    re.Pattern="("+chr(13)+")"
    str=re.Replace(str,"<br>")

	checkstr1=str
end function	
%>
<%if session("count")="" then
		sqltext="update syswork set querycount=querycount+1 where code=101"
	    cn.execute(sqltext)
		rs.Open "webcount",cn,3,3
		rs.AddNew
		rs("countip")=Request.ServerVariables("REMOTE_ADDR")
		rs("countdate")=now()
		rs.Update
		rs.Close
		session("count")=1
end if
%>