end.asp

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

<map name="Map">
  <area shape="rect" coords="198,8,232,24" href="./home.asp">
  <area shape="rect" coords="247,8,305,24" href="english/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 height=25>
          <td class="font3"><font color="#FFFFFF">总部电话：[phone] 传真：[phone]&nbsp;&nbsp; 
            E_mail:</font><font color="ffffff">[e-mail]</font>&nbsp; 
          </td>
          <td class="font3">&nbsp;</td>
        </tr>
        <tr height=25>
          <td class="font3"><font color="#FFFFFF">COPYRIGHT 2004 ALL RIGHTS RESERVED</font></td>
          <td class="font3"><font color="#FFFFFF">版权所有:大连海昌集团有限公司 </font></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
%>